bbtk/bbs/appli/examplePlaneNPoints.bbs

   1 description " 3points -> 1-plane "
   2 author "info-dev@creatis.insa-lyon.fr"
   3 category "example"
   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 TransferFunctionView transferfunc
  33         connect image.Out transferfunc.In
  34
  35 new ViewerNV viewernv
  36         set viewernv.nTypeView "6 1 2 0"
  37         #set viewernv.nTypeView "6"
  38         connect image.Out viewernv.In
  39         connect transferfunc.ColorFunction viewernv.ColorFunction
  40         connect transferfunc.WindowLevel viewernv.WindowLevel
  41         connect transferfunc.ColorLevel viewernv.ColorLevel
  42
  43
  44 new ShowNPoints showpoints
  45         connect image.Out showpoints.Image
  46         connect showpoints.lstPointsX planes.PointsX
  47         connect showpoints.lstPointsY planes.PointsY
  48         connect showpoints.lstPointsZ planes.PointsZ
  49         #set planes.PointsX "10 10 50"
  50         #set planes.PointsY "10 50 20"
  51         #set planes.PointsZ "10 10 30"
  52         connect viewernv.BoxChange showpoints.BoxExecute
  53         connect viewernv.Point showpoints.In
  54         connect viewernv.Renderer1 showpoints.Renderer
  55         set showpoints.Radio 1
  56
  57 new ImageActor imgactor
  58         connect planes.Image3Pts imgactor.In
  59         connect viewernv.Renderer1 imgactor.Renderer
  60         connect planes.Transform3Pts imgactor.Transform
  61
  62 new Viewer2D view2d
  63 new CommandButton execplanes
  64         set execplanes.Label "Refresh planes"
  65         connect execplanes.BoxChange planes.BoxExecute
  66         connect execplanes.BoxChange view2d.BoxExecute
  67         connect execplanes.BoxChange imgactor.BoxExecute
  68         #connect execplanes.BoxChange viewer.BoxExecute
  69
  70 new LayoutLine layoutline0
  71 connect showpoints.Widget layoutline0.Widget1
  72 connect execplanes.Widget layoutline0.Widget2
  73 connect transferfunc.Widget layoutline0.Widget3
  74
  75 new LayoutLine layoutline1
  76 connect viewernv.Widget layoutline1.Widget1
  77
  78 new LayoutSplit mainSplit
  79 set mainSplit.Orientation H
  80 set mainSplit.Proportion 10
  81 connect layoutline0.Widget mainSplit.Widget1
  82 connect layoutline1.Widget mainSplit.Widget2
  83
  84 exec mainSplit
  85
  86 connect planes.Image3Pts view2d.In