作業五-forever

size 200 200
forever
{
repeat A 0 200
{
pen 60 (A-35) 70
line A 0 A 200
line 200 A 0 A
}
repeat A 0 200
{
pen 35 (A-35) 10
line (A-20/2) 0 (A-20/2) 200
line 200 (A-20/2) 0 (A-20/2)
}
}

size 200 200
load dbngraphics.dbn
forever
{
repeat A 0 200
{
pen 60 (A-35) 70
line A 0 A 200
line 200 A 0 A
}
repeat A 0 200
{
pen 80 (A-35) 15
line (A*3-10) 0 (A*3-10) 200
line 200 (A*3-10) 0 (A*3-10)
}
repeat A 0 200
{
pen 180 (A-35) 10
line 200 (A*2-10) 0 (A*2-10)
line 0 (A*2-10) 200 (A*2-10)
}
circle 100 200 110 0
circle 100 200 90 0
circle 100 0 110 0
circle 100 0 90 0
circle 0 100 110 0
circle 0 100 90 0
circle 200 100 110 0
circle 200 100 90 0
}