
}
Load dbngraphics.dbn
size 350 300
paper 255 228 181
fast
set M 50
Repeat C 100 275//直角
{
pen 10 45 55
triangle (M*3+75) C (M*3) (M*2) (M*3) (M*2)
}
repeat A 285 275//左上長方形
{
line 15 A 75 A
}
pen 10 20 35//右中長方形
repeat A 150 190
{
line 225 A 290 A
}
repeat A 140 130 //右下長方形
{
line 225 A 325 A
}
pen 100 50 0//右下大倒三角
Repeat A 175 300
{
line A 75 240 25
}
pen 80 80 0
Repeat A 255 300//右邊倒小三角
{
line A 120 280 85
}
pen 0 0 0//中間三個三角形
Repeat A 100 135
{
line A 25 115 75
}
Repeat A 85 145
{
line A 75 115 125
}
Repeat A 75 150
{
line A 125 115 180
}
pen 60 0 0//左邊三角
Repeat A 25 75
{
line A 20 50 175
}
Repeat A 15 85//左邊倒三角
{
line A 250 50 175
}
pen 50 0 0//中間矩形
Repeat A 225 250
{
line 150 A 175 A
}
pen 255 194 14//三角
Repeat A 255 225
{
line A 125 225 115
}
pen 0 0 0//三角
Repeat A 245 225
{
line A 115 225 100
}
Repeat A 0 90//圓
{
circle 50 175 (A/2) 80
}
Repeat A 0 40
{
circle 50 175 (A/2) 80
}
沒有留言:
張貼留言