The reproducing test script as text:
--------- begin wish script ------------
#!/usr/bin/env wish
set famName "Noto Color Emoji"
set availList [font families]
set weight "bold"
set refText "The quick brown fox jumps over the lazy dog."
if {$famName ni $availList} {
puts "Font family $famName is not available on your system. "
puts "If you are running Ubuntu, please install the package "
puts "'fonts-noto-color-emoji'."
return
}
The reproducing test script as text:
--------- begin wish script ------------
#!/usr/bin/env wish
set famName "Noto Color Emoji"
set availList [font families]
set weight "bold"
set refText "The quick brown fox jumps over the lazy dog."
if {$famName ni $availList} { noto-color- emoji'. "
puts "Font family $famName is not available on your system. "
puts "If you are running Ubuntu, please install the package "
puts "'fonts-
return
}
puts "tcl patchlevel: [info patchlevel]" $key)"
puts "tcl_platform:"
foreach key [array names tcl_platform] {
puts "$key: $tcl_platform(
}
for {set pixSize -1} {$pixSize >= -20} {incr pixSize -1} {
font create myTestFont -size $pixSize -family $famName -weight $weight
set linespace [font metrics myTestFont -linespace]
set width [font measure myTestFont $refText]
font delete myTestFont
puts "Size $pixSize linespace $linespace width $width."
}
puts "Done."
--------- end wish script ------------