LOGO-L> Re: 3_D Graphs

[yehuka <yehuka@beitberl.ac.il>]

George Mills wrote:
> 
> There are many ways to do it here is one.
> It is not the best viewpoint and I didn't have time to
> fiddle with it.
> 
> See attached GIF
> 
> to z_sin_xy
> cs
> perspective
> clearpalette
> setsc [255 255 255]
> setpc [64 0 0]
> ht
> for [x 0 3 0.1] ~
>    [
>    for [y 0 3 0.1]
>       [
>       localmake "x1 :x+0.0
>       localmake "y1 :y+0.0
>       localmake "x2 :x+0.1
>       localmake "y2 :y+0.1
>       localmake "z1 radsin :x1 * :y1
>       localmake "z2 radsin :x2 * :y1
>       localmake "z3 radsin :x2 * :y2
>       localmake "z4 radsin :x1 * :y2
>       pu
>       setxyz :x1*100 :y1*100 :z1*100
>       pd
>       polystart
>       setxyz :x2*100 :y1*100 :z2*100
>       setxyz :x2*100 :y2*100 :z3*100
>       setxyz :x1*100 :y2*100 :z4*100
>       setxyz :x1*100 :y1*100 :z1*100
>       polyend
>       ]
>    ]
> Messagebox [] [Solid View]
> setsc [0 0 0]
> polyview
> end


George,

One thing for sure: It's great.

This sort of graphing suggests new uses for Logo at high school.

Thanks...

[[Yehuda]]
---------------------------------------------------------------
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.