Anonymous user
Simple turtle graphics: Difference between revisions
m
→{{header|IS-BASIC}}
imported>Lacika7 |
|||
Line 558:
110 OPTION ANGLE DEGREES
120 GRAPHICS HIRES 4
130 CALL HOUSE(
140 SET INK 2:CALL CHART(
150 DEF HOUSE(X,Y,L)
160 PLOT X,Y,ANGLE 0;
Line 566:
190 NEXT
200 PLOT LEFT 60;FORWARD L;RIGHT 120;FORWARD L;X,Y,
210 END DEF
220 DEF CHART(X,Y,
230
240 DO
250 READ IF MISSING EXIT DO:Z
260 LET PC=PC+1:LET MX=MAX(MX,Z)
260 PLOT ANGLE 90;FORWARD Z;RIGHT 90;FORWARD L;RIGHT 90;FORWARD Z;RIGHT 90;FORWARD L▼
270 LOOP
270 PLOT ANGLE 0;FORWARD L▼
280
290
300
310 DO
310 DATA 90,60,300,200,90▼
320 READ IF MISSING EXIT DO:Z
350 LOOP
360 PLOT X,Y,
370 END DEF
</syntaxhighlight>
|