; pegdraw.sfa - John French, Abrams Planetarium, March 2002
; This file draws out the square in peg  .

0	dec g peg1
	dec g peg2
	dec g peg3
	dec g peg4
	adj peg1 def pic /dsuser/french/sop/peg1
	adj peg2 def pic /dsuser/french/sop/peg2
	adj peg3 def pic /dsuser/french/sop/peg3
	adj peg4 def pic /dsuser/french/sop/peg4
+1	draw st peg1
	draw st peg2
	draw st peg3
	draw st peg4
	
+0.1	adj peg1 par 1 /u +2
+2	adj peg2 par 1 /u +2
+2	adj peg3 par 1 /u +2
+2	adj peg4 par 1 /u +2
	
+5	adj peg1 par 0 /u +1
	adj peg2 par 0 /u +1
	adj peg3 par 0 /u +1
	adj peg4 par 0 /u +1
	
+1	er st peg1
	er st peg2
	er st peg3
	er st peg4
	
     	end