1 # ----------------------------------
2 # - BBTKGEditor v 1.4 BBS BlackBox Script
3 # - /tmpEED/creaTools2/creatools_source/creaMaracasVisu/bbtk/bbs/appli/exampleBars.bbs
4 # ----------------------------------
7 # ----------------------
12 include creaMaracasVisu
14 author "eduardo.davila@creatis.insa-lyon.fr"
15 description "creaMaracasVisu::ColorBar box example. "
22 set ss.Orientation "H"
25 set s1.Orientation "V"
28 set s2.Orientation "V"
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"
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"
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"
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"
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"
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"
69 connect s1.Widget s.Widget1
71 connect s2.Widget s.Widget2
73 connect sliderMM_h.Widget s1.Widget1
75 connect colorB_h.Widget s1.Widget2
77 connect ss.Widget s2.Widget1
79 connect sliderMM_v.Widget ss.Widget1
81 connect colorB_v.Widget ss.Widget2