-- Square wave synth for OAK.

#INCLUDE "oak.inc"
#USE "basic"
#USE "osc"
#USE "env"

--{{{ PROC synth.square (CHAN SIGNAL pitch?, trigger?, velocity?, out!)
PROC synth.square (CHAN SIGNAL pitch?, trigger?, velocity?, out!)
  CHAN SIGNAL vol, sq:
  PAR
    sqrt (velocity?, vol!)

    CHAN SIGNAL w:
    PAR
      generate.square (pitch?, w!)
      gate (w?, vol?, sq!)

    CHAN SIGNAL d:
    PAR
      adsr (trigger?, d!, 0.001, 4.0, 0.0, 0.05)
      gate (sq?, d?, out!)
:
--}}}