sample_07_Curve.hsp

sample\Artlet2D\sample_07_Curve.hsp » Plain Format

;============================================================
;                                                 2010/--/--
;	Artlet2D sample
;
;============================================================
;
; 折れ線・曲線のサンプルです。
;
; 配列でポイントデータを用意し、alTransModeOffsetRotateZoom で
; オフセット描画位置を変えて描画しています。
;
; 曲線は、曲がりの強さを指定して描画することができます。
;
;============================================================

#include "a2d.hsp"

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

	; ポイントデータ
	points = 0,40,  100,30,  20,110,  60,10, 100,90

	; 折れ線
	alTransModeOffsetRotateZoom 0, 0 ; 描画位置をオフセット
	alDrawLines points, 5

	; 多角形
	alTransModeOffsetRotateZoom 0, 150
	alDrawPoly points, 5

	; 塗りつぶし多角形
	alTransModeOffsetRotateZoom 0, 300
	alFillPoly points, 5


	; 曲線
	alTransModeOffsetRotateZoom 150, 0
	alDrawCurve points, 5

	; 閉曲線
	alTransModeOffsetRotateZoom 150, 150
	alDrawClosedCurve points, 5

	; 塗りつぶし閉曲線
	alTransModeOffsetRotateZoom 150, 300
	alFillClosedCurve points, 5


	; カーブ強度を変えて描画 (+)
	alTransModeOffsetRotateZoom 300, 0
	alDrawClosedCurve points, 5, 0.5

	alTransModeOffsetRotateZoom 300, 100
	alDrawClosedCurve points, 5, 1.0

	alTransModeOffsetRotateZoom 300, 200
	alDrawClosedCurve points, 5, 1.5

	alTransModeOffsetRotateZoom 300, 300
	alDrawClosedCurve points, 5, 2.0


	; カーブ強度を変えて描画 (-)
	alTransModeOffsetRotateZoom 450, 0
	alDrawClosedCurve points, 5, -0.5

	alTransModeOffsetRotateZoom 450, 100
	alDrawClosedCurve points, 5, -1.0

	alTransModeOffsetRotateZoom 450, 200
	alDrawClosedCurve points, 5, -1.5

	alTransModeOffsetRotateZoom 450, 300
	alDrawClosedCurve points, 5, -2.0


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