Board index » delphi » Anybody know of Anything for TP 6.0???

Anybody know of Anything for TP 6.0???

I am currently in a {*word*99}py Computer Science (its only honors...DISD!!!)  class
and I am looking for some fixes for TP 6.0 as followed (ya know, ya work with
TP, and ya can't even get the graphics to work right...)

Anyways, I need the file GRAPH.P and GRAPHICS.BIN.

Also, does anybody know the frequencies for the entire treble clef for some
music??

Thanks!

 

Re:Anybody know of Anything for TP 6.0???


Quote
WindMan13 wrote in message

<19980115234000.SAA22...@ladder02.news.aol.com>...

Quote
>...
>Also, does anybody know the frequencies for the entire treble clef
for some
>music??

>Thanks!

Const
  nOctavenotes = 12;
  NoteNames:Array[1..nOctaveNotes] of String[2]
    = ('A ', 'A#', 'B ', 'C ', 'C#', 'D ',
       'D#', 'E ', 'F ', 'F#', 'G ', 'G#');
Var
  Interval : Real;
  Freq : Real;
  Octave : Integer;
  Note : Integer;
Begin
  Writeln('Note Octave Frequency');
  Interval := exp(ln(2)/12);
  For octave := -3 to 3 do
  Begin
    Freq := 440 / exp(ln(2)*(-octave));
    For note := 1 to nOctaveNotes do
    Begin
      Writeln(NoteNames[note]:3, octave:6, Freq:10:2);
      Freq := Freq*Interval;
    End;
  End;
End.

FP

Other Threads