Add the ability to use a vtkgdcmReader (and nothing else!)

[bbtk.git] / packages / demo / bbs / appli / demoViewing1.bbs

diff --git a/packages/demo/bbs/appli/demoViewing1.bbs b/packages/demo/bbs/appli/demoViewing1.bbs
index ccfd60fdc816b2ba6cd5bea18108ac1d59d1d53b..8e066e4668a84b388c7f5cb3f6eab3b3000a8918 100644 (file)
--- a/packages/demo/bbs/appli/demoViewing1.bbs
+++ b/packages/demo/bbs/appli/demoViewing1.bbs
@@ -17,13 +17,17 @@ load gdcmvtk
 include wxvtk/boxes/bbSimpleSlicer
 
 new LayoutX4 main
-new LayoutLine upright
-new LayoutLine upleft
-new LayoutLine downleft
 
-connect upright.Widget  main.Widget1
-connect upleft.Widget   main.Widget2
-connect downleft.Widget main.Widget3
+new LayoutLine  upright
+new LayoutLine  upleft
+new LayoutLine  downleft
+new LayoutSplit downright
+   set downright.Proportion 85
+
+connect upright.Widget   main.Widget1
+connect upleft.Widget    main.Widget2
+connect downleft.Widget  main.Widget3
+connect downright.Widget main.Widget4
 
 # Here loads hola.mhd
 # -------------------
@@ -38,6 +42,14 @@ new ImageReader reader
   connect openFileDialog.Out reader.In
 */
 
+# uncomment next lines to use a vtkgdcmReader
+# -------------------------------------
+/*
+new FileSelector openFileDialog
+new GetInfoGdcmReader reader
+  connect openFileDialog.Out reader.In
+*/
+
 # uncomment next lines to use Gimmick
 # -----------------------------------
 /*
@@ -120,7 +132,7 @@ new GetVectorIntElement gveY
 new GetVectorIntElement gveZ
    connect mc.Size gveZ.In
    set gveZ.I 2
-print "Dim Z $ gveZ.Out"
+//print "Dim Z $gveZ.Out"
 
 #Compute the number of the 'middle' slice on X axis
 new Div div0
@@ -186,10 +198,21 @@ new Viewer3D viewer
   connect planes.PlaneY viewer.Obs2
   connect planes.PlaneZ viewer.Obs3
 
-  connect viewer.Widget main.Widget4
+new CheckBox   chkbox
+  set chkbox.Title "Interpolate Pixels (in '2D' images)"
+  set chkbox.In 1
+  connect chkbox.BoxChange   viewerUL.BoxExecute
+  connect chkbox.BoxChange   viewerUR.BoxExecute
+  connect chkbox.BoxChange   viewerTD.BoxExecute
+
+  connect viewer.Widget downright.Widget1
+  connect chkbox.Widget downright.Widget2
+
+  connect chkbox.Out viewerUL.Interpolate
+  connect chkbox.Out viewerUR.Interpolate
+  connect chkbox.Out viewerTD.Interpolate
 
 set main.WinTitle "demoViewing1"
 exec main
 exec viewerTD
 
-