description "Save a vtkPolyData example"
author "info-dev at creatis.insa-lyon.fr"
category "example mesh"

load wx
load std
load vtk
load wxvtk

include "vtk/boxes/bbLoadHola"
new LoadHola reader

new MarchingCubes mc
  set mc.Value 800
  connect reader.Out mc.In


new FileSelector saveFileName
  set saveFileName.OpenSave Save

new PolyDataWriter pdw
  connect saveFileName.Out pdw.Filename 
  connect mc.Out pdw.In

new PolyDataToActor pdActor
  connect mc.Out pdActor.In

new  Viewer3D viewer
  connect pdActor.Out viewer.In1  

new CommandButton button
  set button.Label "Save vtkPolyData"
  connect button.BoxChange pdw.BoxExecute

new LayoutSplit main
  set main.Proportion 90
  connect viewer.Widget main.Widget1
  connect button.Widget main.Widget2

exec viewer