packages/demo/bbs/appli/examplePlane3Pts.bbs

   1 description " How to choose points in a 3D image "
   2 author "davila at creatis.insa-lyon.fr"
   3 category "example"
   4
   5 load vtk
   6 load wxvtk
   7 load creaMaracasVisu
   8 load std
   9 load wx
  10 load creaImageIO
  11
  12 # Use new box (choose the way you want to select images)
  13 # -----------------------------------------------------
  14 new ImagesChooserDialogBox chooser
  15
  16 # Concatenate all the supposed-to-be consistent 2D images into a single vtkImageData
  17 # WARNING : File names alphabetical order is suposed to be meaningful ...
  18
  19 new ConcatImages reader
  20    connect chooser.Out reader.In
  21
  22 new ImagePlanes planes
  23 connect reader.Out planes.In
  24
  25 #new Viewer3D viewer
  26
  27 #connect planes.PlaneX viewer.Obs1
  28 #connect planes.PlaneY viewer.Obs2
  29 #connect planes.PlaneZ viewer.Obs3
  30 #connect planes.Plane3Pts viewer.Obs4
  31 #set viewer.WinTitle "Show N Points"
  32 #set viewer.WinWidth 350
  33 #set viewer.WinHeight 400
  34
  35 new ViewerNV viewernv
  36         #set viewernv.nTypeView "6 1 2 0"
  37         set viewernv.nTypeView "6"
  38         connect reader.Out viewernv.In
  39
  40 new ShowNPoints showpoints
  41         connect reader.Out showpoints.Image
  42         connect showpoints.lstPointsX planes.PointsX
  43         connect showpoints.lstPointsY planes.PointsY
  44         connect showpoints.lstPointsZ planes.PointsZ
  45         #set planes.PointsX "10 10 50"
  46         #set planes.PointsY "10 50 20"
  47         #set planes.PointsZ "10 10 30"
  48         connect viewernv.BoxChange showpoints.BoxExecute
  49         connect viewernv.Point showpoints.In
  50         connect viewernv.Renderer1 showpoints.Renderer
  51         set showpoints.Radio 1
  52
  53 new ImageActor imgactor
  54         connect planes.Image3Pts imgactor.In
  55         connect viewernv.Renderer1 imgactor.Renderer
  56         connect planes.Transform3Pts imgactor.Transform
  57
  58 new Viewer2D view2d
  59 new CommandButton execplanes
  60         set execplanes.Label "Refresh planes"
  61         connect execplanes.BoxChange planes.BoxExecute
  62         connect execplanes.BoxChange view2d.BoxExecute
  63         connect execplanes.BoxChange imgactor.BoxExecute
  64         #connect execplanes.BoxChange viewer.BoxExecute
  65
  66 new LayoutLine layoutline0
  67 connect showpoints.Widget layoutline0.Widget1
  68 connect execplanes.Widget layoutline0.Widget2
  69
  70 new LayoutLine layoutline1
  71 connect viewernv.Widget layoutline1.Widget1
  72
  73 new LayoutSplit mainSplit
  74 set mainSplit.Orientation H
  75 set mainSplit.Proportion 30
  76 connect layoutline0.Widget mainSplit.Widget1
  77 connect layoutline1.Widget mainSplit.Widget2
  78
  79 exec mainSplit
  80
  81 connect planes.Image3Pts view2d.In