〜 グラフィック 〜
円形塗り潰し(簡易版)

HSP3からはcircle命令で円形に塗りつぶすことが可能ですが、
HSP2以前にはこの命令が用意されておらず、命令としては矩形に塗りつぶすboxf命令だけでした。
しかし、ちょっと命令を組み合わせることで、HSP2以前でも容易に円形に塗りつぶすことが可能です。
それは「●という文字を拡大して描画する」と言うものです。
左上(0,0)から描画しても円の端が丁度ウィンドウ端には来ないので、
丁度の位置に来るよう微調整する必要ありますが、
面倒な計算をせずに一発で描画したい場合にはよいかもしれません。
	
 1
 2
 3
 4
 5
 6
 7
 8
	buffer 2, 600, 600
	font "", 736
	pos -68,-73 : mes "●" // 位置がビミョーな場合は微調整してください
	gsel 0
	pos  30,  50 : gzoom 200, 200, 2, , , 600, 600 // 円1
	pos 400,  20 : gzoom 100, 100, 2, , , 600, 600 // 円2
	pos 150, 250 : gzoom 400, 200, 2, , , 600, 600 // 円3(楕円)
	stop