作業四: command square 結構綜合設計 (White)

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

size 400 400
paperC 108 123 139
fast

Command compare xref yref
{
smaller? xref 7
{
smaller? yref 7
{
pen (((14-xref)*(14-yref)*5/6)-42)
}
notsmaller? yref 7
{
pen (((14-xref)*yref*5/6)-42)
}
}
notsmaller? xref 7
{
smaller? yref 7
{
pen ((xref*(14-yref)*5/6)-42)
}
notsmaller? yref 7
{
pen ((xref*yref*5/6)-42)
}
}
}


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 25
{
Repeat y 1 25
{

compare x y

set L (30*x-20)
set B (30*y-20)
set R (30*x)
set T (30*y)
set U 3

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)

}
}