Chaos game: Difference between revisions
Content added Content deleted
(Added MSX Basic y GW-BASIC) |
imported>Lacika7 No edit summary |
||
Line 326: | Line 326: | ||
270 NEXT I |
270 NEXT I |
||
280 END</syntaxhighlight> |
280 END</syntaxhighlight> |
||
==={{header|IS-BASIC}}=== |
|||
<syntaxhighlight lang="is-basic">100 PROGRAM "ChaosGam.bas" |
|||
110 RANDOMIZE |
|||
120 GRAPHICS HIRES 4 |
|||
130 LET X=RND(800):LET Y=RND(600) |
|||
140 FOR I=1 TO 20000 |
|||
150 LET VERTEX=RND(3) |
|||
160 SELECT CASE VERTEX |
|||
170 CASE 0 |
|||
180 LET X=X/2 |
|||
190 LET Y=Y/2 |
|||
200 CASE 1 |
|||
210 LET X=400+(400-X)/2 |
|||
220 LET Y=600-(600-Y)/2 |
|||
230 CASE 2 |
|||
240 LET X=800-(800-X)/2 |
|||
250 LET Y=Y/2 |
|||
260 END SELECT |
|||
270 SET INK VERTEX+1 |
|||
280 PLOT X,Y |
|||
290 NEXT</syntaxhighlight> |
|||
==={{header|Locomotive Basic}}=== |
==={{header|Locomotive Basic}}=== |