PackRecalage/bbs/boxes/CompareImagesWidget.bbs

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