packages/appli/bbs/appli/Slicer.bbs

   1 description "A 3D image slicer"
   2 author "jpr@creatis.insa-lyon.fr"
   3 category "application"
   4
   5 load vtk
   6 include wxvtk
   7 load std
   8 load itk
   9 include vtk
  10 include wx
  11 load itkvtk
  12
  13 //include wxvtk/boxes/bbSimpleSlicer
  14 //include wx/boxes/LayoutX4
  15
  16 new LayoutX4 main
  17 new LayoutLine upright
  18 new LayoutLine upleft
  19 new LayoutLine downleft
  20
  21 connect upright.Widget main.Widget1
  22 connect upleft.Widget main.Widget2
  23 connect downleft.Widget main.Widget3
  24
  25 load creaImageIO
  26 new Gimmick reader
  27
  28
  29 //For 3D Viewer
  30
  31 new ImagePlanes planes
  32    connect reader.Out planes.In
  33
  34 new Viewer3D viewer
  35    connect planes.PlaneX viewer.Obs1
  36    connect planes.PlaneY viewer.Obs2
  37    connect planes.PlaneZ viewer.Obs3
  38
  39    connect viewer.Widget main.Widget4
  40
  41
  42 // For X axis
  43 // ----------
  44 new Viewer2D viewerUL
  45   set viewerUL.BoxProcessMode Always
  46   connect planes.ImageX viewerUL.In
  47    # contains only one slice
  48   set viewerUL.Slice 0
  49   connect viewerUL.Widget upleft.Widget1
  50
  51 //  print "planes.BoxChange $planes.BoxChange"
  52 //  print "viewer.BoxChange $viewer.BoxChange"
  53
  54  connect planes.BoxChange viewerUL.BoxExecute
  55
  56 print "===============planes.ImageX $planes.ImageX"
  57
  58 // For Y axis
  59 // ----------
  60 new Viewer2D viewerUR
  61   set viewerUR.BoxProcessMode Always
  62   connect planes.ImageY viewerUR.In
  63   connect viewerUR.Widget upright.Widget1
  64  # contains only one  slice
  65   set viewerUR.Slice 0
  66  connect planes.BoxChange viewerUR.BoxExecute
  67
  68  print "===============planes.ImageY $planes.ImageY"
  69
  70 // For Z axis
  71 // ----------
  72 new Viewer2D viewerDL
  73   set viewerDL.BoxProcessMode Always
  74   connect planes.ImageZ viewerDL.In
  75   connect viewerDL.Widget downleft.Widget1
  76  # contains only one  slice
  77   set viewerDL.Slice 0
  78   connect planes.BoxChange viewerDL.BoxExecute
  79
  80  print "===============planes.ImageZ $planes.ImageZ"
  81
  82 set main.WinTitle "Slicer"
  83
  84 exec main
  85