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