//okhan 2/14/00
/'2A
//Offset Balloon

Paper 0
pen 100
//5 dots
Command Shade X Y A P
{
   Set [(X-13) (Y-13+A)] P
   Set [(X-9) (Y-12+A)] P
   Set [(X-5) (Y-10+A)] P
   Set [(X-3) (Y-8+A)] P
   Set [(X-1) (Y-4+A)] P
}

//10 dots
Command String X Y A P
{
   Set [(X-13) (Y-13+A)] P
   Set [(X-9) (Y-12+A)] P
   Set [(X-5) (Y-10+A)] P
   Set [(X-3) (Y-8+A)] P
   Set [(X-1) (Y-4+A)] P
   Set [(X-1) (Y+4-A)] P
   Set [(X-3) (Y+8-A)] P
   Set [(X-5) (Y+10-A)] P
   Set [(X-9) (Y+12-A)] P
}
//20 Dots
Command Circle X Y A
{
  
      Set [X Y] 100
      Set [(X+4) (Y+1)] 100
      Set [(X+8) (Y+3)] 100
      Set [(X+10) (Y+5)] 100
      Set [(X+12) (Y+9)] 100
      Set [(X+13) (Y+13)] 100
      Set [(X+12) (Y+17)] 100
      Set [(X+10) (Y+21)] 100
      Set [(X+8) (Y+23)] 100
      Set [(X+4) (Y+25)] 100
      Set [(X) (Y+26)] 100
      Set [(X-4) (Y+25)] 100
      Set [(X-8) (Y+23)] 100
      Set [(X-10) (Y+21)] 100
      Set [(X-12) (Y+17)] 100
      Set [(X-13) (Y+13)] 100
      Set [(X-12) (Y+9)] 100
      Set [(X-10) (Y+5)] 100
      Set [(X-8) (Y+3)] 100
      Set [(X-4) (Y+1)] 100
 

}

Command Stem X Y
{
   Set [(X+5) (Y+20)] 100
   Set [(X+7) (Y+22)] 100
   Set [(X+9) (Y+24)] 100
   Set [(X+10) (Y+25)] 100
}
//20 dots
Circle 70 30 1

// 4@5 dots = 20
Shade 83 43 2 50
Shade 81 43 3 40
Shade 83 43 4 30
Shade 81 43 5 20

// 10 dots
String 85 20 3 60
Line 0 0 0 100
Line 0 100 100 100
Line 100 0 100 100
Line 0 0 100 0