LOGO-L> snow-ball

[MHELHEFNY@FRCU.EUN.EG]

;Hi Olga !
;On the occasion of the new-year you asked for the snowball.
;For the worker's day;here is a simple program to display 
;roses on the text screen.
;It is easier to run it in UCBLogo; you can also modify it to
;run in MSWLogo (using the method recently sent by George Mills)
;try :-
;go 1 to 5; and go 20
;Best Regards
;Mhelheny
;-----------------
to go :b
ct for [t 0 360 1][make "rad 10*(sin :t* :b)+(cos :t* :b) 
       setcursor se x y pr "olga] 
end

to x
op round 40+ :rad*2.5*cos :t
end

to y
op round 11+ :rad*sin :t
end
;------------------
---------------------------------------------------------------
Please post messages to the Logo forum to logo-l@gsn.org.  Mail
questions about the list administration to logofdn@gsn.org.  To
unsubscribe send    unsubscribe logo-l    to majordomo@gsn.org.