bbtk_package_creaMiniToolsBase/bbs/boxes/rescaleSlopeInterceptMenu.bbs

   1 # ----------------------------------
   2 # - BBTKGEditor v 1.4 BBS BlackBox Script (Complex Box)
   3 # - /tmpEED/creaTools/creatools_source/creaMiniTools/bbtk_package_creaMiniToolsBase/bbs/boxes/rescaleSlopeInterceptMenu.bbs
   4 # ----------------------------------
   5
   6 include std
   7 include itkvtk
   8 include wx
   9 include std
  10
  11 define RescaleSlopeInterceptMenu creaMiniToolsBase
  12
  13 author "Author ??"
  14 description "Description ??"
  15
  16 category "<VOID>"
  17
  18 new wx:CommandButton Box00
  19   set Box00.Label "NewPixel = Rescale * pixel + Slope  AND  Data Format"
  20
  21 new wx:CommandButton Box01
  22   set Box01.Label "rescaleSlopeIntercept1"
  23
  24 new wx:CommandButton Box02
  25   set Box02.Label "rescaleSlopeIntercept2"
  26
  27 new wx:CommandButton Box03
  28   set Box03.Label "rescaleSlopeIntercept3"
  29
  30 new std:ExecSystemCommand Box04
  31
  32 new std:ExecSystemCommand Box05
  33
  34 new std:ExecSystemCommand Box06
  35
  36 new std:ExecSystemCommand Box07
  37
  38 new wx:OutputText Box08
  39   set Box08.In "Select the Example"
  40
  41 new wx:LayoutLine Box09
  42   set Box09.WinTitle "RescaleSlopeIntercept"
  43
  44 new std:Configuration Box10
  45
  46 new std:StringSelect Box11
  47   set Box11.In0 "bbi creaMiniTools/appli/rescaleSlopeIntercept0.bbs &"
  48   set Box11.In1 "start /b bbi creaMiniTools/appli/rescaleSlopeIntercept0.bbs &"
  49
  50 new std:StringSelect Box12
  51   set Box12.In0 "bbi creaMiniTools/appli/rescaleSlopeIntercept1.bbs &"
  52   set Box12.In1 "start /b bbi creaMiniTools/appli/rescaleSlopeIntercept1.bbs &"
  53
  54 new std:StringSelect Box13
  55   set Box13.In0 "bbi creaMiniTools/appli/rescaleSlopeIntercept3.bbs &"
  56   set Box13.In1 "start /b bbi creaMiniTools/appli/rescaleSlopeIntercept3.bbs &"
  57
  58 new std:StringSelect Box14
  59   set Box14.In0 "bbi creaMiniTools/appli/rescaleSlopeIntercept2.bbs &"
  60   set Box14.In1 "start /b bbi creaMiniTools/appli/rescaleSlopeIntercept2.bbs &"
  61
  62
  63 connect Box00.BoxChange Box04.BoxExecute
  64 connect Box01.BoxChange Box05.BoxExecute
  65 connect Box02.BoxChange Box06.BoxExecute
  66 connect Box03.BoxChange Box07.BoxExecute
  67 connect Box08.Widget Box09.Widget1
  68 connect Box01.Widget Box09.Widget3
  69 connect Box02.Widget Box09.Widget4
  70 connect Box00.Widget Box09.Widget2
  71 connect Box03.Widget Box09.Widget5
  72 connect Box10.SystemType Box11.In
  73 connect Box10.SystemType Box12.In
  74 connect Box10.SystemType Box13.In
  75 connect Box10.SystemType Box14.In
  76 connect Box12.Out Box05.In
  77 connect Box11.Out Box04.In
  78 connect Box14.Out Box06.In
  79 connect Box13.Out Box07.In
  80
  81 # Complex input ports
  82
  83 # Complex output ports
  84 output widget Box09.Widget " "
  85
  86 message
  87
  88 endefine