期末-上下搖旗

主題:上下搖旗

靜態圖片:

動態影片:

在另一個文章裡

程式碼:

size 400 400
paper 90
fast
command rects x y w h c
{
pen c 50 90
repeat w ((-w)) (0*(w))
{
pen c
line (x+h) (y-w) (x+y) (y+h/9)
line (x+(h)) (y-(w)) (x+(h)) (y+(3*w))
}
}
forever
{
same? 0
{
rects 60 60 (100-)
paper (/4)
}
same? 100
{
rects 10 5 (100-)
}
}