#VRML V2.0 utf8  Animated Globe PROTO,  Evgeny Demidov,  9 Dec 2000

NavigationInfo{ type "EXAMINE" }
Background{ skyColor .5 .5 1}

PROTO Globe[
 field MFString urlImg ""
 field SFInt32  n      30
]{
DEF Root Transform{ scale 2 2 2 children[
 Shape{ appearance
  Appearance{ material Material{ diffuseColor 1 1 1}
   texture ImageTexture { url IS urlImg}}
  geometry DEF scrIFS IndexedFaceSet{ coord DEF scrCoord Coordinate{}
   texCoord DEF scrTC TextureCoordinate{}
   creaseAngle 2}}
 DEF Touch TouchSensor{}
]}
DEF Clock TimeSensor{ cycleInterval 60}
DEF Animation OrientationInterpolator{
 key[0,.5,1] keyValue[0 1 0 0,0 1 0 3.14,0 1 0 6.28]}

ROUTE Touch.touchTime TO Clock.startTime
ROUTE Clock.fraction_changed TO Animation.set_fraction
ROUTE Animation.value_changed TO Root.rotation

DEF INIT Script{
  field SFNode scrTC  USE scrTC
  field SFNode scrIFS USE scrIFS
  field SFNode scrCoord  USE scrCoord
  field SFInt32 n IS n
  directOutput TRUE
url ["javascript:
function initialize() { 
  n1=n+1;
  stepTh=3.142/(n-1); stepFi=6.2832/n;
  var k=0, i,j;
  var p = new MFVec3f();  p.length = n*n;
  for (j= 0; j< n; j++)
    for (i= 0; i< n; i++) {
      fi=i*stepFi;   theta=j*stepTh;
      t=Math.sin(theta);
      p[k].x=t*Math.sin(fi);
      p[k].y=-Math.cos(theta);
      p[k++].z=t*Math.cos(fi); }
  scrCoord.set_point = p;
  var c = new MFInt32( );  c.length = 5*(n-1)*n;
  k=0;
  for (j= 0; j< n-1; j++){
   for (i= 0; i< n-1; i++){
    c[k++]=i+n*j; c[k++]=i+n*j+1; c[k++]=i+n*j+n+1; c[k++]=i+n*j+n; c[k++]=-1;}
   c[k++]=n*j+n-1; c[k++]=n*j; c[k++]=n*j+n; c[k++]=n*j+n+n-1; c[k++]=-1;
  }
  scrIFS.set_coordIndex = c;

  var pt = new MFVec2f();  pt.length = n*n1;
  k=0;  var sti=1.0/n, stj=1/(n-1);
  for (j= 0; j< n; j++)
    for (i= 0; i< n1; i++) {
      pt[k].x=i*sti;
      pt[k++].y=j*stj;}
  scrTC.set_point = pt;
  var ti = new MFInt32( );  ti.length = 5*(n-1)*n;
  k=0;
  for (j= 0; j< n-1; j++)
   for (i= 0; i< n; i++){
    ti[k++]=i+n1*j;  ti[k++]=i+n1*j+1;
    ti[k++]=i+n1*j+n1+1; ti[k++]=i+n1*j+n1; ti[k++]=-1;}
//print( ti );
  scrIFS.set_texCoordIndex = ti;
}"]
}}

Globe{}