md1.pl.txt
require "replace.pl";
binmode STDIN;
print << "HEADER";
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2 Final//EN">
<HTML lang="ja">
<HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html;CHARSET=Shift_JIS">
<META NAME="keywords" CONTENT="SC-88 Pro, rhythm name list">
<META NAME="description" CONTENT="SC-88 Pro rhythm name list">
<LINK rel="stylesheet" href="../standard.css" type="text/css">
<TITLE LANG="ja">SC-88Pro Rhythm tone names list</TITLE>
</HEAD>
<BODY LANG="ja">
<H3>SC-88 Pro rhythm tone names list</H3>
HEADER
undef $/;
$buf = <>;
$pmax = length($buf);
print "<TABLE BORDER=\"1\">\n";
print "<CAPTION>88Pro Standard 1</CAPTION>\n";
$p2 = 0;
for ($p = 0; $p < $pmax; $p += 16) {
($map,$pc,$key,$name) = unpack("xCCCA12",substr($buf,$p,16));
for (; $p2 < $key; $p2++) {
&putkey(-$p2);
print "<TD></TD></TR>\n";
}
&putkey($key);
$name = &replaceRhythmName($name);
print "<TD>$name</TD></TR>\n";
$p2++;
}
print "</TABLE>\n";
print << "FOOTER";
</BODY>
</HTML>
FOOTER
sub putkey
{
local($key) = @_;
local($f);
if ($key < 0) {
$f = 1;
$key = -$key;
$key2 = "";
} else {
$key2 = $key;
}
$_ = $key;
$_ %= 12;
print "<TR>\n";
if ($_ == 1 || $_ == 3 || $_ == 6 || $_ == 8 || $_ == 10) { # black
print "<TD BGCOLOR=\"#FFFFFF\"> </TD>\n";
print "<TD BGCOLOR=\"#000000\"><FONT COLOR=\"#FFFFFF\" ALIGN=\"LEFT\">$key2 </TD>\n";
} else { # white
if ($_ == 0) {
$oct = int ($key2 / 12) - 1;
print "<TH ROWSPAN=\"12\">C$oct</TH>\n";
}
print "<TD COLSPAN=\"2\" BGCOLOR=\"#FFFFFF\" ALIGN=\"LEFT\">$key2 </TD>\n";
}
}