Problem 2c.

//a guitar
paper 43
command block a b e
{
   repeat d 0 e
   {
      pen (d + e)
      set c (d + a)
      line  c b c (b - e)
   }
}
command block2 a b c
{
   repeat d 0 c
   {
      pen (((100 - d) * b) / a)
      set e (b + d)
      line a e (a - c) e
   }
}
command square a b c
{
   pen 81
   line a b (a + c) b
   line (a + c) b (a +c) (b + c)
   line (a + c) (b + c) a (b + c)
   line a (b + c) a b
}
command rectblock a  b c e
{
   repeat d a (a + c)
   {
      pen d
      line a (b + d) (a + e) (b + d)
   }
}
command triangle a b c
{
   pen (a + b)
   line a b (a + c) (b + c)
   line (a + c) (b + c) ((a + b) / 2) (a + c)
   line ((a + b) / 2) (a + c) a b
}
triangle 60 75 25
rectblock 50 0 30 10
square 80 88 10
block 65 80 10
block2 50 40 20
block 25 40 17
square 0 2 43
triangle 9 12 25
rectblock 10 5 16 2
rectblock 16 1 29 2
rectblock 19 3 30 2

-gary escudero