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

Начало Форум Звук Сэмплеры, библиотеки сэмплов Создание банков для hydrogen [РЕШЕНО]

В этой теме 10 ответов, 6 участников, последнее обновление  lazyklimm 5 года/лет, 5 мес. назад.

Просмотр 11 сообщений - с 1 по 11 (из 11 всего)
  • Автор
    Сообщения
  • #1300

    infotrash
    Участник

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

    #2327
    #2328

    infotrash
    Участник

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

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

    #2536

    JP
    Участник

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

    #2538

    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]

    #2539

    JP
    Участник

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

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

    #2541

    kostolen
    Участник

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

    #2544

    JP
    Участник

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

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

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

    #2554

    infotrash
    Участник

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

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

    #2847

    lazyklimm
    Участник

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

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

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

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

    #2849

    lazyklimm
    Участник

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

Просмотр 11 сообщений - с 1 по 11 (из 11 всего)

Для ответа в этой теме необходимо авторизоваться.