HSPTV!掲示板

　秀和システム『はじめてのプログラミング』を読みながら、昔の『マイコンベーシックマガ
ジン』に掲載されていた『月面着陸ゲーム』を移植してみようと四苦八苦しているのですが、
line文を使って描いた多角形の中身を赤で塗りつぶすN88BASICのPAINT命令に相当するものはな
いでしょうか？
　ブログの方に今まで作った物のスクリーンショットを載せています。
　ＨＳＰは始めたばかりです。どうかよろしくお願いします。

「塗り潰し」に関する処理はHSPで標準でサポートされていませんが、以下の「HSPサンプル蔵」にある
「ペイント処理をする」の方法はどうでしょうか？
一番目の #module から一番目の #global までをソースコードの先頭に張れば、BASICのpaint文に近い
gpaintという命令が追加されます。
http://hspnext.com/hspkura/hspkura10.htm

軽く試しただけなので、詳しいことはよくわかりませんが、
・gpaint %1,%2 で、(%1,%2)を起点として、閉塞領域を現在の色で染める。
・%1と%2に負の値を指定すると、現在のマウスカーソルの位置を起点とする。
という内容のようです。

　ソースを眺めてみたのですが、ひ〜難しそう・・・。
しかし、頑張ってみます。ありがとうございました。

> line文を使って描いた多角形の中身を赤で塗りつぶすN88BASICのPAINT命令に相当するものはな
> いでしょうか？
HSPにはありませんね。

こちらも昔購入した「ベーシック・マガジン」などをHSPで移植しようとしたことがあります。
しかし、命令が似てるけど引数の意味が違ったり、なかったりします。

多分、HSPで存在しない命令の代表は「PAINT命令」でしょうね。
そこでHSPを始めたころの初期サンプルを紹介しいます。

//------------------------------------------------------------------------------
// ＨＳＰ：多角形の塗りつぶし方法
//==============================================================================
// @URL(http://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1018377295)
//------------------------------------------------------------------------------
#include "gdi32.as"

#module
;p1,p2の座標からp3,p4,p5の色までcolorで設定した色で塗り潰す
#deffunc PaintOut int x, int y, int r, int g, int b
	mref bmscr, 67
	CreateSolidBrush bmscr(40)
	Brush = stat
	SelectObject hdc, brush
	oldBrush = stat
	ExtFloodFill hdc, x, y, r+(g<<8)+(b<<16), 0
	SelectObject hdc, oldBrush
	DeleteObject brush
	return
#global

;赤線の内側を青で塗り潰す
color $FF,$00,$00
line 150, 100, 100, 200
line 100, 200, 200, 200
line 200, 200, 150, 100

color $00,$00,$FF
PaintOut 150, 150, 255, 0, 0

redraw 1
stop

//------------------------------------------------------------------------------
// End of ExtFloodFill.hsp
//------------------------------------------------------------------------------

↑
これは line 命令で囲まれた三角形内部を塗りつぶしてます。
基本的に塗りつぶしは API 関数の ExtFloodFill 命令で行いますが、
「redraw 1」を実行しないとウインドウに反映しません。注意。

科学太郎さん、お礼が遅れました。どうやらうまくいきそうです。ありがとうございました。

boxfを使えばいいのでは？