|
The following article was printed in February 1989 of the magazine „8000 PLUS".
|
SPIROGRAPHIXby Richard Cox | ![]() |
w48and [RETURN).
This changes the wheel to size 48 - notice the display has changed.
Now draw again with d, and the pattern will be different.
The ring size may also be changed in the same way, e.g. type r105 w60 cd (cd clears the screen before drawing).
c h1 w60 d h5 d.
t0 cd t1 d.
Changing the tooth rotates the pattern, as you can see.
c q6 d t8 q10 d and notice how the second pattern is denser.
Remember to set the quality back to 6 with q6.
c x0 d x1 d.
r96 w50 t5 h3 cd h4.
SYSTEM.
c, and draw a pattern with values of your choice (e.g. r96 w72 d).
Now type the following: m6 ht&1 d.
Watch what happens.
The program draws six more
![]() |
r75 w60 h2 to x-49 y0 cdand wait for the pattern to be drawn.
Now the multi command: m30 x&3 t&-1 d.
![]() |
![]() |
![]() |
| [BASIC listing] and [assembler listing] |
HTML customization by
Werner Cirsovius
December 2014
© 8000 PLUS