Diff of Ffidlを使ってみる

The added line is THIS COLOR.
The deleted line is THIS COLOR.
Go to Ffidlを使ってみる.
Deleting diff of Ffidlを使ってみる
Ffidlとはdllを直接Tclから呼び出すことのできるライブラリで、C言語でそれぞれのラッパーを作らなくてもTclからFfidlを通じでdllを動的に読み込んでインターフェースを作ることができる便利なライブラリだ。[[Ffidlのホームページ:http://www.elf.org/ffidl/]]からダウンロードできる。

***とりあえず使ってみる [#ea6ee58c]
 package require Ffidl
 ffidl::callout Beep {uint32 uint32} uint32\
     [ffidl::symbol KERNEL32.DLL Beep]
 Beep 500 200

 ffidl::callout TclCmd名 引数型リスト 返り値型 [ffidl::symbol ライブラリ名 関数名]
のようにしてインターフェースを作るらしい。使える型は[[Ffidlのホームページ:http://www.elf.org/ffidl/]]参照。ポインタが渡せるが、構造体をどう扱うのかまだよくわからない。
のようにしてインターフェースを作るらしい。使える型は[[Ffidlのホームページ:http://www.elf.org/ffidl/]]参照。ポインタが渡せるが、構造体をどう扱うのかまだよくわからない。読みこんだライブラリをアンロードする方法もまだよくわからない。

***せっかくなのでBeepで演奏してみる [#dd52ab31]
Beepだけでは芸がなさすぎるので、Beep音で音楽を流してみる・・・

 package require Ffidl
 ffidl::callout Beep {uint32 uint32} uint32\
     [ffidl::symbol KERNEL32.DLL Beep]
 
 array set m {
 C2   65  C3  131  C4  262  C5  523  C6  1047
 C#2  69  C#3 139  C#4 277  C#5 554  C#6 1109
 D2   73  D3  147  D4  294  D5  587  D6  1175
 D#2  78  D#3 156  D#4 311  D#5 622  D#6 1245
 E2   82  E3  165  E4  330  E5  659  E6  1319
 F2   87  F3  175  F4  349  F5  698  F6  1397
 F#2  92  F#3 185  F#4 370  F#5 740  F#6 1480
 G2   98  G3  196  G4  392  G5  784  G6  1568
 G#2 104  G#3 208  G#4 415  G#5 831  G#6 1661
 A2  110  A3  220  A4  440  A5  880  A6  1760
 A#2 117  A#3 233  A#4 466  A#5 932  A#6 1865
 B2  123  B3  247  B4  494  B5  988  B6  1976
 Q   0
 }
 array set l {}
 set l(1)    [expr {1000 * 240 / 70}]
 set l(2)    [expr {$l(1) / 2}]
 set l(4)    [expr {$l(1) / 4}]
 set l(8)    [expr {$l(1) / 8}]
 set l(16)   [expr {$l(1) / 16}]
 set l(1.)   [expr {$l(1) * 3 / 2}]
 set l(2.)   [expr {$l(2) * 3 / 2}]
 set l(4.)   [expr {$l(4) * 3 / 2}]
 set l(8.)   [expr {$l(8) * 3 / 2}]
 set l(16.)  [expr {$l(16) * 3 / 2}]
 set l(1..)  [expr {$l(1) * 7 / 4}]
 set l(2..)  [expr {$l(2) * 7 / 4}]
 set l(4..)  [expr {$l(4) * 7 / 4}]
 set l(8..)  [expr {$l(8) * 7 / 4}]
 set l(16..) [expr {$l(16) * 7 / 4}]
 
 proc play {mlist} {
     global m l
     foreach {mq lq} $mlist {
         if {$m($mq) == 0} {
             after $l($lq)
         } else {
             Beep $m($mq) $l($lq)
         }
     }
 }
 
 play {
 G4 16 F4 16 
 D#4 8. F4 16 D#4 16 Q 16 D#4 8 G4 8 A#4 8
 G#4 8 C5 8 D#5 8 D#5 8. Q 16 D5 16 C5 16 
 A#4 8. G#4 16 G4 8 F4 8. D#4 16 F4 8
 G4 2 Q 16 G4 16 F4 16
 D#4 8. F4 16 D#4 8 D#4 8 G4 8 A#4 8
 G#4 8 C5 8 D#5 8 D#5 8. Q 16 D5 16 C5 16
 A#4 8 D#5 8 G4 8 F4 8. D#4 16 F4 16
 D#4 2 Q 16 Q 16 A#4 16 G#4 16
 G4 8 A#4 8 D#5 8 D#5 4 A#4 16 A#4 16
 C5 8 G#4 8 D#5 16 Q 16 D#5 8. Q 16 D5 16 C5 16
 A#4 8. G#4 16 G4 8 F4 8. D#4 16 F4 8
 G4 2 Q 16 Q 16 G4 16 F4 16
 D#4 8. F4 16 D#4 16 Q 16 D#4 8 G4 8 A#4 8
 G#4 8 C5 8 D#5 8 D#5 8. Q 16 D5 16 C5 16
 A#4 8 D#5 8 G4 8 F4 8. D#4 16 F4 8
 D#4 2
 }
***コメントをどーぞ [#ae1bc739]
#comment

----
続く・・・



----
[[CategoryTclTk]]