Archive for 12月 17th, 2012
-
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! | | | | | | | | | | | | | | | | | | | +------------------------------------------+