-include vtk/boxes/bbLoadHola
-load vtk
-load wxvtk
-load creaMaracasVisu
-load std
-load wx
-
-//new LoadHola image
-
-new FileSelector openFileDialog
- set openFileDialog.Wildcard "(*.mhd)|*.mhd"
-new MetaImageReader image
- connect openFileDialog.Out image.In
-
-new ImagePlanes planes
-connect image.Out planes.In
-
-#new Viewer3D viewer
-
-#connect planes.PlaneX viewer.Obs1
-#connect planes.PlaneY viewer.Obs2
-#connect planes.PlaneZ viewer.Obs3
-#connect planes.Plane3Pts viewer.Obs4
-#set viewer.WinTitle "Show N Points"
-#set viewer.WinWidth 350
-#set viewer.WinHeight 400
-
-new TransferFunctionView transferfunc
- connect image.Out transferfunc.In
-
-new ViewerNV viewernv
- set viewernv.nTypeView "6 1 2 0"
- #set viewernv.nTypeView "6"
- connect image.Out viewernv.In
- connect transferfunc.ColorFunction viewernv.ColorFunction
- connect transferfunc.WindowLevel viewernv.WindowLevel
- connect transferfunc.ColorLevel viewernv.ColorLevel
-
-
-new ShowNPoints showpoints
- connect image.Out showpoints.Image
- connect showpoints.lstPointsX planes.PointsX
- connect showpoints.lstPointsY planes.PointsY
- connect showpoints.lstPointsZ planes.PointsZ
- #set planes.PointsX "10 10 50"
- #set planes.PointsY "10 50 20"
- #set planes.PointsZ "10 10 30"
- connect viewernv.BoxChange showpoints.BoxExecute
- connect viewernv.Point showpoints.In
- connect viewernv.Renderer1 showpoints.Renderer
- set showpoints.Radio 1
-
-new ImageActor imgactor
- connect planes.Image3Pts imgactor.In
- connect viewernv.Renderer1 imgactor.Renderer
- connect planes.Transform3Pts imgactor.Transform
-
-new Viewer2D view2d
-new CommandButton execplanes
- set execplanes.Label "Refresh planes"
- connect execplanes.BoxChange planes.BoxExecute
- connect execplanes.BoxChange view2d.BoxExecute
- connect execplanes.BoxChange imgactor.BoxExecute
- #connect execplanes.BoxChange viewer.BoxExecute
-
-new LayoutLine layoutline0
+new wx:FileSelector openFileDialog
+ set openFileDialog.Wildcard "(*.mhd)|*.mhd"
+
+new vtk:MetaImageReader reader
+
+new vtk:ImagePlanes planes
+
+new creaMaracasVisu:TransferFunctionView transferfunc
+
+new creaMaracasVisu:ViewerNV viewernv
+ set viewernv.nTypeView "6 1 2 0"
+
+new creaMaracasVisu:ShowNPoints showpoints
+ set showpoints.Radio "1"
+
+new creaMaracasVisu:ImageActor imgactor
+
+new wxvtk:Viewer2D view2d
+
+new wx:CommandButton execplanes
+ set execplanes.Label "Refresh planes"
+
+new wx:LayoutLine layoutline0
+
+new wx:LayoutLine layoutline1
+
+new wx:LayoutSplit mainSplit
+ set mainSplit.Orientation "H"
+ set mainSplit.Proportion "10"
+
+new vtk:LoadHola Box12
+
+new vtk:vtkImageDataPointerRelay Box13
+
+
+connect openFileDialog.Out reader.In
+
+connect transferfunc.ColorFunction viewernv.ColorFunction
+
+connect transferfunc.WindowLevel viewernv.WindowLevel
+
+connect transferfunc.ColorLevel viewernv.ColorLevel
+
+connect showpoints.lstPointsX planes.PointsX
+
+connect showpoints.lstPointsY planes.PointsY
+
+connect showpoints.lstPointsZ planes.PointsZ
+
+connect viewernv.BoxChange showpoints.BoxExecute
+
+connect viewernv.Point showpoints.In
+
+connect viewernv.Renderer1 showpoints.Renderer
+
+connect planes.Image3Pts imgactor.In
+
+connect viewernv.Renderer1 imgactor.Renderer
+
+connect planes.Transform3Pts imgactor.Transform
+
+connect execplanes.BoxChange planes.BoxExecute
+
+connect execplanes.BoxChange view2d.BoxExecute
+
+connect execplanes.BoxChange imgactor.BoxExecute
+