問題4の解答例

	#include "hmm.as"

	; 画面の初期化
	ddinit
	ddscreen 640,480,1,2
	await 16
	ddgsel 0
	gosub *Clear_Screen

	; グラデーションがかかった文字列を書く
	repeat 8
		wordx=32:wordy=32+(7-cnt)
		red=16*cnt
		green=16*cnt
		blue=128+(16*cnt)
		gosub *Write_Word
	loop
	ddredraw
	stop

	; 画面をクリアする
*Clear_Screen
	ddcolor 0,0,0
	ddboxf 0,0,640,480
	return

	; 言葉を書く
*Write_Word
	ddcolor red,green,blue
	ddpos wordx,wordy
	font "MS 明朝",32
	ddprint "世界よこんにちは"
	return
[問題4の応用例]

[戻る] inserted by FC2 system