作業六-自畫像

自畫像

截圖:


影片:



原始碼

size 400 400
paper 0
fast

command rect x y w h c
{
pen 100
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
}