作業叁

轟隆隆












load dbngraphics.dbn

paper 0 20 50

size 180 300

fast

Repeat A 30 0

{
pen 80 0 35

circle 20 255 (A/3) 0
circle 35 260 (A/2) 0
circle 55 265 (A/2) 0
circle 75 260 (A/2) 0
circle 90 255 (A/3) 0

circle 105 215 (A/4) 0
circle 115 215 (A/3) 0
circle 130 215 (A/2) 0
circle 145 215 (A/3) 0
circle 155 215 (A/4) 0


}


set M 45
Repeat A 0 40
{
pen 0 50 20
triangle 0 0 (M/2) A M 0
triangle M 0 (M+25) A (M*2) 0
triangle (M*2) 0 (M*2+25) A (M*3) 0
triangle (M*3) 0 (M*3+25) A (M*4) 0
triangle (M*4) 0 (M*4+25) A (M*5) 0
triangle (M*5) 0 (M*5+25) A (M*6) 0
}




repeat a 0 4
{

pen 90 90 0
line 40(a+250) 25(a+210)
line 25(a+210) 50(a+210)
line 50(a+210) 35(a+150)

line 63(a+185) 53(a+155)
line 53(a+155) 75(a+155)
line 75(a+155) 63(a+90)

line 125(a+210) 110(a+180)
line 110(a+180) 135(a+180)
line 135(a+180) 115(a+120)
}