NavigationInfo{ type "EXAMINE" }
  Viewpoint{ fieldOfView .1 position 0 0 400 description "[110]"}
  Viewpoint{ fieldOfView .1 position 400 0 0 orientation 0 1 0 1.57 description "[-110]"}
  Viewpoint{ fieldOfView .1 position 0 400 0 orientation 1 0 0 -1.57 description "Top"}
  DEF XForm Transform{ children[] }
  Script{
    field SFNode XForm USE XForm
    directOutput TRUE
  url ["javascript:
  function initialize() { 
    var i,j, n=10, c=1.41421, Str = '';
    for ( i= -n; i<= n; i+=4) {
      sj = '';
      for ( j= -n; j<= n; j+=4)
        sj += 'Ga{ trans '+(c*(i-1))+' -1 '+(c*(j-1))+'} As{ trans '+
        (c*(i-1))+' -3 '+(c*(j+1))+'} Ga{ trans '+(c*(i+1))+' 3 '+
        (c*(j+1))+'} As{ trans '+(c*(i+1))+' 1 '+(c*(j-1))+'}';
      Str += sj;}
    XForm.addChildren = Browser.createVrmlFromString(
  'PROTO Ga[ field SFVec3f trans 0 0 0]{'+
  'Transform{ translation IS trans children['+
  'Shape{ appearance Appearance{ material Material{ emissiveColor 1 1 1}}'+
  'geometry IndexedLineSet{ coord Coordinate{'+
  'point[0 0 0,0 -1 1.414,0 -1 -1.414,1.414 1 0,-1.414 1 0]}'+
  'coordIndex[0 1 -1 0 2 -1 0 3 -1 0 4]}}'+
  'Shape{ appearance Appearance{ material Material{ diffuseColor 1 1 1}}'+
  'geometry Sphere{ radius 0.5 }}]}}'+
  'PROTO As[ field SFVec3f trans 0 0 0]{'+
  'Transform{ translation IS trans children[ '+
  'Shape{ appearance Appearance{ material Material{ emissiveColor 1 1 1}}'+
  'geometry IndexedLineSet{ coord Coordinate{'+
  'point[0 0 0,0 1 1.414,0 1 -1.414,1.414 -1 0,-1.414 -1 0]}'+
  'coordIndex[0 1 -1 0 2 -1 0 3 -1 0 4]}}'+
  'Shape{ appearance Appearance{ material Material{ diffuseColor .8 .8 1}}'+
  'geometry Sphere{ radius 0.5 }}]}}' + Str );
  }"]
  }