HSPTV!掲示板

#deffuncで新規命令を作成したいのですが､その命令の引数に色を指定して後でcolorでその色を使いたいのですが､
RGBを別の引数で取ると命令が長くなってしまうので､gradfの$xxxxxxのように6桁のカラーコードで指定したいです｡

例として

newcommand 0,0,$FF0000
↓
color $FF0000 (color 255,0,0)

みたいな

私が普段使ってる命令です。

//--------------------------------------
// 描画カラーの設定
//--------------------------------------
#deffunc DrawSetColor int _c1_
	r=((_c1_>>8*2) & $FF)
	g=((_c1_>>8*1) & $FF)
	b=((_c1_>>8*0) & $FF)
	color r,g,b
	return

追記。

DrawSetColor $FFCC00

と使います。

ありがとうございます!

解決済みですが、私が自分で使ってるものも貼っておきます。
結果的には科学太郎さんのものと同じです。

// カラーセット（$rrggbb）
#deffunc color2 int _n
	color _n>>16 & $ff,_n>>8 & $ff,_n & $ff
	return

例)　color2 $ff00ff

ふと思いついたのでマクロ版を置いておきます。

#define DrawSetColor(%1) color (%1)>>16&$ff, (%1)>>8&$ff, (%1)&$ff

;使用例
DrawSetColor $FFCC00
boxf

もう解決してるようなので複数の解決方法を置いても混乱の心配はないかと思って。

> ふと思いついたのでマクロ版を置いておきます。
それならば次のようにもできますね。

#undef  color
#define color(%1)	color@hsp (%1)>>16&$FF,(%1)>>8&$FF,(%1)&$FF

color $FFCC00:boxf
color $993300:mes "今日はいい天気だね。"
stop