// For sphere crystals, use the rotation as the color
  
          ndxN ++;
          gstr = 'SphereCrystal{startTime ' + time + ' cycleInterval ' + tt + ' loop ' + loop + ' color ' + rd + ' ' + gn + ' ' + bl + '}';
          tstr = 'EXTERNPROTO SphereCrystal [exposedField SFTime startTime exposedField SFTime cycleInterval exposedField SFBool loop exposedField SFColor color] ';
          // tstr = tstr + '\"<a href=http://www.realism.co>/vrml/Example/Bubbles/CubeCrystal.wrl#SphereCrystal\" ';
          tstr = tstr + '\"@vr-web3d-x-crystal.wrl#SphereCrystal\" ';
          tstr = tstr + 'DEF N' + ndxN + ' Transform {translation ' + xc + ' ' + yc + ' ' + zc;
          tstr = tstr + ' children [ ' + gstr + '] }';