2009-03-31小考(修改)

2009-03-31課堂小考

2008-03-10課堂練習

2008-02-03課堂練習

(補)課堂練習

size 400 400
paper 10 10 10
//fast
repeat x 30 300
{
pen 50 80 10
line 100 200 x 400
}

repeat x 100 400
{
pen 20 10 50
line 90 200 x 0
}
repeat x 0 400
{
pen 60 10 90
line 90 x x 100
}
repeat x 400 0
{
pen 60 70 50
line x x x 200
}
repeat x 200 60
{
pen 80 20 50
line x x x 200
}
repeat x 50 100
{
pen 20 40 20
line 190 x x 260
}
repeat x 100 400
{
pen 60 50 90
line 50 50 x 0
}
repeat x 100 50
{
pen 40 10 90
line x x x 60
}

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