load dbngraphics.dbn
paper 50 90 70
size 400 300
//右中白線
repeat U 0 6
{
pen 0
line 276 (140+U) 360 (140+U)
}
//左上黃線
repeat P 0 8
{
pen 90 80 50
line 25 (275+P) 80 (275+P)
}
//上三角
repeat x 50 150
{
pen 40 0 0
line 100 175 x 250
}
//下三角
repeat x 75 125
{
pen 40 0 0
line 100 175 x 35
}
//上三角綠
repeat x 68 85
{
pen 10 80 0
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
}
//下三角紅
repeat x 90 110
{
pen 80 0 0
line 100 175 x 123
}
//大圓
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 Q 50
//大直角
Repeat Z 275 210
{
pen 90 10 20
triangle (Q*4+10) 110 Z (Q*2+10) (Q*4+75) (Q*4+75)
}
//右下大三角
Repeat X 235 365
{
pen 90 50 20
triangle (Q*6) 35 (Q*4+35) (Q*2) X (Q*2)
}
//下小直角
Repeat W 276 295
{
pen 60 20 30
triangle (Q*4+76) 110 W (Q*2+20) (Q*6-10) (Q*2+20)
}
//下小直角黃
Repeat V 276 300
{
pen 200 190 10
triangle (Q*4+76) 120 V (Q*2+35) (Q*6) (Q*2+35)
}
//右小黑三角
repeat x 310 340
{
pen 20 0 0
line 325 100 x 132
}
//右綠直角
Repeat T 276 340
{
pen 5 90 0
triangle (Q*4+76) 185 T (Q*2+53) (Q*6) (Q*2+53)
}
//右紅直角
Repeat T 276 340
{
pen 90 0 20
triangle (Q*6+40) (Q*2+53) T (Q*3+35) (Q*6+40) (Q*3+35)
}
