pen Example10 GINIT
20 GCLEAR
30 PLOTTER IS CRT,"INTERNAL";COLOR MAP
40 MOVE 40,40
50 AREA PEN 6
60 FOR L=-5 TO 5
70 DISP L
80 PEN L
90 RECTANGLE 90,30,FILL,EDGE
100 WAIT 1
110 NEXT L
120 END
|