>>Also Thread #791118
>>
>>>Do you remimber the Spirograph toy. Well here is one online.
>>>
>>>http://www.washington.edu/bibsys/mattf/nina/
>
>If I had VFP on my current machine, I would convert the source code from the site to Fox. Perhaps I will do it for fun this weekend.

Here's a message I posted on Sezam BBS just before the new year of '93. The code is for GWBasic. Janko Stamenović (the guy whose keyboard drivers Naomi used) converted it into Turbo Pascal and wrote a screen saver based on this code. If you have the TP runtime dlls, I can send it to you.

Translation:
"The other evening the kids found some old drawings done by a swingograph. That used to be some sort of pendulum where the weight is an A4 sized plate, put a sheet of paper on the plate, and a pencil was hung, you swing the plate and... get what you get. Since I couldn't explain that I have no intention of going to the garage and making such a contraption, I wrote this code instead:

p0 - ratio between speeds of rocking per x and y axis
p1 - phase shift

attempt to get a drawing dense enough

... just let this run during the doček (word doesn't exist in English), it may decrease your drink consumption. I suppose there'd be characters who'd get high just watching these screwed-in Lissajou figures. Have a nice good time.

> ===============================
>  4.10   PC.PROG.2:basic
>         ndragan, 29.12.92. 14:56, 2168 chr
> ---------------------------------------------------------
> Neko veče deca nađoše stare crteže rađene svingografom. To je bilo neko
> klatno čiji teg je tabla A4, na tablu se stavi list papira, na stalku je
> klackalica sa mestom za umetanje flomastera, klatno se zaljulja,
> flomaster se spusti i... dobije se šta se dobije. Pošto nikako nisam
> uspeo da im objasnim da mi ne pada napamet da se po ovoj ciči zimi
> zavlačim u garažu i pravim takvu napravu, izvukao sam se napisavši ovaj
> program:
>
>
> DECLARE FUNCTION qrnd! (a!, b!)
> pi = ATN(1) * 4
> RANDOMIZE TIMER
> DO
> SCREEN 12   ' ovo 12 za VGA, za Herkulesa... neki drugi broj
> ' p0 je odnos brzina između ljuljanja po x i y osi
> ' ograničio sam se na jednostavnije razlomke
> p0 = qrnd(1, 6) / qrnd(2, 7)
> ' fazni pomeraj
> p1 = RND * pi / 2
>
> ' a ovo je pokušaj da se dobije dovoljno gust crtež
> IF p0 > 0 THEN
>    p5 = 1 / p0
> ELSE
>    p5 = p0
> END IF
> p5 = p5 * (1 - p5)
> p3 = 1 + .02 * RND * p5
> p5 = .0014
> p4 = RND * 2 - 1
> p6 = p5 / 2
>
> s1 = RND * 2 - 1
> s2 = RND * 2 - 1
> max = 800
> c = 0
> FOR t = max TO max / 5 STEP -.1
>    ax = SIN(t) + s1
>    ay = COS(t * p0 + p1) + s2
>    cx = ((ax * SIN(t * p5) + ay * COS(t * p6 + p4)))
>    cy = ((ax * COS(t * p5) + ay * SIN(t * p6 + p4)))
>    bx = ((cx * SIN(t * p3) + cy * COS(t * p3 + p4)) * t / max + 1) * 280
>    by = ((cx * COS(t * p3) + cy * SIN(t * p3 + p4)) * t / max + 1) * 180
>    LINE (bx0, by0)-(bx, by), c
>    c = 15 + (bx0 > bx) + 2 * (by0 > by)
>    bx0 = bx
>    by0 = by
> NEXT t
>
> t = TIMER + 60
> DO
> LOOP UNTIL INKEY$ = CHR$(27) OR t <= TIMER
> SCREEN 0
> LOOP
>
>
>
> FUNCTION qrnd (a, b)
>    qrnd = INT(RND * (b - a) + a)
> END FUNCTION
>
> Eto, najzad nekako ispada da sam i ja nekog nešto častio za Novu godinu
> :) ili sam se bar izvadio za onaj dupli egzek ;).
>
> Ovo je QBasic, ali mislim da ladno može da se prebaci u bilo koji drugi
> bejzik koji podržava grafiku. Odustao sam od bilo kakvog unosa brojeva -
> lepše mi je da prepravim par linija u programu, nego da kojegde pamtim
> zgodne brojeve od prošli put.
>
> Pustite ovo za vreme dočeka nek se vrti, smanjiće vam potrošnju pića.
> Pretpostavljam da će se naći tipova koji će se ukokavati gledajući ove
> zavrnute Lisažuove figure. Lepo se provedite.
> ----------------------------------------------- 4.10  ---