-use Shiar_Sheet::FormatChar;
-my $glyphs = Shiar_Sheet::FormatChar->new;
-unless (exists $get{v}) {
- $glyphs->{unicode}--;
- $glyphs->{anno} = [];
- $glyphs->{style} = 0;
-}
-
-my %scriptname = (
- latn => 'Latin',
- latnuc => 'Uppercase',
- latnlc => 'Lowercase',
- latfsuet => 'Sütterlin',
- asl => '<abbr title="American Sign Lanugage">ASL</abbr>', # American manual alphabet
- brai => 'Braille',
- morse => 'Morse',
- tap => 'Tap code',
- taps => 'Tap simplified',
- ics => 'Maritime flags', # International Code of Signals
- sem => 'Flag semaphore',
- semc => 'Chappe semaphore',
- pigpen => 'Pigpen',
- wingdings=> 'Wingdings',
- code39 => 'Code 39', # ISO/IEC 16388
- rm4scc => '<abbr title="Royal Mail 4-State Customer Code">RM4SCC</abbr>',
- colour => 'Chromacons', # Colour Alphabet by Paul Green-Armytage (2010)
-);
-