packages/demo/bbs/appli/demoPlane3Pts.bbs

   1 description " ? ? ? "
   2 author "davila at creatis.insa-lyon.fr"
   3 category "demo"
   4
   5 // See also examplePlane3Pts.bbs
   6
   7 include vtk/boxes/bbLoadHola
   8 load vtk
   9 load wxvtk
  10 load creaMaracasVisu
  11 load std
  12 load wx
  13
  14 new LoadHola image
  15
  16 /*
  17 new FileSelector openFileDialog
  18   set openFileDialog.Wildcard  "(*.mhd)|*.mhd"
  19 new MetaImageReader image
  20    connect openFileDialog.Out image.In
  21 */
  22
  23 new ImagePlanes planes
  24 connect image.Out planes.In
  25
  26 #new Viewer3D viewer
  27
  28 #connect planes.PlaneX viewer.Obs1
  29 #connect planes.PlaneY viewer.Obs2
  30 #connect planes.PlaneZ viewer.Obs3
  31 #connect planes.Plane3Pts viewer.Obs4
  32 #set viewer.WinTitle "Show N Points"
  33 #set viewer.WinWidth 350
  34 #set viewer.WinHeight 400
  35
  36 new ViewerNV viewernv
  37         #set viewernv.nTypeView "6 1 2 0"
  38         set viewernv.nTypeView "6"
  39         connect image.Out viewernv.In
  40
  41 new ShowNPoints showpoints
  42         connect image.Out showpoints.Image
  43         connect showpoints.lstPointsX planes.PointsX
  44         connect showpoints.lstPointsY planes.PointsY
  45         connect showpoints.lstPointsZ planes.PointsZ
  46         #set planes.PointsX "10 10 50"
  47         #set planes.PointsY "10 50 20"
  48         #set planes.PointsZ "10 10 30"
  49         connect viewernv.BoxChange showpoints.BoxExecute
  50         connect viewernv.Point showpoints.In
  51         connect viewernv.Renderer1 showpoints.Renderer
  52         set showpoints.Radio 1
  53
  54 new ImageActor imgactor
  55         connect planes.Image3Pts imgactor.In
  56         connect viewernv.Renderer1 imgactor.Renderer
  57         connect planes.Transform3Pts imgactor.Transform
  58
  59 new Viewer2D view2d
  60 new CommandButton execplanes
  61         set execplanes.Label "Refresh planes"
  62         connect execplanes.BoxChange planes.BoxExecute
  63         connect execplanes.BoxChange view2d.BoxExecute
  64         connect execplanes.BoxChange imgactor.BoxExecute
  65         #connect execplanes.BoxChange viewer.BoxExecute
  66
  67 new LayoutLine layoutline0
  68 connect showpoints.Widget layoutline0.Widget1
  69 connect execplanes.Widget layoutline0.Widget2
  70
  71 new LayoutLine layoutline1
  72 connect viewernv.Widget layoutline1.Widget1
  73
  74 new LayoutSplit mainSplit
  75 set mainSplit.Orientation H
  76 set mainSplit.Proportion 30
  77 connect layoutline0.Widget mainSplit.Widget1
  78 connect layoutline1.Widget mainSplit.Widget2
  79
  80 exec mainSplit
  81
  82 connect planes.Image3Pts view2d.In