Re: LOGO-L> snow-ball

["Olga Tuzova" <olgatu@ort.spb.ru>]

Dear Mhehefny,

Thank you very much for the present, I apreciate your "snow-ball".
I think, in MSWLogo it might look like follows. But, this solution is 
pale in compare with the one shown by George. 
Nevertheless:

to go :b 
cs ht seth 90
for[t 0 360 ][pu spcl x y :t pick :list]

end

to spcl :x :y :c :l
setxy :x :y
setpc :c
label :l
end

to x
op 2*(70*(sin :t*:b)+(cos :t*:b))*cos :t
end

to y
op (70*(sin :t*:b)+(cos :t*:b))*sin :t
end

make "list [q w e r t y u i o p a s d f g h j k l z x c v b n m]

------------------------------------------------------------------

Thank you,
Olga.
> From:          MHELHEFNY@FRCU.EUN.EG
> Date:          Sat, 02 May 1998 16:29:36 +0200
> Subject:       LOGO-L> snow-ball
> To:            LOGO-L@gsn.org
> Reply-to:      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.
> 
---------------------------------------------------------------
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.