implementation module notes

import	StdArray
import	StdGame

MIDDLE_C :== 38

note :: Int -> Frequency
note n = NoteFreq.[n + MIDDLE_C]

getnotefreq :: Int -> Frequency
getnotefreq n = NoteFreq.[n]
//    | (n > 0) && (n < 18 * 8 - 1) = NoteFreq.[n]
//    | otherwise = 0

NoteFreq :: {#Int}
NoteFreq = { 58,     62,     65,     69,     73,     78,     82,     87,
             92,     98,    104,    110,    117,    123,    131,    139,
            147,    156,    165,    175,    185,    196,    208,    220,
            233,    247,    262,    277,    294,    311,    330,    349,
            370,    392,    415,    440,    466,    494,    523,    554,
            587,    622,    659,    698,    740,    784,    831,    880,
            932,    988,   1047,   1109,   1175,   1245,   1319,   1397,
           1480,   1568,   1661,   1760,   1865,   1976,   2093,   2217,
           2349,   2489,   2637,   2794,   2960,   3136,   3322,   3520,
           3729,   3951,   4186,   4435,   4699,   4978,   5274,   5588,
           5920,   6272,   6645,   7040,   7459,   7902,   8372,   8870,
           9397,   9956,  10548,  11175,  11840,  12544,  13290,  14080,
          14917,  15804,  16744,  17740,  18795,  19912,  21096,  22351,
          23680,  25088,  26579,  28160,  29834,  31609,  33488,  35479,
          37589,  39824,  42192,  44701,  47359,  50175,  53159,  56320,
          59669,  63217,  66976,  70959,  75178,  79649,  84385,  89402,
          94719, 100351, 106318, 112640, 119338, 126434, 133952, 141918,
         150356, 159297, 168769, 178805, 189437, 200702, 212636, 225280 }