size 400 400
paper 100
repeat x 0 400
{
pen ((
2009年11月12日 星期四
作業四: 使用command square 結構綜合設計
size 200 200
paper 100
command square x y s c
{
pen (c+5) (c-10) (c*10)
line (x+10) 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 5 0
{
repeat B 5 0
{
square (25+(A+B)*15) (25+(B+2)*15) 25 ((A+B)*9)
}
}
repeat A 0 5
{
repeat B 0 5
{
square (10+(A+B)*15) (10+(B+2)*15) 25 ((A+B)*8)
}
}
repeat A 5 0
{
repeat B 5 0
{
square (25+(A+B)*15) (25+(B+2)*15) 25 ((A+B)*7)
}
}
repeat A 5 0
{
repeat B 5 0
{
square (25+(A)*15) (25+(B+2)*15) 25 ((A+B)*6)
}
}
2009年11月5日 星期四
期中考- 融合
load dbngraphics.dbn
paper 0 80 45
size 500 425
fast
Repeat A 120 130
{
circle 100 225 (A/2+20) 90
}
Repeat A 25 0
{
circle 100 225 (A) 90
}
Repeat A 125 135
{
circle 375 425 (A/2+20) 0
}
repeat B 325 425
{
pen 10 80 45
line 275 B 350 B
}
REpeat B 350 425
{
pen 10 80 45
line 400 B 450 B
}
Repeat A 125 135
{
circle 375 400 (A/2+20) 0
}
repeat B 375 425
{
pen 10 80 45
line 450 B 465 B
}
repeat B 325 425
{
pen 10 80 45
line 275 B 350 B
}
repeat a 0 100
{
pen 80 0 0
triangle 100 225 (50+a) 50 150 50
}
repeat g 0 10
{
pen 75 60 0
line 20 (375+G) 100 (375+G)
}
repeat a 120 250
{
pen 60 10 0
triangle 375 400 (125+a) 180 250 180
}
repeat a 0 225
{
pen 70 30 0
triangle 375 75 (275+a) 165 300 165
}
repeat g 0 10
{
pen 100 100 100
line 375 (225+G) 490 (225+G)
}
repeat a 0 35
{
pen 100 100 0
triangle 400 220 (375+a) 220 375 200
}
repeat a 0 25
{
pen 50 10 0
triangle 400 200 (375+a) 200 375 180
}
repeat g 0 50
{
pen 54 0 0
line 375 (250+G) 450 (250+G)
}
repeat a 0 75
{
pen 10 30 0
triangle 400 250 (375+a) 250 375 300
}
repeat a 375 425
{
pen 0 0 0
triangle 450 165 (50+a) 210 425 210
}
repeat a 0 150
{
pen 70 0 0
triangle 100 225 (25+a) 325 120 250
}
repeat a 100 140
{
pen 0 0 0
triangle 200 125 (80+a) 70 190 70
}
repeat a 100 150
{
pen 0 0 0
triangle 200 175 (75+a) 125 190 125
}
repeat a 100 150
{
pen 0 0 0
triangle 200 225 (75+a) 175 190 175
}
Repeat A 130 140
{
circle 375 25 (A/2+20) 90
}
repeat B 0 70
{
pen 0 80 45
line 275 B 300 B
}
repeat B 0 70
{
pen 0 80 45
line 450 B 465 B
}
訂閱：
文章 (Atom)