期中考-融合

load dbngraphics.dbn
paper 50 90 100
size 400 300
fast

//黃長方
pen 255 194 14
Repeat A 275 285
{
line 25 A 80 A
}
//下三角
repeat x 75 125
{
pen 50 10 0
line 100 175 x 35
}
//上三角
repeat x 50 150
{
pen 50 10 0
line 100 175 x 250
}
//下三角紅
repeat x 90 110
{
pen 100 0 0
line 100 175 x 123
}
//上三角綠
repeat x 68 85
{
pen 10 80 50
line 100 175 x 222
}
repeat x 80 90
{
pen 10 80 0
line 100 175 x 225
}
repeat x 90 100
{
pen 10 80 0
line 100 175 x 226
}
repeat x 100 110
{
pen 10 80 0
line 100 175 x 226
}
repeat x 110 120
{
pen 10 80 0
line 100 175 x 225
}
repeat x 115 132
{
pen 10 80 0
line 100 175 x 222
}

//大圓
circle 100 175 52 10
circle 100 175 53 20
circle 100 175 54 65
circle 100 175 55 70
circle 100 175 56 90
circle 100 175 57 100

//小圓
circle 100 175 20 80
circle 100 175 19 80
circle 100 175 18 80
circle 100 175 17 80
circle 100 175 16 80
circle 100 175 15 80
circle 100 175 14 80
circle 100 175 13 80
circle 100 175 12 80
circle 100 175 11 80
circle 100 175 10 80
circle 100 175 9 80
circle 100 175 8 80
circle 100 175 7 80
circle 100 175 6 80
circle 100 175 5 80
circle 100 175 4 80
circle 100 175 3 80
circle 100 175 2 80
circle 100 175 1 80

//三角黑
repeat x 165 185
{
pen 10 0 0
line 175 75 x 40
}
repeat x 155 195
{
pen 10 0 0
line 175 115 x 75
}
repeat x 150 200
{
pen 10 0 0
line 175 165 x 115
}

set M 50
//下三角橘
Repeat A 225 375
{
pen 90 30 20
triangle (M*6) 25 (M*4+25) (M*2) A (M*2)
}
//下三角小黑
Repeat A 310 350
{
pen 0 0 0
triangle (M*6+30) 100 (M*6+10) (M*2+30) A (M*2+30)
}
//上三角紅
Repeat B 275 210
{
pen 60 20 20
triangle (M*4+10) 110 B (M*2+10) (M*4+75) (M*4+75)
}
//右三角小紅
Repeat C 275 300
{
pen 100 20 30
triangle (M*4+75) 110 C (M*2+20) (M*6) (M*2+20)
}
//右三角小黃
Repeat D 275 310
{
pen 255 194 14
triangle (M*4+75) 120 D (M*2+35) (M*6+10) (M*2+35)
}
//紅小正
pen 100 0 0
Repeat A 175 200
{
line 225 A 200 A
}
//白色矩形
pen 100 100 100
Repeat A 140 150
{
line 275 A 350 A
}

//矩形
pen 10 30 10
Repeat A 275 330
{
line A 160 275 200
}
pen 100 0 0
Repeat A 275 330
{
line 330 160 A 200
}