Synchro display

diff --git a/packages/wxvtk/bbs/appli/exampleSynchro2ImagesSlicer.bbs b/packages/wxvtk/bbs/appli/exampleSynchro2ImagesSlicer.bbs
new file mode 100644 (file)
index 0000000..515ddf4
--- /dev/null
+++ b/packages/wxvtk/bbs/appli/exampleSynchro2ImagesSlicer.bbs
@@ -0,0 +1,64 @@
+\r
+description "elementary 3D image slicer"\r
+author "maciej.orkisz at creatis.Insa-lyon.fr"\r
+category  "tool image viewer"\r
+\r
+include std\r
+include vtk\r
+include wx\r
+include itk\r
+include wxvtk\r
+include itkvtk\r
+\r
+load creaImageIO\r
+\r
+//new FileSelector fileDialog1\r
+//new ImageReader reader1\r
+load creaImageIO\r
+new ImagesChooserDialogBox chooser1\r
+new ConcatImages reader1\r
+   connect chooser1.Out reader1.In\r
+\r
+//new FileSelector fileDialog2\r
+//new ImageReader reader2\r
+\r
+\r
+new Viewer2D     viewer1\r
+new Viewer2D     viewer2\r
+new Slider       slider\r
+new LayoutSplit layout \r
+new LayoutLine layout_line\r
+new ImageProperties imProperties\r
+new GetVectorIntElement imSize\r
+new Add add\r
+\r
+connect fileDialog1.Out   reader1.In \r
+connect reader1.Out       viewer1.In\r
+connect slider.Out       viewer1.Slice\r
+connect slider.BoxChange viewer1.BoxExecute\r
+connect fileDialog2.Out   reader2.In \r
+connect reader2.Out       viewer2.In\r
+connect slider.Out       viewer2.Slice\r
+connect slider.BoxChange viewer2.BoxExecute\r
+connect slider.Widget layout.Widget1\r
+connect layout_line.Widget layout.Widget2\r
+connect viewer1.Widget layout_line.Widget1\r
+connect viewer2.Widget layout_line.Widget2\r
+connect reader1.Out imProperties.In\r
+connect imProperties.Size imSize.In\r
+connect imSize.Out add.In2\r
+connect add.Out slider.Max\r
+\r
+set fileDialog1.Message "Select the first (left) MHD image file"\r
+set fileDialog2.Message "Select the second (right) MHD image file"\r
+set slider.Title "Slice number"\r
+set slider.ReactiveOnTrack 1\r
+set layout.Proportion 10\r
+set layout_line.Orientation H\r
+\r
+set fileDialog1.DefaultDir "."\r
+set fileDialog2.DefaultDir "."\r
+set imSize.I 2\r
+set add.In1 -1\r
+\r
+exec layout
\ No newline at end of file