packages/toolsbbtk/bbs/boxes/bbSlidersForSize.bbs

   1 # ----------------------------------
   2 # - BBTKGEditor v 1.2 BBS BlackBox Script (Complex Box)
   3 # - /home/jpr/Desktop/NewDiagramSliders5.bbs
   4 # ----------------------------------
   5
   6 include std
   7 include itkvtk
   8 include itk
   9 include std
  10 include wx
  11
  12 define SlidersForSize wx
  13
  14 author "jean-pierre.roux@creatis.univ-lyon1.fr"
  15 description "Display 6 sliders for sizes of 3D image"
  16
  17 category "complex box, widget"
  18
  19 new ImageProperties mc
  20
  21 new GetVectorIntElement gveX
  22   set gveX.I "0"
  23
  24 new GetVectorIntElement gveY
  25   set gveY.I "1"
  26
  27 new GetVectorIntElement gveZ
  28   set gveZ.I "2"
  29
  30 new MagicBox mb
  31
  32 new Slider xMin
  33   set xMin.Label "1"
  34   set xMin.Min "0"
  35   set xMin.Title "XMin"
  36
  37 new Slider xMax
  38   set xMax.Label "1"
  39   set xMax.Min "0"
  40   set xMax.Title "XMax"
  41
  42 new Slider yMin
  43   set yMin.Label "1"
  44   set yMin.Min "0"
  45   set yMin.Title "YMin"
  46
  47 new Slider yMax
  48   set yMax.Label "1"
  49   set yMax.Min "0"
  50   set yMax.Title "YMax"
  51
  52 new Slider zMin
  53   set zMin.Label "1"
  54   set zMin.Min "0"
  55   set zMin.Title "ZMin"
  56
  57 new Slider zMax
  58   set zMax.Label "1"
  59   set zMax.Min "0"
  60   set zMax.Title "ZMax"
  61
  62 new MultipleInputs mi1
  63
  64 new MultipleInputs mi2
  65
  66 new LayoutLine Box13
  67
  68
  69 connect mc.Size gveX.In
  70 connect mc.Size gveY.In
  71 connect mc.Size gveZ.In
  72 connect gveX.Out xMin.Max
  73 connect gveX.Out xMin.In
  74 connect mb.Out xMin.ReactiveOnTrack
  75 connect gveX.Out xMax.Max
  76 connect gveX.Out xMax.In
  77 connect mb.Out xMax.ReactiveOnTrack
  78 connect gveY.Out yMin.Max
  79 connect gveY.Out yMin.In
  80 connect mb.Out yMin.ReactiveOnTrack
  81 connect mb.Out yMax.ReactiveOnTrack
  82 connect mb.Out zMin.ReactiveOnTrack
  83 connect mi1.BoxChange mi2.In1
  84 connect xMin.BoxChange mi1.In1
  85 connect xMax.BoxChange mi1.In2
  86 connect yMin.BoxChange mi1.In3
  87 connect yMax.BoxChange mi1.In4
  88 connect zMin.BoxChange mi1.In5
  89 connect zMax.BoxChange mi2.In2
  90 connect gveZ.Out zMax.In
  91 connect gveZ.Out zMax.Max
  92 connect gveY.Out yMax.In
  93 connect gveY.Out yMax.Max
  94 connect gveZ.Out zMin.In
  95 connect gveZ.Out zMin.Max
  96 connect xMin.Widget Box13.Widget1
  97 connect xMax.Widget Box13.Widget2
  98 connect yMin.Widget Box13.Widget3
  99 connect yMax.Widget Box13.Widget4
 100 connect zMin.Widget Box13.Widget5
 101 connect zMax.Widget Box13.Widget6
 102
 103
 104 # Complex input ports
 105 input In mc.In " "
 106 input ReactiveOnTrack mb.In " "
 107
 108 # Complex output ports
 109 output XMin xMin.Out " "
 110 output XMax xMax.Out " "
 111 output YMin yMin.Out " "
 112 output YMax yMax.Out " "
 113 output ZMin zMin.Out " "
 114 output ZMax zMax.Out " "
 115 output BoxChange mi2.BoxChange " "
 116 output Wigdet Box13.Widget " "
 117
 118 endefine