材質三連發 最後一彈 -面-

face_1

face_2

face_1 script

// enter program
size 100 100 4
Command rect L B R T
{
Line L B R B
Line R B R T
Line R T L T
Line L T L B
}

//左下
repeat a 0 9
{
pen (100-a*10)
rect (a+0) (a+0) 50 50
}

repeat a 0 9
{
pen (a*10)
rect 10 10 (a+40) (a+40)
}

repeat b 0 9
{
pen (100-b*10)
rect (b+10) 10 40 (40-b)
}

repeat a 0 9
{
pen (100-a*10)
rect 20 (a+10) (40-a) 30
}

repeat a 0 9
{
pen (a*10)
rect (a+20) (a+20) (30-a) (30-a)
}

//左上
repeat a 0 9
{
pen (100-a*10)
rect (a+0) 50 50 (100-a)
}

repeat a 1 9
{
pen(100-a*10)
rect 10 (50+a) (50-a) 90
}

repeat a 1 9
{
pen (100-a*10)
rect (a+10) (a+60) 40 90
}

repeat a 1 9
{
pen (100-a*10)
rect 20 70 (40-a) (90-a)
}

repeat a 0 9
{
pen (a*10)
rect (a+20) (a+70) (30-a) (80-a)
}

//右下
repeat a 1 9
{
pen (100-a*10)
rect 50 (a+0) (100-a) 50
}

repeat a 1 9
{
pen (100-a*10)
rect (a+50) 10 90 (50-a)
}

repeat a 1 9
{
pen (100-a*10)
rect 60 10 (90-a) (40-a)
}

repeat a 1 9
{
pen (100-a*10)
rect (a+60) (a+10) 80 30
}
repeat a 1 9
{
pen (a*10)
rect (a+70) (a+20) (80-a) (30-a)
}
//右上
repeat a 1 9
{
pen (100-a*10)
rect 50 50 (100-a) (100-a)
}

repeat a 1 9
{
pen (100-a*10)
rect (a+50) (a+50) 90 90
}

repeat a 1 9
{
pen (100-a*10)
rect 60 (a+60) (90-a) 90
}

repeat a 1 9
{
pen (100-a*10)
rect (a+60) 70 80 (90-a)
}
repeat a 1 9
{
pen (a*10)
rect (a+70) (a+70) (80-a) (80-a)
}

face_2 script

// enter program
size 100 100 4
Command rect L B R T
{
Line L B R B
Line R B R T
Line R T L T
Line L T L B
}
repeat x 0 6
{
repeat y 0 6
{
pen 30
rect (16*x-7) (16*y-7) (16*x+7) (16*y+7)
}
}

repeat x 0 6
{
repeat y 0 6
{
pen 50
rect (16*x-5) (16*y-5) (16*x+5) (16*y+5)
}
}

repeat x 0 6
{
repeat y 0 6
{
pen 70
rect (16*x-3) (16*y-3) (16*x+3) (16*y+3)
}
}

repeat x 0 6
{
repeat y 0 6
{
pen 90
rect (16*x-1) (16*y-1) (16*x+1) (16*y+1)
}
}