]> Creatis software - bbtk.git/blob - packages/wxvtk/bbs/appli/exampleSynchro2ImagesSlicerMHD.bbs
f6f91f74a8a0add535269078c8250eec766e61a2
[bbtk.git] / packages / wxvtk / bbs / appli / exampleSynchro2ImagesSlicerMHD.bbs
1 # my_MHD_slicer.bbs\r
2  \r
3 description "elementary 3D image slicer"\r
4 author "maciej.orkisz at creatis.Insa-lyon.fr"\r
5 #category "example"\r
6 category  "application image viewer"\r
7 #category "image"\r
8 #category "viewer"\r
9 \r
10 include std\r
11 include vtk\r
12 include wx\r
13 include itk\r
14 include wxvtk\r
15 include itkvtk\r
16 \r
17 new FileSelector fileDialog1\r
18 new MetaImageReader reader1\r
19 new FileSelector fileDialog2\r
20 new MetaImageReader reader2\r
21 new Viewer2D     viewer1\r
22 new Viewer2D     viewer2\r
23 new Slider       slider\r
24 new LayoutSplit layout \r
25 new LayoutLine layout_line\r
26 new ImageProperties imProperties\r
27 new GetVectorIntElement imSize\r
28 new Add add\r
29 \r
30 connect fileDialog1.Out   reader1.In \r
31 connect reader1.Out       viewer1.In\r
32 connect slider.Out       viewer1.Slice\r
33 connect slider.BoxChange viewer1.BoxExecute\r
34 connect fileDialog2.Out   reader2.In \r
35 connect reader2.Out       viewer2.In\r
36 connect slider.Out       viewer2.Slice\r
37 connect slider.BoxChange viewer2.BoxExecute\r
38 connect slider.Widget layout.Widget1\r
39 connect layout_line.Widget layout.Widget2\r
40 connect viewer1.Widget layout_line.Widget1\r
41 connect viewer2.Widget layout_line.Widget2\r
42 connect reader1.Out imProperties.In\r
43 connect imProperties.Size imSize.In\r
44 connect imSize.Out add.In2\r
45 connect add.Out slider.Max\r
46 \r
47 set fileDialog1.Message "Select the first (left) MHD image file"\r
48 set fileDialog2.Message "Select the second (right) MHD image file"\r
49 set slider.Title "Slice number"\r
50 set slider.ReactiveOnTrack 1\r
51 set layout.Proportion 10\r
52 set layout_line.Orientation H\r
53 \r
54 set fileDialog1.DefaultDir "D:\Images_MAZ"\r
55 set fileDialog2.DefaultDir "D:\Images_MAZ"\r
56 set imSize.I 2\r
57 set add.In1 -1\r
58 \r
59 exec layout