color: #FFF;
padding: 0 0.5em;
}
+td.empty {
+ background: #DDD;
+}
+td.reserved {
+ background: #BBB;
+}
</style>
</head>
my ($width, $digraphs, $rowheads, $colheads) = @_;
my @cells;
- push @cells, sprintf '<td title="%s">%s%s',
+ push @cells, sprintf '<td title="%s"%s>%s%s',
$di{ord $_} && $diinfo->{$di{ord $_}}->[1],
- $_ eq '-' ? ' ' : quote($_),
+ $_ eq '-' ? ' class="empty"' : $_ eq '=' ? ' class="reserved"' : '',
+ $_ eq '-' || $_ eq '=' ? ' ' : quote($_),
$di{ord $_} && sprintf(' <small>%s</small>', $di{ord $_})
for @$digraphs;
print table(@$_) for (
[
12 => [qw{
- p t - ʈ - c k q - ʔ ʡ -
- b d - ɖ - ɟ ɡ ɢ - - - -
- m ɱ - n - ɳ ɲ ŋ ɴ - - -
- ʙ - - r - - - - - - - -
- - ⱱ - ɾ - ɽ - - - - - -
+ p t - ʈ - c k q - = ʡ ʔ
+ b d - ɖ - ɟ ɡ ɢ - = - =
+ m ɱ - n - ɳ ɲ ŋ ɴ = = =
+ ʙ - - r - - - = ʀ = я =
+ - ⱱ - ɾ - ɽ - = ɢ̆ = - =
ɸ f θ s ʃ ʂ ç x χ ħ ʜ h
β v ð z ʒ ʐ ʝ ɣ ʁ ʕ ʢ ɦ
- - - - ɬ - - - - - - - -
- - - - ɮ - - - - - - - -
- - ʋ - ɹ - ɻ j ɰ - - - -
- - - - l - ɭ ʎ ʟ - - - -
- ʘ - ǀ ǁ ǃ - ǂ - - - - -
+ = = - ɬ - - - - - = = =
+ = = - ɮ - - - - - = = =
+ - ʋ - ɹ - ɻ j ɰ - - - =
+ = = - l - ɭ ʎ ʟ - = = =
+ ʘ - ǀ ǁ ǃ - ǂ - - = = =
ɓ - ɗ - - - ʄ ɠ ʛ - - -
}],
[