12月23日小考(我的思緒)

size 400 400
paper 0 10 10
fast
command rect x y 20 90 r
{
pen 10 80 60
line(x-20/2)(y-90/2)(x+90/2)(y-90/2)
pen 20 60 80
line(x+20/2)(y-90/2)(x+90/2)(y+90/2)
pen 80 60 80
line(x+20)(y-90)(x+90)(y+90/2)
pen 10 50 20
line(x-20)(y+90/2)(x+90)(y+90/2)
pen 90 40 20
line(x-20/2)(y+90/2)(x-90)(y+90)
pen 80 10 40
line(x+20)(y-90/2)(x+90/2)(y+90)
}
forever
{
rect100 100
}

2008-12-16 課堂練習

size 200 200
paper 10
fast
command rects x y w h r g b{
pen r g b
repeat w1 (-w) (w)
{
pen r g b
line (x+(w1/2)) (y-h/2) (x+(w1/2)) (y+h/2)
}
}
forever
{
rects 10 14
}// enter program

2008 12月9號 課堂練習

size 400 400
paper 100
repeat x 0 400
{
pen
line 200 200 x 400
}
repeat x 0 400
{
pen
line 200 200 x 0
}
repeat x 400 0
{
pen
line 200 100 x 0
}
repeat x 400 0
{
pen
line 200 300 x 400
}