packages/demo/bbs/appli/demoPlane3Pts.bbs

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