Hello, Java 2D(Tcl/Java) World!

Posted on 12月 17th, 2012 by cx20

Java 2D(Tcl/Java)

Java 2D は Java による 2D グラフィックライブラリである。
以下は Tcl/Java による Java 2D の使用例となっている。

ソースコード

package require java
 
java::import javax.swing.JFrame
java::import java.awt.Canvas
java::import java.awt.Graphics
java::import java.awt.Graphics2D
 
set frame [java::new JFrame] 
$frame setDefaultCloseOperation [java::field JFrame EXIT_ON_CLOSE]
$frame setTitle "Hello, World"
$frame setSize 640 480
set canvas [java::new Canvas]
$frame add $canvas
$frame setVisible true
 
$canvas createBufferStrategy 2
set strategy [$canvas getBufferStrategy]
set g [$strategy getDrawGraphics]
while { true } {
    $g {drawString java.lang.String int int} "Hello, Java 2D World!" 0 16
    $strategy show
}
 
vwait done

コンパイル&実行方法

C:¥> jaclsh hello.tcl

実行結果

+------------------------------------------+
|Hello, World!                    [_][~][X]|
+------------------------------------------+
|Hello, Java 2D World!                     |
|                                          |
|                                          |
|                                          |
|                                          |
|                                          |
|                                          |
|                                          |
|                                          |
|                                          |
+------------------------------------------+

Tags:

Categories: Jacl, Java, Java 2D, Tcl/Java

コメントを残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です

WP-SpamFree by Pole Position Marketing