
load dbnletters.dbn
size 600 250
fast
paper 200 20 30
number keycheck
{
set keyvalue 0 repeat a 1 26
{
same?
{
set keyvalue a
}
}
value (keyvalue)
}
set k 0
forever
{
pen 50 150 20
set k
notsmaller? k 26
{
set k 0
}
}

size 200 200
paper 50 150 20
pen 200 20 30
fast
set B 50
repeat A 0 50
{
same? A B
{
line A 0 A B
line (A*2) 30 (A*2) (B*2)
line (A*3) 30 (A*3) (B*3)
line (A*4) 30 (A*4) (B*4)
line (A*5) 30 (A*5) (B*5)
}
notsame? A B
{
line (A*2) 0 (A*2) (B*2)
line (A*3) 5(A*3) (B*3)
line (A*4) 10 (A*4) (B*4)
line (A*2) 0 (B*2) (A*2)
line (A*3) 5 (B*3) (A*3)
line (A*4) 10 (B*4) (A*4)
}
same? A B
{
line A 0 A B
line (A*2) 30 (A*2) (B*2)
line (A*3) 30 (A*3) (B*3)
line (A*4) 30 (A*4) (B*4)
line (A*5) 30 (A*5) (B*5)
}
notsame? A B
{
line (A*2) 0 (A*2) (B*2)
line (A*3) 5(A*3) (B*3)
line (A*4) 10 (A*4) (B*4)
line (A*2) 0 (B*2) (A*2)
line (A*3) 5 (B*3) (A*3)
}
}
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}
size 200 200
paper 90
repeat x 0 200
{
pen 10
//直1
repeat x 75 125
{
pen
line 50 x 0 x
}
//直2repeat x 150 50
{
pen
line 50 x 75 x
}
//直3repeat x 25 175
{
pen
line 75 x 125 x
}
//直4repeat x 150 50
{
pen
line 125 x 150 x
}
//直5repeat x 75 125
{
pen
line 150 x 200 x
}
//下斜repeat x 0 100
{
pen
line 0 20 x 0
}
repeat x 100 200
{
pen
line 200 20 x 0
}
repeat x 0 100
{
pen
line 0 175 x 200
}
repeat x 100 200
{
pen
line 200 175 x 200
}
repeat-應用
size 300 300
paper 150 200 30
Repeat B 0 200
{
pen (B/2-70) (B-50)(B-80)
line 0 (B*50) 300 (B*5)
line 0 (B*50) 300 (B*6)
line 0 (B*50) 300 (B*7)
line 0 (B*50) 300 (B*8)
line 0 (B*50) 300 (B*9)
line 0 (B*50) 300 (B*10)
}
Repeat A 0 20
{
Repeat B 10 20
{
pen (A+60) 50 20
line (A*5) (B*50) (A*20) B
line (A*10) (B*50) (A*20) B
}
}
