color情報を格納するmoduleを作ってみました
情報を文字列で区別しようと思いましたが
遅そうなのと、オブジェクト名でもあんま変わらなさそうなので
情報はモジュール変数に入れることにしました
FILE名:FILE_color_set_get.hsp
以下TESTコード
情報を文字列で区別しようと思いましたが
遅そうなのと、オブジェクト名でもあんま変わらなさそうなので
情報はモジュール変数に入れることにしました
FILE名:FILE_color_set_get.hsp
#module color_set_get color_R,color_G,color_B #modinit int p_r,int p_g,int p_b color_R=p_r color_G=p_g color_B=p_b return #modfunc get_color_at_color_set_get var r_r,var r_g, var r_b r_r=color_R r_g=color_G r_b=color_B return #modfunc color_at_color_set_get color color_R,color_G,color_B return #global |
以下TESTコード
#include "FILE_color_set_get.hsp" newmod red,color_set_get,255,0,0 newmod green,color_set_get,0,255,0 newmod blue,color_set_get,0,0,255 color_at_color_set_get red mes "red" color_at_color_set_get green mes "green" color_at_color_set_get blue mes "blue" c1=0:c2=0:c3=0 get_color_at_color_set_get red,c1,c2,c3 color c1,c2,c3 mes "red_B" get_color_at_color_set_get green,c1,c2,c3 color c1,c2,c3 mes "green_B" get_color_at_color_set_get blue,c1,c2,c3 color c1,c2,c3 mes "blue_B" stop |