使用三原型綜合設計創作－Play

Play

Command paperc rref gref bref
{
set r (rref*100/255)
set g (gref*100/255)
set b (bref*100/255)
paper r g b
}

Command penc rref gref bref
{
set r (rref*130/255)
set g (gref*130/255)
set b (bref*130/255)
pen r g b
}

size 400 400
paperc 60 100 225
fast

Repeat x 1 20
{
Repeat y 1 20
{
pen 0
set L (20*x-20)
set B (20*y-20)
set R (20*x)
set T (20*y)
set U 3


line (L+U) (B+U) (R-U) (B+U)
line (R-U) (B+U) (R-U) (T-U)
line (R-U) (T-U) (L+U) (T-U)
line (L+U) (T-U) (L+U) (B+U)

}
}



Repeat x 1 30
{
Repeat y 1 30
{
penc 30 144 255
set L (30*x-20)
set B (30*y-20)
set R (30*x)
set T (30*y)
set U 2

line L B R B
line R B R T
line R T L T
line L T L B


line (L+3) (B+3) (R-3) (B+3)
line (R-3) (B+3) (R-3) (T-3)
line (R-3) (T-3) (L+3) (T-3)
line (L+3) (T-3) (L+3) (B+3)

}
}