<?
/*
    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
*/
require_once('includes/freq2midipb.php');

function makemelody($type,$scale,$basefreq=220)
{
        $melody=array();
        if ($type=='scala')
        {
                $tones=sizeof($scale);
                $maxtones=$tones>64?$tones:(2*$tones)-1;

                $note=freq2midipb($melody['freqs'][]=$basefreq);
                $melody['notes'][]=$note['note'];
                $melody['pbs'][]=$note['pb'];


                for ($i=1; $i<$maxtones; $i++)
                {
                        $step=(($i-1)%($tones-1))+1;
                        $ratio=(
                                ($scale[$step][0]*$scale[$step-1][1])/
                                ($scale[$step][1]*$scale[$step-1][0])
                                );

                        $note=freq2midipb($melody['freqs'][]=$melody['freqs'][$i-1]*$ratio);
                        $melody['notes'][]=$note['note'];
                        $melody['pbs'][]=$note['pb'];
                }
        }
        else if ($type=='root2')
        {
#                $tones=round($_SESSION['scaleroot2']);
		$tones=round(log(2)/log($scale[1][0]/$scale[1][1]));
                $maxtones=$tones>64?$tones:(2*$tones);

                $note=freq2midipb($melody['freqs'][]=$basefreq);
                $melody['notes'][]=$note['note'];
                $melody['pbs'][]=$note['pb'];

                for ($i=1; $i<=$maxtones; $i++)
                {
                        $ratio=$scale[1][0]/$scale[1][1];

                        $note=freq2midipb($melody['freqs'][]=$melody['freqs'][$i-1]*$ratio);
                        $melody['notes'][]=$note['note'];
                        $melody['pbs'][]=$note['pb'];
                }
        }
        return $melody;
}
?>