デフォルトCOLOR色指標チェッカー

!更新
!デフォルトCOLOR 色指標チェッカー
!---------------------
!SET COLOR MODE "REGULAR" !デフォルト

SET WINDOW -1,20, 26,-1
DRAW GRID
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 0
PLOT AREA:0,6; 8,6; 8,9;0,9
SET AREA COLOR c
PLOT AREA:2,3; 6,3; 6,6;2,6
ASK COLOR MIX(c) r,g,b
PLOT TEXT ,AT 0,7 ,USING "色指標=###":c
PLOT TEXT ,AT 5,7:" #"&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,8, USING "r=%.### g=%.### b=%.###":r,g,b
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

デフォルトCOLOR 色指標チェッカー	返事を書く
SECOND 2006/11/14 21:12:35
!デフォルトCOLOR 色指標チェッカー !--------------------- !SET COLOR MODE "REGULAR" !デフォルト SET WINDOW -1,20, 26,-1 DRAW GRID CALL plot_color CALL mouse_color SET AREA COLOR 0 PLOT AREA:11,2; 19,2; 19,0;11,0 PLOT TEXT ,AT 12,2:"終了。" SUB mouse_color DO WHILE mrb<>1 MOUSE POLL mx,my,mlb,mrb !マウスの状態を取得する ASK PIXEL VALUE (mx,my) c IF c<>cb THEN LET cb=c SET AREA COLOR 0 PLOT AREA:11,7; 18,7; 18,3;11,3 SET AREA COLOR c PLOT AREA:12,6; 15,6; 15,3;12,3 ASK COLOR MIX(c) r,g,b PLOT TEXT ,AT 11,5 ,USING "###":c PLOT TEXT ,AT 15,5:" #"&right$("0"&BSTR$(r255,16),2)&right$("0"&BSTR$(g255,16),2)&right$("0"&BSTR$(b255,16),2) PLOT TEXT ,AT 11,7, USING "r=%.### g=%.### b=%.###":r,g,b END IF WAIT DELAY 0.1 !クロックアップを押える LOOP END SUB SUB plot_color PLOT TEXT ,AT 11,1:"カーソルを、表示色に乗せる。" PLOT TEXT ,AT 11,2:"マウス右ボタンで、終了。" FOR i=0 TO 25 FOR j=0 TO 9 LET c=i10+j WHEN EXCEPTION IN SET AREA COLOR c USE SET AREA COLOR 0 END WHEN PLOT AREA:j,i; j+1,i; j+1,i+1; j,i+1 NEXT j NEXT i END SUB END

Re: デフォルトCOLOR 色指標チェッカー	返事を書く
SECOND 2006/11/16 23:37:33
!更新 !デフォルトCOLOR 色指標チェッカー !--------------------- !SET COLOR MODE "REGULAR" !デフォルト SET WINDOW -1,20, 26,-1 DRAW GRID 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 0 PLOT AREA:0,6; 8,6; 8,9;0,9 SET AREA COLOR c PLOT AREA:2,3; 6,3; 6,6;2,6 ASK COLOR MIX(c) r,g,b PLOT TEXT ,AT 0,7 ,USING "色指標=###":c PLOT TEXT ,AT 5,7:" #"&right$("0"&BSTR$(r255,16),2)&right$("0"&BSTR$(g255,16),2)&right$("0"&BSTR$(b255,16),2) PLOT TEXT ,AT 0,8, USING "r=%.### g=%.### b=%.###":r,g,b 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=i10+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