// enter program
// another cubist Guitar

paper 0

command fan A B C D
{
   pen 100
   line A B C D
   line (A + 5) B C D
   line (A + 10) B C D
   line (A + 15) B C D
   line (A + 20) B C D
   line (A + 25) B C D
}

command box L W A B c
{
   pen c
   repeat R A B
   {
      line L R W R
   }
}

command triangle A B C
{
   pen C
   repeat R A B
   {
      line R R B R
   }
}

command outline_triangle Px Py Qx Qy Rx Ry C
{
   pen C
   line Px Py Qx Qy
   line Qx Qy Rx Ry
   line Rx Ry Px Py
}

command outline_box Px Py Qx Qy  C
{
   pen C
   line Px Py Qx Py
   line Qx Py Qx Qy
   line Qx Qy Px Qy
   line Px Qy Px Py
}

box 20 35 0 100 70
box 70 80 0 100 40
box 29 72 6 23 80
triangle 2 25 30
triangle 64 100 4
outline_triangle 25 25 25 80 0 80 100
outline_triangle 68 7 95 7 63 95 100
fan 40 86 50 45
outline_box 31 35 70 55 100