/*
    Beispielapplikation f�r ACS

    "Piano"

  	Phase 1

    14.1.92         Stefan Bachert

		(c) 1992 MAXON Computer GmbH
*/

#include	<tos.h>
#include    <acs.h>
#include    <piano1.h>

/* Prototypen anlegen */

static void ton (void);
static Awindow *piano_make (void *not_used);

#include    <piano1.ah>

/* Soundgenerator ansteuern */
static char sound [] = {
	0x00, 0x10,				/* Generator A Frequenz einstellen */
	0x01, 0x10,
	0x07, 0xf8,				/* Rauschen ausschalten */
	0x0b, 0x00,				/* Tonl„nge H�llkurve */
	0x0c, 0x30,
	0x08, 0x17,				/* Lautst„rke */
	0x0d, 0x00,				/* H�llkurve abklingend */
	0xff, 0x00				/* stop */
	};

static void ton (void)
	/*
	 *	l„žt ton der Frequenz (userp1) / 1000 ert”nen
	 *	
	 */
{
  AOBJECT *aob;
  long val;

  aob = (AOBJECT *) ev_object + ev_obnr + 1;
  val = 125000000L / (long) aob-> userp1;	/* berechne Teilerwert */

  sound [1] = (char) val;				/* unteres Byte */
  sound [3] = (char) (val >> 8) & 0x0f; /* oberes (Halb) Byte */

  Dosound (sound);
}

static Awindow *piano_make (void *not_used)
    /*
     *  Erzeuge Piano Fenster
     */
{
  Awindow *wi;

  wi = Awi_create (&PIANO);
  if (wi == NULL) return NULL;

  (wi-> open) (wi);                 /* ”ffne gleich */

  return wi;
}


int ACSinit (void)
    /*
     *  Doppelklick auf NEU erzeugt ein neues Fenster
     */
{
  Awindow *window;

  window = Awi_root ();                 /* root window */

  if (window == NULL) return FAIL;      /* lege NEU Icon an */
  (window-> service) (window, AS_NEWCALL, &PIANO. create);

  window = &PIANO;
  (window-> create) (NULL);             /* sofort ein Fenster erzeugen */

  return OK;
}