RAMSES	Systems Ecology
Start         Modules:   A-Z   Function   Layer        QuickRefs:   DM   AuxLib   AuxLibE   SciLib   EasyMW   MW   ISIS   RMSLib

DEFINITION MODULE SimpleSounds;

  (*******************************************************************

    Module  SimpleSounds     (Version 1.0)

      Copyright (c) 1988-2006 by Andreas Fischlin and ETH Zurich.

    Purpose   Produce simple, for instance plain, sounds with a
              given freqency and duration.

    Remarks   --


    Programming

      o Design
        Andreas Fischlin          01/07/1988

      o Implementation
        Andreas Fischlin          01/07/1988


    ETH Zurich
    Systems Ecology
    CHN E 35.1
    Universitaetstrasse 16
    8092 Zurich
    SWITZERLAND

    URLs:
        <mailto:RAMSES@env.ethz.ch>
        <http://www.sysecol.ethz.ch>
        <http://www.sysecol.ethz.ch/SimSoftware/RAMSES>


    Last revision of definition:  01/07/1988  AF

  *******************************************************************)


  (*
    Some predefined sounds, multiply by 2 to obtain a tone one
    octave below the tone, divide by 2 to obtain a tone one octave
    higher tone.  E.g.  C' = C*2, c = C DIV 2, or c' = C DIV 4.
  *)

  CONST

    C   = 2994;
    Cis = 2826;
    D   = 2668;
    Es  = 2518;
    E   = 2377;
    F   = 2243;
    Ges = 2117;
    G   = 1998;
    Gis = 1886;
    A   = 1780;
    B   = 1680;
    H   = 1586;


  PROCEDURE Sound(f,d: INTEGER);
    (*
      Makes a sound of a frequency ( = 783360/f) [Hz] defined by f
      given as a multiple of the above constants and of duration d
      in 10th of seconds
    *)


END SimpleSounds.