
рдореБрдЭреЗ рддреБрд░рдВрдд рдпрд╣ рдХрд╣рдирд╛ рдЪрд╛рд╣рд┐рдП рдХрд┐ рдпрд╣ рд▓реЗрдЦ рдмрд╣реБрдзрд╛ рдмрд╣реБрд╕рдВрдЦреНрдпрдХреЛрдВ рдХреЗ рд▓рд┐рдП рдХрд┐рд╕реА рд╡реНрдпрд╛рд╡рд╣рд╛рд░рд┐рдХ рд╣рд┐рдд рдХрд╛ рдкреНрд░рддрд┐рдирд┐рдзрд┐рддреНрд╡ рдирд╣реАрдВ рдХрд░рддрд╛ рд╣реИ рдФрд░ рд▓реЗрдЦрдХ рджреНрд╡рд╛рд░рд╛ рдЦреБрдж рдХреЗ рд▓рд┐рдП, рдПрдХ рдХреАрдк рдХреЗ рд░реВрдк рдореЗрдВ рдмрдирд╛рдпрд╛ рдЧрдпрд╛ рд╣реИ, рдЗрд╕рд▓рд┐рдП рдмреЛрд▓рдиреЗ рдХреЗ рд▓рд┐рдП ... рд▓реЗрдХрд┐рди рдЧреАрдд рдХреЗ рдкрд░реНрдпрд╛рдкреНрдд, рдЪрд▓реЛ рд╢реБрд░реВ рдХрд░рддреЗ рд╣реИрдВред
рд╕рд┐рджреНрдзрд╛рдВрддред
рдореБрдЭреЗ рд▓рдЧрддрд╛ рд╣реИ рдХрд┐ рдмрд╣реБрдд рд╕реЗ рд▓реЛрдЧ рдЕрднреА рднреА рдпрд╛рдж рдХрд░рддреЗ рд╣реИрдВ рдХрд┐, рдПрдХ рд╕реНрдХреВрд▓ рдпрд╛ рд╕рдВрд╕реНрдерд╛рди рдореЗрдВ рдЧреИрд▓рд░реА рдореЗрдВ рдмреИрдареЗ рд╣реБрдП, рдЙрдиреНрд╣реЛрдВрдиреЗ рдЕрдкрдиреЗ рд╕рд╛рдерд┐рдпреЛрдВ рдХреЗ рдлреЛрди рд╕реЗ "8e, 16d, 16b4,16a4,16b4,8a4,16a4,16a4 # 4" рдлреЙрд░реНрдо рдХреА рдзреБрдиреЛрдВ рдХреЛ рдлрд┐рд░ рд╕реЗ рдирд┐рдХрд╛рд▓ рд▓рд┐рдпрд╛ред рдпрд╣ рддрдерд╛рдХрдерд┐рдд RTTL рдореЗрд▓реЛрдбреА рд░рд┐рдХреЙрд░реНрдбрд┐рдВрдЧ рдкреНрд░рд╛рд░реВрдк рд╣реИред рдпрд╣рд╛рдВ рдЗрд╕рдХрд╛ рд╡рд┐рд╕реНрддрд╛рд░ рд╕реЗ рд╡рд░реНрдгрди рдХрд░рдиреЗ рдХрд╛ рдХреЛрдИ рдорддрд▓рдм рдирд╣реАрдВ рд╣реИ, рдХреНрдпреЛрдВрдХрд┐ рдпрд╣ рд╡рд┐рд╡рд░рдг рдкреВрд░реА рддрд░рд╣ рд╕реЗ рдЗрдВрдЯрд░рдиреЗрдЯ рдкрд░ рдЙрдкрд▓рдмреНрдз рд╣реИ, рд▓реЗрдХрд┐рди рдЖрдЧреЗ рдХреА рд╕рдордЭ рдХреЗ рд▓рд┐рдП рд╣рдо рд╕рд░рд▓ рдЙрджрд╛рд╣рд░рдг рдкрд░ рд╡рд┐рдЪрд╛рд░ рдХрд░реЗрдВрдЧреЗред рддреЛ, рдпрд╣ RTTL рдЯреНрдпреВрди рд▓реЗрдВ:
Simpsons: d = 4, o = 5, b = 160: 32p, c.6, e6, f # 6.8a6, g.6, e6, c6.8a, 8f #, 8f #, 8f #, 2g
рдЬреИрд╕рд╛ рдХрд┐ рдЖрдк рджреЗрдЦ рд╕рдХрддреЗ рд╣реИрдВ, рдкреНрд░рд╛рд░реВрдк рд╣реИ
[рдирд╛рдо : рдЕрд╡рдзрд┐ , рд╕рдкреНрддрдХ , рдЧрддрд┐ рдкреНрд░рддрд┐ рдорд┐рдирдЯ (рдмреАрдкреАрдПрдо) : рдорд╛рдзреБрд░реНрдп рд╣реА]ред
рд╣рдореЗрдВ рдирд┐рдореНрдирд▓рд┐рдЦрд┐рдд рдорд╛рдкрджрдВрдбреЛрдВ рдХреА рдЖрд╡рд╢реНрдпрдХрддрд╛ рд╣реЛрдЧреА:
"D = 4" рдбрд┐рдлрд╝реЙрд▓реНрдЯ рдиреЛрдЯ рдЕрд╡рдзрд┐ред рдЗрд╕рдХрд╛ рдорддрд▓рдм рдпрд╣ рд╣реИ рдХрд┐ рдореЗрд▓реЛрдбреА рдХреА рд░рд┐рдХреЙрд░реНрдбрд┐рдВрдЧ рдореЗрдВ, рдЬрдм рд╣рдо 4 рдХреА рдЕрд╡рдзрд┐ рдХреЗ рд╕рд╛рде рдиреЛрдЯ рдХреЛ "рд▓рд╛" рдЦреЗрд▓рдирд╛ рдЪрд╛рд╣рддреЗ рд╣реИрдВ, рддреЛ рд╣рдореЗрдВ рдЗрд╕реЗ " 4 рдП " рдХреЗ рд░реВрдк рдореЗрдВ рд░рд┐рдХреЙрд░реНрдб рдирд╣реАрдВ рдХрд░рдирд╛ рд╣реЛрдЧрд╛ред рдпрд╣ рдХреЗрд╡рд▓ " рдП " рдХреЗ рд░реВрдк рдореЗрдВ рд▓рд┐рдЦрдиреЗ рдХреЗ рд▓рд┐рдП рдкрд░реНрдпрд╛рдкреНрдд рд╣реЛрдЧрд╛ред рдпрд╣рд╛рдБ рдореИрдВ рдзреНрдпрд╛рди рджреЗрддрд╛ рд╣реВрдБ рдХрд┐ рдпрджрд┐ рд╣рдо RTTL рдХреА рдЕрд╡рдзрд┐ рдФрд░ рд╕рдВрдЧреАрдд рдХреЗ рд╕рдВрджрд░реНрдн рдореЗрдВ рдПрдХ рдиреЛрдЯ рдХреА рдЕрд╡рдзрд┐ рдХреА рддреБрд▓рдирд╛ рдХрд░рддреЗ рд╣реИрдВ, рддреЛ рдПрдХ рд╕рд╛рдзрд╛рд░рдг рдкрддреНрд░рд╛рдЪрд╛рд░ рд╣реИ - 1 / RTTL рдХреА рдЕрд╡рдзрд┐ред рдЗрд╕ рдкреНрд░рдХрд╛рд░, RTTL рд░рд┐рдХреЙрд░реНрдб рдореЗрдВ "d = 4" рдХрд╛ рдЕрд░реНрде рд╣реИ рдХрд┐ рд╣рдо рдбрд┐рдлрд╝реЙрд▓реНрдЯ рд░реВрдк рд╕реЗ "рдПрдХ рдЪреМрдерд╛рдИ" рдЕрд╡рдзрд┐ рдХреЗ рд╕рд╛рде рдиреЛрдЯреНрд╕ рдЦреЗрд▓рддреЗ рд╣реИрдВред рдпрджрд┐ d = 6 рд╣реИ, рддреЛ "рдПрдХ рдЫрдард╛" рдФрд░ рдЗрд╕реА рддрд░рд╣ред

