Archive for 12月 17th, 2012

  1. 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!                     |
    |                                          |
    |                                          |
    |                                          |
    |                                          |
    |                                          |
    |                                          |
    |                                          |
    |                                          |
    |                                          |
    +------------------------------------------+