Chaos game: Difference between revisions
Content added Content deleted
m (→{{header|Wren}}: Changed to Wren S/H) |
(Added MSX Basic y GW-BASIC) |
||
Line 249: | Line 249: | ||
150 PSET X,Y,V |
150 PSET X,Y,V |
||
160 NEXT I</syntaxhighlight> |
160 NEXT I</syntaxhighlight> |
||
==={{header|Applesoft BASIC}}=== |
==={{header|Applesoft BASIC}}=== |
||
Adapted from the code given above. |
Adapted from the code given above. |
||
Line 270: | Line 271: | ||
==={{header|BASIC256}}=== |
==={{header|BASIC256}}=== |
||
<syntaxhighlight lang="basic256"> |
<syntaxhighlight lang="basic256">#Chaos game |
||
#Chaos game |
|||
ancho = 500 : alto = 300 |
ancho = 500 : alto = 300 |
||
Line 302: | Line 302: | ||
Refresh |
Refresh |
||
ImgSave "chaos_game.jpg", "jpg" |
ImgSave "chaos_game.jpg", "jpg" |
||
⚫ | |||
End |
|||
⚫ | |||
==={{header|GW-BASIC}}=== |
|||
{{works with|PC-BASIC|any}} |
|||
{{works with|BASICA}} |
|||
<syntaxhighlight lang="qbasic">100 REM Chaos game |
|||
110 CLS |
|||
120 SCREEN 7 '320x200 EGA Color |
|||
130 X = INT(RND(1) * 200) |
|||
140 Y = INT(RND(1) * 173) |
|||
150 FOR I=1 TO 20000 |
|||
160 V = INT(RND(1) * 3) + 1 |
|||
170 ON V GOTO 180,210,240 |
|||
180 X = X/2 |
|||
190 Y = Y/2 |
|||
200 GOTO 260 |
|||
210 X = 100 + (100-X)/2 |
|||
220 Y = 173 - (173-Y)/2 |
|||
230 GOTO 260 |
|||
240 X = 200 - (200-X)/2 |
|||
250 Y = Y/2 |
|||
260 PSET(X,Y),V |
|||
270 NEXT I |
|||
280 END</syntaxhighlight> |
|||
==={{header|Locomotive Basic}}=== |
==={{header|Locomotive Basic}}=== |
||
Line 323: | Line 345: | ||
150 plot x,y,v |
150 plot x,y,v |
||
160 next i</syntaxhighlight> |
160 next i</syntaxhighlight> |
||
==={{header|MSX Basic}}=== |
|||
{{works with|MSX BASIC|any}} |
|||
<syntaxhighlight lang="qbasic">100 REM Chaos game |
|||
110 CLS |
|||
120 SCREEN 2 |
|||
130 X = INT(RND(1) * 256) |
|||
140 Y = INT(RND(1) * 192) |
|||
150 FOR I=1 TO 20000 |
|||
160 V = INT(RND(1) * 3) + 1 |
|||
170 ON V GOTO 180,220,260 |
|||
180 X = X/2 |
|||
190 Y = Y/2 |
|||
200 V = 8 'red |
|||
210 GOTO 290 |
|||
220 X = 128 + (128-X)/2 |
|||
230 Y = 192 - (192-Y)/2 |
|||
240 V = 3 'green |
|||
250 GOTO 290 |
|||
260 X = 256 - (256-X)/2 |
|||
270 Y = Y/2 |
|||
280 V = 7 'blue |
|||
290 PSET(X,Y),V |
|||
300 NEXT I |
|||
310 END</syntaxhighlight> |
|||
==={{header|Sinclair ZX81 BASIC}}=== |
==={{header|Sinclair ZX81 BASIC}}=== |