sample\Artlet2D\sample_01_basic.hsp » Plain Format
;============================================================ ; 2010/--/-- ; Artlet2D sample ; ;============================================================ ; ; Artlet2D の基本的な使用方法のサンプルです。 ; ; Artlet2D では、まず仮想イメージを作成し、次に仮想イメージに ; 描画してから、HSP スクリーンに仮想イメージをコピーして表示 ; させます。 ; ;============================================================ #include "a2d.hsp" ; まず、Artlet2D 仮想イメージ 0 を作成します。 alCreateImage 0, 640, 480 ; GDI+ を使用することができなかった場合は、システム変数 stat に -1 が返ります。 if stat = -1 : dialog "GDI+ を初期化できませんでした。" : end ; Artlet2D の仮想イメージ 0 での描画色を設定します。 alColor 255, 0, 0 ; 仮想イメージ上で直線を描画します。 alDrawLine 0, 0, 640, 480 ; 同様に、たくさん直線を描画してみます。 repeat 100 alColor rnd(255), rnd(255), rnd(255) alDrawLine rnd(640), rnd(480), 200, 200;320, 240 loop ; 仮想イメージ 0 から HSP スクリーン 0 に画像をコピーします。 alCopyImageToScreen 0, 0 ; HSP スクリーン 0 のディスプレイ上の画面を更新させ、結果を表示します。 redraw