2010年1月17日 星期日
作業八: po 個人心得300字
作業七: 應用 Mouse-1-2-3 配合Time 4 --> 創作
以帆船作發想 背景改為黑色夜空 更凸顯帆船的顏色 自由徜徉
size 200 500
paper 0 0 0
fast
command rects x y w h r g b
{
pen b
repeat w1 10 60
{
pen (r+50) (g+90) b
line (x+w1) (h+w/80) (x/(w1*80)) (y+h/2)
line (x+(w/8)) (y-(9*(w))) (x+(w/2)) (y+(5*(w))/3)
}
}
forever
{
same?
{
rects
2010年1月6日 星期三
w 5

paper 50 0 0
size 300 300 2
repeat A 0 25
{
pen 30 0 0
line (25+A) 0 (25+A) 300
line (250+A) 0 (250+A) 300
line 0 (25+A) 300 (25+A)
line 0 (250+A) 300 (250+A)
}
repeat B 0 25
{
pen 25 0 0
line 30 (250+B) 50 (250+B)
line 15 (25+B) 50 (25+B)
line 270 (250+B) 275 (250+B)
line 260 (25+B) 275 (25+B)
}
repeat C 0 8
{
pen 30 0 0
line (80+C) 0 (96+C) 300
line (156+C) 0 (186+C) 300
line (186+C) 0 (186+C) 300
line 0 (196+C) 280 (196+C)
line 0 (146+C) 2800 (146+C)
line 0 (96+C) 300 (96+C)
}
repeat D 0 2
{
pen 15
line 0 (60+D) 300 (80+D)
line 0 (70+D) 300 (64+D)
line 0 (268+D) 300 (218+D)
line 0 (234+D) 300 (234+D)
line (90+D) 0 (90+D) 300
line (64+D) 0 (64+D) 300
line (218+D) 0 (218+D) 300
line (234+D) 0 (234+D) 300
}
repeat E 0 1
{
pen 80 65 0
line 0 (220+E) 350 (220+E)
line 0 (20+E) 350 (20+E)
line (280+E) 0 (280+E) 300
line (20+E) 0 (20+E) 300
}// enter program
2009年11月13日 星期五
work 4 稿紙
// enter program
size 200 200
paper 0
command square x y s c
{
pen (c/20)
line x y (x+s) (y+s)
line (x+s) (y+s) (x+s) y
line (x+s) y x y
}
command square2 x y s c
{
pen c
line (x-s) y x y
line x y (x-(s/2)) (y-s)
line (x-(s/2)) (y-s) (x-s) y
}
command square x y s c
{
pen (c/2)
line x y x (y+s)
line x (y+s) (x+s) (y+s)
line (x+s) (y+s) (x+s) y
line (x+s) y x y
}
command square5 x y s c
{
pen (c/4)
line x y x (y+s)
line x (y+s) (x+s) (y+s)
line (x+s) (y+s) (x+s) y
line (x+s) y x y
}
repeat A 0 19
{
repeat B 0 19
{
square5 (A*10+2) (B*10+2) 5 (100-(A*B-50))
}
}
command square3 x y s c
{
pen c
line x y (x+(s/2)) (y+s)
line (x+(s/2)) (y+s) (x+s) y
line (x+s) y (x+(s/2)) (y-s)
line (x+(s/2)) (y-s) x y
}
repeat D 10 17
{
repeat A 10 50
{
repeat B 20 30
{
square3 (15+(A+A)*15) (12+(B+B)*23) D (10+(A+B)*11)
}
}
}
repeat D 10 17
{
repeat A 0 5
{
repeat B 0 3
{
square2 (31+(A+A)*15) (45+(B+B)*23) D (10+(A+B)*11)
}
}
}
repeat D 10 17
{
repeat A 0 4
{
repeat B 0 3
{
square3 (30+(A+A)*15) (28+(B+B)*23) D (10+(A+B)*11)
}
}
}
repeat A 10 0
{
}
訂閱:
文章 (Atom)





