//okhan 2/14/00
//2C
// paper scissors

Paper 0

Command blackField L R
{
   Repeat A 40 100
   {
      Pen 100
      Line A L A R
   }
}

Command greyField L R
{
   Repeat A 5 80
   {
      Pen 50
      Line L (90-A) R (90-A)
   }
}

Command VwhiteLines T B
{
   Repeat A 10 40
   {
      Pen 0
      Line (2*A) (T- A) (2*A) B
   }
}

Command blackLines L R
{
   Repeat A 2 15
   {
      Pen 100
      Line L (2*A) R (2*A)
   }
}
Command foldLines L R
{

Repeat A 10 40
{
   Pen 0
   Line A (L-A) (2*A) (R-A)
}
}

Command scissors X Y
{
   Pen 30
   Line X Y (X+40) Y
   Line (X+40) Y X (Y-5)
   Line X (Y-5) (X+30) (Y-30)
   Line (X+30) (Y-30) X (Y-15)
}



blackField 20 100
greyField 5 50
VwhiteLines 80 15
scissors 50 75
blackLines 10 70
foldLines 60 80