Work Ten - 無方向空間

load dbngraphics.dbn

size 400 600

paper 100
forever

{

same? 100

{

pen 45 230 230

line (+50)

line (+50)

line (+50) (+50) (+50)

line (+50) (+50) (+50)

}
same? 100

{

pen 255 50 90

line (+50)

line (+50)

line (+50) (+50) (+50)

line (+50) (+50) (+50)

}
same? 100

{

pen 0 240 60

line (+50)

line (+50)

line (+50) (+50) (+50)

line (+50) (+50) (+50)

}
same? 100

{

pen 0 0 225

line (+50)

line (+50)

line (+50) (+50) (+50)

line (+50) (+50) (+50)

}
same? 100

{

pen 250 240 0

line (+50)

line (+50)

line (+50) (+50) (+50)

line (+50) (+50) (+50)

}
same? 100

{

pen 60 0 100

line (+50)

line (+50)

line (+50) (+50) (+50)

line (+50) (+50) (+50)

}

same? 100

{

paper 100

}

}