"O = 5" рдСрдХреНрдЯреЗрд╡ рдбрд┐рдлрд╝реЙрд▓реНрдЯ рд░реВрдк рд╕реЗред рд╕рдВрдЧреАрдд рдХреЗ рд╕рд┐рджреНрдзрд╛рдВрдд рд╕реЗ, рдпрд╛рдж рд░рдЦреЗрдВ рдХрд┐ рдПрдХ рд╕рдкреНрддрдХ рд╕рдорд╛рди рдиреЛрдЯреЛрдВ рдХреЗ рдмреАрдЪ рдПрдХ рджреЛрдЧреБрдиреА рдЖрд╡реГрддреНрддрд┐ рд╣реИред рдЗрд╕рд▓рд┐рдП, рдпрджрд┐ рдЪреМрдереЗ рдСрдХреНрдЯреЗрд╡ рдХреЗ рдиреЛрдЯ "рдП" рдХреА рдЖрд╡реГрддреНрддрд┐ 440 рд╣рд░реНрдЯреНрдЬ рд╣реИ, рддреЛ рдкрд╛рдВрдЪрд╡реЗрдВ рдСрдХреНрдЯреЗрд╡ рдХреЗ рдПрдХ рд╣реА рдиреЛрдЯ "рдП" рдХреА рдЖрд╡реГрддреНрддрд┐ 880 рд╣рд░реНрдЯреНрдЬ рд╣реЛрдЧреАред рдирд┐рд╢реНрдЪрд┐рдд рд░реВрдк рд╕реЗ рдЕрд╡рдзрд┐ рдХреЗ рд╕рдорд╛рди рд╣реА, рдЖрдЧреЗ рдХреА рд░рд┐рдХреЙрд░реНрдбрд┐рдВрдЧ рдореЗрдВ рд╣рдореЗрдВ рдиреЛрдЯ рдХреЛ " a5 " рдХреЗ рд░реВрдк рдореЗрдВ "рдкрд╛рдВрдЪрд╡реЗрдВ рдСрдХреНрдЯреЗрд╡ рдХреЗ рд▓рд┐рдП" рд▓рд┐рдЦрдиреЗ рдХреА рдЖрд╡рд╢реНрдпрдХрддрд╛ рдирд╣реАрдВ рд╣реИред рдмрд╕ рдЗрд╕реЗ " рдПрдХ " рдХреЗ рд░реВрдк рдореЗрдВ рд▓рд┐рдЦреЗрдВ рдФрд░ рд╣рдо рдкрд╛рдБрдЪрд╡реЗрдВ рд╕рдкреНрддрдХ рдХреЗ рд▓рд┐рдП рдПрдХ рдЪреМрдерд╛рдИ рдХреА рдЕрд╡рдзрд┐ рдХреЗ рд╕рд╛рде "рдиреЛрдЯ" рдЦреЗрд▓реЗрдВрдЧреЗред рдЗрд╕ рдкреНрд░рдХрд╛рд░, рдпрд╣ рдкрддрд╛ рдЪрд▓рд╛ рд╣реИ рдХрд┐ рд╣рдорд╛рд░реЗ рдорд╛рдорд▓реЗ рдореЗрдВ рд░рд┐рдХреЙрд░реНрдб " рдП " рд░рд┐рдХреЙрд░реНрдб "4 рдП 5 " рдХреЗ рдмрд░рд╛рдмрд░ рд╣реЛрдЧрд╛ред

