bbtk/bbs/appli/ExamplePlaneNPoints.bbs

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