]> Creatis software - bbtk.git/blob - packages/appli/bbs/appli/Slicer.bbs
no message
[bbtk.git] / packages / appli / bbs / appli / Slicer.bbs
1 description "A 3D image slicer"
2 author "jpr@creatis.insa-lyon.fr"
3 category "application"
4
5 load vtk
6 include wxvtk
7 load std
8 load itk
9 include vtk
10 include wx
11 load itkvtk
12
13 //include wxvtk/boxes/bbSimpleSlicer
14 //include wx/boxes/LayoutX4
15
16 new LayoutX4 main
17 new LayoutLine upright
18 new LayoutLine upleft
19 new LayoutLine downleft
20
21 connect upright.Widget main.Widget1
22 connect upleft.Widget main.Widget2
23 connect downleft.Widget main.Widget3
24
25 load creaImageIO 
26 new Gimmick reader
27
28
29 //For 3D Viewer
30
31 new ImagePlanes planes
32    connect reader.Out planes.In
33    
34 new Viewer3D viewer
35    connect planes.PlaneX viewer.Obs1
36    connect planes.PlaneY viewer.Obs2
37    connect planes.PlaneZ viewer.Obs3
38
39    connect viewer.Widget main.Widget4
40      
41   
42 // For X axis
43 // ----------
44 new Viewer2D viewerUL
45   set viewerUL.BoxProcessMode Always
46   connect planes.ImageX viewerUL.In
47    # contains only one slice
48   set viewerUL.Slice 0
49   connect viewerUL.Widget upleft.Widget1
50
51 //  print "planes.BoxChange $planes.BoxChange"
52 //  print "viewer.BoxChange $viewer.BoxChange"
53   
54  connect planes.BoxChange viewerUL.BoxExecute
55
56 print "===============planes.ImageX $planes.ImageX"
57
58 // For Y axis
59 // ----------
60 new Viewer2D viewerUR
61   set viewerUR.BoxProcessMode Always
62   connect planes.ImageY viewerUR.In
63   connect viewerUR.Widget upright.Widget1
64  # contains only one  slice
65   set viewerUR.Slice 0
66  connect planes.BoxChange viewerUR.BoxExecute 
67
68  print "===============planes.ImageY $planes.ImageY"  
69    
70 // For Z axis
71 // ----------
72 new Viewer2D viewerDL
73   set viewerDL.BoxProcessMode Always
74   connect planes.ImageZ viewerDL.In
75   connect viewerDL.Widget downleft.Widget1
76  # contains only one  slice
77   set viewerDL.Slice 0
78   connect planes.BoxChange viewerDL.BoxExecute 
79
80  print "===============planes.ImageZ $planes.ImageZ" 
81           
82 set main.WinTitle "Slicer"
83
84 exec main
85