
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?
{
one
}
notsame?
{
two
}
same?
{
paper 100
}
}
沒有留言:
張貼留言