| T.R | Title | User | Personal Name
 | Date | Lines | 
|---|
| 2112.1 | use basic to calculate it | ANT::JANZEN | cf. ANT::CIRCUITS,ANT::UWAVES | Tue Sep 05 1989 17:06 | 27 | 
|  |     If you use basic, you can calculate the whole thing.
    
    The ratio of two consecutive semitones in the tempered scale is
    2**(1/12).  So you can make a loop from A 440:
    
    dim scale(12)
    
    for semitone=0 to 12 step 1
      scale(semitone)=2**(semitone/12)*440
    next semitone
    
    The order of names is:
    A
    A# Bb
    B
    C
    C# Db
    D
    D# Eb
    E
    F
    F# Gb
    G
    G# Ab
    A
    Tom
 | 
| 2112.2 | Send Mailstop and Two Boxtops... | DRUMS::FEHSKENS |  | Wed Sep 06 1989 11:13 | 11 | 
|  |     I have been meaning for some time to put together a chart of MIDI
    note numbers, piano key numbers, note names and nominal (A440)
    frequencies.  I have a chart from of frequencies/ note names and
    piano key numbers from the American Institute of Physics Handbook
    which I can copy and send to you.
    
    len.
   
 | 
| 2112.3 | Scale.Bas for VAX Basic | ANT::JANZEN | cf. ANT::CIRCUITS,ANT::UWAVES | Wed Sep 06 1989 12:20 | 76 | 
|  | %TITLE "ScaleList"
%IDENT "V01.00"
PROGRAM ScaleList
!++
! FACILITY:
! 
!   ScaleList
! 
! FUNCTIONAL DESCRIPTION:
! 
!   Calculates and displays MIDI note number, frequency, and note name
! 
! IMPLICIT INPUTS:
! 
!   none
! 
! IMPLICIT OUTPUTS:
! 
!   Prints to screen a list of note names, midi key numbers, and frequencies
! 
! SIDE EFFECTS:
! 
!   none
! 
! AUTHOR:
! 
!   Thomas E. Janzen
! 
! CREATION DATE: 06-SEP-1989
! 
! MODIFICATION HISTORY:
! 
!--
    
    %PAGE
    %SBTTL "Declarations"
    
    !+
    ! Local Constants
    !-
    DECLARE REAL CONSTANT LOWC = 16.3516, A440 = 440.0
    DECLARE INTEGER CONSTANT NOTESPEROCTAVE = 12, TopnoteinOctave=11,TopOctave=7
    !+
    ! Local Functions
    !-
    !+
    ! Local Variables
    !-
    DECLARE REAL	PITCH
    DECLARE REAL	TemperedScale(0 TO TopOctave, 0 TO TopNoteInOctave)
    DECLARE STRING	NoteNames(0 TO TopNoteInOctave)
    %PAGE
    
    RESTORE
    FOR Pitch = 0 to TopNoteInOctave
	READ NoteNames(Pitch)
    Next Pitch
    FOR Octave = 0 TO TopOctave STEP 1
	
	FOR Pitch = 0 TO NotesPerOctave-1 STEP 1
	    TemperedScale(TopOctave,Pitch)=LOWC*2**(((Octave*NotesPerOctave)+Pitch)/12)
            print "MIDI: ";Octave*NotesPerOctave + Pitch + 12;
	    PRINT "Pitch: ";NoteNames(Pitch);Octave;
	    print "Frequency: ";temperedscale(topoctave,pitch)
	NEXT Pitch
    NEXT Octave
DATA "C ", "C#", "D ", "D#", "E ", "F ", "F#", "G ", "G#", "A ", "A#", "B "
END PROGRAM 1
 | 
| 2112.4 | List of notes and frequencies | ANT::JANZEN | cf. ANT::CIRCUITS,ANT::UWAVES | Wed Sep 06 1989 12:22 | 98 | 
|  | 
    MIDI:  12 Pitch: C  0 Frequency:  16.3516 
