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