LOGO-L> welcome,ellipsoid and hisent 
Author Message
 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
;-------------------------
---------------------------------------------------------------





Sat, 13 May 2000 03:00:00 GMT  
 LOGO-L> welcome,ellipsoid and hisent

On  Wed, 26 Nov 1997 00:50:42 +0200 (O)

Dear Mhelhefny,

Quote:
> 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.

Quote:
> 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.

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

Quote:

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




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





Sun, 14 May 2000 03:00:00 GMT  
 
 [ 2 post ] 

 Relevant Pages 

1. LOGO-L> ellipsoid and paraboloid in UCBLogo

2. LOGO-L> MSWLogo 3D-extensions;Ellipsoid

3. LOGO-L> 3d-extensions,ellipsoid

4. LOGO-L> Welcome to logo-l

5. LOGO-L> Welcome

6. LOGO-L> Welcome to me

7. LOGO-L> Welcome to Eurologo'97

8. LOGO-L> Welcome CCE

9. LOGO-L> Apple logo/MSW Logo

10. LOGO-L> Reseach Machines Logo (RM LOGO)

11. WTD: 'ls -lR '->HTML code

12. Welcome to comp.lang.logo; Charter and Acknowledgements

 

 
Powered by phpBB® Forum Software