proto
PROTO SphereCrystal [ exposedField SFTime startTime 0 exposedField SFTime cycleInterval 20 exposedField SFBool loop FALSE exposedField SFColor color 1 1 1 ] {