作業四: command square 結構綜合設計 (Black)
發佈文章
黑色版漸層好像比較清楚的Fu，影片跟下面差不多就不補上了
程式碼:
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 60 80 100
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 100
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)
}
}
