Fix comment/code

[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 4370f423a2d871b54b78749b460d6510b57d4219..d6b4afa79076328535b9fcfcaf9c68609fa039b4 100644 (file)
--- a/packages/demo/bbs/appli/demoViewing1.bbs
+++ b/packages/demo/bbs/appli/demoViewing1.bbs
@@ -3,33 +3,43 @@ author "jpr@creatis.insa-lyon.fr"
 category "demo"
 
 // To show how easy it is to add smthing
+// =====================================
 
-load wxvtk
-include wx
 load vtk
+include wxvtk
 load std
-load itkvtk
 load itk
+include vtk
+include wx
+load itkvtk
+load gdcmvtk
+
 include wxvtk/boxes/bbSimpleSlicer
 
 new LayoutX4 main
-new LayoutLine upright
-new LayoutLine upleft
-new LayoutLine down
 
-connect upright.Widget main.Widget1
-connect upleft.Widget main.Widget2
-connect down.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'
+# ---------------------
 
-# Here loads hola.mhd
 include vtk/boxes/bbLoadHola
 new LoadHola reader
-# uncomment next lines to have a file selector
-#new FileSelector openFileDialog
-#new ImageReader reader
-#    connect openFileDialog.Out reader.In
- 
-   
+
+# Have a look at exampleViewing1.1.bbs
+# If you want to know how to read different images.
+
+// We need that to set Sliders sizes
+
 #Get image dimensions, ...
 new ImageProperties mc
    connect reader.Out mc.In
@@ -38,33 +48,33 @@ new ImageProperties mc
 new GetVectorIntElement gveX
    connect mc.Size gveX.In
    set gveX.I 0
-   
+
 #Get number of rows (Y)
 new GetVectorIntElement gveY
    connect mc.Size gveY.In
    set gveY.I 1
-        
+
 #Get number of planes  (Z)
 new GetVectorIntElement gveZ
    connect mc.Size gveZ.In
    set gveZ.I 2
+//print "Dim Z $gveZ.Out"
 
 #Compute the number of the 'middle' slice on X axis
 new Div div0
   connect   gveX.Out div0.In1
-  set div0.In2 2    
+  set div0.In2 2
 
 #Compute the number of the 'middle' slice on Y axis
 new Div div1
   connect   gveY.Out div1.In1
-  set div1.In2 2  
+  set div1.In2 2
 
 #Compute the number of the 'middle' slice on Z axis
 new Div div2
   connect   gveZ.Out div2.In1
-  set div2.In2 2 
-  
-  
+  set div2.In2 2
+
 // For X axis
 new SimpleSlicer viewerUL
   connect reader.Out viewerUL.In
@@ -76,8 +86,7 @@ new SimpleSlicer viewerUL
   set viewerUL.SliderReactiveOnTrack 1
   set viewerUL.Orientation 0
   set viewerUL.SliderOrientation H
-  set viewerUL.SliderTitle "Planes YZ"  
-
+  set viewerUL.SliderTitle "Planes YZ"
 
 // For Y axis
 new SimpleSlicer viewerUR
@@ -90,12 +99,12 @@ new SimpleSlicer viewerUR
   set viewerUR.SliderReactiveOnTrack 1
   set viewerUR.SliderOrientation H
   set viewerUR.Orientation 1
-  set viewerUR.SliderTitle "Planes XZ" 
-  
+  set viewerUR.SliderTitle "Planes XZ"
+
 // For Z axis
 new SimpleSlicer viewerTD
   connect reader.Out viewerTD.In
-  connect viewerTD.Widget down.Widget1
+  connect viewerTD.Widget downleft.Widget1
   #initial slice is the middle one
   connect div2.Out viewerTD.Slice
   #Slider size is the number of planes
@@ -108,17 +117,27 @@ new SimpleSlicer viewerTD
 //For 3D Viewer
 
 new ImagePlanes planes
-   connect reader.Out planes.In
-   
+  connect reader.Out planes.In
+
 new Viewer3D viewer
-   connect planes.PlaneX viewer.Obs1
-   connect planes.PlaneY viewer.Obs2
-   connect planes.PlaneZ viewer.Obs3
+  connect planes.PlaneX viewer.Obs1
+  connect planes.PlaneY viewer.Obs2
+  connect planes.PlaneZ viewer.Obs3
+
+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
 
-   connect viewer.Widget main.Widget4
-       
 set main.WinTitle "demoViewing1"
 exec main
 exec viewerTD
-
-