On 12/19/2012 11:09 PM, rosea.grammostola wrote:
On 12/19/2012 08:16 PM, rosea.grammostola wrote:
> On 12/19/2012 06:58 PM, rosea.grammostola wrote:
>> On 12/19/2012 04:20 PM, Jeremy Jongepier wrote:
>>> On 12/19/2012 02:48 PM, rosea.grammostola wrote:
>>>> Does someone have these scripts on his hdd? It seems to be offline
>>>>
>>>> makesfz.pl perl scripts , by Peter L. Jones:
>>>>
http://www.drealm.info/sfz/
>>>
>>>
http://web.archive.org/web/20100317152936/http://www.drealm.info/sfz/makesf…
>>>
>>>
>>>
>>
>> Thx!
>> Anyone an idea how these scripts work?
>>
>> I tried:
>>
>> $perl makesfz.pl /path/to/sampledir/
>>
>>
>> But that doesn't do anything.
It would be really nice if an perl expert could help me out here!
Without really knowing what I'm doing, I tried the command displayed on
the drealm website
http://web.archive.org/web/20100317152936/http://www.drealm.info/sfz
and tested it on the 1st violins of the sonatina library. I do get an
sfz file but it doesn't seems totally right. I do also get an error:
/tmp/sonatina/1st Violins$ find -type d | grep -v '^\.$' | while read
dir; do find "$dir" -iname '*.wav' | sed -e 's,/,\\,g' | (cd
/home/derick/linuxaudio/SFZ-tools/drealm/; perl makesfz.pl | sort | perl
spansfz.pl) > "${dir}.sfz"; echo "$dir" ; done
Use of uninitialized value in addition (+) at makesfz.pl line 11, <> line 1.
Use of uninitialized value in addition (+) at makesfz.pl line 11, <> line 2.
Use of uninitialized value in addition (+) at makesfz.pl line 11, <> line 3.
Use of uninitialized value in addition (+) at makesfz.pl line 11, <> line 4.
Use of uninitialized value in addition (+) at makesfz.pl line 11, <> line 5.
Use of uninitialized value in addition (+) at makesfz.pl line 11, <> line 6.
Use of uninitialized value in addition (+) at makesfz.pl line 11, <> line 7.
Use of uninitialized value in addition (+) at makesfz.pl line 11, <> line 8.
Use of uninitialized value in addition (+) at makesfz.pl line 11, <> line 9.
Use of uninitialized value in addition (+) at makesfz.pl line 11, <>
line 10.
Use of uninitialized value in addition (+) at makesfz.pl line 11, <>
line 11.
Use of uninitialized value in addition (+) at makesfz.pl line 11, <>
line 12.
Use of uninitialized value in addition (+) at makesfz.pl line 11, <>
line 13.
Use of uninitialized value in addition (+) at makesfz.pl line 11, <>
line 14.
Use of uninitialized value in addition (+) at makesfz.pl line 11, <>
line 15.
Use of uninitialized value in addition (+) at makesfz.pl line 11, <>
line 16.
Use of uninitialized value in addition (+) at makesfz.pl line 11, <>
line 17.
Use of uninitialized value in addition (+) at makesfz.pl line 11, <>
line 18.
Use of uninitialized value in addition (+) at makesfz.pl line 11, <>
line 19.
Use of uninitialized value in addition (+) at makesfz.pl line 11, <>
line 20.
Use of uninitialized value in addition (+) at makesfz.pl line 11, <>
line 21.
Use of uninitialized value in addition (+) at makesfz.pl line 11, <>
line 22.
Use of uninitialized value in addition (+) at makesfz.pl line 11, <>
line 23.
Use of uninitialized value in addition (+) at makesfz.pl line 11, <>
line 24.
Use of uninitialized value in addition (+) at makesfz.pl line 11, <>
line 25.
Use of uninitialized value in addition (+) at makesfz.pl line 11, <>
line 26.
Use of uninitialized value in addition (+) at makesfz.pl line 11, <>
line 27.
Use of uninitialized value in addition (+) at makesfz.pl line 11, <>
line 28.
./piz
==================================================================
output sfz file
<region> lokey=060 hikey=060 pitch_keycenter=060
sample=.\piz\1st-violins-piz-rr1-a#3.wav
<region> lokey=060 hikey=060 pitch_keycenter=060
sample=.\piz\1st-violins-piz-rr1-g3.wav
<region> lokey=060 hikey=060 pitch_keycenter=060
sample=.\piz\1st-violins-piz-rr2-a#3.wav
<region> lokey=060 hikey=060 pitch_keycenter=060
sample=.\piz\1st-violins-piz-rr2-g3.wav
<region> lokey=061 hikey=072 pitch_keycenter=072
sample=.\piz\1st-violins-piz-rr1-a#4.wav
<region> lokey=072 hikey=072 pitch_keycenter=072
sample=.\piz\1st-violins-piz-rr1-c#4.wav
<region> lokey=072 hikey=072 pitch_keycenter=072
sample=.\piz\1st-violins-piz-rr1-e4.wav
<region> lokey=072 hikey=072 pitch_keycenter=072
sample=.\piz\1st-violins-piz-rr1-g4.wav
<region> lokey=072 hikey=072 pitch_keycenter=072
sample=.\piz\1st-violins-piz-rr2-a#4.wav
<region> lokey=072 hikey=072 pitch_keycenter=072
sample=.\piz\1st-violins-piz-rr2-c#4.wav
<region> lokey=072 hikey=072 pitch_keycenter=072
sample=.\piz\1st-violins-piz-rr2-e4.wav
<region> lokey=072 hikey=072 pitch_keycenter=072
sample=.\piz\1st-violins-piz-rr2-g4.wav
<region> lokey=073 hikey=084 pitch_keycenter=084
sample=.\piz\1st-violins-piz-rr1-a#5.wav
<region> lokey=084 hikey=084 pitch_keycenter=084
sample=.\piz\1st-violins-piz-rr1-c#5.wav
<region> lokey=084 hikey=084 pitch_keycenter=084
sample=.\piz\1st-violins-piz-rr1-e5.wav
<region> lokey=084 hikey=084 pitch_keycenter=084
sample=.\piz\1st-violins-piz-rr1-g5.wav
<region> lokey=084 hikey=084 pitch_keycenter=084
sample=.\piz\1st-violins-piz-rr2-a#5.wav
<region> lokey=084 hikey=084 pitch_keycenter=084
sample=.\piz\1st-violins-piz-rr2-c#5.wav
<region> lokey=084 hikey=084 pitch_keycenter=084
sample=.\piz\1st-violins-piz-rr2-e5.wav
<region> lokey=084 hikey=084 pitch_keycenter=084
sample=.\piz\1st-violins-piz-rr2-g5.wav
<region> lokey=085 hikey=096 pitch_keycenter=096
sample=.\piz\1st-violins-piz-rr1-a#6.wav
<region> lokey=096 hikey=096 pitch_keycenter=096
sample=.\piz\1st-violins-piz-rr1-c#6.wav
<region> lokey=096 hikey=096 pitch_keycenter=096
sample=.\piz\1st-violins-piz-rr1-e6.wav
<region> lokey=096 hikey=096 pitch_keycenter=096
sample=.\piz\1st-violins-piz-rr1-g6.wav
<region> lokey=096 hikey=096 pitch_keycenter=096
sample=.\piz\1st-violins-piz-rr2-a#6.wav
<region> lokey=096 hikey=096 pitch_keycenter=096
sample=.\piz\1st-violins-piz-rr2-c#6.wav
<region> lokey=096 hikey=096 pitch_keycenter=096
sample=.\piz\1st-violins-piz-rr2-e6.wav
<region> lokey=096 hikey=096 pitch_keycenter=096
sample=.\piz\1st-violins-piz-rr2-g6.wav
==============================================================
makesfz.pl
#!perl -w
%noteoff = (
'C', 0, 'C#', 1, 'D', 2, 'D#', 3, 'E', 4,
'F', 5, 'F#', 6, 'G', 7, 'G#', 8, 'A', 9,
'A#', 10, 'B', 11
);
while(<>)
{
chop;
/([A-G]#?)(-?\d).wav$/i ? ($note = $1, $oct = $2) : next;
$notenum = $noteoff{$note} + ( $oct * 12 ) + 24;
$key = sprintf("%03i", $notenum);
print "<region> lokey=$key hikey=$key pitch_keycenter=$key
sample=$_\n";
}