Re: LOGO-L> rendered cup

[George Mills <mills@softronix.com>]

5...4...3...2...1 I'll bet Yahuda has it up on his Gallery already :-)

Very nice, See attached GIF

Note that GIFs sometimes loose some of the vivid color.

MHELHEFNY@FRCU.EUN.EG wrote:
> 
> ;Hello Everybody
> ;here is the code to draw a cup
> ;regards
> ;Mhelhefny
> ;---------------
> to cylpos :r :fi :y
> setxyz :r*cos :fi :y :r*sin :fi
> end
> 
> to go
>    cs ht setsc 0
>    perspective
>    setpc [0 0 128]
>    grid 30 60
>    shade 200 150 30
>    polyview
> end
> 
> to grid :a :b
> for [fi 0 360 10][for [r -:b :a 10][
> polystart pd
>       cylpos :r :fi y
> make "r :r+ 10    cylpos :r :fi y
> make "fi :fi+ 10  cylpos :r :fi y
> make "r :r- 10    cylpos :r :fi y
> make "fi :fi- 10  cylpos :r :fi y
> polyend
> pd]pu]
> end
> 
> to shade :f :g :h
> ask -3[setxyz :f :g :h]
> polyview
> End
> 
> to y
> op ifelse :r >0 [-10*sqrt(:r)][:r* :r/40]
> 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.

-- 
===============================================================
George Mills (mills@softronix.com)
http://www.softronix.com/
The www page contains some very powerful educational software.
Our single most important investment is our kids.