GEN17
GEN17 — Crée une fonction en escalier à partir des paires x-y données.
Initialisation
taille -- nombre de points dans la table. Doit être une puissance de 2 ou une puissance-de-2 plus 1 (voir l'instruction f). La valeur normale est une puissance-de-2 plus 1.
x1, x2, x3, etc. -- valeurs d'abscisse x, en ordre ascendant, commençant par 0.
a, b, c, etc. -- valeurs y à ces valeurs d'abscisse x, maintenues jusqu'à la valeur d'abscisse x suivante.
![[Note]](images/note.png)
|
Note |
|---|---|
|
Ce sous-programme crée une fonction en escalier de paires x-y dont les valeurs y sont maintenues vers la droite. La valeur de y la plus à droite est ensuite maintenue jusqu'à la fin de la table. Cette fonction est utile pour mettre en correspondance un ensemble de données avec un autre, tel que des numéros de notes MIDI avec des numéros de ftables de sons échantillonés. (voir loscil). |
Exemples
f 1 0 128 -17 0 1 12 2 24 3 36 4 48 5 60 6 72 7 84 8
Ceci décrit une fonction en escalier avec huit niveaux croissants successifs, chacun occupant 12 positions sauf pour le dernier qui étend sa valeur jusqu'à la fin de la table. La normalisation est empêchée. En indexant cette table avec un numéro de note MIDI, on retrouvera une valeur différente pour chaque octave jusqu'à la huitième, au-delà de laquelle la valeur retournée restera la même.
Voici un exemple complet de la routine GEN17. Il utilise le fichier gen17.csd.
Exemple 1291. Un exemple de la routine GEN17.
<CsoundSynthesizer> <CsOptions> ; Select audio/midi flags here according to platform -odac ;;;realtime audio out ;-iadc ;;;uncomment -iadc if realtime audio input is needed too ; For Non-realtime ouput leave only the line below: ; -o gen17.wav -W ;;; for file output any platform ; By Stefano Cucchi & Menno Knevel - 2021 </CsOptions> <CsInstruments> sr = 44100 ksmps = 32 nchnls = 2 0dbfs = 1 instr 1 gisqre ftgen 2, 0, 16384, 10, 1, 0 , .33, 0, .2 , 0, .14, 0 , .11, 0, .09 ;odd harmonics knoteleft oscil 1, 0.5, 10 ; index to table 10 - gen 17 - every 2 seconds reads all the values in the table n. 10 printks2 "note left = %d\n", knoteleft knoteright oscil 1, 1, 10 ; index to table 10 - gen 17 - every second reads all the values in the table n. 10 printks2 "note right = %d\n", knoteright ixmode = 1 ixoff = 0 iwrap = 1 aphasor1 phasor knoteleft ; the values in table 10 become the frequency of the oscillator asig1 tablei aphasor1, gisqre, ixmode, ixoff, iwrap ; oscillator generating sound in the left channel (table 10 every 2 seconds) aphasor2 phasor knoteright ; the values in table 10 become the frequency of the oscillator asig2 tablei aphasor2, gisqre, ixmode, ixoff, iwrap ; oscillator generating sound in the right channel (table 10 every second) kgenenv linseg 0, 0.3, 0.4, p3-0.6, 0.4, 0.3, 0 ; envelope outs asig1 * kgenenv, asig2 * kgenenv endin </CsInstruments> <CsScore> ; table with gen17 - At point 0 pitch 300 Hz, at point 12 pitch 350 Hz, etc... f 10 0 128 -17 0 300 12 350 20 400 41 434 48 563 67 589 72 632 79 678 100 712 120 789 i1 0 10 e </CsScore> </CsoundSynthesizer>