bbtk/bbs/boxes/Measure3DLength_Widget.bbs

   1 # ----------------------------------
   2 # - BBTKGEditor v 1.4 BBS BlackBox Script (Complex Box)
   3 # - /home/davila/Creatis/creaTools/creatools_source/creaMaracasVisu/bbtk/bbs/boxes/Measure3DLength_Widget.bbs
   4 # ----------------------------------
   5
   6 include std
   7 include itkvtk
   8 include vtk
   9 include std
  10 include creaMaracasVisu
  11 include wx
  12
  13 define Measure3DLength_Widget creaMaracasVisu
  14
  15 author "Ricardo A Corredor"
  16 description "Evaluates the sum of the Euclidean distances among the points in the list following their order. Put some points in the image using the Points Widget and the click on Evaluate Length button. "
  17
  18 category "example"
  19
  20 new vtkImageDataPointerRelay Box17
  21
  22 new MagicBox Box24
  23
  24 new ShowNPoints Box31
  25
  26 new LayoutSplit Box32
  27   set Box32.Proportion "10"
  28
  29 new LayoutTab Box33
  30
  31 new OutputText Box34
  32
  33 new LayoutLine Box35
  34
  35 new DrawAxe3D Box36
  36
  37 new ImageVtkProperties Box38
  38
  39 new Transform Box39
  40
  41 new UpdateRender Box41
  42   set Box41.Active "true"
  43
  44 new MeasureLength Box42
  45
  46 new PointsXYZtoVTKPoints Box43
  47
  48
  49 connect Box17.Out Box31.Image
  50 connect Box34.Widget Box35.Widget1
  51 connect Box35.Widget Box32.Widget1
  52 connect Box31.Widget Box32.Widget2
  53 connect Box32.Widget Box33.Widget1
  54 connect Box24.Out Box31.Renderer
  55 connect Box31.lstPointsY Box36.lstPointY
  56 connect Box31.lstPointsX Box36.lstPointX
  57 connect Box24.Out Box36.Renderer
  58 connect Box31.lstPointsZ Box36.lstPointZ
  59 connect Box17.Out Box38.In
  60 connect Box39.Out Box36.Transform
  61 connect Box38.Spacing Box39.Scale
  62 connect Box24.Out Box41.Renderer
  63 connect Box31.BoxChange Box41.BoxExecute
  64 connect Box42.Length Box34.In
  65 connect Box43.Points Box42.Points
  66 connect Box31.lstPointsX Box43.LstPointsX
  67 connect Box31.lstPointsY Box43.LstPointsY
  68 connect Box31.lstPointsZ Box43.LstPointsZ
  69 connect Box31.BoxChange Box34.BoxExecute
  70 connect Box17.Out Box42.ImageData
  71 connect Box31.BoxChange Box36.BoxExecute
  72
  73 # Complex input ports
  74 input vtkimagedata Box17.In " "
  75 input vtkrender Box24.In " "
  76 input point Box31.In " "
  77 input boxexecute Box31.BoxExecute " "
  78
  79 # Complex output ports
  80 output widget Box33.Widget " "
  81
  82
  83 endefine