naspro

view permafrost/examples/waveshaper.pmf @ 178:7169a8909d53

find changesets by author, revision, files, or words in the commit message
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.
6
7 import m;
8
9 block waveshaper
10 {
11 input i;
12 input level;
13 output o;
14
15 o = m_atan(i * level) / m_atan(level);
16 }
17
18 system Arctan_waveshaper
19 {
20 sync input i;
21 async input level;
22 sync output o;
23
24 waveshaper w;
25
26 o = w.o;
27 w.i = i;
28 w.level = level;
29 }