Hi all,

 

Thanks for the nice replies regarding my first perl program :)

I don't have a www connection at home now, so sorry for the late reply.

 

I modified my first version a bit and also made a second version with a different usage.

 

Now I have listdir which should be copied to the directory containing the samples. Run it from there.

 

The other version is dir2tap which should be placed in your tapeutape preset folder and has usage like this: dir2tap /path/to/dir. It then saves thisfolder.tap into the folder where it was executed from.

 

Now by default the minnote, maxnote and rootnote value are rising from 0 to 127. If you need to load more that 128 wavfiles, replace the ==note== variable in the source to a default numeric value between 0 and 127.

 

Also,  each Instrument now gets the name of its loaded .wav file. Editing this will be less work than editing "new instrument".

 

Renato wrote:

> 1) save to "currentdir".tap instead of thisdirectory.tap. I.e. if I run

> the script in the directory drum_machine I should end up with

> drum_machine.tap

 

I suppose that's a name that needs to be given only once, so give the name you choose when you edited thisfolder.tap with Tapeutape itself. Thanks for the request anyway, I'll see how to implement that.

 

> 2) assign midi notes, with a range of 2-3 notes for each (for drums I

> think that's enough?)

 

Now the range is just one note, this way I also make sure no more than 128 files are loaded at once, because if note="129" is written in the .tap file, it crashes Tapeutape when you click on that instrument. It's possible to assign a note range to each sample, but that would take 3 extra variables: the min note, max note and total number of files loaded for the check. This is another good feature request, useful for Florent too I guess.

 

Have a nice day.

Peter