diff --git a/scripts/hueg.pl b/scripts/hueg.pl index 60a775c..7590ff8 100644 --- a/scripts/hueg.pl +++ b/scripts/hueg.pl @@ -145,8 +145,8 @@ sub process { for $l (@s2) { #each letter $all .= "$c3 \cO"; - if($flip) { $cur = "$db{$l}[(9-$f)/$scale]"; } #line of letter - else { $cur = "$db{$l}[$f/$scale]"; } + if($flip) { $cur = $db{$l}[(9-$f)/$scale] // $db{'?'}[(9-$f)/$scale]; } #line of letter + else { $cur = $db{$l}[$f/$scale] // $db{'?'}[$f/$scale]; } $whitespace = " " x $scale; $cur =~ s/ /$whitespace/g; @@ -323,7 +323,7 @@ sub db1 { "$c3 $c1 $c2 $c3 ", "$c3 ", ], -"A" => [ +A => [ "$c3 ", "$c3 $c1 $c2 $c3 ", "$c3 $c1 $c2 $c1 $c2 $c3 ", @@ -334,7 +334,7 @@ sub db1 { "$c1 $c2 $c3 $c1 $c2 $c3", "$c3 ", ], -"a" => [ +a => [ "$c3 ", "$c3 ", "$c3 ", @@ -345,7 +345,7 @@ sub db1 { "$c3 $c1 $c2 $c3", "$c3 ", ], -"B" => [ +B => [ "$c3 ", "$c1 $c2 $c3 ", "$c1 $c2 $c3 $c1 $c2 $c3", @@ -356,7 +356,7 @@ sub db1 { "$c1 $c2 $c3 ", "$c3 ", ], -"b" => [ +b => [ "$c3 ", "$c1 $c2 $c3 ", "$c1 $c2 $c3 ", @@ -367,7 +367,7 @@ sub db1 { "$c1 $c2 $c3 ", "$c3 ", ], -"C" => [ +C => [ "$c3 ", "$c3 $c1 $c2 $c3 ", "$c1 $c2 $c3 $c1 $c2 $c3", @@ -378,7 +378,7 @@ sub db1 { "$c3 $c1 $c2 $c3 ", "$c3 ", ], -"c" => [ +c => [ "$c3 ", "$c3 ", "$c3 ", @@ -389,7 +389,7 @@ sub db1 { "$c3 $c1 $c2 $c3", "$c3 ", ], -"D" => [ +D => [ "$c3 ", "$c1 $c2 $c3 ", "$c1 $c2 $c3 $c1 $c2 $c3 ", @@ -400,7 +400,7 @@ sub db1 { "$c1 $c2 $c3 ", "$c3 ", ], -"d" => [ +d => [ "$c3 ", "$c3 $c1 $c2 $c3", "$c3 $c1 $c2 $c3", @@ -411,7 +411,7 @@ sub db1 { "$c3 $c1 $c2 $c3", "$c3 ", ], -"E" => [ +E => [ "$c3 ", "$c1 $c2 $c3", "$c1 $c2 $c3 ", @@ -422,7 +422,7 @@ sub db1 { "$c1 $c2 $c3", "$c3 ", ], -"e" => [ +e => [ "$c3 ", "$c3 ", "$c3 ", @@ -433,7 +433,7 @@ sub db1 { "$c3 $c1 $c2 $c3 ", "$c3 ", ], -"F" => [ +F => [ "$c3 ", "$c1 $c2 ", "$c1 $c2 $c3 ", @@ -444,7 +444,7 @@ sub db1 { "$c1 $c2 $c3 ", "$c3 ", ], -"f" => [ +f => [ "$c3 ", "$c3 ", "$c3 $c1 $c2 ", @@ -455,7 +455,7 @@ sub db1 { "$c3 $c1 $c2 $c3 ", "$c3 ", ], -"G" => [ +G => [ "$c3 ", "$c3 $c1 $c2 $c3 ", "$c3 $c1 $c2 $c3 $c1 $c2 $c3", @@ -466,7 +466,7 @@ sub db1 { "$c3 $c1 $c2 $c3 ", "$c3 ", ], -"g" => [ +g => [ "$c3 ", "$c3 ", "$c3 ", @@ -477,7 +477,7 @@ sub db1 { "$c3 $c1 $c2 $c3", "$c3 $c1 $c2 $c3 ", ], -"H" => [ +H => [ "$c3 ", "$c1 $c2 $c3 $c1 $c2 $c3", "$c1 $c2 $c3 $c1 $c2 $c3", @@ -488,7 +488,7 @@ sub db1 { "$c1 $c2 $c3 $c1 $c2 $c3", "$c3 ", ], -"h" => [ +h => [ "$c3 ", "$c1 $c2 $c3 ", "$c1 $c2 $c3 ", @@ -499,7 +499,7 @@ sub db1 { "$c1 $c2 $c3 $c1 $c2 $c3", "$c3 ", ], -"I" => [ +I => [ "$c3 ", "$c1 $c2 $c3", "$c3 $c1 $c2 $c3 ", @@ -510,7 +510,7 @@ sub db1 { "$c1 $c2 $c3", "$c3 ", ], -"i" => [ +i => [ "$c3 ", "$c3 $c1 $c2 $c3 ", "$c3 ", @@ -521,7 +521,7 @@ sub db1 { "$c1 $c2 ", "$c3 ", ], -"J" => [ +J => [ "$c3 ", "$c3 $c1 $c2 ", "$c3 $c1 $c2 $c3 ", @@ -532,7 +532,7 @@ sub db1 { "$c3 $c1 $c2 $c3 ", "$c3 ", ], -"j" => [ +j => [ "$c3 ", "$c3 $c1 $c2 ", "$c3 ", @@ -543,7 +543,7 @@ sub db1 { "$c1 $c2 $c3 $c1 $c2 ", "$c3 $c1 $c2 $c3 ", ], -"K" => [ +K => [ "$c3 ", "$c1 $c2 $c3 $c1 $c2 $c3", "$c1 $c2 $c3 $c1 $c2 $c3 ", @@ -554,7 +554,7 @@ sub db1 { "$c1 $c2 $c3 $c1 $c2 $c3", "$c3 ", ], -"k" => [ +k => [ "$c3 ", "$c1 $c2 $c3 ", "$c1 $c2 $c3 ", @@ -565,7 +565,7 @@ sub db1 { "$c1 $c2 $c3 $c1 $c2 ", "$c3 ", ], -"L" => [ +L => [ "$c3 ", "$c1 $c2 $c3 ", "$c1 $c2 $c3 ", @@ -576,7 +576,7 @@ sub db1 { "$c1 $c2 $c3", "$c3 ", ], -"l" => [ +l => [ "$c3 ", "$c1 $c2 $c3 ", "$c3 $c1 $c2 $c3 ", @@ -587,7 +587,7 @@ sub db1 { "$c1 $c2 ", "$c3 ", ], -"M" => [ +M => [ "$c3 ", "$c1 $c2 $c3 $c1 $c2 $c3", "$c1 $c2 $c3 $c1 $c2 $c3", @@ -598,7 +598,7 @@ sub db1 { "$c1 $c2 $c3 $c1 $c2 $c3", "$c3 ", ], -"m" => [ +m => [ "$c3 ", "$c3 ", "$c3 ", @@ -609,7 +609,7 @@ sub db1 { "$c1 $c2 $c3 $c1 $c2 $c3", "$c3 ", ], -"N" => [ +N => [ "$c3 ", "$c1 $c2 $c3 $c1 $c2 ", "$c1 $c2 $c3 $c1 $c2 ", @@ -620,7 +620,7 @@ sub db1 { "$c1 $c2 $c3 $c1 $c2 ", "$c3 ", ], -"n" => [ +n => [ "$c3 ", "$c3 ", "$c3 ", @@ -631,7 +631,7 @@ sub db1 { "$c1 $c2 $c3 $c1 $c2 $c3", "$c3 ", ], -"O" => [ +O => [ "$c3 ", "$c3 $c1 $c2 $c3 ", "$c3 $c1 $c2 $c3 $c1 $c2 $c3 ", @@ -642,7 +642,7 @@ sub db1 { "$c3 $c1 $c2 $c3 ", "$c3 ", ], -"o" => [ +o => [ "$c3 ", "$c3 ", "$c3 ", @@ -653,7 +653,7 @@ sub db1 { "$c3 $c1 $c2 $c3 ", "$c3 ", ], -"P" => [ +P => [ "$c3 ", "$c1 $c2 $c3 ", "$c1 $c2 $c3 $c1 $c2 $c3", @@ -664,7 +664,7 @@ sub db1 { "$c1 $c2 $c3 ", "$c3 ", ], -"p" => [ +p => [ "$c3 ", "$c3 ", "$c3 ", @@ -675,7 +675,7 @@ sub db1 { "$c1 $c2 $c3 ", "$c1 $c2 $c3 ", ], -"Q" => [ +Q => [ "$c3 ", "$c3 $c1 $c2 $c3 ", "$c3 $c1 $c2 $c3 $c1 $c2 $c3 ", @@ -686,7 +686,7 @@ sub db1 { "$c3 $c1 $c2 $c3 ", "$c3 $c1 $c2 $c3 ", ], -"q" => [ +q => [ "$c3 ", "$c3 ", "$c3 ", @@ -697,7 +697,7 @@ sub db1 { "$c3 $c1 $c2 $c3", "$c3 $c1 $c2 $c3", ], -"R" => [ +R => [ "$c3 ", "$c1 $c2 $c3 ", "$c1 $c2 $c3 $c1 $c2 $c3 ", @@ -708,7 +708,7 @@ sub db1 { "$c1 $c2 $c3 $c1 $c2 ", "$c3 ", ], -"r" => [ +r => [ "$c3 ", "$c3 ", "$c3 ", @@ -719,7 +719,7 @@ sub db1 { "$c1 $c2 $c3 ", "$c3 ", ], -"S" => [ +S => [ "$c3 ", "$c3 $c1 $c2 $c3 ", "$c1 $c2 $c3 $c1 $c2 $c3", @@ -730,7 +730,7 @@ sub db1 { "$c3 $c1 $c2 $c3 ", "$c3 ", ], -"s" => [ +s => [ "$c3 ", "$c3 ", "$c3 ", @@ -741,7 +741,7 @@ sub db1 { "$c1 $c2 $c3 ", "$c3 ", ], -"T" => [ +T => [ "$c3 ", "$c1 $c2 $c3", "$c3 $c1 $c2 $c3 ", @@ -752,7 +752,7 @@ sub db1 { "$c3 $c1 $c2 $c3 ", "$c3 ", ], -"t" => [ +t => [ "$c3 ", "$c3 ", "$c3 $c1 $c2 $c3 ", @@ -763,7 +763,7 @@ sub db1 { "$c3 $c1 $c2 $c3 ", "$c3 ", ], -"U" => [ +U => [ "$c3 ", "$c1 $c2 $c3 $c1 $c2 $c3", "$c1 $c2 $c3 $c1 $c2 $c3", @@ -774,7 +774,7 @@ sub db1 { "$c3 $c1 $c2 $c3 ", "$c3 ", ], -"u" => [ +u => [ "$c3 ", "$c3 ", "$c3 ", @@ -785,7 +785,7 @@ sub db1 { "$c3 $c1 $c2 $c3 ", "$c3 ", ], -"V" => [ +V => [ "$c3 ", "$c1 $c2 $c3 $c1 $c2 ", "$c1 $c2 $c3 $c1 $c2 ", @@ -796,7 +796,7 @@ sub db1 { "$c3 $c1 $c2 $c3 ", "$c3 ", ], -"v" => [ +v => [ "$c3 ", "$c3 ", "$c3 ", @@ -807,7 +807,7 @@ sub db1 { "$c3 $c1 $c2 $c3 ", "$c3 ", ], -"W" => [ +W => [ "$c3 ", "$c1 $c2 $c3 $c1 $c2 ", "$c1 $c2 $c3 $c1 $c2 ", @@ -818,7 +818,7 @@ sub db1 { "$c3 $c1 $c2 $c3 $c1 $c2 $c3 ", "$c3 ", ], -"w" => [ +w => [ "$c3 ", "$c3 ", "$c3 ", @@ -829,7 +829,7 @@ sub db1 { "$c3 $c1 $c2 $c3 $c1 $c2 $c3 ", "$c3 ", ], -"X" => [ +X => [ "$c3 ", "$c1 $c2 $c3 $c1 $c2 $c3", "$c3 $c1 $c2 $c3 $c1 $c2 $c3 ", @@ -840,7 +840,7 @@ sub db1 { "$c1 $c2 $c3 $c1 $c2 $c3", "$c3 ", ], -"x" => [ +x => [ "$c3 ", "$c3 ", "$c3 ", @@ -851,7 +851,7 @@ sub db1 { "$c1 $c2 $c3 $c1 $c2 $c3", "$c3 ", ], -"Y" => [ +Y => [ "$c3 ", "$c1 $c2 $c3 $c1 $c2 $c3", "$c3 $c1 $c2 $c3 $c1 $c2 $c3 ", @@ -862,7 +862,7 @@ sub db1 { "$c3 $c1 $c2 $c3 ", "$c3 ", ], -"y" => [ +y => [ "$c3 ", "$c3 ", "$c3 ", @@ -873,7 +873,7 @@ sub db1 { "$c3 $c1 $c2 $c3 ", "$c3 $c1 $c2 $c3 ", ], -"Z" => [ +Z => [ "$c3 ", "$c1 $c2 $c3", "$c3 $c1 $c2 $c3 ", @@ -884,7 +884,7 @@ sub db1 { "$c1 $c2 $c3", "$c3 ", ], -"z" => [ +z => [ "$c3 ", "$c3 ", "$c3 ", @@ -895,7 +895,7 @@ sub db1 { "$c1 $c2 $c3 ", "$c3 ", ], -"\~" => [ +'~' => [ "$c3 ", "$c3 ", "$c3 ", @@ -906,7 +906,7 @@ sub db1 { "$c3 ", "$c3 ", ], -"\`" => [ +'`' => [ "$c3 ", "$c1 $c2 $c3 ", "$c3 $c1 $c2 ", @@ -917,7 +917,7 @@ sub db1 { "$c3 ", "$c3 ", ], -"\!" => [ +'!' => [ "$c3 ", "$c3 $c1 $c2 $c3", "$c3 $c1 $c2 $c3 ", @@ -928,7 +928,7 @@ sub db1 { "$c1 $c2 $c3 ", "$c3 ", ], -"\@" => [ +'@' => [ "$c3 ", "$c3 $c1 $c2 $c3 ", "$c3 $c1 $c2 $c3 $c1 $c2 $c3 ", @@ -939,7 +939,7 @@ sub db1 { "$c3 $c1 $c2 $c3 ", "$c3 ", ], -"\#" => [ +'#' => [ "$c3 ", "$c3 $c1 $c2 $c3 $c1 $c2 $c3 ", "$c3 $c1 $c2 $c3 $c1 $c2 $c3 ", @@ -950,7 +950,7 @@ sub db1 { "$c3 $c1 $c2 $c3 $c1 $c2 $c3 ", "$c3 ", ], -"\$" => [ +'$' => [ "$c3 $c1 $c2 $c3 ", "$c3 $c1 $c2 $c3 ", "$c1 $c2 $c3 $c1 $c2 $c3 $c1 $c2 $c3", @@ -961,7 +961,7 @@ sub db1 { "$c3 $c1 $c2 $c3 ", "$c3 $c1 $c2 $c3 ", ], -"\%" => [ +'%' => [ "$c3 ", "$c1 $c2 $c3 $c1 $c2 ", "$c3 $c1 $c2 $c3 ", @@ -972,7 +972,7 @@ sub db1 { "$c1 $c2 $c3 $c1 $c2 ", "$c3 ", ], -"\^" => [ +'^' => [ "$c3 ", "$c3 ", "$c3 $c1 $c2 $c3 ", @@ -983,7 +983,7 @@ sub db1 { "$c3 ", "$c3 ", ], -"\&" => [ +'&' => [ "$c3 ", "$c3 $c1 $c2 $c3 ", "$c3 $c1 $c2 $c3 $c1 $c2 $c3 ", @@ -994,7 +994,7 @@ sub db1 { "$c3 $c1 $c2 $c1 $c2 $c3", "$c3 ", ], -"\*" => [ +'*' => [ "$c3 ", "$c3 ", "$c1 $c2 $c3 $c1 $c2 ", @@ -1005,7 +1005,7 @@ sub db1 { "$c3 ", "$c3 ", ], -"\(" => [ +'(' => [ "$c3 ", "$c3 $c1 $c2 $c3", "$c3 $c1 $c2 $c3 ", @@ -1016,7 +1016,7 @@ sub db1 { "$c3 $c1 $c2 $c3", "$c3 ", ], -"\)" => [ +')' => [ "$c3 ", "$c1 $c2 $c3 ", "$c3 $c1 $c2 $c3 ", @@ -1027,7 +1027,7 @@ sub db1 { "$c1 $c2 $c3 ", "$c3 ", ], -"_" => [ +'_' => [ "$c3 ", "$c3 ", "$c3 ", @@ -1038,7 +1038,7 @@ sub db1 { "$c1 $c2 $c3", "$c3 ", ], -"\-" => [ +'-' => [ "$c3 ", "$c3 ", "$c3 ", @@ -1049,7 +1049,7 @@ sub db1 { "$c3 ", "$c3 ", ], -"\+" => [ +'+' => [ "$c3 ", "$c3 ", "$c3 $c1 $c2 $c3 ", @@ -1060,7 +1060,7 @@ sub db1 { "$c3 ", "$c3 ", ], -"\=" => [ +'=' => [ "$c3 ", "$c3 ", "$c3 ", @@ -1071,7 +1071,7 @@ sub db1 { "$c3 ", "$c3 ", ], -"\|" => [ +'|' => [ "$c3 ", "$c1 $c2 $c3", "$c1 $c2 $c3", @@ -1082,7 +1082,7 @@ sub db1 { "$c1 $c2 $c3", "$c3 ", ], -"\\" => [ +'\\' => [ "$c3 ", "$c1 $c2 $c3 ", "$c3 $c1 $c2 $c3 ", @@ -1093,7 +1093,7 @@ sub db1 { "$c3 $c1 $c2 $c3", "$c3 ", ], -"\[" => [ +'[' => [ "$c3 ", "$c1 $c2 $c3", "$c1 $c2 $c3 ", @@ -1104,7 +1104,7 @@ sub db1 { "$c1 $c2 $c3", "$c3 ", ], -"\]" => [ +']' => [ "$c3 ", "$c1 $c2 $c3", "$c3 $c1 $c2 $c3", @@ -1115,7 +1115,7 @@ sub db1 { "$c1 $c2 $c3", "$c3 ", ], -"\{" => [ +'{' => [ "$c3 ", "$c3 $c1 $c2 $c3", "$c1 $c2 $c3 ", @@ -1126,7 +1126,7 @@ sub db1 { "$c3 $c1 $c2 $c3", "$c3 ", ], -"\}" => [ +'}' => [ "$c3 ", "$c1 $c2 $c3 ", "$c3 $c1 $c2 $c3", @@ -1137,7 +1137,7 @@ sub db1 { "$c1 $c2 $c3 ", "$c3 ", ], -"\:" => [ +':' => [ "$c3 ", "$c3 ", "$c3 ", @@ -1148,7 +1148,7 @@ sub db1 { "$c3 ", "$c3 ", ], -"\;" => [ +';' => [ "$c3 ", "$c3 ", "$c3 ", @@ -1159,7 +1159,7 @@ sub db1 { "$c3 $c1 $c2 $c3 ", "$c3 ", ], -"\'" => [ +'\'' => [ "$c3 ", "$c3 $c1 $c2 ", "$c1 $c2 $c3 ", @@ -1170,7 +1170,7 @@ sub db1 { "$c3 ", "$c3 ", ], -"\"" => [ +'"' => [ "$c3 ", "$c1 $c2 $c3 $c1 $c2 $c3", "$c1 $c2 $c3 $c1 $c2 $c3", @@ -1181,7 +1181,7 @@ sub db1 { "$c3 ", "$c3 ", ], -"\<" => [ +'<' => [ "$c3 ", "$c3 ", "$c3 $c1 $c2 $c3", @@ -1192,7 +1192,7 @@ sub db1 { "$c3 ", "$c3 ", ], -"\>" => [ +'>' => [ "$c3 ", "$c3 ", "$c1 $c2 $c3 ", @@ -1203,7 +1203,7 @@ sub db1 { "$c3 ", "$c3 ", ], -"\?" => [ +'?' => [ "$c3 ", "$c3 $c1 $c2 $c3 ", "$c3 $c1 $c2 $c3 $c1 $c2 ",