=======================================================================
WavIO DLL R GNXeV
=======================================================================
V1.1 7/1 2008

  ̃vÓAuWavet@C̓óvƁu^AĐv̋@\
Ă܂BR̃XNvgĂяoA_Ci~bNNCu
B
http://mikeo410.wsp1.net/lumad/
AQƂB

ӁF
PD̍Đ́Aʂɏ\ӂĂB̒ẮA{[
    ł邾i܂܂ɂāAȂƂłBʂ́APCMf[^
    lŐ䂵܂Bi32767/max(abs(pcm))悶Ȃǂājf[^
    }LV}CYĂԂŎgĂ΁AˑR傫ȉo邱Ƃ͂
    Ȃ܂B
QD̃vÓAׂĊAłB^Đɂ͎Ԃ܂B
    w肷lɒӂĂB
RDf[^́A傫łBw肵łǂꂾ̗eʂɂȂ邩AZ
    ŎgĂB
SD̃vÓAׂēo͂̈iLjłB
    @\͂܂BeʂɒӂĂB

TD̃vOgƂɂĐ@Ȃ邱Ƃɂ͐ӔC
    Ƃł܂Bɂł̂́ÃvÓAƌ
    ƂłB^`̂ɂ́A΃\[XR[h肵܂B
UD\tgEGÁA݂Ɋ֘AĂAꂼꌠ`ݒ肳Ă܂B
    ꂼAp҂̏L錠͈̔͂łpBɂ́A쐬
    ȊOɂĉ̉e͂܂B쐬ɂẮA
    płȂ΁ARɂpBgpړIm点΃\[X
    R[h肵܂B

F
Windows XP
R 2.7.0
.net framework

t@C\F
PDJgfBNg/WavIO_R.R
    R̃XNvgŁA֐`Ă܂B
QDJgfBNg/WavIO_R.dll
    C++ŏDLLŁARC̊֐ĂяôŁAC^tF[X
    g܂B
RDR̃CXg[fBNg/bin/ClassLibrarySub_R.dll
    C#ŏDLLŁA@\̖{̂łB

    JgfBNg
      RNāAut@CvuXNvgJvƂƂɕ\
      fBNgłB̃fBNǵARNACR
      j[́uvpeBvuƃtH_vŌ߂܂B
    R̃CXg[fBNg
      킽̃p\Rł́A
      C:\Program Files\R\R-2.7.0\bin
      łB

CXg[F
  _E[hWavIO_R_xx.zip𓀂3̃t@CWJ܂B
  Oq́ut@C\v̋Lqɏ]ăRs[ĂB

gF
  R̃R\[EEChE
  > source("WavIO_R.R")
  ƁA͂܂B

  WavIO_R.dll[hAWavIO_R.RɋLqꂽ֐LɂȂ܂B
  > wav16play
  ̂悤Ɋ֐͂ƁA֐̃XNvg\܂B

֐F
PDwav16play(x, ch=1, hz=11025)
    xPCMf[^ƂčĐ܂BAxLIST̏ꍇ́Awav16read()œ
    ̂ƌȂāALIST$ch,$hz,$pcmg܂B
QDwav16record(ch=1, hz=11025, sec=2)
    ^foCXAsecbԘ^܂B֐lPCMf[^\xNgłB
RDwav16read(path, start=0, samples=99000)
    t@CpathJPCMf[^ǂݏo܂B$ch,$hz,$pcmȂLIST
    Ԃ܂BstartAsamples̒Pʂ́AmȂ2oCgAXeIȂ4oCg
    B
SDwav16write(path, x, ch=1, hz=11025)
    xNgxPCMf[^ƂWavet@Cɏ݂܂BAxLIST̏ꍇ
    ́Awav16read()œ͂̂ƌȂāALIST$ch,$hz,$pcmg܂B

ȏ
