スクリプト集 のバックアップ(No.1)

• バックアップ一覧
• 差分 を表示
• 現在との差分 を表示
• ソース を表示
• スクリプト集 へ行く。
  • 1 (2013-05-28 (火) 00:39:58)
  • 2 (2013-05-28 (火) 01:15:13)
  • 3 (2013-06-05 (水) 16:06:35)
  • 4 (2013-06-13 (木) 01:21:42)
  • 5 (2014-05-28 (水) 00:17:07)
  • 6 (2014-05-28 (水) 18:19:16)

スクリプト集 †

時代はGitHub

mixman.pl †

• ２つのWAVファイルを重ねあわせて保存する
• 16bit, mono only
• RIFFタグは44バイト固定
• サンプリング周波数は合わせて下さい
• 個人的に名前がかっこよくてお気に入り

#code[(perl)]{{
#! perl

# 音声を重ねがけ保存 (16bit mono only)
# mixman inputfile mixsoundfile outputfile

use strict;
use warnings;

my $input = $ARGV[0];
my $sound = $ARGV[1];
my $output = $ARGV[2];

open(IN, "<$input") or die("file open error");
binmode IN;

open(DATA, "<$sound") or die("file open error");
binmode DATA;

# まずはサウンドファイルを配列に入れていく
my @effect;
my $temp;

# riffタグスキップ
seek(DATA, 44, 0);

while(read(DATA, $temp, 2)) { # 2byte (short) read
my $data = unpack("s", $temp);
push(@effect, $data);
}

open(SAVE, ">$output") or die("file write error");
binmode SAVE;

# 次に入力ファイルに加算保存していく
my $in_cnt = 0;
my $eff_cnt = $#effect;

# riffタグをコピー
for(my $i=0; $i<44; $i++) {
read(IN, $temp, 1);
print SAVE $temp;
}

while(read(IN, $temp, 2)) { # 2byte read
my $data = unpack("s", $temp);
print SAVE pack("s", ($data + $effect[$in_cnt % $eff_cnt]));
$in_cnt++;
}

close(SAVE);
close(DATA);
close(IN);
1;
}}