Archive for 12月, 2012

  1. Hello, Swing(Rhino) World!

    Posted on 12月 20th, 2012 by cx20

    Swing(Rhino)

    Swing は AWT(Abstract Window Toolkit) を拡張したものであり Java で GUI を扱うためのライブラリである。
    J2SE 1.2 以降は AWT よりも Swing が使われることが多くなっている。
    以下は Rhino による Swing の使用例となっている。

    ソースコード

    importPackage(javax.swing);
     
    var frame = new JFrame();
    frame.setTitle("Hello, World");
    frame.setDefaultCloseOperation( JFrame.EXIT_ON_CLOSE );
    frame.setSize(640,480);
     
    var label = new JLabel("Hello, AWT World!");
    label.setVerticalAlignment(JLabel.TOP);
    frame.add(label);
    frame.setVisible(true);
     
    while(1) {java.lang.Thread.sleep(1000);}

    実行方法

    C:¥> jrunscript Hello.js

    実行結果

    +------------------------------------------+
    |Hello, World!                    [_][~][X]|
    +------------------------------------------+
    |Hello, Swing World!                       |
    |                                          |
    |                                          |
    |                                          |
    |                                          |
    |                                          |
    |                                          |
    |                                          |
    |                                          |
    |                                          |
    +------------------------------------------+
  2. Hello, AWT(Rhino) World!

    Posted on 12月 19th, 2012 by cx20

    AWT(Rhino)

    AWT(Abstract Window Toolkit) は Java で GUI を扱うためのライブラリである。
    J2SE 1.2 以降は AWT を拡張した Swing が使われることが多くなっている。
    以下は Rhino による AWT の使用例となっている。

    ソースコード

    importPackage(java.awt);
    importPackage(java.awt.event);
     
    var frame = new Frame();
    frame.setTitle("Hello, World");
    frame.addWindowListener(function(e, methodName) {
        if (e.getID() == WindowEvent.WINDOW_CLOSING) {
            java.lang.System.exit(0);
        }
    });
    frame.setSize(640,480);
    frame.setLayout(new FlowLayout(FlowLayout.LEFT));
     
    var label = new Label("Hello, AWT World!");
    frame.add(label);
    frame.setVisible(true);
     
    while(1) {java.lang.Thread.sleep(1000);}

    実行方法

    C:¥> jrunscript hello.js

    実行結果

    +------------------------------------------+
    |Hello, World!                    [_][~][X]|
    +------------------------------------------+
    |Hello, AWT World!                         |
    |                                          |
    |                                          |
    |                                          |
    |                                          |
    |                                          |
    |                                          |
    |                                          |
    |                                          |
    |                                          |
    +------------------------------------------+
  3. Hello, Java 3D(Tcl/Java) World!

    Posted on 12月 18th, 2012 by cx20

    Java 3D(Tcl/Java)

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

    ソースコード

    package require java
     
    java::import java.awt.BorderLayout
    java::import java.awt.GraphicsConfiguration
    java::import java.awt.Font
    java::import javax.media.j3d.Canvas3D
    java::import javax.media.j3d.BranchGroup
    java::import javax.media.j3d.Transform3D
    java::import javax.media.j3d.TransformGroup
    java::import javax.media.j3d.Appearance
    java::import javax.media.j3d.Material
    java::import javax.media.j3d.Font3D
    java::import javax.media.j3d.FontExtrusion
    java::import javax.media.j3d.Text3D
    java::import javax.media.j3d.Shape3D
    java::import javax.media.j3d.DirectionalLight
    java::import javax.media.j3d.RotationInterpolator
    java::import javax.media.j3d.Alpha
    java::import javax.media.j3d.BoundingSphere
    java::import javax.swing.JFrame
    java::import javax.vecmath.Vector3f
    java::import javax.vecmath.Color3f
    java::import com.sun.j3d.utils.universe.SimpleUniverse
     
    proc createCanvas3D { frame } {
        $frame setLayout [java::new BorderLayout]
        set config [java::call SimpleUniverse getPreferredConfiguration]
        set canvas3D [java::new Canvas3D $config]
        $frame add $canvas3D
        return $canvas3D
    }
     
    proc createSceneGraph {} {
        set objRoot [java::new BranchGroup]
        set mover [moveTextBack]
        set spinner [createSpinner]
        set rotator [java::new RotationInterpolator [java::new Alpha -1 4000] $spinner [java::new Transform3D] 0.0  [expr [java::field Math PI] * 2]]
        $rotator setSchedulingBounds [java::new BoundingSphere]
        $spinner addChild $rotator
        $objRoot addChild $mover
        $mover addChild $spinner
        $spinner addChild [createTextShape]
        setLighting $mover
        return $objRoot
    }
     
    proc createSpinner {} {
        set spinner [java::new TransformGroup]
        $spinner setCapability [java::field TransformGroup ALLOW_TRANSFORM_WRITE]
        return $spinner
    }
     
    proc moveTextBack {} {
        set transform3D [java::new Transform3D]
        $transform3D setTranslation [java::new Vector3f 0.0 0.0 -10.0]
        return [java::new TransformGroup $transform3D]
    }
     
    proc createTextShape {} {
        set textAppear [java::new Appearance]
        $textAppear setMaterial [java::new Material]
        set font3D [java::new Font3D [java::new Font "MS Pゴシック" [java::field Font PLAIN] 1] [java::new FontExtrusion]]
        set textGeom [java::new Text3D $font3D [java::new String "Hello, Java 3D World!"]]
        $textGeom setAlignment [java::field Text3D ALIGN_CENTER]
        set textShape [java::new Shape3D]
        $textShape setGeometry $textGeom
        $textShape setAppearance $textAppear
        return $textShape
    }
     
    proc setLighting { objMove } {
        set light [java::new DirectionalLight]
        $light setInfluencingBounds [java::new BoundingSphere]
        $light setDirection [java::new Vector3f 0.0 0.0 -1.0]
        $light setColor [java::new Color3f 1.0 1.0 1.0]
        $objMove addChild $light
    }
     
    proc connect { canvas3D scene } {
        set universe [java::new SimpleUniverse $canvas3D]
        set view [$universe getViewingPlatform]
        [$universe getViewingPlatform] setNominalViewingTransform
        $universe addBranchGraph $scene
    }
     
    set frame [java::new JFrame] 
    $frame setDefaultCloseOperation [java::field JFrame EXIT_ON_CLOSE]
    $frame setTitle "Hello, World"
    $frame setSize 640 480
    set canvas3D [createCanvas3D $frame]
    set scene [createSceneGraph]
    connect $canvas3D $scene
    $frame setVisible true
     
    vwait done

    実行方法

    C:¥> jaclsh hello.tcl

    実行結果

    +------------------------------------------+
    |Hello, World!                    [_][~][X]|
    +------------------------------------------+
    |Hello, Java 3D World!                     |
    |                                          |
    |                                          |
    |                                          |
    |                                          |
    |                                          |
    |                                          |
    |                                          |
    |                                          |
    |                                          |
    +------------------------------------------+
  4. 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!                     |
    |                                          |
    |                                          |
    |                                          |
    |                                          |
    |                                          |
    |                                          |
    |                                          |
    |                                          |
    |                                          |
    +------------------------------------------+
  5. Hello, SWT(Tcl/Java) World!

    Posted on 12月 15th, 2012 by cx20

    SWT(Tcl/Java)

    SWT(Standard Widget Toolkit) は Java で GUI を扱うためのライブラリである。
    IBM により AWT や Swing を置き換える目的で作成された。
    以下は Tcl/Java による SWT の使用例となっている。

    ソースコード

    package require java
     
    java::import org.eclipse.swt.SWT
    java::import org.eclipse.swt.widgets.Display
    java::import org.eclipse.swt.widgets.Shell
    java::import org.eclipse.swt.widgets.Label
    java::import org.eclipse.swt.layout.FillLayout
     
    set display [java::new Display]
    set shell [java::new Shell $display]
    $shell setText "Hello, World"
     
    set layout [java::new FillLayout [java::field SWT VERTICAL]]
    $shell setLayout $layout
     
    set label [java::new Label $shell [java::field SWT BORDER]]
    $label setText "Hello, SWT World!"
     
    $shell setSize 640 480
    $shell open
     
    while { ![$shell isDisposed] } {
        if { ![$display readAndDispatch] } {
            $display sleep
        }
    }
     
    $display dispose

    実行方法

    C:¥> SET CLASSPATH=bsh-2.0b4.jar;org.eclipse.swt.win32.win32.x86_3.6.1.v3655c.jar;%CLASSPATH%
    C:¥> jaclsh hello.bsh

    実行結果

    +------------------------------------------+
    |Hello, World!                    [_][~][X]|
    +------------------------------------------+
    |Hello, SWT World!                         |
    |                                          |
    |                                          |
    |                                          |
    |                                          |
    |                                          |
    |                                          |
    |                                          |
    |                                          |
    |                                          |
    +------------------------------------------+
  6. Hello, Swing(Tcl/Java) World!

    Posted on 12月 14th, 2012 by cx20

    Swing(Tcl/Java)

    Swing は AWT(Abstract Window Toolkit) を拡張したものであり Java で GUI を扱うためのライブラリである。
    J2SE 1.2 以降は AWT よりも Swing が使われることが多くなっている。
    以下は Tcl/Java による Swing の使用例となっている。

    ソースコード

    package require java
     
    java::import javax.swing.JFrame
    java::import javax.swing.JLabel
     
    set frame [java::new JFrame] 
    $frame setDefaultCloseOperation [java::field JFrame EXIT_ON_CLOSE]
    $frame setTitle "Hello, World"
    $frame setSize 640 480
    set label [java::new JLabel "Hello, Swing World!"] 
    $label setVerticalAlignment [java::field JLabel TOP]
    $frame add $label
    $frame setVisible true
     
    vwait done

    実行方法

    C:¥> jaclsh Hello.tcl

    実行結果

    +------------------------------------------+
    |Hello, World!                    [_][~][X]|
    +------------------------------------------+
    |Hello, Swing World!                       |
    |                                          |
    |                                          |
    |                                          |
    |                                          |
    |                                          |
    |                                          |
    |                                          |
    |                                          |
    |                                          |
    +------------------------------------------+
  7. Hello, AWT(Tcl/Java) World!

    Posted on 12月 13th, 2012 by cx20

    AWT(Tcl/Java)

    AWT(Abstract Window Toolkit) は Java で GUI を扱うためのライブラリである。
    J2SE 1.2 以降は AWT を拡張した Swing が使われることが多くなっている。
    以下は Tcl/Java による AWT の使用例となっている。

    ソースコード

    package require java
     
    java::import java.awt.Frame
    java::import java.awt.Label
    java::import java.awt.FlowLayout
     
    set frame [java::new Frame] 
    java::bind $frame windowClosing exit
    $frame setTitle "Hello, World"
    $frame setSize 640 480
    $frame setLayout [java::new FlowLayout [java::field FlowLayout LEFT]]
    set label [java::new Label "Hello, AWT World!"] 
    $frame add $label
    $frame setVisible true
     
    vwait done

    実行方法

    C:¥> jaclsh hello.tcl

    実行結果

    +------------------------------------------+
    |Hello, World!                    [_][~][X]|
    +------------------------------------------+
    |Hello, AWT World!                         |
    |                                          |
    |                                          |
    |                                          |
    |                                          |
    |                                          |
    |                                          |
    |                                          |
    |                                          |
    |                                          |
    +------------------------------------------+
  8. Hello, Java 3D(BeanShell) World!

    Posted on 12月 12th, 2012 by cx20

    Java 3D(BeanShell)

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

    ソースコード

    import javax.media.j3d.*;
    import javax.swing.JFrame;
    import javax.vecmath.Vector3f;
    import javax.vecmath.Color3f;
    import java.awt.BorderLayout;
    import java.awt.GraphicsConfiguration;
    import java.awt.Font;
    import com.sun.j3d.utils.universe.SimpleUniverse;
     
    class Hello extends JFrame {
        Hello( title ) {
            super(title);
            setSize(640, 480);
            setDefaultCloseOperation( JFrame.EXIT_ON_CLOSE );
            canvas3D = createCanvas3D();
            scene = createSceneGraph();
            connect(canvas3D, scene);
        }
     
        Canvas3D createCanvas3D() {
            getContentPane().setLayout(new BorderLayout());
            config = SimpleUniverse.getPreferredConfiguration();
            canvas3D = new Canvas3D(config);
            getContentPane().add(canvas3D);
            return canvas3D;
        }
     
        BranchGroup createSceneGraph() {
            objRoot = new BranchGroup();
            mover = moveTextBack();
            spinner = createSpinner();
            rotator = new RotationInterpolator(new Alpha(-1, 4000), spinner, new Transform3D(), 0.0f, (float)Math.PI * 2);
            rotator.setSchedulingBounds( new BoundingSphere() );
            spinner.addChild(rotator);
            objRoot.addChild(mover);
            mover.addChild(spinner);
            spinner.addChild( createTextShape());
            setLighting(mover);
            return objRoot;
        }
     
        TransformGroup createSpinner() {
            spinner = new TransformGroup();
            spinner.setCapability(TransformGroup.ALLOW_TRANSFORM_WRITE);
            return spinner;
        }
     
        TransformGroup moveTextBack() {
            transform3D = new Transform3D();
            transform3D.setTranslation(new Vector3f(0.0f, 0.0f, -10.0f));
            return new TransformGroup(transform3D);
        }
     
        Shape3D createTextShape() {
            textAppear = new Appearance();
            textAppear.setMaterial(new Material());
            font3D = new Font3D(new Font("MS Pゴシック", Font.PLAIN, 1), new FontExtrusion());
            textGeom = new Text3D(font3D, new String("Hello, Java 3D World!"));
            textGeom.setAlignment(Text3D.ALIGN_CENTER);
            textShape = new Shape3D();
            textShape.setGeometry(textGeom);
            textShape.setAppearance(textAppear);
            return textShape;
        }
     
        void setLighting(objMove) {
            light = new DirectionalLight();
            light.setInfluencingBounds(new BoundingSphere());
            light.setDirection(new Vector3f(0.0f,0.0f,-1.0f));
            light.setColor(new Color3f(1.0f, 1.0f, 1.0f));
            objMove.addChild(light);
        }
     
        void connect(canvas3D, scene) {
            universe = new SimpleUniverse(canvas3D);
            universe.getViewingPlatform().setNominalViewingTransform();
            universe.addBranchGraph(scene);
        }
    }
     
    frame = new Hello("Hello, World");
    frame.setVisible(true);

    実行方法

    C:¥> SET CLASSPATH=bsh-2.0b4.jar;%CLASSPATH%
    C:¥> java bsh.Interpreter hello.bsh

    実行結果

    +------------------------------------------+
    |Hello, World!                    [_][~][X]|
    +------------------------------------------+
    |Hello, Java 3D World!                     |
    |                                          |
    |                                          |
    |                                          |
    |                                          |
    |                                          |
    |                                          |
    |                                          |
    |                                          |
    |                                          |
    +------------------------------------------+
  9. Hello, Java 2D(BeanShell) World!

    Posted on 12月 11th, 2012 by cx20

    Java 2D(BeanShell)

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

    ソースコード

    import java.awt.Graphics;
    import java.awt.Graphics2D;
    import javax.swing.*;
     
    class Hello extends JFrame {
        Hello( title ) {
            super( title );
            setDefaultCloseOperation(JFrame.EXIT_ON_CLOSE);
            setSize(640, 480);
     
            panel = new HelloPanel();
            add( panel );
        }
    }
     
    class HelloPanel extends JPanel {
        void paintComponent(Graphics g) {
            g2 = (Graphics2D)g;
            g.drawString("Hello, Java2D World!", 0, 16);
        }
    }
     
    frame = new Hello("Hello, World");
    frame.setVisible(true);

    コンパイル&実行方法

    C:¥> SET CLASSPATH=bsh-2.0b4.jar;%CLASSPATH%
    C:¥> java bsh.Interpreter hello.bsh

    実行結果

    +------------------------------------------+
    |Hello, World!                    [_][~][X]|
    +------------------------------------------+
    |Hello, Java 2D World!                     |
    |                                          |
    |                                          |
    |                                          |
    |                                          |
    |                                          |
    |                                          |
    |                                          |
    |                                          |
    |                                          |
    +------------------------------------------+
  10. Hello, SWT(BeanShell) World!

    Posted on 12月 9th, 2012 by cx20

    SWT(BeanShell)

    SWT(Standard Widget Toolkit) は Java で GUI を扱うためのライブラリである。
    IBM により AWT や Swing を置き換える目的で作成された。
    以下は BeanShell による SWT の使用例となっている。

    ソースコード

    import org.eclipse.swt.SWT;
    import org.eclipse.swt.widgets.*;
    import org.eclipse.swt.layout.*;
     
    display = new Display();
    shell = new Shell(display);
    shell.setText("Hello, World");
     
    layout = new FillLayout(SWT.VERTICAL);
    shell.setLayout(layout);
     
    label = new Label(shell,SWT.BORDER);
    label.setText("Hello, SWT World!");
     
    shell.setSize( 640, 480 );
    shell.open();
     
    while (!shell.isDisposed()) {
        if (!display.readAndDispatch()) {
            display.sleep();
        }
    }
     
    display.dispose();

    実行方法

    C:¥> SET CLASSPATH=bsh-2.0b4.jar;org.eclipse.swt.win32.win32.x86_3.6.1.v3655c.jar;%CLASSPATH%
    C:¥> java bsh.Interpreter hello.bsh

    実行結果

    +------------------------------------------+
    |Hello, World!                    [_][~][X]|
    +------------------------------------------+
    |Hello, SWT World!                         |
    |                                          |
    |                                          |
    |                                          |
    |                                          |
    |                                          |
    |                                          |
    |                                          |
    |                                          |
    |                                          |
    +------------------------------------------+