import java.util.Random;

/* Test program for å generere en tone på 440 Hz basert på firkantpuls. 

   Husk at en ren tone med frekvens f Hz er sin(2pi*f*t). Denne er basert
   på funksjonen sin(2pi*t) som har en frekvens på 1 Hz, det vil si at den går
   fra 0 til 1 til -1 og tilbake til 0 (en hel periode) når t går fra 0 til 1.
   Vi erstatter sin(2pi*t) med en funksjon p0 som er 1 på intervallet [0,1/2)
   og -1 på intervallet [1/2,0), se under, som også kan sies å gjennomløpe en hel periode på intervallet [0,1]. En tone med frekvens f er da gitt
   ved funksjonen p0(f*t). */

class testp0
{
    public static void main(String [] args) throws Exception
    {
        MatInf1100Sound lyd;
        int i, n;
        int max = Short.MAX_VALUE; /* Siden samplene som vi genererer ligger
                                      mellom -1 og 1 ganger vi opp med den
                                      største int'en slik at lyden blir godt
                                      hørbar. */
        short data [];
        double sampleRate;
        double t, length;

        sampleRate = 44100;
        length = 1;                   /* i sekunder */
        n = (int)(length*sampleRate); /* Totalt antall sampler */
        data = new short[n];          /* Til lagring av sampler */
        
        for (i=0; i<n; i++)
        	{
        		t = (double)(i) / sampleRate;
        		data[i] = (short)(max*p0(440*t)); /* Sampler p0 */
        	}
        	        	
        lyd = new MatInf1100Sound(data, sampleRate); /* Lager lyd objekt */
        lyd.play();                                  /* Spiller av lyden */
        System.out.println("n = " + data.length);
        
        System.exit(0);
    }
    
    
        public static double p0(double t) 
        {
	        if (t-Math.floor(t) < 0.5) return(1.0); 
    	    else return(-1.0);                         
   	    }											  
   	    											/* Hvis t ligger nærmere
   	    											   heltallet til venstre
   	    											   enn 0.5 gir p0 1
    												   ellers -1.
    												   (Funksjonen floor(t)
    												   gir det største heltallet
    												   som er mindre enn eller
    												   lik t.) */

}