2010年1月8日 星期五

作業六



自畫像 = =



size 300 500
paper 100
command rect x y w h c
{
pen 70 70 0
line (x-w/x) (y-h/x) (x+w/x) (y-h/x)
line (x+w/w) (y-h/w) (x+w/w) (y+h/w)
line (x+w/y) (y+h/y) (x-w/y) (y+h/y)
line (x-w/h) (y+h/h) (x-w/h) (y-h/h)}
forever
{
rect 50 20

沒有留言:

張貼留言


追蹤者