Load dbngraphics.dbn
size 400 300
paper 70 100 80
fast
set M 50
//第1三角
Repeat A 30 150
{
pen 70 35 50
triangle (M+20) 30 (M*2) A (M*3-20) 30
}
Repeat A 150 225
{
pen 30 0 0
triangle M 225 (M*2) A (M*3) 225
}
//第2三角
Repeat A 45 80
{
pen 90
triangle (M*3+10) 45 (M*3+20) A (M*3+30) 45
}
Repeat A 80 115
{
pen 100
triangle (M*3+7) 80 (M*3+20) A (M*3+33) 80
}
Repeat A 115 150
{
pen 120triangle (M*3+2) 115 (M*3+20) A (M*3+38) 115
}
//右上圓
Repeat A 50 55{ circle 290 280 A 60}
Repeat A 50 55{ circle 320 250 A 50}
//右上正方
Repeat A 275 300{ pen 70 100 80
rectangle 220 A 375 275}
Repeat A 230 300{ pen 70 100 80
rectangle 220 A 290 275 }
//斜正方
Repeat A 213 250{ pen 60 0 0
triangle (M*4+30) 205 (M*4+15) A (M*4) 220}
Repeat A 206 244{ pen 60 0 0
triangle (M*4+45) 236 (M*4+30) A (M*4+15) 251}
//第3三角
Repeat A 110 275{ pen 150 0 0
triangle (M*4+20) 110 (M*6-10) A (M*4) 110}
//第4三角
Repeat A 160 190{ pen 20 60 50
triangle (M*6-10) 160 (M*6-10) A (M*7-10) 160}
Repeat A 160 190{ pen 100 0 0
triangle (M*6-10) 190 (M*7-10) A (M*7-10) 160}
Repeat A 120 135{ pen 175 150 0
triangle (M*6-10) 120 (M*6-10) A (M*6+10) 135}
Repeat A 110 120{ pen 75 0 0
triangle (M*6-10) 110 (M*6-10) A (M*6+3) 120}
//黑
Repeat A 103 130{ pen 100
triangle (M*7-10) 130 (M*6+28) A (M*6+15) 130}
//橘
Repeat A 35 103{ pen 225 30 0
triangle (M*7+25) 103 (M*6) A (M*5-20) 103}
//長方
Repeat A 270 280{ pen 225 150 0
rectangle 25 A 75 280}
Repeat A 143 151{ pen 5
rectangle 290 A 365 151}
//左圓
Repeat A 50 55{ circle 100 150 A 80}
Repeat A 0 25{ circle 100 150 A 70}
//右圓
Repeat A 45 55{ circle 300 0 A 80}
//下三角
Repeat A 0 35{ pen 70 100 80
triangle (M*5-15) 0 (M*5+23) A (M*6) 0}
Repeat A 0 35{ pen 70 100 80
triangle (M*6) 0 (M*7-23) A (M*7+15) 0}

沒有留言:
張貼留言