example now includes f inttype and f outtype

csound · Jan 31, 2022 · 48c6c75 · 48c6c75
1 parent d2922e9
commit 48c6c75
Showing 1 changed file with 26 additions and 10 deletions.
diff --git a/examples/opcode_f.csd b/examples/opcode_f.csd
@@ -13,26 +13,42 @@ ksmps = 32
 0dbfs =  1
 nchnls = 2
 
-; example by Luis Salgueiro
+; example by Luis Salgueiro and joachim heintz
 
-opcode Transpose, a, afk    ; transpose a monophonic input signal through FFT.
- ain, fsig, kInterval xin
- fScaled pvscale fsig, semitone(kInterval)
- aTransposed pvsynth fScaled
- xout aTransposed 
+opcode Transpose, a, fk    ; transpose a monophonic input signal through FFT.
+  fsig, kInterval xin
+  fScaled pvscale fsig, semitone(kInterval)
+  aTransposed pvsynth fScaled
+  xout aTransposed
 endop
 
+opcode Stretch,f,ik
+  iTab, kSpeed xin
+  fStretch pvstanal kSpeed, 1, 1, iTab
+  xout fStretch
+endop
+
+giFox ftgen 0, 0, 0, 1, "fox.wav", 0, 0, 0
+
 instr 1
- a1 diskin2 "fox.wav"
- fsig pvsanal a1, 1024, 256, 1024, 1
- aTransposed Transpose a1, fsig, p4   ; p4 = transposition in semitones
- outs aTransposed, aTransposed
+  aSnd diskin2 "fox.wav"
+  fSnd pvsanal aSnd, 1024, 256, 1024, 1
+  aTransposed Transpose fSnd, p4   ; p4 = transposition in semitones
+  outall aTransposed/2
+endin
+
+instr 2
+  fStretch Stretch giFox, transeg:k(1,p3,-3,0)
+  aStretch pvsynth fStretch
+  outall aStretch
 endin
 
 </CsInstruments>
 <CsScore>
 i1 0 3 0
 i1 . . 7
 i1 . . 12
+i2 4 8
+e
 </CsScore>
 </CsoundSynthesizer>