bbtk/bbs/appli/exampleBars.bbs

   1 # ----------------------------------
   2 # - BBTKGEditor v 1.4 BBS BlackBox Script
   3 # - /tmpEED/creaTools2/creatools_source/creaMaracasVisu/bbtk/bbs/appli/exampleBars.bbs
   4 # ----------------------------------
   5
   6 # BBTK GEditor Script
   7 # ----------------------
   8
   9 include std
  10 include itkvtk
  11 include wx
  12 include creaMaracasVisu
  13
  14 author "eduardo.davila@creatis.insa-lyon.fr"
  15 description "creaMaracasVisu::ColorBar box example. "
  16 category "example"
  17
  18 new wx:LayoutSplit s
  19   set s.Orientation "H"
  20
  21 new wx:LayoutSplit ss
  22   set ss.Orientation "H"
  23
  24 new wx:LayoutLine s1
  25   set s1.Orientation "V"
  26
  27 new wx:LayoutLine s2
  28   set s2.Orientation "V"
  29
  30 new creaMaracasVisu:SliderMinMax sliderMM_h
  31   set sliderMM_h.InH "90"
  32   set sliderMM_h.InMax "350"
  33   set sliderMM_h.InMin "0"
  34   set sliderMM_h.InW "300"
  35   set sliderMM_h.Orientation "1"
  36   set sliderMM_h.ShowLabels "1"
  37
  38 new creaMaracasVisu:SliderMinMax sliderMM_v
  39   set sliderMM_v.InH "30"
  40   set sliderMM_v.InMax "350"
  41   set sliderMM_v.InMin "0"
  42   set sliderMM_v.InW "300"
  43   set sliderMM_v.Orientation "0"
  44   set sliderMM_v.ShowLabels "1"
  45
  46 new creaMaracasVisu:ColorBar colorB_h
  47   set colorB_h.Blues " 255 0 15 0 0 0"
  48   set colorB_h.Greens " 0 220 220 100 240 55"
  49   set colorB_h.InH "50"
  50   set colorB_h.InMax "350"
  51   set colorB_h.InMin "0"
  52   set colorB_h.InW "300"
  53   set colorB_h.Orientation "1"
  54   set colorB_h.Reds " 0 255 0 255 220 30"
  55   set colorB_h.Values " 0 30 70 130 250 310"
  56
  57 new creaMaracasVisu:ColorBar colorB_v
  58   set colorB_v.Blues " 255 0 15 0 0 0"
  59   set colorB_v.Greens " 0 220 220 100 240 55"
  60   set colorB_v.InH "50"
  61   set colorB_v.InMax "350"
  62   set colorB_v.InMin "0"
  63   set colorB_v.InW "300"
  64   set colorB_v.Orientation "0"
  65   set colorB_v.Reds " 0 255 0 255 220 30"
  66   set colorB_v.Values " 0 30 70 130 250 310"
  67
  68
  69 connect s1.Widget s.Widget1
  70
  71 connect s2.Widget s.Widget2
  72
  73 connect sliderMM_h.Widget s1.Widget1
  74
  75 connect colorB_h.Widget s1.Widget2
  76
  77 connect ss.Widget s2.Widget1
  78
  79 connect sliderMM_v.Widget ss.Widget1
  80
  81 connect colorB_v.Widget ss.Widget2
  82
  83
  84
  85 # Complex input ports
  86 exec s