作業

load dbngraphics.dbn

size 300 300

repeat A 0 300{pen 50 60 Aline 0 0 A 300}
repeat A 0 300{pen 50 60 Aline 300 300 A 0}
repeat A 50 200
{
pen 90 85 10
line (A*8) 0 (A*2) 300line 0 (A*8) 300 (A*2)
}
repeat A 300 0{
pen 80 90 10 line (A/10) 0 (A*10) 300line 0 (A/10) 300 (A*10) }
repeat A 300 0
{
pen 90 100 10 line (100+A*5) 0 (A/2) 300
}

repeat A 300 0
{
pen 70 80 10 line (A*30) 0 (A/10) 300
}