load dbngraphics.dbn
size 400 600
paper 100
forever
{
same?
{
pen 45 230 230
line
line
line (
line
}
same?
{
pen 255 50 90
line
line
line (
line
}
same?
{
pen 0 240 60
line
line
line (
line
}
same?
{
pen 0 0 225
line
line
line (
line
}
same?
{
pen 250 240 0
line
line
line (
line
}
same?
{
pen 60 0 100
line
line
line (
line
}
same?
{
paper 100
}
}