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.Orientation H
  57 set mainSplit.Proportion 30
  58 connect layoutline0.Widget mainSplit.Widget1
  59 connect layoutline1.Widget mainSplit.Widget2
  60
  61 exec mainSplit
  62
  63 connect planes.Image3Pts view2d.In