packages/demo/bbs/appli/demoViewing3Try.bbs

   1 description "3 slicers and a 3D view"
   2 author "jpr@creatis.insa-lyon.fr"
   3 category "demo"
   4
   5 // To show how easy it is to add smthing
   6 // =====================================
   7
   8 load vtk
   9 include wxvtk
  10 load std
  11 load itk
  12 include vtk
  13 include wx
  14 load itkvtk
  15
  16
  17 new LayoutX4 main
  18 new LayoutLine upright
  19 new LayoutLine upleft
  20 new LayoutLine downleft
  21
  22 connect upright.Widget  main.Widget1
  23 connect upleft.Widget   main.Widget2
  24 connect downleft.Widget main.Widget3
  25
  26 # Here loads hola.mhd
  27 # -------------------
  28 #include vtk/boxes/bbLoadHola
  29 #new LoadHola reader
  30
  31 # uncomment next lines to have a file selector
  32 # --------------------------------------------
  33 #new FileSelector openFileDialog
  34 #new ImageReader reader
  35 #    connect openFileDialog.Out reader.In
  36
  37 # uncomment next lines to use Gimmick
  38 # -----------------------------------
  39 #load creaImageIO
  40 #new Gimmick reader
  41
  42 # uncomment next lines to Read a MHD file (and nothing else !)
  43 # ------------------------------------------------------------
  44 #new FileSelector openFileDialog
  45 #new MetaImageReader reader
  46 #   connect openFileDialog.Out reader.In
  47
  48 # uncomment the following lines to read a 3D images stack
  49 # -------------------------------------------------------
  50 // To choose the directory
  51 #new DirectorySelector ds
  52 // To get the image names into a vector
  53 #new FilesFromDirectory fd
  54 // To read all the files, as a bbitk::ImagePointer
  55 #new ImageSeriesReader reader
  56 connect ds.Out fd.In
  57 set fd.Recursive false
  58 print "Files found in $ds.Out$\n"
  59 print "-Not recursive----------------------------"
  60 //print " : $fd.Out$\n"
  61
  62 set reader.XSpacing 23.4
  63 set reader.YSpacing 23.4
  64 set reader.ZSpacing 35
  65
  66 connect fd.Out  reader.FileNames
  67
  68 //print "Image properties : $reader.Out"
  69
  70
  71 //For 3D Viewer
  72
  73 new ImagePlanes planes
  74    connect reader.Out planes.In
  75
  76 new Viewer3D viewer
  77    connect planes.PlaneX viewer.Obs1
  78    connect planes.PlaneY viewer.Obs2
  79    connect planes.PlaneZ viewer.Obs3
  80
  81    connect viewer.Widget main.Widget4
  82
  83 // For X axis
  84 // ----------
  85 new Viewer2D viewerUL
  86   set viewerUL.BoxProcessMode Always
  87   connect planes.ImageX viewerUL.In
  88    # contains only one slice
  89   set viewerUL.Slice 0
  90   connect viewerUL.Widget upleft.Widget1
  91
  92  connect planes.BoxChange viewerUL.BoxExecute
  93
  94 print "===============planes.ImageX $planes.ImageX"
  95
  96 // For Y axis
  97 // ----------
  98 new Viewer2D viewerUR
  99   set viewerUR.BoxProcessMode Always
 100   connect planes.ImageY viewerUR.In
 101   connect viewerUR.Widget upright.Widget1
 102  # contains only one  slice
 103   set viewerUR.Slice 0
 104  connect planes.BoxChange viewerUR.BoxExecute
 105
 106  print "===============planes.ImageY $planes.ImageY"
 107
 108 // For Z axis
 109 // ----------
 110 new Viewer2D viewerDL
 111   set viewerDL.BoxProcessMode Always
 112   connect planes.ImageZ viewerDL.In
 113   connect viewerDL.Widget downleft.Widget1
 114  # contains only one  slice
 115   set viewerDL.Slice 0
 116   connect planes.BoxChange viewerDL.BoxExecute
 117
 118  print "===============planes.ImageZ $planes.ImageZ"
 119
 120 set main.WinTitle "demoViewing3"
 121 exec main
 122