
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
;-------------------------
---------------------------------------------------------------