naspro
view permafrost/examples/common.pmf @ 178:7169a8909d53
Added Permafrost + small changes
| author | Stefano D'Angelo <zanga.mail@gmail.com> |
|---|---|
| date | Sun May 02 14:19:58 2010 +0300 (2010-05-02) |
| parents | |
| children |
line source
1 # Permafrost - Physical modelling framework
2 #
3 # Copyright (C) 2009, 2010 Stefano D'Angelo <zanga.mail@gmail.com>
4 #
5 # See the COPYING file for license conditions.
7 block sum
8 {
9 input i1;
10 input i2;
11 output o;
13 o = i1 + i2;
14 }
16 block mul
17 {
18 input i1;
19 input i2;
20 output o;
22 o = i1 * i2;
23 }
25 block delay_1_sample
26 {
27 input i;
28 output o;
30 o = i[1];
31 }
33 block delay_line
34 {
35 input i;
36 output o;
37 input delay;
38 input delay_max;
40 o = i[delay, delay_max];
41 }
43 block secs_to_samples
44 {
45 input secs;
46 output samples;
48 samples = secs * sample_rate;
49 }