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 new ShowNPoints showpoints
  44         connect image.Out showpoints.Image
  45         connect showpoints.lstPointsX planes.PointsX
  46         connect showpoints.lstPointsY planes.PointsY
  47         connect showpoints.lstPointsZ planes.PointsZ
  48         #set planes.PointsX "10 10 50"
  49         #set planes.PointsY "10 50 20"
  50         #set planes.PointsZ "10 10 30"
  51         connect viewernv.BoxChange showpoints.BoxExecute
  52         connect viewernv.Point showpoints.In
  53         connect viewernv.Renderer1 showpoints.Renderer
  54         set showpoints.Radio 1
  55
  56 new ImageActor imgactor
  57         connect planes.Image3Pts imgactor.In
  58         connect viewernv.Renderer1 imgactor.Renderer
  59         connect planes.Transform3Pts imgactor.Transform
  60
  61 new Viewer2D view2d
  62 new CommandButton execplanes
  63         set execplanes.Label "Refresh planes"
  64         connect execplanes.BoxChange planes.BoxExecute
  65         connect execplanes.BoxChange view2d.BoxExecute
  66         connect execplanes.BoxChange imgactor.BoxExecute
  67         #connect execplanes.BoxChange viewer.BoxExecute
  68
  69 new LayoutLine layoutline0
  70 connect showpoints.Widget layoutline0.Widget1
  71 connect execplanes.Widget layoutline0.Widget2
  72 connect transferfunc.Widget layoutline0.Widget3
  73
  74 new LayoutLine layoutline1
  75 connect viewernv.Widget layoutline1.Widget1
  76
  77 new LayoutSplit mainSplit
  78 set mainSplit.Orientation H
  79 set mainSplit.Proportion 10
  80 connect layoutline0.Widget mainSplit.Widget1
  81 connect layoutline1.Widget mainSplit.Widget2
  82
  83 exec mainSplit
  84
  85 connect planes.Image3Pts view2d.In