Re: LOGO-L> welcome,ellipsoid and hisent

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

On  Wed, 26 Nov 1997 00:50:42 +0200 (O)
 MHELHEFNY  < MHELHEFNY@FRCU.EUN.EG> wrote:

Dear Mhelhefny,
 
> 3) What I have said to KW Melvin was just facts.

But, I'm wondering, what <grin> stands for in the message? They 
really have highly qualified teachers in Russia, though... they don't 
value that.

> 4) Let me use this opportunity to send you the code for a leaf of the
>    hisent which is a plant which grows in water lakes with very huge
>    leaves and a white flower floating on water surface.The code draws 
>    isometric view and runs as is on both UCBLogo & MSWLogo without
>    turning on 3d . you just need to uncomment two lines one in 
>    procedure c and the other in go according to the logo interpreter 
>    you prefer to use.

Wow! Thank you very much for the present, it's great and just in 
time, for today is my daughter's birthday. As I have something to do 
with this day, I think I may get some presents too. :-)

Thank you very much,
Olga.

----------------
> 
> to c
> ifelse xcor >20 [setpc (se 255 0 0)][setpc (se 230 230 10)];for MSWLogo
> ;ifelse xcor>20 [setpc 4][setpc 6];for USBLogo
> end
> 
> to go 
> cs ht setpensize [1 1] grid 9 pd 
> setpensize [2 2] bk 90 pu setxy -150 -115 pd 
> rt 90 label (se "from "MHELHEFNY "to "OLGA "TUZOVA);MSWLogo
> ;label (se "from "MHELHEFNY "to "OLGA "TUZOVA);UCBLogo
> end
> 
> to grid :step
> pu gridx :step pu gridz :step
> end
> 
> to gridx :step
> for [x 0 360 :step][for [z 0 360 :step][c
> sppos x y-80 z pd 
> ]pu]
> end
> 
> to gridz :step
> for [z 0 360 :step][for [x 0 360 :step][c sppos x y-80 z pd]pu]
> end
> 
> to mysetxyz :a :b :c
> ;Isometric transformation
> setxy (:a- :c)*cos 30 :b- (:a+ :c)*sin 30
> end
> 
> to sppos :r :fi :theta
> ;sphirical co-ordinates
> mysetxyz :r*(sin :theta)*cos :fi :r*cos :theta :r*(sin :theta)*sin :fi  
> end
> 
> to x
> op :z*.45* sin :x/2
> end
> 
> to y
> op :x*.25* sin :z/3
> end
> 
> to z
> op :z*.45* cos :x/2
> 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.