"рдмреА = 160" ред рдЧрддрд┐, рдпрд╛ рдЧрддрд┐ рдкреНрд░рддрд┐ рдорд┐рдирдЯ (рдмреАрдкреАрдПрдо)ред рдорд┐рд▓реАрд╕реЗрдХрдВрдб рдХреА рдЧрдгрдирд╛ рдХрд░рдиреЗ рдХреЗ рд▓рд┐рдП рдХрд┐ рдПрдХ рдиреЛрдЯ рдХреЛ рдзреНрд╡рдирд┐ рдЪрд╛рд╣рд┐рдП, рдореИрдВрдиреЗ рдирд┐рдореНрди рд╕реВрддреНрд░ рдХрд╛ рдЙрдкрдпреЛрдЧ рдХрд┐рдпрд╛: ((60000 / рдмреА) / рдбреА) * 8, рдЬрд╣рд╛рдВ рдмреА рд╣рдорд╛рд░рд╛ рдЯреЗрдореНрдкреЛ рд╣реИ рдФрд░ рдбреА рдиреЛрдЯ рдХреА рдЕрд╡рдзрд┐ рд╣реИред рдРрд╕рд╛ рдХреНрдпреЛрдВ, рдореИрдВ рдкрд╣рд▓реЗ рд╣реА рдХрдмреВрд▓ рдХрд░ рд▓рд┐рдпрд╛ рдФрд░ рдЦреБрдж рдХреЛ рднреВрд▓ рдЧрдпрд╛ред рд▓реЗрдХрд┐рди рдпрд╣ рдХрд╛рдо рдХрд░рддрд╛ рд╣реИ :)
рддрдм рдорд╛рдзреБрд░реНрдп рд╣реА рд╢реБрд░реВ рд╣реЛрддрд╛ рд╣реИред рд╡рд┐рд╡рд░рдг рд╕реЗ рдпрд╣ рдЗрд╕ рдкреНрд░рдХрд╛рд░ рд╣реИ рдХрд┐ рд╕рд╛рдорд╛рдиреНрдп рд╕реНрдерд┐рддрд┐ рдореЗрдВ рдиреЛрдЯреНрд╕ рд░рд┐рдХреЙрд░реНрдб рдХрд░рдиреЗ рдХрд╛ рдкреНрд░рд╛рд░реВрдк рдЗрд╕ рдкреНрд░рдХрд╛рд░ рд╣реИ:
[рдЕрд╡рдзрд┐ рдиреЛрдЯ рд╕рдкреНрддрдХ рдЬреЛрдбрд╝реЗрдВред рд╣рд╕реНрддрд╛рдХреНрд╖рд░]ред
Commas рдиреЛрдЯреНрд╕ рдХреЗ рдмреАрдЪ рдПрдХ рд╡рд┐рднрд╛рдЬрдХ рдХреЗ рд░реВрдк рдореЗрдВ рдХрд╛рд░реНрдп рдХрд░рддрд╛ рд╣реИред рдиреЛрдЯреНрд╕ рдЕрдВрдЧреНрд░реЗрдЬреА (?) рд░рд┐рдХреЙрд░реНрдбрд┐рдВрдЧ рд╕рд┐рд╕реНрдЯрдо 'рд╕реА', 'рд╕реА #', 'рдбреА', 'рдбреА #', 'рдИ', 'рдПрдл', 'рдПрдл #', 'рдЬреА', 'рдЬреА #', 'рдП', '' рдореЗрдВ рдЙрдкрдпреЛрдЧ рдХрд┐рдП рдЬрд╛рддреЗ рд╣реИрдВред a # ',' b ', рдЬреЛ рдЗрддрд╛рд▓рд╡реА' рд╕реЗ рдкрд╣рд▓реЗ ',' рд╢рд╛рд░реНрдк рд╕реЗ рдкрд╣рд▓реЗ ',' re ',' re sharp ',' mi ',' fa ',' f sharp ',' salt ',' рдирдордХ рд╢рд╛рд░реНрдк 'рд╕реЗ рдореЗрд▓ рдЦрд╛рддрд╛ рд╣реИ, 'рд▓рд╛', 'рд▓рд╛ рд╢рд╛рд░реНрдк', 'рд╕реА'ред рдФрд░ рдПрдХ рд╡рд┐рд░рд╛рдо рднреА - 'рдк'ред рдЕрддрд┐рд░рд┐рдХреНрдд рд╡рд░реНрдг рд╣реЛ рд╕рдХрддреЗ рд╣реИрдВ:
" ред " (рдЕрд╡рдзрд┐) - рдПрдХ рдиреЛрдЯ рдХреА рдЕрд╡рдзрд┐ рдореЗрдВ рдбреЗрдврд╝ рдЧреБрдирд╛ рдХреА рд╡реГрджреНрдзрд┐
" ; " (рдЕрд░реНрдзрд╡рд┐рд░рд╛рдо) - рджреЛ рдмрд╛рд░
" рдФрд░ " (рдПрдореНрдкрд░рд╕реЗрдВрдб) - 2.5 рдЧреБрдирд╛
рдпрд╣ рдПрдХ рд╕рдорд╕реНрдпрд╛ рдирд╣реАрдВ рд╣реЛрдиреА рдЪрд╛рд╣рд┐рдП - рдЬрдм рд╣рдо рдПрдХ рдиреЛрдЯ рдХреЗ рдЕрдВрдд рдореЗрдВ рдЗрди рд╕рдВрдХреЗрддреЛрдВ рдореЗрдВ рд╕реЗ рдПрдХ рдкрд╛рддреЗ рд╣реИрдВ, рддреЛ рд╣рдо рдмрд╕ рдЧрдгрдирд╛ рдХрд┐рдП рдЧрдП рдорд┐рд▓реАрд╕реЗрдХрдВрдб рдХреЛ ec, рджреЛ рдФрд░ рдврд╛рдИ рдЧреБрдирд╛ рд╕реЗ рдЧреБрдгрд╛ рдХрд░реЗрдВрдЧреЗред
рд╣рдо рдЗрд╕ рд╕рд┐рджреНрдзрд╛рдВрдд рдкрд░ рд╕рдорд╛рдкреНрдд рд╣реЛрдВрдЧреЗ, рдпрджрд┐ рдЖрдкрдХреЗ рдХреЛрдИ рдкреНрд░рд╢реНрди рд╣реИрдВ, рддреЛ рдореИрдВ рдлрд┐рд░ рд╕реЗ RTTL рдкреНрд░рд╛рд░реВрдк рдХреЗ рд╡рд┐рд╡рд░рдг рдХреЛ рдкрдврд╝рдиреЗ рдХреА рд╕рд▓рд╛рд╣ рджреВрдВрдЧрд╛ред рдЕрднреНрдпрд╛рд╕ рдХреЗ рд▓рд┐рдП рдЖрдЧреЗ рдмрдврд╝рддреЗ рд╣реИрдВред
Pc рд╕реНрдкреАрдХрд░
рд╢реБрд░реВ рдХрд░рдиреЗ рдХреЗ рд▓рд┐рдП, рд╣рдо рдПрдХ рдирд┐рдпрдорд┐рдд рдкреАрд╕реА-рд╕реНрдкреАрдХрд░ рдХреЗ рд▓рд┐рдП рд╕рд░рд▓рддрд╛ рдХреЗ рд▓рд┐рдП рд╣рдорд╛рд░реЗ рдорд╛рдзреБрд░реНрдп рдХрд╛ рдЙрддреНрдкрд╛рджрди рдХрд░реЗрдВрдЧреЗред рдЕрдзрд┐рдХрд╛рдВрд╢ рдкреНрд░реЛрдЧреНрд░рд╛рдорд┐рдВрдЧ рднрд╛рд╖рд╛рдУрдВ рдореЗрдВ, рд╕реНрдкреАрдХрд░ рдХреЛ рдзреНрд╡рдирд┐ рдЙрддреНрдкрдиреНрди рдХрд░рдиреЗ рдХреЗ рд▓рд┐рдП, рд╣рдореЗрдВ рдХреЗрд╡рд▓ рджреЛ рдорд╛рдкрджрдВрдбреЛрдВ рдХреЛ рдЬрд╛рдирдирд╛ рд╣реЛрдЧрд╛ - рдорд┐рд▓рд┐рд╕реЗрдХрдВрдб рдореЗрдВ рдЖрд╡реГрддреНрддрд┐ рдФрд░ рджреЗрд░реАред рддреЛ, рд╡рд░реНрдЪреБрдЕрд▓ рдкрд╛рд╕реНрдХрд▓ рдореЗрдВ рдПрдХ рдкреНрд░рдХреНрд░рд┐рдпрд╛ рд╣реИ
рдкреНрд▓реЗрд╕рд╛рдЙрдВрдб ( рдлреНрд░реАрдХ , рдЕрд╡рдзрд┐ : рд▓реЙрдиреНрдЧрд┐рдВрдЯ ) ;
рдЬреЛ рдореИрдВ рдЙрдкрдпреЛрдЧ рдХрд░реВрдВрдЧрд╛ред
рдЕрдм рдЖрдЗрдП рдПрдХ рд╕рд╛рдзрд╛рд░рдг рд╕реЗ рд╕реЛрдЪреЗрдВ рдФрд░ рд╢реБрд░реБрдЖрдд рдХрд░реЗрдВред рдорд╛рди рд▓реАрдЬрд┐рдП рдХрд┐ рд╣рдорд╛рд░реА рдзреБрди рдореЗрдВ рдХреЗрд╡рд▓ рдПрдХ рдиреЛрдЯ рд╣реЛрддрд╛ рд╣реИ рдФрд░ рдЗрд╕ рддрд░рд╣ рджрд┐рдЦрддрд╛ рд╣реИ: "рдкрд░реАрдХреНрд╖рдг: d = 4, o = 5, b = 125: a"ред рдЗрд╕ рдкреНрд░рдХрд╛рд░, рд╣рдореЗрдВ 125 рдХреЗ рдЯреЗрдВрдкреЛ рдХреЗ рд╕рд╛рде рдПрдХ рдЪреМрдерд╛рдИ рдХреА рдЕрд╡рдзрд┐ рдХреЗ рд╕рд╛рде рдкрд╛рдВрдЪрд╡реЗрдВ рдСрдХреНрдЯреЗрд╡ рдХреЗ рд▓рд┐рдП "рдиреЛрдЯ" рдЦреЗрд▓рдиреЗ рдХреА рдЖрд╡рд╢реНрдпрдХрддрд╛ рд╣реИред рдкрд╣рд▓реА рдмрд╛рдд рдЬреЛ рджрд┐рдорд╛рдЧ рдореЗрдВ рдЖрддреА рд╣реИ рд╡рд╣ рдпрд╣ рд╣реИ рдХрд┐ рд╣рдореЗрдВ рд╕рднреА рдСрдХреНрдЯреЗрд╡реНрд╕ рдХреЗ рд▓рд┐рдП рдиреЛрдЯреЛрдВ рдХреА рд╕рднреА рдЖрд╡реГрддреНрддрд┐рдпреЛрдВ рдХреЛ рдЬрд╛рдирдирд╛ рд╣реЛрдЧрд╛, рдЗрд╕рдХреЗ рд▓рд┐рдП рд╣рдо рд╕реНрд╡рд╛рднрд╛рд╡рд┐рдХ рд░реВрдк рд╕реЗ рдЖрд╡реГрддреНрддрд┐рдпреЛрдВ рдХреА рдПрдХ рддрд╛рд▓рд┐рдХрд╛ рдмрдирд╛рддреЗ рд╣реИрдВ:
рд╡рд╛рд░
рдлрд╝реНрд░рд┐рдХреНрд╡реЗрдВрд╕реА : рдРрд░реЗ [ 1..8 * 12 ] рд╢рдмреНрдж рдХрд╛ ; {рдлрд╝реНрд░реАрдХреНрд╡реЗрдВрд╕реА рдЯреЗрдмрд▓}
{....... рдХреБрдЫ рдХреЛрдб .......}
рдкреНрд░рдХреНрд░рд┐рдпрд╛ InitFreqTable; {рдлрд╝реНрд░рд┐рдХреНрд╡реЗрдВрд╕реА рдЯреЗрдмрд▓ рдЖрд░рдВрднреАрдХрд░рдг рдкреНрд░рдХреНрд░рд┐рдпрд╛}
рдХреЙрдиреНрд╕реНрдЯ
HerzOfFirst = 32.703195258 ; {рдкрд╣рд▓рд╛ рд╕рдкреНрддрдХ рдХрд╛ рдиреЛрдЯ рд╕реА}
рд╡рд╛рд░
tmpReal1 , tmpReal2 : рд╡рд╛рд╕реНрддрд╡рд┐рдХ ;
рдореИрдВ : рд╢рдмреНрдж ;
рд╢реБрд░реВ рдХрд░рдирд╛
tmpReal1 : = рд╣рд░реНрдЬрд╝реЛрдлрд░реНрд╕реНрдЯ; {рдкрд╣рд▓реЗ рд╕рдкреНрддрдХ рдХреЗ рдкрд╣рд▓реЗ рдиреЛрдЯ рд╕реА рдХреЗ рд╕рд╛рде рд╢реБрд░реВ рдХрд░реЗрдВ}
tmpReal2 : = exp ( ln ( 2.0 ) / 12.0 ) ; {рдирд┐рд░рдВрддрд░ рдЬрд┐рд╕рдХреЗ рд╕рд╛рде рдЖрд╡реГрддреНрддрд┐ рдиреЛрдЯ рд╕реЗ рдиреЛрдЯ рдореЗрдВ рднрд┐рдиреНрди рд╣реЛрддреА рд╣реИ}
i : = 1 рд╕реЗ 8 * 12 do {12 рдиреЛрдЯ рдкреНрд░рддрд┐ рд╕рдкреНрддрдХ, 8 рд╕рдкреНрддрдХ}
рд╢реБрд░реВ рдХрд░рдирд╛
рдЖрд╡реГрддреНрддрд┐ [ i ] : = рд░рд╛рдЙрдВрдб ( tmpReal1 ) ;
tmpReal1 : = tmpReal1 * tmpReal2;
рдЕрдВрдд ;
рдЕрдВрдд
рдмрд╣реБрдд рдмрдврд╝рд┐рдпрд╛ред рдЗрд╕рдХреЗ рдЕрд▓рд╛рд╡рд╛, рдкреВрд░рд╛ рдХрд╛рд░реЛрдмрд╛рд░ рдЕрд╡рдзрд┐, рд╕рдкреНрддрдХ рдФрд░ рд╡рд╛рд╕реНрддрд╡ рдореЗрдВ рдиреЛрдЯ рдХреЗ рд▓рд┐рдП рдиреЛрдЯреЛрдВ рдХреА рд░рд┐рдХреЙрд░реНрдбрд┐рдВрдЧ рдХреЗ рд╡рд┐рд╢реНрд▓реЗрд╖рдг рдкрд░ рдЯрд┐рдХреА рд╣реБрдИ рд╣реИред рдореБрдЭреЗ рд▓рдЧрддрд╛ рд╣реИ рдХрд┐ рдЕрдЧрд░ рдХрд┐рд╕реА рдХреЛ рд▓реЗрдЦ рдХреЗ рдЕрдВрдд рдореЗрдВ рдХрд╛рд░реНрдпрдХреНрд░рдо рдХреЗ рдкреВрд░реНрдг рд╕реНрд░реЛрдд рдХреЛрдб рдореЗрдВ рджрд┐рд▓рдЪрд╕реНрдкреА рд╣реИ, рддреЛ рдпрд╣рд╛рдВ рд▓рд╛рдирд╛ рдЕрдиреБрдЪрд┐рдд рд╣реИред рдЖрдЗрдП рд╣рдо рдХреЗрд╡рд▓ рдиреЛрдЯ рдХреА рддрд╛рд▓рд┐рдХрд╛ рдореЗрдВ рдЧрдгрдирд╛ рдХреА рдЬрд╛рдВрдЪ рдХрд░реЗрдВред рдореИрдВрдиреЗ рдЗрд╕реЗ рдЗрд╕ рддрд░рд╣ рд▓рд╛рдЧреВ рдХрд┐рдпрд╛:
{рдкрд╣рд▓реЗ рд╣рдордиреЗ рдЕрд╡рдзрд┐ рдФрд░ рд╕рдкреНрддрдХ рдХреЛ рдкрд╛рд░реНрд╕ рдХрд┐рдпрд╛ рдерд╛}
// рдкрд╛рд░реНрд╕ рдиреЛрдЯ
{i - рдЖрд╡реГрддреНрддрд┐ рддрд╛рд▓рд┐рдХрд╛ рдореЗрдВ рдСрдлрд╕реЗрдЯ рдХрд╛ рд╕рдВрдХреЗрдд рджреЗрдЧрд╛}
i : = ( рд╕рдкреНрддрдХ - 1 ) * 12 ; {рд╡рд╛рдВрдЫрд┐рдд рд╕рдкреНрддрдХ рдХреА рдУрд░ рдкрд╣рд▓рд╛ рдХрджрдо}
рдХреЗрд╕ рдПрд╕ [ рез ] рдХрд╛ {рдПрдХ рдиреЛрдЯ рдкреНрд░рддреАрдХ рд╣реИ [рез]}
'c' : inc ( i , 1 ) ; {рдФрд░ рдСрдлрд╕реЗрдЯ рдореЗрдВ рдПрдХ рдиреЛрдЯ рдЬреЛрдбрд╝реЗрдВ}
'рдбреА' : рдЗрдВрдХ ( рдЖрдИ , 3 ) ; {рд╣рдо рдЦрд╛рддреЗ рдореЗрдВ рд╢рд╛рд░реНрдк рдирд╣реАрдВ рд▓реЗрддреЗ рд╣реИрдВ, рдореИрдВ рдЙрдиреНрд╣реЗрдВ рдмрд╛рдж рдореЗрдВ рдкреНрд░реЛрд╕реЗрд╕ рдХрд░рддрд╛ рд╣реВрдВ}
'рдИ' : рдЗрдВрдХ ( рдЖрдИ , 5 ) ;
'f' : inc ( i , 6 ) ;
'рдЬреА' : рдЗрдВрдХ ( рдЖрдИ , 8 ) ;
'рдП' : рдЗрдВрдХ ( рдЖрдИ , 10 ) ;
'рдмреА' , 'рдПрдЪ' : рдЗрдВрдХ ( рдЖрдИ , 12 ) ;
'p' : i : = 0 ; {рдФрд░ рдпрд╣ рдПрдХ рд╡рд┐рд░рд╛рдо рд╣реИ}
рдЕрдиреНрдпрдерд╛
{ рдкреНрд░рд╛рд░рдВрдн рдпрджрд┐ рдХреЛрдИ рдЕрдиреНрдп рдкрддреНрд░ рд╕рд╛рдордиреЗ рдЖрдпрд╛ рд╣реИ, рддреЛ рдПрдХ рддреНрд░реБрдЯрд┐ рдлреЗрдВрдХреЗрдВ}
PlayRTTTLNote : = 1 ;
рд▓рд┐рдирд▓рди ( 'рдбреЗрдмрдЧ: рддреНрд░реБрдЯрд┐ [1]: рдЧрд▓рдд рдиреЛрдЯ - "' , рдПрд╕ [ 1 ] , " "' ) ;
рдмрд╛рд╣рд░ рдирд┐рдХрд▓рдиреЗ рдХреЗ;
рдЕрдВрдд ;
рддреЛ, рдЕрдм рдЪрд░ "i" рдореЗрдВ рдЙрд╕ рдиреЛрдЯ рдХреА рдЖрд╡реГрддреНрддрд┐ рд╕рд░рдгреА рдореЗрдВ рдСрдлрд╕реЗрдЯ рд╣реИ рдЬреЛ рд╣рдореЗрдВ рдЪрд╛рд╣рд┐рдПред рдЕрдм рдЖрдк рдЕрдВрдд рдореЗрдВ "#" рдЪрд┐рдиреНрд╣ (рддреЗрдЬ) рдХреЛ рд╕рдВрд╕рд╛рдзрд┐рдд рдХрд░ рд╕рдХрддреЗ рд╣реИрдВ, рдФрд░ рдпрджрд┐ рдпрд╣ рдиреЛрдЯ рдореЗрдВ рдореМрдЬреВрдж рд╣реИ, рддреЛ рдмрд╕ "i" рдХреЗ рдорд╛рди рдХреЛ рдПрдХ рдХрд░рдХреЗ рдмрдврд╝рд╛рдПрдВред рдЕрдм рд╣рдо рдПрдХ рд╕рд╛рдзрд╛рд░рдг рдХрдорд╛рдВрдб рдХреЗ рд╕рд╛рде 1000 ms рдХреА рдЕрд╡рдзрд┐ рдХреЗ рд╕рд╛рде рдПрдХ рдиреЛрдЯ рдЪрд▓рд╛ рд╕рдХрддреЗ рд╣реИрдВ:
PlaySound ( рдлрд╝реНрд░рд┐рдХреНрд╡реЗрдВрд╕реА [ i ] , 1000 ) ;
рдПрдХ рдиреЛрдЯ рдФрд░ рдЖрд╡реГрддреНрддрд┐ рдХреЗ рд╕рд╛рдеред рдпрд╣ рдХреЗрд╡рд▓ рдиреЛрдЯреЛрдВ рдХреА рдзреНрд╡рдирд┐ рдХреА рдЕрд╡рдзрд┐ рдХрд╛ рдкрддрд╛ рд▓рдЧрд╛рдиреЗ рдХреЗ рд▓рд┐рдП рдмрдиреА рд╣реБрдИ рд╣реИред рдКрдкрд░, рдореИрдВрдиреЗ рдкрд╣рд▓реЗ рд╕реЗ рд╣реА рдПрдХ рд╕реВрддреНрд░ рджрд┐рдпрд╛ рдерд╛ рдЬрд┐рд╕рдХреЗ рджреНрд╡рд╛рд░рд╛ рдореИрдВрдиреЗ рдорд┐рд▓реАрд╕реЗрдХрдВрдб рдореЗрдВ рдзреНрд╡рдирд┐ рдХреА рдЕрд╡рдзрд┐ рдХреА рдЧрдгрдирд╛ рдХреА, рдЯреЗрдореНрдкреЛ рдФрд░ рдиреЛрдЯ рдХреА рдЕрд╡рдзрд┐ рдХреЗ рдЖрдзрд╛рд░ рдкрд░ред рдиреАрдЪреЗ рд╕рд┐рд░реНрдл рдХреЛрдб рд╣реИ:
// рдорд╛рдЗрдХреНрд░реЛрд╕реЗрдХрдВрдб рдХреА рдЧрдгрдирд╛ рдХрд░реЗрдВ
PrecalcMS : = ( 60000 / BPMspeed ) ; {BMPspeed рдЧрддрд┐ рд╣реИ, рдЕрд░реНрдерд╛рддреН, рдкреИрд░рд╛рдореАрдЯрд░ "b ="}
PrecalcMS : = ( PrecalcMS / рдЕрд╡рдзрд┐ ) * 8 ; {рдЕрд╡рдзрд┐ - рдкрд╛рд░реНрд╕ рдиреЛрдЯ рдиреЛрдЯ рдЖрд╡реГрддреНрддрд┐}
MicroSecs : = round ( PrecalcMS ) ; {рдкреВрд░реНрдгрд╛рдВрдХ рддрдХ рдЧреЛрд▓}
рдпрд╣рд╛рдВ рдореБрдЦреНрдп рдмрд╛рдд рдЕрддрд┐рд░рд┐рдХреНрдд рдорд╛рди "рдбреЙрдЯ", "рдЕрд░реНрдзрд╡рд┐рд░рд╛рдо" рдпрд╛ "рдПрдореНрдкрд░рд╕реЗрдВрдб" рдХреЗ рдмрд╛рд░реЗ рдореЗрдВ рдирд╣реАрдВ рднреВрд▓рдирд╛ рд╣реИ, рдЬреЛ рд╕рдВрдЧреАрдд рд╕рдВрдХреЗрддрди рдореЗрдВ рдореМрдЬреВрдж рд╣реЛ рд╕рдХрддрд╛ рд╣реИ, рдФрд░, рдЙрдирдХреА рдЙрдкрд╕реНрдерд┐рддрд┐ рдХреЗ рдЖрдзрд╛рд░ рдкрд░, PrecalcMS рдХреЗ рдореВрд▓реНрдп рдХреЛ ┬╜, 2 рдпрд╛ 2.5 рд╕реЗ рдЧреБрдгрд╛ рдХрд░реЗрдВред рдпрд╣ рдореБрдЦреНрдп рдХрд╛рд░реНрдпрдХреНрд░рдо рдореЗрдВ рд╣реИ; рдореИрдВ рдЗрд╕реЗ рдпрд╣рд╛рдВ рдкреНрд░рд╕реНрддреБрдд рдирд╣реАрдВ рдХрд░ рд░рд╣рд╛ рд╣реВрдВред рдмрд╕ рдЗрддрдирд╛ рд╣реА, рдЕрдм рд╣рдо рдКрдкрд░ рдмрддрд╛рдИ рдЧрдИ рдЖрд╡реГрддреНрддрд┐ рдФрд░ рд╣рдореЗрдВ рдЬрд┐рд╕ рдЕрд╡рдзрд┐ рдХреА рдЖрд╡рд╢реНрдпрдХрддрд╛ рд╣реИ, рдЙрд╕рдХреЗ рд╕рд╛рде рдПрдХ рдиреЛрдЯ рдЪрд▓рд╛ рд╕рдХрддреЗ рд╣реИрдВ:
рдкреНрд░рдХреНрд░рд┐рдпрд╛ рдкреНрд▓реЗрдиреЛрдЯ ( рдиреЛрдЯ : рдмрд╛рдЗрдЯ ; рдорд╛рдЗрдХреНрд░реЛрд╕реЗрдХрд▓реНрд╕ : рд╡рд░реНрдб ) ;
рд╢реБрд░реВ рдХрд░рдирд╛
рдпрджрд┐ рдиреЛрдЯ = 0 рддреЛ {рдпрд╛рдж рд░рдЦреЗрдВ, рдЕрдЧрд░ рд╣рдо тАЬрдкреАтАЭ рд╕реЗ рдорд┐рд▓реЗ рд╣реИрдВ, рддреЛ I = 0} рд╕реЗрдЯ рдХрд░реЗрдВ
рд╡рд┐рд▓рдВрдм ( MicroSecs ) {рдЗрд╕рдХрд╛ рдЕрд░реНрде рд╣реИ рд╡рд┐рд░рд╛рдо}
рдЕрдиреНрдпрдерд╛
рдкреНрд▓реЗрд╕рд╛рдЙрдВрдб ( рдлреНрд░реАрдХреНрд╡реЗрдВрд╕реА [ рдиреЛрдЯ ] , рдорд╛рдЗрдХреНрд░реЛрд╕реЗрдХ ) ;
рдЕрдВрдд ;
рдФрд░ рдореБрдЦреНрдп рдХрд╛рд░реНрдпрдХреНрд░рдо рдореЗрдВ рд╣рдо рдПрдХ рдиреЛрдЯ рдЦреЗрд▓рддреЗ рд╣реИрдВ:
рдкреНрд▓реЗрдиреЛрдЯ ( I , рдорд╛рдЗрдХреНрд░реЛрд╕реЗрдХ ) ;
рдРрд╕реЗ рд╕рд░рд▓ рддрд░реАрдХреЗ рд╕реЗ, рд╣рдордиреЗ рдкреАрд╕реАрдЯреА-рд╕реНрдкреАрдХрд░ рдкрд░ RTTL рдореЗрд▓реЛрдбреА рдкреНрд▓реЗрдпрд░ рдХреЛ рд▓рд╛рдЧреВ рдХрд┐рдпрд╛ред рдХрд╛рд░реНрдпрдХреНрд░рдо рдХрд╛ рдкреВрд░реНрдг рд╕реНрд░реЛрдд рдХреЛрдб, рд╕рд╛рде рд╣реА рд╕рдВрдХрд▓рд┐рдд рд╕рдВрд╕реНрдХрд░рдг рдпрд╣рд╛рдВ рдЙрдкрд▓рдмреНрдз рд╣реИрдВ: rghost.ru/2230394 рдореИрдВрдиреЗ рд╕рдВрдХрд▓рди рдХрд░рдиреЗ рдХреЗ рд▓рд┐рдП рд╡рд░реНрдЪреБрдЕрд▓ рдкрд╛рд╕реНрдХрд▓ рдХрд╛ рдЙрдкрдпреЛрдЧ рдХрд┐рдпрд╛, рд▓реЗрдХрд┐рди рдореБрдЭреЗ рд▓рдЧрддрд╛ рд╣реИ рдХрд┐ рдореБрдЭреЗ рдмрд┐рдирд╛ рдХрд┐рд╕реА рд╕рдорд╕реНрдпрд╛ рдХреЗ рдореБрдлреНрдд рдкрд╛рд╕реНрдХрд▓ рдореЗрдВ рдПрдХ рд╕рд╛рде рдорд┐рд▓рдирд╛ рдЪрд╛рд╣рд┐рдПред
рдЕрдЧрд▓реЗ рд▓реЗрдЦ рдореЗрдВ, рд╣рдо рд╕рд╛рдорд╛рдиреНрдп рд░реВрдк рд╕реЗ RTTL 2 MIDI рдХрдирд╡рд░реНрдЯрд░ рдмрдирд╛рдиреЗ рдФрд░ рд╡рд┐рд╢реЗрд╖ рд░реВрдк рд╕реЗ MIDI рдлрд╝рд╛рдЗрд▓реЛрдВ рдХреЗ рд╕рд╛рде рдмрдирд╛рдиреЗ рдФрд░ рдХрд╛рдо рдХрд░рдиреЗ рдХреЗ рдмрд╛рд░реЗ рдореЗрдВ рдмрд╛рдд рдХрд░реЗрдВрдЧреЗред рдЖрдкрдХрд╛ рджрд┐рди рд╢реБрдн рд╣реЛ!
рдПрдХ рд▓реЗрдЦ рд▓рд┐рдЦрддреЗ рд╕рдордп, рдирд┐рдореНрдирд▓рд┐рдЦрд┐рдд рд╕рд╛рдордЧреНрд░рд┐рдпреЛрдВ рдХрд╛ рдЙрдкрдпреЛрдЧ рдХрд┐рдпрд╛ рдЧрдпрд╛ рдерд╛:
personal.telefonica.terra.es/web/japus/rtplayer.html
www.music4sale.ru/articles/knowledge_base/586
members.home.nl/bas.de.reuver/files/convert_rtttl.html