Archive for 12月, 2012

Hello, Swing(BeanShell) World!

Posted on 12月 8th, 2012 by cx20

Swing(BeanShell)

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

ソースコード

Hello.bsh

raw download

import java.awt.*;
import java.awt.event.*;
import javax.swing.*;
 
class Hello extends JFrame {
 
    Hello( String title ) {
        super( title );
        setDefaultCloseOperation( JFrame.EXIT_ON_CLOSE );
        setLocationRelativeTo( null );
        setSize( 640, 480 );
 
        label = new JLabel( "Hello, Swing World!" );
        label.setVerticalAlignment(JLabel.TOP);
        add( label );
    }
}
 
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, Swing World!                       |
|                                          |
|                                          |
|                                          |
|                                          |
|                                          |
|                                          |
|                                          |
|                                          |
|                                          |
+------------------------------------------+

Hello, AWT(BeanShell) World!

Posted on 12月 7th, 2012 by cx20

AWT(BeanShell)

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

ソースコード

Hello.bsh

raw download

import java.awt.*;
import java.awt.event.*;
 
class Hello extends Frame {
    Hello( String title ) {
        super( title );
        addWindowListener(new HelloWindowAdapter());
        setSize(640, 480);
        setLayout(new FlowLayout(FlowLayout.LEFT));
        label = new Label("Hello, AWT World!");
        add(label);
    }
}
 
class HelloWindowAdapter extends WindowAdapter {
    public void windowClosing(WindowEvent e) {
        System.exit(0);
    }
}
 
Hello 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, AWT World!                         |
|                                          |
|                                          |
|                                          |
|                                          |
|                                          |
|                                          |
|                                          |
|                                          |
|                                          |
+------------------------------------------+

Hello, Java 3D(Clojure) World!

Posted on 12月 6th, 2012 by cx20

Java 3D

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

ソースコード

Hello.clj

raw download

(import 
  (java.awt BorderLayout)
  (java.awt GraphicsConfiguration)
  (java.awt Font)
  (javax.swing JFrame)
  (javax.swing JPanel)
  (javax.media.j3d BranchGroup)
  (javax.media.j3d Canvas3D)
  (javax.media.j3d Transform3D)
  (javax.media.j3d Appearance)
  (javax.media.j3d Material)
  (javax.media.j3d Font3D)
  (javax.media.j3d FontExtrusion)
  (javax.media.j3d Text3D)
  (javax.media.j3d Shape3D)
  (javax.media.j3d DirectionalLight)
  (javax.media.j3d TransformGroup)
  (javax.media.j3d RotationInterpolator)
  (javax.media.j3d Alpha)
  (javax.media.j3d BoundingSphere)
  (javax.vecmath Vector3f)
  (javax.vecmath Color3f)
  (com.sun.j3d.utils.universe SimpleUniverse)
  (com.sun.j3d.utils.universe ViewingPlatform)
  (com.sun.j3d.utils.geometry ColorCube))
 
(def frame
  (JFrame.))
 
(defn create-text-shape []
  (let [
    textAppear (Appearance.)
    font (Font. "ＭＳ Ｐゴシック" Font/PLAIN 1 )
    fontEx (FontExtrusion.)
    font3D (Font3D. font fontEx)
    textGeom (Text3D. font3D "Hello, Java 3D World!")
    textShape (Shape3D.)]
 
    (.setMaterial textAppear (Material.))
    (.setAlignment textGeom Text3D/ALIGN_CENTER)
    (.setGeometry textShape textGeom)
    (.setAppearance textShape textAppear)
    textShape))
 
(defn move-text-back []
  (let [
    transform3D (Transform3D.)
    vector3f (Vector3f. 0.0 0.0 -10.0)]
 
    (.setTranslation transform3D vector3f)
    (TransformGroup. transform3D)))
 
(defn create-spinner []
  (let [
    spinner (TransformGroup.)]
 
    (.setCapability spinner (TransformGroup/ALLOW_TRANSFORM_WRITE))
    spinner))
 
(defn set-lighting [objMove]
  (let [
    light (DirectionalLight.)]
 
    (.setInfluencingBounds light (BoundingSphere.))
    (.setDirection light (Vector3f. 0.0 0.0 -1.0))
    (.setColor light (Color3f. 1.0 1.0 1.0))
    (.addChild objMove light)))
 
