bbtk_creaVtk_PKG/bbs/boxes/CompareImagesByRGB-Widget.bbs

   1 # ----------------------------------
   2 # - BBTKGEditor v 1.4 BBS BlackBox Script (Complex Box)
   3 # - /home/davila/Creatis/C11/creatools_source/creaVtk/bbtk_creaVtk_PKG/bbs/boxes/CompareImagesByRGB-Widget.bbs
   4 # ----------------------------------
   5
   6 include std
   7 include itkvtk
   8 include creaMaracasVisu
   9 include creaVtk
  10 include vtk
  11 include wx
  12 include std
  13 include PackRecalage
  14
  15 define CompareImagesByRGB-Widget creaVtk
  16
  17 author "Author ??"
  18 description "Description ??"
  19
  20 category "<VOID>"
  21
  22 new creaMaracasVisu:ViewerNV Box00
  23   set Box00.nTypeView "1  2 0"
  24
  25 new creaVtk:ImageAppendComponents Box02
  26
  27 new vtk:RescaleSlopeIntercept Box05
  28   set Box05.A "0"
  29   set Box05.B "255"
  30   set Box05.OutputFormat "VTK_UNSIGNED_CHAR"
  31   set Box05.Type "2"
  32
  33 new creaMaracasVisu:SetwxVtkBaseViewLookupTable Box06
  34
  35 new wx:LayoutSplit Box07
  36   set Box07.Proportion "50"
  37
  38 new creaVtk:ScalarsToColors Box10
  39   set Box10.Type "3"
  40
  41 new vtk:RescaleSlopeIntercept Box13
  42   set Box13.A "0"
  43   set Box13.B "255"
  44   set Box13.OutputFormat "VTK_UNSIGNED_CHAR"
  45   set Box13.Type "2"
  46
  47 new std:StringSelect Box18
  48   set Box18.In0 "1 1 1"
  49   set Box18.In1 "0 0 0"
  50   set Box18.In2 "1 0 0"
  51   set Box18.In3 "0 1 0"
  52   set Box18.In4 "0 0 1"
  53   set Box18.In5 "1 1 0"
  54   set Box18.In6 "1 0 1"
  55   set Box18.In7 "0 1 1"
  56
  57 new PackRecalage:AddImageToVector Box19
  58
  59 new std:GetVectorStringElement Box20
  60   set Box20.I "0"
  61
  62 new std:GetVectorStringElement Box21
  63   set Box21.I "1"
  64
  65 new std:GetVectorStringElement Box22
  66   set Box22.I "2"
  67
  68 new vtk:GetVectorVtkImageDataElement Box23
  69
  70 new vtk:GetVectorVtkImageDataElement Box24
  71
  72 new vtk:GetVectorVtkImageDataElement Box25
  73
  74 new wx:Slider Box26
  75   set Box26.Max "7"
  76   set Box26.Min "0"
  77
  78 new vtk:vtkImageDataPointerRelay Box29
  79
  80 new vtk:vtkImageDataPointerRelay Box30
  81
  82 new wx:LayoutLine Box31
  83   set Box31.Orientation "H"
  84
  85 new wx:CheckBox Box32
  86   set Box32.Title "Interpolation"
  87
  88
  89 connect Box02.Out Box00.In
  90 connect Box10.LookupTable Box06.ScalarToColors
  91 connect Box05.Out Box19.In0
  92 connect Box13.Out Box19.In1
  93 connect Box18.Out Box20.In
  94 connect Box18.Out Box21.In
  95 connect Box18.Out Box22.In
  96 connect Box19.Out Box23.In
  97 connect Box20.Out Box23.I
  98 connect Box19.Out Box24.In
  99 connect Box19.Out Box25.In
 100 connect Box21.Out Box24.I
 101 connect Box22.Out Box25.I
 102 connect Box23.Out Box02.In0
 103 connect Box24.Out Box02.In1
 104 connect Box25.Out Box02.In2
 105 connect Box26.Out Box18.In
 106 connect Box00.wxVtkBaseView1 Box06.BaseView1
 107 connect Box00.wxVtkBaseView2 Box06.BaseView2
 108 connect Box00.wxVtkBaseView3 Box06.BaseView3
 109 connect Box29.Out Box05.In
 110 connect Box30.Out Box13.In
 111 connect Box26.BoxChange Box06.BoxExecute
 112 connect Box26.Widget Box31.Widget1
 113 connect Box32.Widget Box31.Widget2
 114 connect Box32.Out Box00.Interpolate
 115 connect Box32.BoxChange Box00.BoxExecute
 116 connect Box00.Widget Box07.Widget1
 117 connect Box31.Widget Box07.Widget2
 118
 119 # Complex input ports
 120 input Image1 Box29.In " "
 121 input Image2 Box30.In " "
 122
 123 # Complex output ports
 124 output OutWidget Box07.Widget " "
 125
 126
 127 endefine