sample_02_Rect_Ellip.hsp

sample\Artlet2D\sample_02_Rect_Ellip.hsp » Plain Format

;============================================================
;                                                 2010/--/--
;	Artlet2D sample
;
;============================================================
;
; 矩形、楕円系の描画命令のサンプルです。
;
;============================================================

#include "a2d.hsp"

	; 仮想イメージ 0 を作成
	alCreateImage 0, 640, 480
	if stat = -1 : dialog "GDI+ を初期化できませんでした。" : end

	; 矩形
	alDrawRect 0,   0, 120, 120
	alFillRect 0, 150, 120, 120

	; 楕円
	alDrawEllip 150,   0, 120, 120
	alFillEllip 150, 150, 120, 120

	; パイ
	alDrawPie 300,   0, 120, 120, 0, 225
	alFillPie 300, 150, 120, 120, 0, 225

	; 円弧
	alDrawArc 450, 0, 120, 120, 0, 225

	; 仮想イメージ 0 から HSP スクリーンにコピー
	alCopyImageToScreen 0, 0
	redraw