← Back to branch summary

~ubuntu-branches/ubuntu/trusty/csound-manual/trusty-proposed

« back to all changes in this revision

Viewing changes to examples/tbvcf.csd

  • Committer: Bazaar Package Importer
  • Author(s): Felipe Sateler
  • Date: 2011-08-01 22:21:58 UTC
  • mfrom: (1.1.1 upstream)
  • Revision ID: james.westby@ubuntu.com-20110801222158-90kslkp5ujci2f5d
Tags: 1:5.13~dfsg-1
* New upstream release
 - Add Menno Knevel to the copyright file
 - Refresh patch 2000-stripped-opcodes.diff
 - Update copyright hints file
* Update Vcs-* headers
* Bump Standards-Version

Show diffs side-by-side

added added

removed removed

Lines of Context:
examples/tbvcf.csd
13
13
; Coded by Hans Mikelson December, 2000
14
14
;---------------------------------------------------------
15
15
  sr =  44100   ; Sample rate
16
 
  kr =  4410   ; Kontrol rate
17
16
  ksmps =  10   ; Samples/Kontrol period
18
17
  nchnls =  2        ; Normal stereo
19
 
  zakinit 50, 50
 
18
  0dbfs = 1
 
19
 
20
20
 
21
21
          instr 10
22
22
 
23
 
  idur    =          p3                                ; Duration
24
 
  iamp    =          p4                                ; Amplitude
25
 
  ifqc    =          cpspch(p5)                        ; Pitch to frequency
26
 
  ipanl   =          sqrt(p6)                          ; Pan left
27
 
  ipanr   =          sqrt(1-p6)                        ; Pan right
28
 
  iq      =          p7
29
 
  idist   =          p8
30
 
  iasym   =          p9
31
 
 
32
 
  kdclck  linseg 0, .002, 1, idur-.004, 1, .002, 0 ; Declick envelope
33
 
 
34
 
  kfco    expseg 10000, idur, 1000                 ; Frequency envelope
35
 
 
36
 
  ax      vco 1, ifqc, 2, 1                     ; Square wave
37
 
  ay      tbvcf ax, kfco, iq, idist, iasym        ; TB-VCF
38
 
  ay      buthp ay/1, 100                         ; Hi-pass
39
 
 
40
 
          outs ay*iamp*ipanl*kdclck, ay*iamp*ipanr*kdclck
 
23
  idur  =       p3                      ; Duration
 
24
  iamp  =       p4                      ; Amplitude
 
25
  ifqc  =       cpspch(p5)              ; Pitch to frequency
 
26
  ipanl =       sqrt(p6)                ; Pan left
 
27
  ipanr =       sqrt(1-p6)              ; Pan right
 
28
  iq    =       p7
 
29
  idist =       p8
 
30
  iasym =       p9
 
31
 
 
32
kdclck          linseg  0, .002, 1, idur-.004, 1, .002, 0       ; Declick envelope
 
33
kfco            expseg  10000, idur, 1000                       ; Frequency envelope
 
34
ax              vco             1, ifqc, 2, 0.5                 ; Square wave
 
35
ay              tbvcf           ax, kfco, iq, idist, iasym              ; TB-VCF
 
36
ay              buthp   ay/1, 100                               ; Hi-pass
 
37
 
 
38
                outs            ay*iamp*ipanl*kdclck, ay*iamp*ipanr*kdclck
41
39
          endin
42
40
 
43
41
 
48
46
 
49
47
; TeeBee Test
50
48
;   Sta  Dur  Amp    Pitch Pan  Q    Dist1 Asym
51
 
i10 0    0.2  32767  7.00  .5   0.0  2.0   0.0
52
 
i10 0.3  0.2  32767  7.00  .5   0.8  2.0   0.0
53
 
i10 0.6  0.2  32767  7.00  .5   1.6  2.0   0.0
54
 
i10 0.9  0.2  32767  7.00  .5   2.4  2.0   0.0
55
 
i10 1.2  0.2  32767  7.00  .5   3.2  2.0   0.0
56
 
i10 1.5  0.2  32767  7.00  .5   4.0  2.0   0.0
57
 
i10 1.8  0.2  32767  7.00  .5   0.0  2.0   0.25
58
 
i10 2.1  0.2  32767  7.00  .5   0.8  2.0   0.25
59
 
i10 2.4  0.2  32767  7.00  .5   1.6  2.0   0.25
60
 
i10 2.7  0.2  32767  7.00  .5   2.4  2.0   0.25
61
 
i10 3.0  0.2  32767  7.00  .5   3.2  2.0   0.25
62
 
