カラーチャート

 投稿者：hayashi  投稿日：2018年12月20日(木)14時58分58秒
  １０進basicに関しては今年の夏に始めたばかりの初心者です。
カラーチャートがないと不便なので作りました。
REM 十進BASIC カラーチャート
SET BITMAP SIZE 800, 800
LET LEFT   =    0
LET RIGHT  =  560
LET BOTTOM = -560
LET TOP    =    0
SET WINDOW LEFT, RIGHT, BOTTOM, TOP
SET TEXT HEIGHT 24
PLOT TEXT, AT 90, -35 : "DECIMAL BASIC COLOR CHART"
LET COL = 0
SET TEXT HEIGHT 8
FOR X = 0 TO 450 STEP 90
   FOR Y = 0 TO -490 STEP -10
      DRAW RECT(COL) WITH SHIFT(X, Y)
      LET COL = COL + 1
      IF MOD(COL, 50) = 0 THEN
         EXIT FOR
      END IF
      IF COL = 256 THEN
         GOTO 100
      END IF
   NEXT Y
NEXT X
PICTURE RECT(C) ! 80x10の色番号付き色Cの長方形
   SET AREA COLOR C
   PLOT AREA: 50,-50; 50,-40; 100,-40; 100,-50
   PLOT LINES: 20,-50; 20,-40; 100,-40; 100,-50;20,-50
   PLOT LINES: 50,-50;50,-40
   PLOT TEXT, AT 27, -51, USING ">%%": STR$(C)
END PICTURE
100 GSAVE "decimal_basic_color_chart.png"
END
 

戻る