Dragon curve: Difference between revisions
→{{header|GW-BASIC}}: Doubled x-coords for better look in SCREEN 2. Structure: IF-THEN-ELSE used.
(→{{header|GW-BASIC}}: Doubled x-coords for better look in SCREEN 2. Structure: IF-THEN-ELSE used.) |
|||
Line 803:
{{works with|BASICA}}
{{works with|QBasic}}
{{trans|
<syntaxhighlight lang="qbasic">10 REM
20 REM SIN, COS
30 DIM S(7), C(7)
40 QPI = ATN(1)
50 FOR I = 0 TO 7
60 S(I) = SIN(I * QPI)
70 C(I) = COS(I * QPI)
80 NEXT I
90 LEVEL = 15
100 INSIZE = 128
110 X = 112
120 Y = 70
130 SQ = SQR(2)
140 ROTQPI = 0
150 DIM R(LEVEL)
160 SCREEN 2
170 GOSUB 190
180 END
190 REM
200 IF ROTQPI < 0 THEN ROTQPI = ROTQPI + 8
210 IF
220
230
240 LINE (2 * X, Y)-(2 * XN, YN): REM For SCREEN 2 doubled x-coords
250
260
270
290
300 IF ROTQPI < 0 THEN ROTQPI = ROTQPI +
310 IF ROTQPI < 0 THEN ROTQPI = ROTQPI+8 : GOTO 330▼
320
330
340
350 GOSUB 190▼
360
370 IF ROTQPI < 0 THEN ROTQPI = ROTQPI+8 : GOTO 390▼
380 RQ = R(LEVEL)
390
410
420
▲450 LEVEL = LEVEL+1
▲460 INSIZE = INSIZE*SQ
▲470 RETURN</syntaxhighlight>
==={{header|IS-BASIC}}===
| |||