diff options
Diffstat (limited to 'demos')
-rw-r--r-- | demos/groupsInAtcStrips.tcl | 38 |
1 files changed, 28 insertions, 10 deletions
diff --git a/demos/groupsInAtcStrips.tcl b/demos/groupsInAtcStrips.tcl index 3e8e5c7..0c7f4d9 100644 --- a/demos/groupsInAtcStrips.tcl +++ b/demos/groupsInAtcStrips.tcl @@ -107,6 +107,24 @@ namespace eval groupsInAtcStrips { variable ratio2FontSet {{1.2 normal} {10 large}} + set loadedFonts [font names] + foreach f $loadedFonts { + if { [regexp {^radar-} $f] } { + font delete $f + } + } + + # cenapii-radar-b15 + font create radar-b15 -family helvetica -size 16 -slant roman -weight bold + # cenapii-digistrips-b12 + font create radar-b12 -family helvetica -size 12 -slant roman -weight bold + # cenapii-digistrips-b10 and cenapii-digistrips-b10c + font create radar-b10 -family helvetica -size 10 -slant roman -weight bold + # cenapii-radar-m18 + font create radar-m18 -family helvetica -size 18 -slant roman -weight normal + # cenapii-radar-m20 + font create radar-m20 -family helvetica -size 20 -slant roman -weight normal + variable stripStyle { gradSet { idnt {=axial 90|#ffffff 0|#ffeedd 30|#e9d1ca 90|#e9a89a} @@ -118,16 +136,16 @@ namespace eval groupsInAtcStrips { } fontSet { normal { - callsign cenapii-radar-b15 - type1 cenapii-digistrips-b12 - type2 cenapii-digistrips-b10 - type3 cenapii-digistrips-b10c + callsign radar-b15 + type1 radar-b12 + type2 radar-b10 + type3 radar-b10 } large { - callsign cenapii-radar-m20 - type1 cenapii-radar-m18 - type2 cenapii-radar-b15 - type3 cenapii-digistrips-b12 + callsign radar-m20 + type1 radar-m18 + type2 radar-b15 + type3 radar-b12 } } width 340 @@ -158,7 +176,7 @@ namespace eval groupsInAtcStrips { label { coords {13 27} text + - font cenapii-radar-m20 + font radar-m20 color \#ffffff anchor center } @@ -172,7 +190,7 @@ namespace eval groupsInAtcStrips { label { coords {13 56} text - - font cenapii-radar-m20 + font radar-m20 color \#ffffff anchor center } |