tran/exp.alg


1
2
3
4
5
6
7
8
9

(EXP-ALG
  (NAME "exp")
  (ARGUMENTS ("sound_type" "in"))
  (ALWAYS-SCALE in)
  (START (MIN in))
  (INNER-LOOP "output = (sample_type) exp(in)")
  (TERMINATE (MIN in))
  (LOGICAL-STOP (MIN in))
)