Commodore 128 Programmer's Reference Manual page 128

118 COMMODORE 128
where:
color source 0 Bit map background
1 Bit map foreground ) j
2 Multi-color 1 ^
3 Multi-color 2
XI,Yl Starting coordinate (0,0 through 319,199) (scaled) ] j
X2,Y2 Ending coordinate (0,0 through 319,199) (scaled) |J
EXAMPLES:
DRAW 1, 100, 50 Draw a dot.
DRAW , 10, 10 TO 100,60 Draw a line. ,--,
DRAW , 10, 10 TO 10,60 TO 100,60 TO 10,10 Draw a triangle. (
>mmJ
SAMPLE PROGRAMS:
\ j
10 REM DRAW EXAMPLES (^J
20 COLOR 0rl:COLOR 4,1:COLOR 1,6
30 GRAPHIC 1,1
40 CHAR 1,10,1,"THE DRAW COMMAND"
50 X=10 )
60 DO l J
70 DRAW l,X,50:REM DRAW POINTS ^
80 X=X+10
90 LOOP UNTIL X=320
100 CHAR 1,12,7 ,"DRAWS POINTS" \
110 Y=70 \
120 DO ^J
130 Y=Y+5
140 DRAW 1,1,Y TO Y,Y :REM DRAW LINES
150 LOOP UNTIL Y=130 \ j
160 CHAR 1,18,11,"LINES"
170 DRAW 1,10,140 TO 10,199 TO 90,165 TO 40,160 TO 10,140:REM DRAW SHAPE 1 ^j
180 DRAW 1,120,145 TO 140,195 TO 195,195 TO 225,145 TO 120,145:REM DRAW SHAPE
190 DRAW 1,250,199 TO 319,199 TO 319,60 TO 250,199:REM DRAW SHAPE 3
200 CHAR 1,22,15, "AND SHAPES" i" ,
210 SLEEP 5:GRAPHIC 0,1 j |
10 COLOR 0,1:COLOR 4,1:COLOR 1,7
20 GRAPHIC 1,1:REM SELECT BMM
30 Y=l v- ,
40 DO
50 DRAW 1,1,Y TO 320,Y:REM DRAW HORIZONTAL LINES M
60 Y=Y+10
70 LOOP WHILE Y<200
75 X=l
80 DO ) /
90 DRAW 1,X,1 TO X,200:REM DRAW VERTICAL LINES ) (
95 X=X+10 *—>
97 LOOP WHILE X<320
100 COLOR 1,3:REM SWITCH TO RED
110 DRAW 1,160,0 TO 160,200:REM DRAW X AXIS IN RED \ \
120 DRAW 1,0,100 TO 320,100:REM DRAW Y AXIS IN RED j /
130 COLOR 1,6:REM SWITCH TO GREEN Lj
140 DRAW 1,0,199 TO 50,100 TO 90,50 TO 110,30 TO 150,20 TO 180,30
150 DRAW 1,180,30 TO 220,10 TO 260,80 TO 320,0:REM DRAW GROWTH CURVE
160 CHAR 1,7,23,"PROJECTED SALES THROUGH 1990"
170 CHAR 1,1,21,"1970 1975 1980 1985 1990"
180 SLEEP 10:GRAPHIC 0,l:REM DELAY AND SWITCH TO TEXT MODE