packages/demo/bbs/appli/demoPlane3Pts.bbs

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