10/1 pattern 設計應用 黑白方塊

黑白方塊的組合
// enter program

fast
Repeat B 0 80

{
Repeat A 0 80

{
Set [(A*6) (B*6)] 100
}
}

Repeat B 0 25
{
Repeat A 0 25
{
Set [(A*6) (B*6)] 100
}
}

Repeat B 0 25
{
Repeat A 0 50
{
Set [(A*4) (B*4)] 75
}
}

Repeat C 1 4
{
Repeat B 0 30
{
Repeat A 0 30
{
Set [(A*C) (B*C)] (C*50)
}
}
}

field 0 0 40 40 100

field 60 60 100 100 80
field 20 60 40 80 60
field 5 5 15 15 0