新しく発言する EXIT インデックスへ

　　!更新、COLOR 色指標チェッカー５ SECOND 2008/01/07 22:16:38  (修正2回)

!更新、COLOR 色指標チェッカー５	返事を書く ノートメニュー
SECOND <jjqdmekgpt> 2008/01/07 22:16:38 ** この記事は2回修正されてます
!更新、COLOR 色指標チェッカー６ !--------------------- SET TEXT BACKGROUND "OPAQUE" !　文字の背景色設定＝（色指標が0の色）で塗る。 SET WINDOW -1,20, 26,-1 CALL plot_color !STOP !　色指標 表の描画のみの場合。 !---- PLOT TEXT ,AT 0,1:"カーソルを、表示色に乗せる。" PLOT TEXT ,AT 0,2:"マウス 右ボタンで、終了。" MOUSE POLL mx,my,mlb,mrb !マウスの状態取得。 ASK PIXEL VALUE (mx,my) cb !---- DO WHILE mrb<>1 MOUSE POLL mx,my,mlb,mrb !マウスの状態取得。 ASK PIXEL VALUE (mx,my) c IF -1<c AND c<>cb THEN SET AREA COLOR c LET y=9.6 LET r=3 DO WHILE y<25 DRAW disk WITH SCALE(3,r)*SHIFT( 4.5,y) LET y=y+r+0.3 LET r=r*EXP(0.06*(8-y)) LET y=y+r LOOP ASK COLOR MIX(c) r,g,b PLOT TEXT ,AT 0.5,4, USING "r=%.### g=%.### b=%.###":r,g,b PLOT TEXT ,AT 0.5,5 ,USING "色指標=###":c PLOT TEXT ,AT 4.5,5:"　 #"&right$("0"&BSTR$(r*255,16),2)&right$("0"&BSTR$(g*255,16),2)&right$("0"&BSTR$(b*255,16),2) PLOT TEXT ,AT 0.5,6:"mode""Native""" PLOT TEXT ,AT 4.5,6:"bgr="&right$("0"&BSTR$(b*255,16),2)&right$("0"&BSTR$(g*255,16),2)&right$("0"&BSTR$(r*255,16),2) LET cb=c END IF WAIT DELAY 0.1 !クロックアップを押える LOOP !---- SET AREA COLOR 0 PLOT AREA:0,0; 8,0; 8,2;0,2 PLOT TEXT ,AT 5,2:"終了。" !---- SUB plot_color FOR i=0 TO 25 FOR j=0 TO 9 LET c=i*10+j WHEN EXCEPTION IN SET AREA COLOR c USE SET AREA COLOR 0 END WHEN PLOT AREA:j+10,i; j+11,i; j+11,i+1; j+10,i+1 NEXT j !--- scale PLOT TEXT ,AT -1.5+10,i+1 ,USING "###":i*10 IF i<10 THEN PLOT TEXT ,AT i+10.4,0 :STR$(i) !--- NEXT i END SUB END

　　└似たようなものですが、以前作りました。 荒田浩二 2008/01/09 02:02:14 
　　　└!面白いプログラムで、イジッテミマシタ、勝... SECOND 2008/01/09 08:33:37  (修正5回)
　　　　└"B"が上位桁のようです。 荒田浩二 2008/01/10 09:32:45  (修正1回)
　　　　　└おこられないかと、ひやひやしていましたの... SECOND 2008/01/10 22:51:58 
　　　　　　└白石先生、お願いします。 SECOND 2008/01/11 06:05:14 
　　　　　　　└メモリ上でＲＧＢ順になります。 山中和義 2008/01/11 07:58:11 
　　　　　　　　└ありがとうございました、直します。 SECOND 2008/01/11 08:52:51  (修正1回)

インデックスへ

EXIT