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