; icscoop_on.sfa - John French, Abrams Planetarium, April 2003
; This file draws the icscoop.

0:00 buttons 6,10 play ./icscoop_off
     buttons 6,10 label 'scoop  Off'
     declare global icscoop
     adjust icscoop def pic icscoop
     adjust icscoop brightness 0
+0.3 draw galactic icscoop
     adjust icscoop draw 2
     adjust icscoop brightness 100 /until +2
     end