MIDI:  13 Pitch: C# 0 Frequency:  17.3239 
MIDI:  14 Pitch: D  0 Frequency:  18.3541 
MIDI:  15 Pitch: D# 0 Frequency:  19.4454 
MIDI:  16 Pitch: E  0 Frequency:  20.6017 
MIDI:  17 Pitch: F  0 Frequency:  21.8268 
MIDI:  18 Pitch: F# 0 Frequency:  23.1247 
MIDI:  19 Pitch: G  0 Frequency:  24.4997 
MIDI:  20 Pitch: G# 0 Frequency:  25.9565 
MIDI:  21 Pitch: A  0 Frequency:  27.5 
MIDI:  22 Pitch: A# 0 Frequency:  29.1352 
MIDI:  23 Pitch: B  0 Frequency:  30.8677 
MIDI:  24 Pitch: C  1 Frequency:  32.7032 
MIDI:  25 Pitch: C# 1 Frequency:  34.6478 
MIDI:  26 Pitch: D  1 Frequency:  36.7081 
MIDI:  27 Pitch: D# 1 Frequency:  38.8909 
MIDI:  28 Pitch: E  1 Frequency:  41.2035 
MIDI:  29 Pitch: F  1 Frequency:  43.6535 
MIDI:  30 Pitch: F# 1 Frequency:  46.2493 
MIDI:  31 Pitch: G  1 Frequency:  48.9994 
MIDI:  32 Pitch: G# 1 Frequency:  51.9131 
MIDI:  33 Pitch: A  1 Frequency:  55 
MIDI:  34 Pitch: A# 1 Frequency:  58.2705 
MIDI:  35 Pitch: B  1 Frequency:  61.7354 
MIDI:  36 Pitch: C  2 Frequency:  65.4064 
MIDI:  37 Pitch: C# 2 Frequency:  69.2957 
MIDI:  38 Pitch: D  2 Frequency:  73.4162 
MIDI:  39 Pitch: D# 2 Frequency:  77.7818 
MIDI:  40 Pitch: E  2 Frequency:  82.4069 
MIDI:  41 Pitch: F  2 Frequency:  87.3071 
MIDI:  42 Pitch: F# 2 Frequency:  92.4986 
MIDI:  43 Pitch: G  2 Frequency:  97.9989 
MIDI:  44 Pitch: G# 2 Frequency:  103.826 
MIDI:  45 Pitch: A  2 Frequency:  110 
MIDI:  46 Pitch: A# 2 Frequency:  116.541 
MIDI:  47 Pitch: B  2 Frequency:  123.471 
MIDI:  48 Pitch: C  3 Frequency:  130.813 
MIDI:  49 Pitch: C# 3 Frequency:  138.591 
MIDI:  50 Pitch: D  3 Frequency:  146.832 
MIDI:  51 Pitch: D# 3 Frequency:  155.564 
MIDI:  52 Pitch: E  3 Frequency:  164.814 
MIDI:  53 Pitch: F  3 Frequency:  174.614 
MIDI:  54 Pitch: F# 3 Frequency:  184.997 
MIDI:  55 Pitch: G  3 Frequency:  195.998 
MIDI:  56 Pitch: G# 3 Frequency:  207.652 
MIDI:  57 Pitch: A  3 Frequency:  220 
MIDI:  58 Pitch: A# 3 Frequency:  233.082 
MIDI:  59 Pitch: B  3 Frequency:  246.942 
MIDI:  60 Pitch: C  4 Frequency:  261.626 
MIDI:  61 Pitch: C# 4 Frequency:  277.183 
MIDI:  62 Pitch: D  4 Frequency:  293.665 
MIDI:  63 Pitch: D# 4 Frequency:  311.127 
MIDI:  64 Pitch: E  4 Frequency:  329.628 
MIDI:  65 Pitch: F  4 Frequency:  349.228 
MIDI:  66 Pitch: F# 4 Frequency:  369.994 
MIDI:  67 Pitch: G  4 Frequency:  391.996 
MIDI:  68 Pitch: G# 4 Frequency:  415.305 
MIDI:  69 Pitch: A  4 Frequency:  440 
MIDI:  70 Pitch: A# 4 Frequency:  466.164 
MIDI:  71 Pitch: B  4 Frequency:  493.883 
MIDI:  72 Pitch: C  5 Frequency:  523.251 
MIDI:  73 Pitch: C# 5 Frequency:  554.365 
MIDI:  74 Pitch: D  5 Frequency:  587.33 
MIDI:  75 Pitch: D# 5 Frequency:  622.254 
MIDI:  76 Pitch: E  5 Frequency:  659.255 
MIDI:  77 Pitch: F  5 Frequency:  698.456 
MIDI:  78 Pitch: F# 5 Frequency:  739.989 
MIDI:  79 Pitch: G  5 Frequency:  783.991 
MIDI:  80 Pitch: G# 5 Frequency:  830.609 
MIDI:  81 Pitch: A  5 Frequency:  880 
MIDI:  82 Pitch: A# 5 Frequency:  932.328 
MIDI:  83 Pitch: B  5 Frequency:  987.767 
MIDI:  84 Pitch: C  6 Frequency:  1046.5 
MIDI:  85 Pitch: C# 6 Frequency:  1108.73 
MIDI:  86 Pitch: D  6 Frequency:  1174.66 
MIDI:  87 Pitch: D# 6 Frequency:  1244.51 
MIDI:  88 Pitch: E  6 Frequency:  1318.51 
MIDI:  89 Pitch: F  6 Frequency:  1396.91 
MIDI:  90 Pitch: F# 6 Frequency:  1479.98 
MIDI:  91 Pitch: G  6 Frequency:  1567.98 
MIDI:  92 Pitch: G# 6 Frequency:  1661.22 
MIDI:  93 Pitch: A  6 Frequency:  1760 
MIDI:  94 Pitch: A# 6 Frequency:  1864.66 
MIDI:  95 Pitch: B  6 Frequency:  1975.53 
MIDI:  96 Pitch: C  7 Frequency:  2093 
MIDI:  97 Pitch: C# 7 Frequency:  2217.46 
MIDI:  98 Pitch: D  7 Frequency:  2349.32 
MIDI:  99 Pitch: D# 7 Frequency:  2489.02 
MIDI:  100 Pitch: E  7 Frequency:  2637.02 
MIDI:  101 Pitch: F  7 Frequency:  2793.83 
MIDI:  102 Pitch: F# 7 Frequency:  2959.96 
MIDI:  103 Pitch: G  7 Frequency:  3135.96 
MIDI:  104 Pitch: G# 7 Frequency:  3322.44 
MIDI:  105 Pitch: A  7 Frequency:  3520 
MIDI:  106 Pitch: A# 7 Frequency:  3729.31 
MIDI:  107 Pitch: B  7 Frequency:  3951.07 
Tom
 | 
