bbtk/bbs/appli/examplePlaneNPoints.bbs

   1 # ----------------------------------
   2 # - BBTKGEditor v 1.4 BBS BlackBox Script
   3 # - /tmpEED/creaTools2/creatools_source/creaMaracasVisu/bbtk/bbs/appli/examplePlaneNPoints.bbs
   4 # ----------------------------------
   5
   6 # BBTK GEditor Script
   7 # ----------------------
   8
   9 include std
  10 include itkvtk
  11 include wx
  12 include vtk
  13 include creaMaracasVisu
  14 include wxvtk
  15
  16 author "info-dev@creatis.insa-lyon.fr"
  17 description " 3points -> 1-plane "
  18 category "example"
  19
  20 new wx:FileSelector openFileDialog
  21   set openFileDialog.Wildcard "(*.mhd)|*.mhd"
  22
  23 new vtk:MetaImageReader reader
  24
  25 new vtk:ImagePlanes planes
  26
  27 new creaMaracasVisu:TransferFunctionView transferfunc
  28
  29 new creaMaracasVisu:ViewerNV viewernv
  30   set viewernv.nTypeView "6 1 2 0"
  31
  32 new creaMaracasVisu:ShowNPoints showpoints
  33   set showpoints.Radio "1"
  34
  35 new creaMaracasVisu:ImageActor imgactor
  36
  37 new wxvtk:Viewer2D view2d
  38
  39 new wx:CommandButton execplanes
  40   set execplanes.Label "Refresh planes"
  41
  42 new wx:LayoutLine layoutline0
  43
  44 new wx:LayoutLine layoutline1
  45
  46 new wx:LayoutSplit mainSplit
  47   set mainSplit.Orientation "H"
  48   set mainSplit.Proportion "10"
  49
  50 new vtk:LoadHola Box12
  51
  52 new vtk:vtkImageDataPointerRelay Box13
  53
  54
  55 connect openFileDialog.Out reader.In
  56
  57 connect transferfunc.ColorFunction viewernv.ColorFunction
  58
  59 connect transferfunc.WindowLevel viewernv.WindowLevel
  60
  61 connect transferfunc.ColorLevel viewernv.ColorLevel
  62
  63 connect showpoints.lstPointsX planes.PointsX
  64
  65 connect showpoints.lstPointsY planes.PointsY
  66
  67 connect showpoints.lstPointsZ planes.PointsZ
  68
  69 connect viewernv.BoxChange showpoints.BoxExecute
  70
  71 connect viewernv.Point showpoints.In
  72
  73 connect viewernv.Renderer1 showpoints.Renderer
  74
  75 connect planes.Image3Pts imgactor.In
  76
  77 connect viewernv.Renderer1 imgactor.Renderer
  78
  79 connect planes.Transform3Pts imgactor.Transform
  80
  81 connect execplanes.BoxChange planes.BoxExecute
  82
  83 connect execplanes.BoxChange view2d.BoxExecute
  84
  85 connect execplanes.BoxChange imgactor.BoxExecute
  86
  87 connect showpoints.Widget layoutline0.Widget1
  88
  89 connect execplanes.Widget layoutline0.Widget2
  90
  91 connect transferfunc.Widget layoutline0.Widget3
  92
  93 connect viewernv.Widget layoutline1.Widget1
  94
  95 connect layoutline0.Widget mainSplit.Widget1
  96
  97 connect layoutline1.Widget mainSplit.Widget2
  98
  99 connect planes.Image3Pts view2d.In
 100
 101 connect Box12.Out Box13.In
 102
 103 connect Box13.Out transferfunc.In
 104
 105 connect Box13.Out planes.In
 106
 107 connect Box13.Out showpoints.Image
 108
 109 connect Box13.Out viewernv.In
 110
 111
 112
 113 # Complex input ports
 114 exec mainSplit