ECMC PVC example file twarp6-5 Example PVC script used to create /sflib/x soundfile >> twarp6-5.wav < # The example is identical to example twarp6-1 in every way except that # fairly radical dithering is introduced in reading the analysis file, with # high values for both of the dithering parameters: # timepoint_dither_window_in_seconds=.2 # time_point_change_response_time_in_seconds=.5 # The result is much "hesitation," "hesitation" and "stuttering" # With all of this back-and-forth jitter, only a portion of the analysis file # is read within the 4.38 second output duration #****************************************************** #......................TWARP .......................... # time varying reading of an analysis file previously created with pvcanal #****************************************************** # ******ECMC CHANGES & ADDITIONS: *************** #******** INPUT & OUTPUT SOUNDFILES ************* cd $SFDIR # all files will be created in your current working soundfile directory input_analysis_file=voicetestclip.pvc outputsf=twarp6-5.wav # output soundfile outputformat=0 # 0,1,2, or 3; 1 = 16 bit short ints; 2 = 32 bit floats; 3 = 24 bit ints # 0 outputs 16 bit ints if samp. rate < 50000, 24 bit ints if samp rate > 50000 ### VERY IMPORTANT: Change the 0 below to the desired output duration. If this # duration does not match the duration of the analysis, time warping will result duration=4.38 # MUST BE CHANGED to desired output resynthesis duration # ********************* # ##### Cmusic function file generator tempates ##### # gen0 normalizes function files previously created with other gen routines # gen0 -Llength max < inputfuncfile > outputfuncfile # gen1 creates linear {straight line} segments, like Csound gen 7 # gen1 -Llength t1 v1 ... tN vN # gen2 generates harmonic waveforms from sine {a} & cosine {b} amps # gen2 -Llength [-o (default) or -c] a1 ... aN b0 ... bM N # gen3 generates amp values & linear connections at equally spaced time points # gen3 -Llength v1 v2 ... vN # gen4 generates exponenetial segments; "a" values determine shape & # depth of curve: 0 = linear, neg. = exponential, pos. = inverse expo. # gen4 -Llength t1 v1 a1 ... tN vN # gen5 is like Csound gen 9 : harmonic1/amp/phase harmonic2/amp/phase # gen5 -Llength h1 a1 p1 ... hN aN pN # gen6 generates a table of random numbers between +1 and -1 # gen6 -Llength # cspline: smooth curve {cubic spline} interpolator # cspline len_flag [flags] x0 y0 x1 y1 ... xN yN # genraw reads in a previously created function file # genraw -LN filename (where N is the length of the output function.) # For a usage summary of "reshape" type "reshape" with no arguments. ##### End of gen routine function generator tempates ##### #...................................................... output_data_format=1 # 0 (default) = Same as input file, no input file reverts to integers # 1 = integers 2 = floats ; normally set to 0 or 1 for integer output #====================================================== #*** ANALYSIS PARAMETERS ****************************** windowsize=0 # default 0 sets windowsize (in samples) to 2 * FFT_length if # samp. rate <= 48000 or to 4 * FFT_length if samp. rate > 48000 window_type=2 # window type: 0 = Hamming,1 = rectangular, 2 = Blackman (DEFAULT), # 3 = Bartlett triangular, 4-12 = Kaiser windows for alpha = 4-12 # generally recommended: 2 or 8 frames_per_second=200 # Set the frame rate to a value >= the frame rate used in the analysis. # Lesser frame rates create loss of amplitude and phasiness. # Default for both pvanalysis and twarp is 200 #====================================================== #*** RESYNTHESIS PARAMETERS *************************** #........... OUTPUT CHANNEL(S) ....................... output_channel=0 # (channels are numbered from 1 to maximum; 0 = resynthesize all channels #.............OSCIL THRESHOLD ........................ oscillator_resynthesis_threshold_in_dB=-80 # usually -60 to -80 #****************** MODIFICATIONS ********************* #.................. AMPLITUDE OUTPUT in dB .......................... gain_in_decibels=0 # int, float or FUNC #.................. PITCH ............................. frequency_shift=0 # int, float or FUNC gen1 -L1000 0 -3 .6 4. 1. 1. > $SFDIR/pitchfunc pitch_transposition_in_semitones=$SFDIR/pitchfunc # int, float or FUNC #................ AMPLITUDE & FREQUENCY ENVELOPE RESPONSES ................. attack_time_in_seconds=.02 # amplitude # int, float or FUNC release_time_in_seconds=.04 # amplitude # int, float or FUNC frequency_change_response_time_in_seconds=0 # frequency # int, float or FUNC #====================================================== #**************** DATA TIME ************************** # Controls time varying reading of the analysis file DATA_access_mode__explicit_0__rate_1=1 # 0 = explicit, 1 = rate # In rate mode, set time_point to initial position & use rate_multiplier to # control speed at which analysis file is read (1 = original speed) # In explicit mode, control time_point with a function. # (Rate_multiplier is nonfunctional in explicit mode.) time_point=.5 # int, float or FUNC rate_multiplier=1.33 #...................................................... lower_time_boundary=0 # int, float or FUNC upper_time_boundary=-1 # int, float or FUNC #(upper time < 0 defaults to file duration) #.....AUTOSTOP ........................................ autostop_on_1__off_0=0 # AUTOSTOP IS TURNED OFF TO ENABLE LOOPING # When on (1) , this will terminate synthesis if a boundary is crossed. #......TIMEPOINT DITHER ............................... timepoint_dither_window_in_seconds=.2 time_point_change_response_time_in_seconds=.5 # Unless you want flanging, time_point_change_response_time should typically # be set to between .01 and .05 #****************************************************** #********** SPECTRUM MODIFICATIONS ******************** #****************************************************** #............ SPECTRUM WARPSHAPE ...................... spectrum_warpshape_index=0 # int, float or FUNC # neg. values increase brightness, positive values descrease brightness #............. SPECTRUM COMPRESSION ................... spectrum_compression_threshold_in_decibels=-0 spectrum_decibels_of_compression=-0 #............. RANDOM AMPLITUDE VARIATION ............ random_amplitude_variation_decibel_floor=-0 # int, float or FUNC amplitude_variation_response_time_in_seconds=0 # int, float or FUNC #====================================================== #************** LOW/HIGH SHELF EQ ********************* LOW_SHELF_EQ_gain_in_decibels=-0 # int, float or FUNC to boost or cut low frequencies LOW_SHELF_EQ_frequency=40 # int, float or FUNC HIGH_SHELF_EQ_gain_in_decibels=-0 # int, float or FUNC to boost or cut high frequencies HIGH_SHELF_EQ_frequency=1000 # int, float or FUNC #====================================================== #............ RESCALE for floating point only................. rescale_level_in_decibels=0 # set to 1 to rescale to peak of input file; do not do this if input amplitude # is low #************ AMPLITUDE STATISTICS ******************** print_amplitude_statistics_0_no__1_yes=1 # use 0 to turn off amplitude display amplitude_statistics_time_interval=.25 #====================================================== # COMMAND LINE SETUP -- OFFICE USE ONLY (DO NOT WRITE BELOW THIS LINE EXCEPT TO DELETE FUNCTION FILES AT VERY END) #==================================================== # SYNTHESIS pvroutine=twarp # ****** TKLA changes & additions ****** # $pvroutine -d.1 -F$input_analysis_file pvcout 2> twarptmp$$ SR=`/usr/local/bin/sfsr $SFDIR/pvcout | awk '{print $1}'` ; rm -f pvcout if ( ( [ "$outputformat" == 1 ] ) || ( [ "$outputformat" == 2 ] ) ) ; then output_data_format=$outputformat ; output_file=$outputsf elif ( [ "$outputformat" == 3 ] ) ; then output_file=pvcout ; rm -f pvcout ; output_data_format=2 elif ( [ "$outputformat" == 0 ] ) ; then if ( [ `echo "$SR"` -gt 50000 ] ) ; then output_data_format=2 ; output_file=pvcout else output_data_format=1 ; output_file=$outputsf fi fi if ( ( [ `expr "$SR" \> "48000"` == 1 ] ) && ( [ "$windowsize" == "0" ] ) ) ; then # if SR is > 48000 & windowsize is set to 0 increase default windowsize FFTSIZE=`grep FFT\ SIZE twarptmp$$ | grep -v INPUT\ ANALYSIS | awk '{print $4}'` windowsize=`expr $FFTSIZE \* 4` fi rm -f twarptmp$$ # ****** end of TKLA changes & additions ****** # PVFLAGS="\ \ -M$windowsize \ -w$window_type \ -D$frames_per_second \ -d$duration \ \ -a$frequency_shift \ -P$pitch_transposition_in_semitones \ -A$gain_in_decibels \ \ -C$output_channel \ -t$oscillator_resynthesis_threshold_in_dB \ \ \ -F$input_analysis_file \ \ -u$DATA_access_mode__explicit_0__rate_1 \ -Q$time_point \ -Y$rate_multiplier \ -g$lower_time_boundary \ -G$upper_time_boundary \ -T$timepoint_dither_window_in_seconds \ -K$time_point_change_response_time_in_seconds \ \ -L$release_time_in_seconds \ -l$attack_time_in_seconds \ -f$frequency_change_response_time_in_seconds \ \ -W$spectrum_warpshape_index \ \ -b$random_amplitude_variation_decibel_floor \ -e$amplitude_variation_response_time_in_seconds \ \ -E$spectrum_compression_threshold_in_decibels \ -c$spectrum_decibels_of_compression \ \ -H$LOW_SHELF_EQ_gain_in_decibels \ -m$LOW_SHELF_EQ_frequency \ \ -X$HIGH_SHELF_EQ_gain_in_decibels \ -R$HIGH_SHELF_EQ_frequency \ \ -p$print_amplitude_statistics_0_no__1_yes \ -i$amplitude_statistics_time_interval \ \ -S$autostop_on_1__off_0 \ \ -_$output_data_format \ -=$rescale_level_in_decibels \ \ \ " echo "\n$pvroutine $PVFLAGS $output_file" ; $pvroutine $PVFLAGS $output_file ; # ***** TKLA CHANGES & ADDITIONS: ******* # if ( ( [ "$outputformat" == "3" ] ) || ( [ "$outputformat" == "0" ] ) && ( [ "$output_file" == "pvcout" ] ) ) ; then echo "Converting temporary float output file pvcout to $outputsf :" floatto24 pvcout $outputsf 2> /dev/null ; rm -f pvcout echo " -------------------------------------------------------" else echo " -------------------------------------------------------" echo "Header information for output soundfile >> $outputsf << :" /usr/local/bin/sfinfo -s $outputsf fi # ****** end of TKLA changes & additions ****** # # If you have created any gen function files above delete them below: rm $SFDIR/pitchfunc