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.) */

}