-description " 3pionts -> 1-planne "
+description " 3points -> 1-plane "
author "info-dev@creatis.insa-lyon.fr"
category "example"
-
include vtk/boxes/bbLoadHola
load vtk
load wxvtk
load std
load wx
-//new LoadHola image
+//new LoadHola reader
new FileSelector openFileDialog
set openFileDialog.Wildcard "(*.mhd)|*.mhd"
-new MetaImageReader image
- connect openFileDialog.Out image.In
+new MetaImageReader reader
+ connect openFileDialog.Out reader.In
new ImagePlanes planes
-connect image.Out planes.In
+connect reader.Out planes.In
#new Viewer3D viewer
#set viewer.WinHeight 400
new TransferFunctionView transferfunc
- connect image.Out transferfunc.In
+ connect reader.Out transferfunc.In
new ViewerNV viewernv
set viewernv.nTypeView "6 1 2 0"
#set viewernv.nTypeView "6"
- connect image.Out viewernv.In
+ connect reader.Out viewernv.In
connect transferfunc.ColorFunction viewernv.ColorFunction
connect transferfunc.WindowLevel viewernv.WindowLevel
- connect transferfunc.ColorLevel viewernv.ColorLevel
-
+ connect transferfunc.ColorLevel viewernv.ColorLevel
new ShowNPoints showpoints
- connect image.Out showpoints.Image
+ connect reader.Out showpoints.Image
connect showpoints.lstPointsX planes.PointsX
connect showpoints.lstPointsY planes.PointsY
connect showpoints.lstPointsZ planes.PointsZ
connect viewernv.Renderer1 imgactor.Renderer
connect planes.Transform3Pts imgactor.Transform
-
new Viewer2D view2d
new CommandButton execplanes
set execplanes.Label "Refresh planes"
connect execplanes.Widget layoutline0.Widget2
connect transferfunc.Widget layoutline0.Widget3
-
new LayoutLine layoutline1
connect viewernv.Widget layoutline1.Widget1
connect layoutline0.Widget mainSplit.Widget1
connect layoutline1.Widget mainSplit.Widget2
-
exec mainSplit
-
-connect planes.Image3Pts view2d.In
\ No newline at end of file
+connect planes.Image3Pts view2d.In