作業三：三原型綜合設計創作 - 美國星

Load dbngraphics.dbn

size 400 200
paper 100 0 0
pen 100 70 70

repeat A 0 40
{
line 0 (A*4) 400 (A*4)
}

repeat A 0 30
{
line 0 (A*3) 400 (A*3)
}

set M 50

//第一個
Repeat A 0 70
{
pen 0
triangle M 0 A (M/2) M 0
triangle M 0 (M+25) A (M*2) 0
triangle 90 (M/2) (M+30+A) 25 (M*2) 0
}

//第二個
repeat B 0 175
{
triangle (M*4) 0 (M*5) B (M*6) 0
}

repeat A 0 100
{

triangle (M*4) 0 (M*2+25+A) (M+M/2) (M*4+25) (M+M/2)

triangle (M*6) 0 (M*5+25+A) (M+M/2) (M*7+25) (M+M/2)

}

//點點

set C 10
repeat A 0 4
{
repeat B 1 20
{
Circle (C*3*B) (C*B) A 0
Circle (C*2*B) (C*B) A 0
}
}


repeat A 0 2
{
repeat B 0 20
{
Circle (C*B) (C*B) (A/2) 0
Circle (C/2*B) (C*B) (A/2) 0
}
}


//墨鏡


field 40 15 65 30 90
field 80 15 110 30 90
field 175 50 240 85 90
field 260 50 325 85 90
field 185 73 200 80 0
field 270 73 285 80 0


repeat A 0 3
{
pen 0
line 43 (25+A) 50 (25+A)
line 83 (25+A) 90 (25+A)
pen 100
line 62 (24+A) 80 (24+A)
line 233 (75+A) 265 (75+A)
}

repeat A 0 3
{
rectangle (175+A) (50+A) (240+A) (85+A)
rectangle (260+A) (50+A) (325+A) (85+A)
}

repeat A 0 1
{
rectangle (40+A) (15+A) (65+A) (30+A)
rectangle (80+A) (15+A) (110+A) (30+A)
}