packages/demo/bbs/appli/demoPlane3Pts.bbs

   1 description " How to choose points in a 3D image "
   2 author "davila at creatis.insa-lyon.fr"
   3 category "demo"
   4
   5 // See also examplePlane3Pts.bbs
   6 // To know how to read more images.
   7
   8 include vtk/boxes/bbLoadHola
   9 load vtk
  10 load wxvtk
  11 load creaMaracasVisu
  12 load std
  13 load wx
  14
  15 new LoadHola reader
  16
  17 new ImagePlanes planes
  18 connect reader.Out planes.In
  19
  20 new ViewerNV viewernv
  21         #set viewernv.nTypeView "6 1 2 0"
  22         set viewernv.nTypeView "6"
  23         connect reader.Out viewernv.In
  24
  25 new ShowNPoints showpoints
  26         connect reader.Out showpoints.Image
  27         connect showpoints.lstPointsX planes.PointsX
  28         connect showpoints.lstPointsY planes.PointsY
  29         connect showpoints.lstPointsZ planes.PointsZ
  30         connect viewernv.BoxChange showpoints.BoxExecute
  31         connect viewernv.Point showpoints.In
  32         connect viewernv.Renderer1 showpoints.Renderer
  33         set showpoints.Radio 1
  34
  35 new ImageActor imgactor
  36         connect planes.Image3Pts imgactor.In
  37         connect viewernv.Renderer1 imgactor.Renderer
  38         connect planes.Transform3Pts imgactor.Transform
  39
  40 new Viewer2D view2d
  41 new CommandButton execplanes
  42         set execplanes.Label "Refresh planes"
  43         connect execplanes.BoxChange planes.BoxExecute
  44         connect execplanes.BoxChange view2d.BoxExecute
  45         connect execplanes.BoxChange imgactor.BoxExecute
  46         #connect execplanes.BoxChange viewer.BoxExecute
  47
  48 new LayoutLine layoutline0
  49    connect showpoints.Widget layoutline0.Widget1
  50    connect execplanes.Widget layoutline0.Widget2
  51
  52 new LayoutLine layoutline1
  53    connect viewernv.Widget layoutline1.Widget1
  54
  55 new LayoutSplit mainSplit
  56    set mainSplit.WinWidth 1500
  57    set mainSplit.Orientation H
  58    set mainSplit.Proportion 15
  59    connect layoutline0.Widget mainSplit.Widget1
  60    connect layoutline1.Widget mainSplit.Widget2
  61
  62 exec mainSplit
  63
  64 connect planes.Image3Pts view2d.In