| 2112.5 | thanx for info | CSC32::GLAUNER |  | Wed Sep 06 1989 13:59 | 5 | 
|  | 	All this INFO is great, what a great notes file also.
	This kind of stuff really gets my interest going.
	Thanks again
	Ray
 | 
| 2112.6 | But.. | WELSWS::GIBSON | Alan Gibson @WLO | Fri Sep 08 1989 05:17 | 3 | 
|  |     Be aware that some book/magazines/computer programs are based, not
    on A=440 Hz, but C=256 Hz.  This makes some calculations easier,
    but is flatter than A=440 by about half a semitone.
 | 
| 2112.7 |  | KOBAL::DICKSON |  | Fri Sep 08 1989 09:36 | 2 | 
|  | There is also a general trend to tuning slightly higher than A=440.
I've heard of some european orchestras doing this.
 | 
| 2112.8 | It never made sense to me | CSC32::MOLLER | Nightmare on Sesame Street | Fri Sep 08 1989 11:22 | 3 | 
|  | 	Maybe that's why the MT-32 has it's A tuned to 442.0 hz
							Jens
 | 
| 2112.9 | Yamaha would never do *that*... | DCSVAX::COTE | Another day, another segue... | Fri Sep 08 1989 12:53 | 5 | 
|  |     Methinks A442 is Roland's 'standard'.
    
    Makes their synths stand out a bit...
    
    Edd
 | 
| 2112.10 | They Think They're Really Sharp! | DRUMS::FEHSKENS |  | Fri Sep 08 1989 13:39 | 4 | 
|  |     Yes, Roland standard pitch is A442.  Only Roland knows why...
    
    len.
    
 | 
| 2112.11 |  | KOBAL::DICKSON |  | Fri Sep 08 1989 14:10 | 1 | 
|  |     My new Casio uses 442 as well for its built-in noises.
 | 
| 2112.12 | What's crush depth on a pianoforte? | GUESS::YERAZUNIS | Reverse-engineering the future. | Thu Sep 14 1989 17:46 | 13 | 
|  |     I have _heard_ that the definition of A has been creeping steadily
    sharper for the last five hundred years AT LEAST.  Many very old
    instruments (especially stringed instruments) cannot be brought
    into tune with current concert pitch of A-440.  Their frames were
    designed at for concert pitches of up to a fourth lower than A-440
    and the harps cannot withstand the additional string tension needed.
    
    
    A friend who was heavily into harpsichords knew of at least one very
    old (and valuable) harpsichord that was retuned to A-440 and imploded... 
    
    
    	-Bill
 |