期中: 數位康丁斯基

load dbngraphics.dbn

size 350 300

paper 75 86 80

fast

repeat a 0 10

{

pen 95 80 30

line (325) (260+a) (275) (260+a)
}
repeat a 0 8

{

pen (80-a) (90-a) 95

line (25) (120+a) (90) (120+a)

}

Repeat c 0 10

{

circle 250 150 (45+c) 100

circle 250 150 (40+c) 80

circle 250 150 (35+c) 60

circle 250 150 (30+c) 20

circle 250 150 (25+c) 0

circle 250 150 (20+c) 100

circle 250 150 (15+c) 100}
Repeat d 0 50

{

pen (d/2) (d/3) (10-d)

triangle (200+d) 225 (300-d) 225 250 150

triangle (225+d) 25 (275-d) 25 250 150

}
Repeat d 0 20

{

pen 100

triangle (175+d) 30 (195-d) 30 185 65

triangle (170+d) 65 (200-d) 65 185 100

triangle (165+d) 100 (205-d) 100 185 135

}
Repeat e 0 70

{

pen (100-(e/3)) (20-(e/3)) (10)

triangle (90) 90 (160-e) 90 90 275

}
Repeat f 0 -20

{

pen 60 0 0

triangle (90) 100 (70-f) 100 90 90
}
Repeat e 0 70

{

pen (90) (30) (e-50)

triangle (18+e) 85 (135-e) 85 75 25
}
Repeat g 0 -30

{

pen 90 90 0

triangle (90) 115 (60-g) 115 90 101

}
Repeat g 0 30

{

pen 100triangle (50) 110 (60-g) 110 45 86

}
Repeat h 0 -44

{

pen (30-(h/2)) (60-(h/3)) 30

triangle (90) 140 (45-h) 140 90 165

}
Repeat h 0 44

{

pen (60-(h/2)) 0 0

triangle (45) 165 (90-h) 165 45 140

}
Repeat i 0 38

{

pen 70 0 0triangle (140+i) (240) (153) (220) 150 225

}
Repeat i 0 38

{

pen 70 0 0triangle (140+i) (240) (165) (260) 150 240

}