1 description " 3points -> 1-plane "
2 author "info-dev@creatis.insa-lyon.fr"
5 include vtk/boxes/bbLoadHola
14 new FileSelector openFileDialog
15 set openFileDialog.Wildcard "(*.mhd)|*.mhd"
16 new MetaImageReader reader
17 connect openFileDialog.Out reader.In
19 new ImagePlanes planes
20 connect reader.Out planes.In
24 #connect planes.PlaneX viewer.Obs1
25 #connect planes.PlaneY viewer.Obs2
26 #connect planes.PlaneZ viewer.Obs3
27 #connect planes.Plane3Pts viewer.Obs4
28 #set viewer.WinTitle "Show N Points"
29 #set viewer.WinWidth 350
30 #set viewer.WinHeight 400
32 new TransferFunctionView transferfunc
33 connect reader.Out transferfunc.In
36 set viewernv.nTypeView "6 1 2 0"
37 #set viewernv.nTypeView "6"
38 connect reader.Out viewernv.In
39 connect transferfunc.ColorFunction viewernv.ColorFunction
40 connect transferfunc.WindowLevel viewernv.WindowLevel
41 connect transferfunc.ColorLevel viewernv.ColorLevel
43 new ShowNPoints showpoints
44 connect reader.Out showpoints.Image
45 connect showpoints.lstPointsX planes.PointsX
46 connect showpoints.lstPointsY planes.PointsY
47 connect showpoints.lstPointsZ planes.PointsZ
48 #set planes.PointsX "10 10 50"
49 #set planes.PointsY "10 50 20"
50 #set planes.PointsZ "10 10 30"
51 connect viewernv.BoxChange showpoints.BoxExecute
52 connect viewernv.Point showpoints.In
53 connect viewernv.Renderer1 showpoints.Renderer
54 set showpoints.Radio 1
56 new ImageActor imgactor
57 connect planes.Image3Pts imgactor.In
58 connect viewernv.Renderer1 imgactor.Renderer
59 connect planes.Transform3Pts imgactor.Transform
62 new CommandButton execplanes
63 set execplanes.Label "Refresh planes"
64 connect execplanes.BoxChange planes.BoxExecute
65 connect execplanes.BoxChange view2d.BoxExecute
66 connect execplanes.BoxChange imgactor.BoxExecute
67 #connect execplanes.BoxChange viewer.BoxExecute
69 new LayoutLine layoutline0
70 connect showpoints.Widget layoutline0.Widget1
71 connect execplanes.Widget layoutline0.Widget2
72 connect transferfunc.Widget layoutline0.Widget3
74 new LayoutLine layoutline1
75 connect viewernv.Widget layoutline1.Widget1
77 new LayoutSplit mainSplit
78 set mainSplit.Orientation H
79 set mainSplit.Proportion 10
80 connect layoutline0.Widget mainSplit.Widget1
81 connect layoutline1.Widget mainSplit.Widget2
85 connect planes.Image3Pts view2d.In