Создание банков для hydrogen [РЕШЕНО]

[infotrash Участник]

Есть ли способ создавать драмкиты как-то более автоматизировано нежели добавление по одному файлу?

[Александр Прокудин Хранитель]

Да, есть сценарий на перле[/url:v06bgfb6].

[infotrash Участник]

То, что нужно, почти. Оно более 32 сэмплов не может обработать? Ограничения вроде нет?

минуту спустя: Может, если слегка поправить » title=»Smile» />) Спасибо! То, что нужно.

[JP Участник]

Чёт не открывается ссылко
Может, куда-нибудь зальёте скриптик?

[williamwolos Участник]

[code:icjfuzhb]
#!/usr/bin/perl -w
use strict;
use warnings;
use File::Basename;
use Cwd;
use constant TRUE => 1;
use constant FALSE => 0;

################################################
# UTILISATION #################################
#
# 1- Aller dans le bon dossier:
# $ cd /my/drumkit/directory
# 2- Et lancer le programme:
# $ ~/Desktop/h2xmlizer.pl
#
## SETTINGS ####################################
#
my $reg;
$reg->{’pan_L’} = ‘1’;
$reg->{’pan_R’} = ‘1’;
$reg->{’isMuted’} = ‘false’;
$reg->{’volume’} = ‘0.80’;
$reg->{’min’} = ‘0’;
$reg->{’max’} = ‘1’;
$reg->{’gain’} = ‘1’;
$reg->{’pitch’} = ‘0’;

$reg->{’lastname’} = ‘FOO’;
$reg->{’firstname’} = ‘BAR’;
$reg->{’email’} = ‘fooBar@myMail.com’;
#
################################################
################################################

my $nl = "\r\n";
my $name; my $filename;
my $currentDir = basename(getcwd());
my $head =
"<drumkit_info>
<name>$currentDir</name>
<author><b>".$reg->{’lastname’}." ".$reg->{’firstname’}."</b>".$reg->{’email’}."</author>
<info>compuls’s drumkit <i>made using the knoodrake\@gmail.com’s drumkit xml generator</i></info>
<instrumentList>";
my $footer =
" </instrumentList>
</drumkit_info>";

# sauvegarde l’ancien drumkit.xml si existe
for (`ls -1|grep drumkit.xml`){
`mv drumkit.xml drumkit.xml.backup` if /(drumkit\.xml)$/;
}

my $i = 0;
open (COMMAND,’ls -1|’);
`touch drumkit.xml`;
my $fh = open (FILE,’+>’,’drumkit.xml’);
print FILE $nl.$head;
while (<COMMAND>) {
$_ =~ s/\s+$//;
if ($_ =~ /^(.+)\.(flac|wav|mp3|ogg)$/i) {
$name = $1;
$filename = $1.".".$2;
print FILE
" <instrument>
<id>$i</id>
<name>$name</name>
<volume>".$reg->{’volume’}."</volume>
<isMuted>".$reg->{’isMuted’}."</isMuted>
<pan_L>".$reg->{’pan_L’}."</pan_L>
<pan_R>".$reg->{’pan_R’}."</pan_R>
<exclude />
<layer>
<filename>$filename</filename>
<min>".$reg->{’min’}."</min>
<max>".$reg->{’max’}."</max>
<gain>".$reg->{’gain’}."</gain>
<pitch>".$reg->{’pitch’}."</pitch>
</layer>
</instrument>";
if($i==31){printFooterAndQuit()}
$i++;
}
}
while ($i<=31) {
print FILE
" <instrument>
<id>$i</id>
<name>$i</name>
<volume>0.00</volume>
<isMuted>true</isMuted>
<pan_L>1</pan_L>
<pan_R>1</pan_R>
<exclude />
<layer>
<filename>$filename</filename>
<min>0</min>
<max>1</max>
<gain>1</gain>
<pitch>0</pitch>
</layer>
</instrument>";
$i++;
}
sub printFooterAndQuit {
close COMMAND;
print FILE $nl.$footer.$nl;
close FILE;
exit 1;
}
printFooterAndQuit();[/code:icjfuzhb]

[JP Участник]

Спасибо!
Вчера вручную правил xml-ку. Пытался вставить многослойные барабаны из старого-доброго DrumKitFromHell. Почему-то бочка вошла абсолютно спокойно, а рабочий не хочет. Вот хоть убей, не подгружаются семплы в hydrogen=(
И даже если их подгрузить вручную через интерфейс программы, сохранить библиотеку звуков, выйти, и снова войти, рабочий не сохраняется

Сегодня попробую скриптом вогнать…

[kostolen Участник]

Извините что влезаю, проблема с сохранением банков в hydrogen в следующем:
он не сохраняет банки под тем-же названием.
Как быть? Создаёшь банк №1, настраиваешь, сохраняешь, делаешь изменения, сохраняешь как банк №2, банк №1 удаляешь (для экономии места) и т.д.

[JP Участник]

Я редактирую банки xml-ками и накидыванием в папку сэмплов.

Долго мучился с одной проблемой: сэмплы бочки загружались, а рабочего — нет…
Убил на это два дня, не мог понять, что не так. Копировал настройки и так, и сяк.. И вручную подсовывал сэмплы рабочего…

В итоге, только сегодня заметил, что у сэмплов рабочего из DFH в имени есть два пробела 0_0 Убрал их и поправил XML-ку. Всё заработало))

[infotrash Участник]

[quote:3cli9exv][b:3cli9exv]JP написал:[/b:3cli9exv]
… В итоге, только сегодня заметил, что у сэмплов рабочего из DFH в имени есть два пробала 0_0 Убрал их и поправил XML-ку. Всё заработало))[/quote:3cli9exv]

В последней версии еще и с символом & проблемы — если он встречается в именах файлов с сэмплами, то весь драмкит не будет отображаться как установленный.

[lazyklimm Участник]

[quote:m89mor8k][b:m89mor8k]JP написал:[/b:m89mor8k]
Я редактирую банки xml-ками и накидыванием в папку сэмплов.

Долго мучился с одной проблемой: сэмплы бочки загружались, а рабочего — нет…
Убил на это два дня, не мог понять, что не так. Копировал настройки и так, и сяк.. И вручную подсовывал сэмплы рабочего…

В итоге, только сегодня заметил, что у сэмплов рабочего из DFH в имени есть два пробела 0_0 Убрал их и поправил XML-ку. Всё заработало))[/quote:m89mor8k]

не поверишь, года три назад так же мучался » title=»Very Happy» />

[lazyklimm Участник]

кстати, на старом диске DFH есть gig-банки, с linuxsampler вполне себе работают

[Автор]

Сообщения