(defn create-scene-graph []
  (let [
    objRoot (BranchGroup.)
    mover (move-text-back)
    spinner (create-spinner)
    rotator (RotationInterpolator. (Alpha. -1 4000), spinner, (Transform3D.) 0.0 (* (Math/PI) 2))]
 
    (.addChild spinner (create-text-shape))
    (.addChild mover spinner)
    (.addChild objRoot mover)
    (.setSchedulingBounds rotator (BoundingSphere.))
    (.addChild spinner rotator)
    (set-lighting mover)
    objRoot))
 
(def canvas
  (Canvas3D. (SimpleUniverse/getPreferredConfiguration)))
 
(def universe
  (SimpleUniverse. canvas))
 
(doto universe
  (.addBranchGraph (create-scene-graph)))
 
(.setNominalViewingTransform (.getViewingPlatform universe))
(.add (.getContentPane frame) canvas)
 
(doto frame
  (.setDefaultCloseOperation
    javax.swing.WindowConstants/EXIT_ON_CLOSE)
  (.setSize 640 480)
  (.setTitle "Hello, World")
  (.setVisible true))

(import (java.awt BorderLayout) (java.awt GraphicsConfiguration) (java.awt Font) (javax.swing JFrame) (javax.swing JPanel) (javax.media.j3d BranchGroup) (javax.media.j3d Canvas3D) (javax.media.j3d Transform3D) (javax.media.j3d Appearance) (javax.media.j3d Material) (javax.media.j3d Font3D) (javax.media.j3d FontExtrusion) (javax.media.j3d Text3D) (javax.media.j3d Shape3D) (javax.media.j3d DirectionalLight) (javax.media.j3d TransformGroup) (javax.media.j3d RotationInterpolator) (javax.media.j3d Alpha) (javax.media.j3d BoundingSphere) (javax.vecmath Vector3f) (javax.vecmath Color3f) (com.sun.j3d.utils.universe SimpleUniverse) (com.sun.j3d.utils.universe ViewingPlatform) (com.sun.j3d.utils.geometry ColorCube)) (def frame (JFrame.)) (defn create-text-shape [] (let [ textAppear (Appearance.) font (Font. "ＭＳＰゴシック" Font/PLAIN 1 ) fontEx (FontExtrusion.) font3D (Font3D. font fontEx) textGeom (Text3D. font3D "Hello, Java 3D World!") textShape (Shape3D.)] (.setMaterial textAppear (Material.)) (.setAlignment textGeom Text3D/ALIGN_CENTER) (.setGeometry textShape textGeom) (.setAppearance textShape textAppear) textShape)) (defn move-text-back [] (let [ transform3D (Transform3D.) vector3f (Vector3f. 0.0 0.0 -10.0)] (.setTranslation transform3D vector3f) (TransformGroup. transform3D))) (defn create-spinner [] (let [ spinner (TransformGroup.)] (.setCapability spinner (TransformGroup/ALLOW_TRANSFORM_WRITE)) spinner)) (defn set-lighting [objMove] (let [ light (DirectionalLight.)] (.setInfluencingBounds light (BoundingSphere.)) (.setDirection light (Vector3f. 0.0 0.0 -1.0)) (.setColor light (Color3f. 1.0 1.0 1.0)) (.addChild objMove light))) (defn create-scene-graph [] (let [ objRoot (BranchGroup.) mover (move-text-back) spinner (create-spinner) rotator (RotationInterpolator. (Alpha. -1 4000), spinner, (Transform3D.) 0.0 (* (Math/PI) 2))] (.addChild spinner (create-text-shape)) (.addChild mover spinner) (.addChild objRoot mover) (.setSchedulingBounds rotator (BoundingSphere.)) (.addChild spinner rotator) (set-lighting mover) objRoot)) (def canvas (Canvas3D. (SimpleUniverse/getPreferredConfiguration))) (def universe (SimpleUniverse. canvas)) (doto universe (.addBranchGraph (create-scene-graph))) (.setNominalViewingTransform (.getViewingPlatform universe)) (.add (.getContentPane frame) canvas) (doto frame (.setDefaultCloseOperation javax.swing.WindowConstants/EXIT_ON_CLOSE) (.setSize 640 480) (.setTitle "Hello, World") (.setVisible true))

実行方法

C:¥> clj Hello.clj

実行結果

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

Hello, Java 2D(Clojure) World!

Posted on 12月 5th, 2012 by cx20

Java 2D

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

ソースコード

Hello.clj

raw download