i10 3.3  0.2  32767  7.00  .5   4.0  2.0   0.25
63
 
i10 3.6  0.2  32767  7.00  .5   0.0  2.0   0.5
64
 
i10 3.9  0.2  32767  7.00  .5   0.8  2.0   0.5
65
 
i10 4.2  0.2  32767  7.00  .5   1.6  2.0   0.5
66
 
i10 4.5  0.2  32767  7.00  .5   2.4  2.0   0.5
67
 
i10 4.8  0.2  32767  7.00  .5   3.2  2.0   0.5
68
 
i10 5.1  0.2  32767  7.00  .5   4.0  2.0   0.5
69
 
i10 5.4  0.2  32767  7.00  .5   0.0  2.0   0.75
70
 
i10 5.7  0.2  32767  7.00  .5   0.8  2.0   0.75
71
 
i10 6.0  0.2  32767  7.00  .5   1.6  2.0   0.75
72
 
i10 6.3  0.2  32767  7.00  .5   2.4  2.0   0.75
73
 
i10 6.6  0.2  32767  7.00  .5   3.2  2.0   0.75
74
 
i10 6.9  0.2  32767  7.00  .5   4.0  2.0   0.75
75
 
i10 7.2  0.2  32767  7.00  .5   0.0  2.0   1.0
76
 
i10 7.5  0.2  32767  7.00  .5   0.8  2.0   1.0
77
 
i10 7.8  0.2  32767  7.00  .5   1.6  2.0   1.0
78
 
i10 8.1  0.2  32767  7.00  .5   2.4  2.0   1.0
79
 
i10 8.4  0.2  32767  7.00  .5   3.2  2.0   1.0
80
 
i10 8.7  0.2  32767  7.00  .5   4.0  2.0   1.0
 
49
i10 0    0.2  0.5    7.00  .5   0.0  2.0   0.0
 
50
i10 0.3  0.2  0.5    7.00  .5   0.8  2.0   0.0
 
51
i10 0.6  0.2  0.5    7.00  .5   1.6  2.0   0.0
 
52
i10 0.9  0.2  0.5    7.00  .5   2.4  2.0   0.0
 
53
i10 1.2  0.2  0.5    7.00  .5   3.2  2.0   0.0
 
54
;i10 1.5  0.2  0.5    7.00  .5   4.0  2.0   0.0
 
55
i10 1.8  0.2  0.5    7.00  .5   0.0  2.0   0.25
 
56
i10 2.1  0.2  0.5    7.00  .5   0.8  2.0   0.25
 
57
i10 2.4  0.2  0.5    7.00  .5   1.6  2.0   0.25
 
58
i10 2.7  0.2  0.5    7.00  .5   2.4  2.0   0.25
 
59
i10 3.0  0.2  0.5    7.00  .5   3.2  2.0   0.25
 
60
i10 3.3  0.2  0.5    7.00  .5   4.0  2.0   0.25
 
61
i10 3.6  0.2  0.5    7.00  .5   0.0  2.0   0.5
 
62
i10 3.9  0.2  0.5    7.00  .5   0.8  2.0   0.5
 
63
i10 4.2  0.2  0.5    7.00  .5   1.6  2.0   0.5
 
64
i10 4.5  0.2  0.5    7.00  .5   2.4  2.0   0.5
 
65
i10 4.8  0.2  0.5    7.00  .5   3.2  2.0   0.5
 
66
i10 5.1  0.2  0.5    7.00  .5   4.0  2.0   0.5
 
67
i10 5.4  0.2  0.5    7.00  .5   0.0  2.0   0.75
 
68
i10 5.7  0.2  0.5    7.00  .5   0.8  2.0   0.75
 
69
i10 6.0  0.2  0.5    7.00  .5   1.6  2.0   0.75
 
70
i10 6.3  0.2  0.5    7.00  .5   2.4  2.0   0.75
 
71
i10 6.6  0.2  0.5    7.00  .5   3.2  2.0   0.75
 
72
i10 6.9  0.2  0.5    7.00  .5   4.0  2.0   0.75
 
73
i10 7.2  0.2  0.5    7.00  .5   0.0  2.0   1.0
 
74
i10 7.5  0.2  0.5    7.00  .5   0.8  2.0   1.0
 
75
i10 7.8  0.2  0.5    7.00  .5   1.6  2.0   1.0
 
76
i10 8.1  0.2  0.5    7.00  .5   2.4  2.0   1.0
 
77
i10 8.4  0.2  0.5    7.00  .5   3.2  2.0   1.0
 
78
i10 8.7  0.2  0.5    7.00  .5   4.0  2.0   1.0
81
79
e
82
80
 
83
81