LOGO-L> More Moebius

[Yehuda Katz <yehuka@beitberl.beitberl.ac.il>]

Hello Turtlers

I tried the RGB system of MSWLogo, and here's a sample of what I've
gotten:

=============================================================
to main ; Moebius Ring
setsc[192 192 192]cs ht pu
setpensize[2 2]
for[ang   0 179][setxy 40*cos :ang 80*sin :ang draw  76+:ang]
for[ang 180 359][setxy 40*cos :ang 80*sin :ang draw 435-:ang]
frame_it ; code not shown
name_it  ; code not shown
end

to draw :col
pd
setpc(se :col :col 0) setx xcor+20
setpc[0 0 255] setx xcor+2 setx xcor-2
setpc(se :col :col 0) setx xcor-40
setpc[0 0 255] setx xcor-2 setx xcor+2
setpc(se :col :col 0) setx xcor+20
end
=============================================================

Enjoy,

[[Yehuda]]