作業肆

主題:你住哪個山頭?

size 114 225
paper 100

fast

command ss x y z c
{
pen x (10*y) (c*20)

line (10+z) (x+y-z) (65+z) (x+y-z)

line (110-z) (x+y-z) (40-z) (x+y-z)
}

repeat c 0 10
{
repeat a 0 9
{
repeat b 0 5
{

ss a (b*60) (c*10) b

}
}
}

作業叁

轟隆隆












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)
}

作業貳:做水災

做水災了
一波又一波
青苔都長出來了



















paper 100 100 100

size 300 300

repeat a 0 5
{

pen 10 20 0
line 300 (a*1) 0(a*1)
}



repeat a 2 60
{
pen 70 70 70
line 150 (a*4) 135(a*2)
line 150 (a*4) 165(a*2)
}


repeat a 2 30
{
pen 70 70 70
line 50 (a*4) 40(a*2)
line 50 (a*4) 60(a*2)
}


repeat a 2 20
{
pen 70 70 70
line 100 (a*4) 85(a*2)
line 100 (a*4) 115(a*2)
}


repeat a 2 25
{
pen 70 70 70
line 190 (a*4) 175(a*2)
line 190 (a*4) 205(a*2)
}



repeat a 2 50
{
pen 70 70 70
line 240 (a*4) 225(a*2)
line 240 (a*4) 255(a*2)
}


repeat a 0 80
{

pen 100 100 100
line 300 (a*3) 0(a*3)
}



repeat a 0 75
{

pen 0 70 70
line 300 (a*3) 0(a*3)
}


repeat a 0 100
{

pen 0 70 80
line 300 (a*2) 0(a*2)
}

repeat a 0 70
{

pen 0 70 0
line 300 (a*2) 0(a*2)
}


repeat a 0 80
{

pen 0 70 0
line 300 (a*2) 0(a*2)
}


repeat a 0 40
{

pen 100 100 100
line 300 (a*1) 0(a*1)
}

9/25 名字

size 400 400
paper 10 60 80

pen 100 100 0

line 0 375 400 375
line 75 400 75 0
line 325 400 325 0
line 75 375 0 0
line 150 0 75 375
line 250 0 325 375
line 400 0 325 375

line 150 350 150 400
line 250 400 250 350
line 175 350 225 350
line 85 325 315 325
line 100 325 120 225
line 105 300 295 300
line 295 300 280 225
line 280 225 255 225

line 115 170 195 170
line 125 200 155 30
line 155 30 190 30
line 180 200 180 20
line 200 185 200 25
line 200 25 245 25
line 245 25 275 185
line 275 185 200 185