(import 
  (javax.swing JFrame)
  (javax.swing JPanel)
  (java.awt Graphics)
  (java.awt Graphics2D))
 
(defn create-panel []
  (proxy [JPanel] []
    (paintComponent [g]
      (.drawString g "Hello, Java 2D World!" 0 16))))
 
(def panel
  (create-panel))
 
(def frame
  (JFrame.))
 
(doto frame
  (.setDefaultCloseOperation
    javax.swing.WindowConstants/EXIT_ON_CLOSE)
  (.add panel)
  (.setSize 640 480)
  (.setTitle "Hello, World")
  (.setVisible true))

実行方法

C:¥> clj Hello.py

実行結果

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

Hello, SWT(Clojure) World!

Posted on 12月 3rd, 2012 by cx20

SWT(Clojure)

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

ソースコード

Hello.clj

raw download

(import 
  (org.eclipse.swt SWT)
  (org.eclipse.swt.widgets Display)
  (org.eclipse.swt.widgets Shell)
  (org.eclipse.swt.widgets Label)
  (org.eclipse.swt.layout FillLayout)
  (org.eclipse.swt.events ShellAdapter))
 
(def display
  (Display.))
 
(def shell
  (Shell. display))
 
(def layout
  (FillLayout. SWT/VERTICAL))
 
(def label
  (Label. shell SWT/BORDER))
 
(doto label
  (.setText "Hello, SWT World!"))
 
(doto shell
  (.setText "Hello, World")
  (.setLayout layout)
  (.setSize 640 480)
  (.addShellListener
    (proxy [ShellAdapter] []
      (shellClosed [evt]
        (System/exit 0))))
  (.open))
 
(defn while-loop [display shell]
  (loop []
    (if (.isDisposed shell)
      (.dispose display)
      (do
        (if (not (.readAndDispatch display))
          (.sleep display))
        (recur)))))
 
(while-loop display shell))

実行方法

C:¥> SET CLASSPATH=org.eclipse.swt.win32.win32.x86_3.6.1.v3655c.jar;%CLASSPATH%
C:¥> clj Hello.clj

実行結果

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

Hello, Swing(Clojure) World!

Posted on 12月 2nd, 2012 by cx20

Swing(Clojure)

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

ソースコード

Hello.clj

raw download

(import (javax.swing JFrame)
        (javax.swing JLabel))
 
(def frame
  (JFrame.))
 
(def label
  (JLabel. "Hello, Swing World!"))
 
(doto label
  (.setVerticalAlignment JLabel/TOP))
 
(doto frame
  (.setDefaultCloseOperation
    javax.swing.WindowConstants/EXIT_ON_CLOSE)
  (.add label)
  (.setSize 640 480)
  (.setTitle "Hello, World")
  (.setResizable false)
  (.setVisible true))

実行方法

C:¥> clj Hello.clj

実行結果

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

Hello, AWT(Clojure) World!

Posted on 12月 1st, 2012 by cx20

AWT(Clojure)

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

ソースコード

Hello.clj

raw download

(import (java.awt Frame)
        (java.awt Label)
        (java.awt FlowLayout)
        (java.awt.event WindowAdapter))
 
(def frame
  (Frame.))
 
(def layout
  (FlowLayout. FlowLayout/LEFT))
 
(def label
  (Label. "Hello, Swing World!"))
 
(doto frame
  (.addWindowListener 
    (proxy [WindowAdapter] [] 
      (windowClosing [e] 
        (System/exit 0))))
  (.setLayout layout)
  (.add label)
  (.setSize 640 480)
  (.setTitle "Hello, World")
  (.setResizable false)
  (.setVisible true))

実行方法

C:¥> clj Hello.clj

実行結果

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

月	火	水	木	金	土	日
« 11月				1月 »
					1	2
3	4	5	6	7	8	9
10	11	12	13	14	15	16
17	18	19	20	21	22	23
24	25	26	27	28	29	30
31

Archive for 12月, 2012

Swing(BeanShell)

ソースコード

実行方法

実行結果

AWT(BeanShell)

ソースコード

実行方法

実行結果

Java 3D

ソースコード

実行方法

実行結果

Java 2D

ソースコード

実行方法

実行結果

SWT(Clojure)

ソースコード

実行方法

実行結果

Swing(Clojure)

ソースコード

実行方法

実行結果

AWT(Clojure)

ソースコード

実行方法

実行結果

サイト内の検索

一覧

カテゴリー

カテゴリー

最近の投稿

アーカイブ

メタ情報