; dipdraw.sfa - John French, Abrams Planetarium, March 2002
; This file draws out the big dipper.

0:00 buttons 9,1 play ''
     buttons 9,1 label '       Busy      '
	
0	dec g dipp1
	dec g dipp2
	dec g dipp3
	dec g dipp4
	dec g dipp5
	dec g dipp6
	adj dipp1 def pic /dsuser/french/sop/dipp1
	adj dipp2 def pic /dsuser/french/sop/dipp2
	adj dipp3 def pic /dsuser/french/sop/dipp3
	adj dipp4 def pic /dsuser/french/sop/dipp4
	adj dipp5 def pic /dsuser/french/sop/dipp5
	adj dipp6 def pic /dsuser/french/sop/dipp6
+1	draw st dipp1
	draw st dipp2
	draw st dipp3
	draw st dipp4
	draw st dipp5
	draw st dipp6
	
+0.1	adj dipp1 par 1 /u +2
+2	adj dipp2 par 1 /u +2
+2	adj dipp3 par 1 /u +2
+2	adj dipp4 par 1 /u +2
+2	adj dipp5 par 1 /u +2
+2	adj dipp6 par 1 /u +2
	
+5	adj dipp1 par 0 /u +1
	adj dipp2 par 0 /u +1
	adj dipp3 par 0 /u +1
	adj dipp4 par 0 /u +1
	adj dipp5 par 0 /u +1
	adj dipp6 par 0 /u +1
	
+1	er st dipp1
	er st dipp2
	er st dipp3
	er st dipp4
	er st dipp5
	er st dipp6
	
	buttons 9,1 play ./dipdraw
     	buttons 9,1 label	'dip   draw'
     	end