PRO WRITE_VRML, oView
    vobj = OBJ_NEW('IDLgrVRML', $
	  filename='/usr1/scv/ebrisson/surftrack1.wrl',$
          graphics_tree=oView)
    vobj->Draw
END