LOGO-L> welcome,ellipsoid and hisent

Olga Tuzova Wrote:-

Quote:

>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

;-------------------------

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