I wrote a perl script that adds a header to aif files such that they can be loaded into OP-Z on tracks 5 - 8. Works for me under Windows and Linux, haven’t tried it under IOS or OSX. Save the program text below (without the BEGIN and END lines) to a file, e.g. TE_patch.pl and call as:
perl TE_patch.pl {input: name of original aif file} {output: name of patched file}
The input file should not be longer than 6 seconds, the output file gets overwritten if it exists already. You can also use the script in a batch file to convert multiple files in one go, e.g. “for %f in (my*.aif) do perl TE_patch.pl %f %~nf_TE.aif” or similar on Windows. (Of course, you must have a Perl interpreter installed.)
--------------------BEGIN PROGRAM TEXT------------------------------------ my @TE_patch = (65,80,80,76,0,0,1,106,111,112,45,49,123,34,97,100,115, 114,34,58,91,50,54,50,52,44,50,50,53,55,54,44,50,54,54,50,51,44, 54,55,50,48,44,52,48,48,48,44,54,52,48,48,44,52,48,48,48,44,52, 48,48,48,93,44,34,98,97,115,101,95,102,114,101,113,34,58,52,52,48, 46,48,44,34,102,120,95,97,99,116,105,118,101,34,58,102,97,108,115,101, 44,34,102,120,95,112,97,114,97,109,115,34,58,91,56,56,57,54,44,49, 52,56,49,54,44,49,53,51,54,44,54,54,56,56,44,56,48,48,48,44,56, 48,48,48,44,56,48,48,48,44,56,48,48,48,93,44,34,102,120,95,116,121, 112,101,34,58,34,115,112,114,105,110,103,34,44,34,107,110,111,98,115,34, 58,91,48,44,50,56,52,52,56,44,51,50,53,48,51,44,51,50,53,48,51,44, 49,50,48,48,48,44,48,44,48,44,57,56,51,50,93,44,34,108,102,111,95, 97,99,116,105,118,101,34,58,102,97,108,115,101,44,34,108,102,111,95,112, 97,114,97,109,115,34,58,91,50,48,48,48,44,50,54,51,48,52,44,53,55, 50,56,44,49,52,52,54,52,44,48,44,48,44,48,44,48,93,44,34,108,102, 111,95,116,121,112,101,34,58,34,101,108,101,109,101,110,116,34,44,34,110, 97,109,101,34,58,34,50,48,49,52,48,52,48,55,34,44,34,111,99,116,97, 118,101,34,58,49,44,34,115,121,110,116,104,95,118,101,114,115,105,111,110, 34,58,49,44,34,116,121,112,101,34,58,34,115,97,109,112,108,101,114,34, 125,10,32,83,83,78,68); my $insert = ""; while (@TE_patch) { $insert = $insert . chr ( shift @TE_patch ) }; open H, $ARGV[0]; binmode H; my $new = do { local $/; }; close H; my $p = -1; for (my $l = 0; $l < length ($new); $l++) { my $d = substr $new, $l, 4; if ($d eq "SSND") { $p = $l; } } if ($p == -1) { print "No sound marker SSND found in $ARGV[0] "; exit; } open K, ">", $ARGV[1]; binmode K; print K (substr $new, 0, $p), $insert, (substr $new, ($p + 4)); close K; --------------------END PROGRAM TEXT------------------------------------