root/ocaml-remix/trunk/pa_operators.ml

Revision 494, 207 bytes (checked in by shans, 5 years ago)

Instruments created from simple wave functions (for now - from
parameterised sound functions soon!)

Line 
1 open Camlp4.PreCast
2
3
4 EXTEND Gram
5   Syntax.expr: AFTER
6     [
7       LEFTA
8       [
9         e1=Syntax.expr; "sharp" -> <:expr<$e1$ + 1>>
10       | e1=Syntax.expr; "flat" -> <:expr<$e1$ - 1>>
11       ]
12     ];
13 END
Note: See TracBrowser for help on using the browser.