ドットエディタのようなものを作りたいと思って検討を始めてます。まずはパレットなんですが、絵の具を混ぜるように色を作りたいと思ったのですが、RGB形式では絵の具のように混ざってはくれません。そこで、RGB形式を
HSV形式に変換するサブルーチンを作る事にしました。
ネットで検索して、システム計画研究所さんの変換式を参考にして以下のサブルーチンを作りました。サンプルでパレットも作ってみましたので、そちらはzip形式でアップします。
‘*** Babs RGB HSV Code 0.01 ***
‘dim vrgb(2)
‘GETRGB vrgb(変数),color(値)
‘dim vhsv(2)
‘GETHSV vhsv(変数),color(値)
‘color=HSV(色相値,彩度,強度)
sub getrgb(sub_rgb,sub_color) ‘R G B 値の取得
sub_rgb(0)=sub_color mod 256
sub_rgb(1)=int(sub_color/256) mod 256
sub_rgb(2)=int(sub_color/65536) mod 256
end sub
sub gethsv(sub_hsv,sub_color) ‘H S V 値の取得
dim sub_r,sub_g,sub_b,sub_h,sub_s,sub_v
dim sub_max,sub_min,sub_cr,sub_cg,sub_cb
sub_r=(sub_color mod 256)/255
sub_g=(int(sub_color/256) mod 256)/255
sub_b=(int(sub_color/65536) mod 256)/255
If sub_r>sub_g then
sub_max=sub_r:sub_min=sub_g
Else
sub_max=sub_g:sub_min=sub_r
End if
If sub_b>sub_max then
sub_max=sub_b
Elseif sub_b