美麗蝴蝶有小隻有大隻~ 在翩翩飛舞 size 400 400 paper 100 fast command rects x y w h r g b { pen r g b repeat w1 5 50 { pen r g b line (x+(w1/3)) (y-h/2) (x-(w1/2)) (y+h/2) } pen r g b repeat w2 10 20 { pen r g b line (y+(w2/2)) (x-h/3) (y-(w2/2)) (x+h/2) } } forever { rects 10 14
size 400 400 paper 100 fast command rects x y w h r g b { pen r g b repeat w2 20 50 { pen r g b line (x+(w2/3)) (y-h/3) (x+(w2/3)) (y+h/3) } } forever { rects 50 50 }
size 400 400 paper 0 fast command rect x y w h c { pen 80 10 line (x-w/3) (y-h/3) (x+w/3) (y-h/3) line (x+w/2) (y-h/3) (x+w/3) (y+h/2) line (x+w/5) (y+h/2) (x-w/3) (y+h/2) line (x-w/2) (y+h/4) (x-w/2) (y-h/5) } forever { rect 70 70 }
command rect x y w h c { pen 20 60 80 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) } forever { rect 10 10 }