<?php 
/*
    Copyright (C) 2004 Aaron Cyril Spike

    This file is part of FretFind 2-D.

    FretFind 2-D is free software; you can redistribute it and/or modify
    it under the terms of the GNU General Public License as published by
    the Free Software Foundation; either version 2 of the License, or
    (at your option) any later version.

    FretFind 2-D is distributed in the hope that it will be useful,
    but WITHOUT ANY WARRANTY; without even the implied warranty of
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
    GNU General Public License for more details.

    You should have received a copy of the GNU General Public License
    along with FretFind 2-D; if not, write to the Free Software
    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
*/

function playpolymidipb($chords,$melody,$pbrsemitones=1,$pbrcents=0)
{
        if(sizeof($melody['notes'])!=sizeof($melody['pbs'])) die('invalid input length!');
        $pbrsemitones=$pbrsemitones<0?0:$pbrsemitones;
        $pbrsemitones=$pbrsemitones>24?24:$pbrsemitones;
        $pbrcents=$pbrcents<0?0:$pbrcents;
        $pbrcents=$pbrcents>100?100:$pbrcents;

        header('Content-Type: audio/x-midi;');
        header('Content-Disposition: filename="play.mid"');
        require_once('midi.class.php');
        $beatlength=24;
        $v=100;
        for($i=1;$i<=16;$i++)
        {
                $data.="0 Par ch=$i c=101 v=0\n";
                $data.="0 Par ch=$i c=100 v=0\n";
                $data.="0 Par ch=$i c=6 v=$pbrsemitones\n";
                $data.="0 Par ch=$i c=38 v=$pbrcents\n";
        }

        $beat=0;
        ksort($chords);
        foreach($chords as $chord)
        {
                $on=($beat)*$beatlength;
                $off=($beat+1)*$beatlength;
                $notes=array_keys($chord);
                $ons=$offs='';
                for($i=1;$i<=sizeof($notes) && $i<=10;$i++)
                {
                        $note=$notes[$i-1];
                        $data.="$on Pb ch=$i v={$melody['pbs'][$note]}\n";
                        $midinote=$melody['notes'][$note];
                        $ons.="$on On ch=$i n=$midinote v=$v\n";
                        $offs.="$off On ch=$i n=$midinote v=0\n";
                }
                $data.=$ons.$offs;
                $beat++;
        }

        $midi = new Midi();
        $end=$beat*$beatlength;
        $midi->importTxt("MFile 0 1 $beatlength\nMTrk\n$data$end Meta TrkEnd\nTrkEnd");
        echo $midi->getMid();
}
?>