default_snare   xtlang

(bind-func default_snare
  (lambda (part:DLOGUE_PART* frq)
    (dl_osc1_pitch part 1.94)
    (dl_osc1_amp part 0.5)
    (dl_osc1_phase part 0.0)
    (dl_osc1_pw part 0.0)
    (dl_osc2_pitch part 1.93)
    (dl_osc2_amp part 0.5)
    (dl_osc2_phase part 0.0)
    (dl_osc2_pw part 0.0)
    ;; amp envelope decay
    (dl_amp_decay part 400.0)
    (dl_amp_decay_dur part 0.0)
    ;; pitch envelope decay & amt
    (dl_pitch_decay part 10.0)
    (dl_pitch_amt part 3.5)
    ;; noise
    (dl_noise_amp part 0.3)
    ;; filters
    (dl_filter1_type part DL_NOFILTER)
    (dl_filter1_frq part 0.0)
    (dl_filter1_frq_scale part 0.0)
    (dl_filter1_res part 0.0)
    (dl_filter2_type part DL_NOFILTER)
    (dl_filter2_frq part 0.0)
    (dl_filter2_frq_scale part 0.0)
    (dl_filter2_res part 0.0)
    ;; amplitude of part
    (dl_part_amp part 2.0)
    ;; base frq offset
    (dl_base_frq part frq) ;; in hz
    (dl_base_frq_scale part 2.0) ;; over 2 octaves
    ;; fm
    (dl_fm_h part 0.0)
    (dl_fm_idx part 0.0)
    void))