Keskustelu: Koodit: PHP: Pianosoinnut

<?php
/*
Pianosointujen näyttö, haku ja soitto, tekijä Antti Laaksonen

Tämä skripti näyttää valitun soinnun pianon koskettimilla.
Toinen mahdollisuus on ilmoittaa soinnussa olevat sävelet,
jolloin skripti kertoo niiden sointujen nimet, joissa
valitut sävelet ovat. Skripti pystyy myös soittamaan minkä
tahansa sävelyhdistelmän muodostamalla MIDI-tiedoston.

*/

// sävelten nimet oikeassa järjestyksessä
$savelet = array("C", "Cis/Des", "D", "Dis/Es", "E", "F",
                 "Fis/Ges", "G", "Gis/As", "A", "Ais/B", "H");
// sointujen nimet
$soinnut = array("", "+", "6", "7", "maj7", "m",
                 "m6", "m7", "sus4", "dim");
// sointujen sävelet, kantasäveltä ei ole mukana
$soinnut_s = array(array(4, 7), array(4, 8), array(4, 7, 9),
                   array(4, 7, 10), array(4, 7, 11), array(3, 7),
                   array(3, 7, 9), array(3, 7, 10), array(5, 7),
                   array(3, 6, 9));
// näytettävät oktaavit
$oktaavit = 2;

// tulostaa sivulle pianon koskettimet
function koskettimet($painetut, $oktaavit) {
    // koskettimien värit oktaavissa (0 = valkoinen, 1 = musta)
    $varit = array(0, 1, 0, 1, 0, 0, 1, 0, 1, 0, 1, 0);

    echo "<table cellpadding=\"0\" cellspacing=\"0\" border>";
    echo "<tr valign=\"bottom\">";

    // piirretään koskettimet alalaidan valintaruutuineen
    $k = 0;
    for ($i = 0; $i < $oktaavit; $i++) {
        for ($j = 0; $j < 12; $j++) {
            $vari = $varit[$k % 12] ? "m" : "v";
            $painettu = in_array($k, $painetut) ? "checked" : "";
            echo "<td><img src=\"p_{$vari}.png\" width=\"20\"
                  height=\"50\">";
            echo "<center><input type=\"checkbox\" name=\"k{$k}\"
                  $painettu></center></td>";
            $k++;
        }
    }

    echo "</tr></table>";
}

// tulostaa sivulle valituista sävelistä muodostuvat soinnut
function soinnut($painetut, $savelet, $soinnut, $soinnut_s) {
    // laitetaan valitussa soinnussa olevat sävelet
    // taulukkoon, jakojäännöksen avulla samassa oktaavissa
    for ($i = 0; $i < count($painetut); $i++) {
        $oikea[$painetut[$i] %= 12] = 1;
    }
    // käydään läpi kaikki soinnut kaikissa sävellajeissa, ja
    // pistetään talteen valitun soinnun kanssa samat
    for ($i = 0; $i < 12; $i++) {
        for ($j = 0; $j < count($soinnut_s); $j++) {
            $kokeilu = array($i => 1);
            for ($k = 0; $k < count($soinnut_s[$j]); $k++) {
                $kokeilu[($soinnut_s[$j][$k] + $i) % 12] = 1;
            }
            if ($oikea == $kokeilu) {
                $loydetyt[] = $savelet[$i] . $soinnut[$j];
            }
        }
    }
    // tulostetaan löytyneet soinnut sivulle
    if (isset($loydetyt)) {
        echo "<p>Löytyneet soinnut: ";
        echo $loydetyt[0];
        for ($i = 1; $i < count($loydetyt); $i++) {
            echo ", {$loydetyt[$i]}";
        }
        echo "</p>";
    } else {
        echo "<p>Sointuja ei löytynyt!</p>";
    }
}

// muodostaa MIDI-tiedoston valitusta soinnusta
function midi($painetut) {
    // ohjataan selainta käsittelemään sivu oikein
    header("Content-Type: audio/midi\n\n");
    header("Content-Disposition: attachment; filename=sointu.mid");

    $pituus = count($painetut);

    if ($pituus == 0) {
        exit;
    }

    // määritetään MIDI-tiedoston aloitus
    $data = array(77, 84, 104, 100, 0, 0, 0, 6, 0, 1, 0, 2, 0, 192, 77,
                  84, 114, 107, 0, 0, 0, 10, 0, 255, 1, 2, 65, 76, 0, 255,
                  47, 0, 77, 84, 114, 107, 0, 0, 0, 18 + 8 * $pituus, 0,
                  255, 33, 1, 0, 0, 176, 7, 127, 0, 176, 10, 64, 0);

    // lisätään tiedostoon oikeat sävelet
    for ($i = 0; $i < $pituus; $i++) {
        $data[] = 144;
        $data[] = 60 + $painetut[$i];
        $data[] = 110;
        $data[] = ($i == $pituus - 1) ? 133 : 0;
    }
    $data[] = 80;
    for ($i = 0; $i < $pituus; $i++) {
        $data[] = 144;
        $data[] = 60 + $painetut[$i];
        $data[] = 0;
        $data[] = 0;
    }
    $data[] = 255;
    $data[] = 47;
    $data[] = 0;

    // tulostetaan kaikki tiedoston merkit sivulle
    for ($i = 0; $i < count($data); $i++) {
        echo chr($data[$i]);
    }

    exit;
}

$painetut = array();

// laitetaan soinnun sävelet taulukkoon soinnun
// nimen tai valittujen sävelien perusteella
if (isset($l1)) {
    $painetut = $soinnut_s[$sointu];
    $painetut[] = 0;
    for ($i = 0; $i < count($painetut); $i++) {
        $painetut[$i] += $savel;
    }
} else {
    for ($i = 0; $i < $oktaavit * 12; $i++) {
        $nimi = "k{$i}";
        if (isset($$nimi)) {
            $painetut[] = $i;
        }
    }
}

// muodostetaan MIDI-tiedosto, jos niin on valittu
if (isset($l3)) {
    midi($painetut);
}

echo "<html><head><title>Sointuapu</title></head><body>";

echo "<h2>Sointuapu</h2>";

echo "<form action=\"piano.php\" method=\"post\">";

// tulostetaan koskettimet
koskettimet($painetut, $oktaavit);

// tulostetaan sävelet sisältävä alasvetovalikko
echo "<p><select name=\"savel\">";
for ($i = 0; $i < count($savelet); $i++) {
    $valittu = ($i == $savel) ? " selected" : "";
    echo "<option value=\"{$i}\"{$valittu}>{$savelet[$i]}";
}
echo "</select> ";

// tulostetaan soinnut sisältävä alasvetovalikko
echo "<select name=\"sointu\">";
for ($i = 0; $i < count($soinnut); $i++) {
    $valittu = ($i == $sointu) ? " selected" : "";
    echo "<option value=\"{$i}\"{$valittu}>{$soinnut[$i]}";
}
echo "</select> ";

echo "<input type=\"submit\" name=\"l1\" value=\"Näytä\"> ";

echo "<input type=\"submit\" name=\"l2\" value=\"Etsi\"> ";

echo "<input type=\"submit\" name=\"l3\" value=\"Soita\"></p>";

echo "</form>";

// tulostetaan säveliin sopivat soinnut, jos niin on valittu
if (isset($l2)) {
    soinnut($painetut, $savelet, $soinnut, $soinnut_s);
}

echo "</body></html>";

?>