Greyscale bars/Display: Difference between revisions

<lang ANSI Standard BASIC>100 SET WINDOW 1,1280,1,1024

110 REM (0,0) is the bottom left of the display

120 SET AREA COLOR 1 ! Select color one for drawing

130 FOR row=1 TO 4

140 LET n=IP(2^(row+2))

150 LET w=IP(1280/n)

160 LET py=IP(256*(4-row))

170 FOR b=0 TO n-1

180 LET g=IP(255*b/(n-1))

190 IF n=16 OR n=64 THEN LET g=255-g

200 IF g=0 THEN LET g=1

210 SET COLOR MIX(1) g,g,g ! Reprogram color 1 to the gray we want

220 PLOT AREA: w*b,py; w*b+w,py; w*b+w,py+256; w*b,py+256

230 NEXT b

240 NEXT row

250 END</lang>