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

}

}

Work Nine - 巨浪

size 600 400

paper 100

fast

command

one x y c v d b n

{

pen d b n
line x y (c-15) (v-50)

line (x+20) (y-10) (c+10) (v-30)

}

command two q w e r t y u

{

pen t y u
line q w (e-15) (r-50)

line (q+20) (w-10) (e+10) (r-30)

}

forever

{

same? 100

{

one () (*2)(*5)

}

notsame? 100

{

two () (*2) (*2)

}
same? 100

{

paper 100

}

}