作業七: 琴鍵飛舞

程式碼

size 400 400

paper 100

fast

command rects x y w h r g b

{

pen r g brepeat w1 50 100

{

pen r g b

line (x+(w1/200)) (y-h/2) (x+(w1/100)) (y+h/2)

}

}

forever

{

rects 100 50

}