

Load dbngraphics.dbn
size 500 375
paper 60 100 80
fast
//黃長條
pen 100 100 20
repeat a 0 12
{
line 410 (345-a) 475 (345-a)
}
//顛倒三角形
Repeat A 375 425
{
pen 40 10 0
line A 20 400 150
}
Repeat A 350 460
{
pen 40 10 0
line A 250 400 150
}
//同心圓
Repeat A 0 20
{
circle 400 150 A 100
}
repeat A 0 30
{
circle 400 150 (A+25) A
}
Repeat A 60 55
{
circle 400 150 A 100
}
//3三角形
repeat a 0 50
{
pen 100
triangle 290 35 305 (35+a) 320 35
}
repeat a 0 50
{
pen 100
triangle 285 80 305 (80+a) 325 80
}
repeat a 0 50
{
pen 100
triangle 275 115 305 (115+a) 330 115
}
//白長條
pen 0
repeat a 0 9
{
line 30 (150+a) 115 (150+a)
}
//大紅三角
repeat a 200 0
{
pen 80 20 20
triangle 115 115 115 (115+a) 225 115
}
//綠紅三角
Repeat A 170 195
{
pen 30 60 20
line 65 170 115 A
}
Repeat A 170 195
{
pen 90 20 10
line 65 A 115 195
}
//黃紅三角
Repeat A 115 125
{
pen 100 20 20
line 95 125 115 A
}
Repeat A 125 146
{
pen 100 100 20
line 85 146 115 A
}
//黑三角
repeat a 0 28
{
pen 100
triangle 45 138 63 (138-a) 81 138
}
//橘三角
repeat a 70 0
{
pen 100 30 0
triangle 25 109 91 (109-a) 157 109
}
//菱形
repeat a 0 20
{
pen 100 20 20
triangle 180 265 200 (265-a) 220 265
}
repeat a 0 20
{
pen 100 20 20
triangle 180 265 200 (265+a) 220 265
}
//下半圓
Repeat A 70 65
{
circle 91 1 A (100-A+50)
}
//上2圓
Repeat A 78 73
{
circle 95 330 A (100-A+30)
}
Repeat A 70 65
{
circle 95 350 A (100-A+10)
}