; poledraw.sfa - John French, Abrams Planetarium, March 2002
; This file points from the big dipper to polaris.

0:00 buttons 9,4 play ''
     buttons 9,4 label '       Busy      '
	
0	dec g pole1
	dec g pole2
	adj pole1 def pic /dsuser/french/sop/pole1
	adj pole2 def pic /dsuser/french/sop/pole2
+1	draw st pole1
	draw st pole2
+0.1	adj pole1 par 1 /u +2
+2	adj pole2 par 1 /u +4
+10	adj pole1 par 0 /u +1
	adj pole2 par 0 /u +1
+1	er st pole1
	er st pole2
	buttons 9,4 play ./poledraw
     	buttons 9,4 label	'pole   draw'
     	end