size 400 400
paper 100
fast
command rect x y w h c
{
pen
line (x-w) (y-h) (x+w) (y-h)
line (x+w) (y-h) (x+w) (y+h)
line (x+w/2) (y+h/2) (x-w/2) (y+h/2)
line (x-w/2) (y+h/2) (x-w/2) (y-h/2)
}
forever
{
rect
}
load dbngraphics.dbn
paper 68 87 76
size 300 300fast
//兩個圓
circle 80 125 55 100
circle 80 125 54 99
circle80 125 53 98
circle 80 125 52 97
circle 80 125 51 96
circle 80 125 50 95
circle 80 125 20 100
circle 80 125 19 99
circle 80 125 18 98
circle 80 125 17 97
circle 80 125 16 96
circle 80 125 15 95
circle 80 125 14 94
circle 80 125 13 93
circle 80 125 12 92
circle 80 125 11 91
circle 80 125 10 90
circle 80 125 9 89
circle 80 125 8 88
circle 80 125 7 87
circle 80 125 6 86
circle 80 125 5 85
circle 80 125 4 84
circle 80 125 3 83
circle 80 125 2 82
circle 80 125 1 81
//彎刀
circle 240 10 40 100
circle 240 10 39 99
circle 240 10 38 98
circle 240 10 37 97
circle 240 10 36 96
circle 240 10 35 95
circle 240 0 40 100
circle 240 0 41 101
circle 240 0 42 102
circle 240 0 43 103
//左下紅色三角形
pen 35 10 10
repeat A 50 110
{
line A 5 80 125
}
//左上紅色倒三角形
repeat A 30 130
{
line A 200 80 125
}
//三個黑色三角形
pen 0 0 0
repeat A 125 165
{
line A 85 145 125
}
repeat A 130 160
{
line A 45 145 84
}
repeat A 135 155
{
line A 5 145 44
}
//右下橘色三角形
pen 70 30 0
repeat A 200 280
{
line A 75 240 25
}
//右下黑色倒三角形
pen 0 0 0
repeat A 252 268
{
line A 90 260 76
}
//右邊紅色直角三角形
pen 80 10 20
repeat A 170 235
{
line A 80 235 225
}
//右邊紅色小直角三角形
pen 50 0 0
repeat A 235 245
{
line A 85 235 80
}
//右邊黃色小直角三角形
pen 90 80 0
repeat A 235 250
{
line A 95 235 85
}
//右邊綠色直角三角形
pen 0 25 10
repeat A 235 265
{
line A 120 235 135
}
//右邊紅色直角三角形
pen 50 0 0
repeat A 235 265
{
line A 135 265 120
}
//紅色正方形1
pen 85 0 0
repeat A 170 200
{
line A 195 185 180
}
//紅色正方形2
pen 85 0 0
repeat A 170 200
{
line A 195 185 210
}
//右邊白色矩形
pen 100 100 100
repeat A 100 105
{
line 236 A 275 A
}
//左邊黃色矩形
pen 90 80 0
repeat A 230 240
{
line 20 A 75 A
}