/okhan 2/14/00
//2B
// Joseph Albers take-off 

Paper 100
pen 0


Command foldPaper PH PV A B C D

{

   Pen 60
   Line PH PV (PH+A) (PV+B)
   Line (PH+A) (PV+B) (PH +C) (PV+D)
   Line (PH-B) (PV-B) PH (PV-D)

   Pen 0
   Line PH PV (PH+B) (PV-D)
   Line (PH+B) (PV-D) (PH+C) (PV+D)
   Line PH PV PH (PV-A) 
   Line PH (PV-A) (PH-B) (PV-B)

}

Set A 45
Set B 20
Set C 60
Set D 10
Set E 20
Set F 80
foldPaper E F A B C D
foldPaper F E (-A) (-B) (-C) (-D)
Pen 60
Line E (F-A) F (E+A)