PackRecalage/bbs/boxes/CompareImagesWidget.bbs

   1 # ----------------------------------
   2 # - BBTKGEditor v 1.4 BBS BlackBox Script (Complex Box)
   3 # - /home/davila/Creatis/All/creatools_source/creaRigidRegistration/PackRecalage/bbs/boxes/CompareImagesWidget.bbs
   4 # ----------------------------------
   5
   6 include std
   7 include itkvtk
   8 include PackRecalage
   9 include wx
  10 include std
  11 include creaMaracasVisu
  12 include vtk
  13
  14 define CompareImagesWidget PackRecalage
  15
  16 author "info-dev@creatis.insa-lyon.fr"
  17 description "creatisRecalage"
  18
  19 category "example"
  20
  21 new ImageRecalageProperties properties
  22
  23 new Slider sdrZ
  24   set sdrZ.Min "0"
  25   set sdrZ.ReactiveOnTrack "1"
  26   set sdrZ.Title "Z for slice"
  27
  28 new Slider sdrF
  29   set sdrF.In "0"
  30   set sdrF.Max "100"
  31   set sdrF.Min "0"
  32   set sdrF.ReactiveOnTrack "1"
  33   set sdrF.Title "Convolution Factor"
  34
  35 new CheckBox checkF
  36   set checkF.In "True"
  37
  38 new MultipleInputs multF
  39
  40 new Slider colorLevel
  41   set colorLevel.Min "0"
  42   set colorLevel.ReactiveOnTrack "true"
  43   set colorLevel.Title "Color Level"
  44
  45 new Slider windowLevel
  46   set windowLevel.Min "0"
  47   set windowLevel.ReactiveOnTrack "true"
  48   set windowLevel.Title "Window Level"
  49
  50 new MultipleInputs multLevels
  51
  52 new CheckBoardBox cbb
  53
  54 new Slider sdr
  55   set sdr.In "14"
  56   set sdr.Max "50"
  57   set sdr.ReactiveOnTrack "1"
  58
  59 new Slider sdr2
  60   set sdr2.In "14"
  61   set sdr2.Max "50"
  62   set sdr2.ReactiveOnTrack "1"
  63
  64 new LayoutSplit checkerBoard
  65   set checkerBoard.Proportion "80"
  66
  67 new LayoutLine ly
  68
  69 new ViewerNV viewerCH
  70   set viewerCH.nTypeView "0"
  71
  72 new TransparencyBox trans
  73
  74 new Slider sdrP
  75   set sdrP.In "50"
  76   set sdrP.Max "100"
  77   set sdrP.Min "0"
  78   set sdrP.ReactiveOnTrack "true"
  79
  80 new ViewerNV transView
  81   set transView.nTypeView "0"
  82
  83 new LayoutSplit transparency
  84   set transparency.Proportion "80"
  85
  86 new MultipleInputs mult2
  87
  88 new MultipleInputs mult3
  89
  90 new MultipleInputs mult4
  91
  92 new LayoutTab tabs
  93   set tabs.Orientation V
  94
  95 new LayoutLine tools
  96   set tools.WinTitle "Appearance"
  97
  98 new LayoutSplit convolTools
  99   set convolTools.Orientation "H"
 100   set convolTools.Proportion "80"
 101
 102 new LayoutSplit window2
 103   set window2.Orientation H
 104   set window2.Proportion "25"
 105
 106 new vtkImageDataPointerRelay Box56
 107
 108 new vtkImageDataPointerRelay Box59
 109
 110 new LayoutTab Box61
 111
 112 new ViewerNV Box65
 113   set Box65.nTypeView 0
 114
 115 new ViewerNV Box66
 116   set Box66.nTypeView 0
 117
 118 new LayoutLine Box67
 119   set Box67.Orientation H
 120   set Box67.WinTitle "Parallel"
 121
 122 new MultipleInputs Box68
 123
 124 new CompareImagesSwitcherWidget Box69
 125
 126 new CompareImagesWidget_base_2Dt_A Box70
 127
 128 new MultipleInputs Box71
 129
 130 new CompareImagesWidget_base_2Dt_B Box72
 131
 132
 133 connect properties.LengthZ sdrZ.Max
 134 connect sdrF.BoxChange multF.In1
 135 connect checkF.BoxChange multF.In2
 136 connect properties.ColorLevel colorLevel.Max
 137 connect properties.MidColorLevel colorLevel.In
 138 connect properties.ColorLevel windowLevel.Max
 139 connect properties.MidColorLevel windowLevel.In
 140 connect colorLevel.BoxChange multLevels.In1
 141 connect windowLevel.BoxChange multLevels.In2
 142 connect colorLevel.Out viewerCH.ColorLevel
 143 connect windowLevel.Out viewerCH.WindowLevel
 144 connect sdr.Out cbb.Cols
 145 connect sdr2.Out cbb.Rows
 146 connect cbb.Out viewerCH.In
 147 connect sdr.Widget ly.Widget2
 148 connect sdr2.Widget ly.Widget3
 149 connect viewerCH.Widget checkerBoard.Widget1
 150 connect ly.Widget checkerBoard.Widget2
 151 connect sdrP.Out trans.Percent
 152 connect transView.Widget transparency.Widget1
 153 connect sdrP.Widget transparency.Widget2
 154 connect windowLevel.Out transView.WindowLevel
 155 connect multF.BoxChange mult2.In1
 156 connect ly.BoxChange mult3.In1
 157 connect mult2.BoxChange mult3.In2
 158 connect multLevels.BoxChange mult3.In5
 159 connect mult3.BoxChange cbb.BoxExecute
 160 connect cbb.BoxChange viewerCH.BoxExecute
 161 connect mult2.BoxChange mult4.In1
 162 connect sdrP.BoxChange mult4.In2
 163 connect mult4.BoxChange trans.BoxExecute
 164 connect trans.BoxChange transView.BoxExecute
 165 connect colorLevel.Widget tools.Widget2
 166 connect windowLevel.Widget tools.Widget3
 167 connect checkF.Widget convolTools.Widget2
 168 connect convolTools.Widget tools.Widget4
 169 connect Box59.Out properties.In
 170 connect sdrF.Widget convolTools.Widget1
 171 connect sdrZ.Widget tools.Widget1
 172 connect transparency.Widget tabs.Widget2
 173 connect checkerBoard.Widget tabs.Widget3
 174 connect trans.Out transView.In
 175 connect Box61.Widget window2.Widget1
 176 connect tabs.Widget window2.Widget2
 177 connect tools.Widget Box61.Widget1
 178 connect Box66.Widget Box67.Widget2
 179 connect Box65.Widget Box67.Widget1
 180 connect Box67.Widget tabs.Widget4
 181 connect mult3.BoxChange Box68.In1
 182 connect Box68.BoxChange Box66.BoxExecute
 183 connect Box68.BoxChange Box65.BoxExecute
 184 connect mult4.BoxChange Box68.In2
 185 connect Box69.Widget tabs.Widget1
 186 connect Box56.Out Box70.In
 187 connect sdrZ.Out Box70.SliceZ
 188 connect sdrZ.BoxChange Box71.In1
 189 connect Box71.BoxChange Box70.BoxExecute
 190 connect checkF.Out Box70.ConvolutionOnOff
 191 connect sdrF.Out Box70.ConvolutionFactor
 192 connect sdrF.BoxChange Box71.In2
 193 connect checkF.BoxChange Box71.In3
 194 connect Box70.BoxChange mult2.In2
 195 connect Box70.Widget Box61.Widget2
 196 connect Box70.Out Box69.Image1
 197 connect Box70.Out trans.In2
 198 connect Box70.Out Box65.In
 199 connect Box70.Out cbb.In2
 200 connect Box72.Out Box69.Image2
 201 connect Box72.Out trans.In1
 202 connect Box72.Out Box66.In
 203 connect Box72.Out cbb.In1
 204 connect Box59.Out Box72.In
 205 connect checkF.Out Box72.ConvolutionOnOff
 206 connect sdrF.Out Box72.ConvolutionFactor
 207 connect multF.BoxChange Box72.BoxExecute
 208 connect sdrZ.Out Box72.SliceZ
 209
 210 # Complex input ports
 211 input In2 Box59.In " "
 212 input In1 Box56.In " "
 213 input WinTitle window2.WinTitle " "
 214
 215 # Complex output ports
 216 output Widget window2.Widget " "
 217
 218
 219 endefine