NavigationInfo{ type "EXAMINE" }
  Viewpoint{ fieldOfView .2 position 0 0 80 description "[100]"}
  Viewpoint{ fieldOfView .2 position 56 0 56 orientation 0 1 0 .785 description "[110]"}
  Viewpoint{ fieldOfView .2 position 46 46 46 orientation -1 1 0 .955 description "[111]"}
  DEF XForm Transform{ children[
   Shape{ appearance Appearance{
     material Material{ emissiveColor 0 0 1 transparency .25}}
    geometry IndexedFaceSet{ solid FALSE coord Coordinate{
     point[5.5 -3 5,-4.5 -3 5,-4.5 -3 -5,5.5 -3 -5]} coordIndex[0 1 2 3]}}
   Shape{ appearance Appearance{
     material Material{ emissiveColor 1 0 0 transparency .25}}
    geometry IndexedFaceSet{ solid FALSE coord Coordinate{
     point[-4 5 5,-4 5 -5,5 -4 -5,5 -4 5]} coordIndex[0 1 2 3]}}
   Shape{ appearance Appearance{
     material Material{ emissiveColor 0 1 0 transparency .25}}
    geometry IndexedFaceSet{ solid FALSE coord Coordinate{
     point[5 5 4,-4 5 -5,5 -4 -5]} coordIndex[0 1 2]}}
  ]}
  Script{
    field SFNode XForm USE XForm
    directOutput TRUE
  url ["javascript:
  function initialize() { 
    var i,j,k, n=4, is=1,js,ks, Str = '';
    for ( i= -n; i<= n; i+=2) {
      js = is;  sj = '';
      for ( j= -n; j<= n; j+=2) {
        ks = js;  sk = '';
        for ( k= -n; k<= n; k+=2) {
          if (ks < 0) sk += 'Ga{ trans '+(i+1)+' '+(j+1)+' '+(k+1)+'}';
          else sk += 'As{ trans '+i+' '+j+' '+k+'}';
          ks = -ks;}
        sj += sk; js = -js;}
      Str += sj; is = -is;}
    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, .5 .5 .5, .5 -.5 -.5, -.5 .5 -.5, -.5 -.5 .5]}'+
  'coordIndex[0 1 -1 0 2 -1 0 3 -1 0 4]}}'+
  'Shape{ appearance Appearance{ material Material{ diffuseColor .9 .9 1 } }'+
  'geometry Sphere{ radius 0.3 }}]}}'+
  '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, -.5 -.5 -.5, -.5 .5 .5, .5 -.5 .5, .5 .5 -.5]}'+
  'coordIndex[0 1 -1 0 2 -1 0 3 -1 0 4]}}'+
  'Shape{ appearance Appearance{ material Material{ diffuseColor 1 1 0 } }'+
  'geometry Sphere{ radius 0.4 }}]}}' + Str );
  }"]
  }