script


                              DEF script Script {
                              directOutput TRUE
                              field SFNode inline USE inline
                              field SFInt32 i 0
                              field MFString urls [ 
                                      "@vr-web3d-logo.wrl" "@vr-web3d-transform.wrl"
                                   "@vr-web3d-x-dlp.wrl"
                                   ]
                              eventIn SFTime touch
                              url "vrmlscript:
                              function touch(value) {
                                  if (i >= urls.length) i = 0;
                                  inline.url = urls[i++]; 
                                  }
                              "
                              }
                          ]}
  
                  ]
                  ROUTE touch.touchTime TO script.touch
  }