|
|
|
|
||
|
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.
|
||
|
|
|