# gestfm.lil -rw-r--r-- 856 bytes View raw
                                                                                
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
func sequence {} {
    gest_new
    dup
    gest_begin 3 3
    gest_polyramp 2
    gest_target 60
    gest_step
    gest_target 62
    gest_step
    gest_target 67
    gest_step

    gest_polyramp 2
    gest_target 69
    gest_step

    gest_polyramp 4
    gest_target 67
    gest_step
    gest_target 69
    gest_step
    gest_target 67
    gest_step
    gest_target 62
    gest_step

    gest_end
    gest_loopit
    gest_finish
    regget 0
    gesticulate zz zz
}

func modindex {} {
    gest_new
    dup

    gest_begin 3 3
    gest_monoramp 2
    gest_target 0

    gest_target 2
    gest_end
    gest_loopit
    gest_finish
    regget 0
    gesticulate zz zz
}

phasor 1 0
hold
regset zz 0

gensine [tabnew 8192]

mtof [sequence]
fmpair zz zz [param 1] [param 1] [modindex] [param 0]
mul zz 0.5

wavout zz "test.wav"

regget 0
unhold zz

computes 10