MMLの勉強7

MML記法にディチューンの機能がついたので、
前の日記の音程の微調整をしてみた。

$Hz697 = @D98ER;
$Hz770 = @D80F#R;
$Hz852 = @D55G#R;
$Hz941 = @D15A#R;

$Hz1209 = @D60DR;
$Hz1336 = @D30ER;
$Hz1477 = @D95FR;

$L1 = $Hz697; $L2 = $Hz697; $L3 = $Hz697;
$L4 = $Hz770; $L5 = $Hz770; $L6 = $Hz770;
$L7 = $Hz852; $L8 = $Hz852; $L9 = $Hz852;
              $L0 = $Hz941;

$H1 =$Hz1209; $H2 =$Hz1336; $H3 =$Hz1477;
$H4 =$Hz1209; $H5 =$Hz1336; $H6 =$Hz1477;
$H7 =$Hz1209; $H8 =$Hz1336; $H9 =$Hz1477;
              $H0 =$Hz1336;

$Sin = T120 @0 V15 L32 O5 Q16 @E1,1,0,127,0 ;
$Lo =  $L0$L3$L5$L7$L8$L4$L3$L0$L5$L0  @D0 ;
$Hi = <$H0$H3$H5$H7$H8$H4$H3$H0$H5$H0> @D0 ;
$A = r4.V5 /:3 gr8. :/ r4.V15 ;
$B = /:15 g64r64 :/ r1 ;

$Sin @P40 $Lo $A /:99 $B :/;
$Sin @P88 $Hi $A /:99 $B :/;

今回は03-5784-3050だったので

$Lo =  $L0$L3$L5$L7$L8$L4$L3$L0$L5$L0  @D0 ;
$Hi = <$H0$H3$H5$H7$H8$H4$H3$H0$H5$H0> @D0 ;

と書きましたが、
この数値を入れ替えれば誰でも簡単に電話番号を入力することが出来ます。

どうぞご利用ください。