LOGO-L> welcome,ellipsoid and hisent

[MHELHEFNY@FRCU.EUN.EG]

Olga Tuzova Wrote:-

>Dear Mhelhefny,
>I'm late with the response, but let me not apologize every time. I'm 
>slow, and I can do nothing with this.

>Your demo looks nice, but I didn't  understand whether I can 
>control the ellipsoid parameters or not. And, in what moment? I'm 
>afraid, I've missed something in the discussion of your proposal.
>Thank you for my warm introduction to KW Melvin. :-)

>Regards,
>Olga.

Dear Olga !
1) Absolutely there is no need for apologizing,I know that you were
   busy in the last period.
2) Of course you can control the elipsoid parameters by clicking on
   any of the three scrollbars; in just the same manner as you inlarged
   or increased the depth level on your telescope. the first scrollbar
   has four steps for the hight,the second has the same for the width
   and the third for the depth (i.e. you control the parameters a, b
   and c radii of the ellipsoid.)
3) What I have said to KW Melvin was just facts.
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.
   
Best Regards.
Mhelhefny
;----------------------------

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.