default_drum   xtlang

;; an open drum sound
;; kicks, toms etc..
(bind-func default_drum
  (lambda (part:DLOGUE_PART* frq)
    (dl_osc1_pitch part 1.0)
    (dl_osc1_amp part 0.5)
    (dl_osc1_phase part 0.0)
    (dl_osc1_pw part 0.0)
    (dl_osc2_pitch part 1.1182)
    (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 500.0)
    (dl_amp_decay_dur part 0.0)
    ;; pitch envelope decay & amt
    (dl_pitch_decay part 1.0)
    (dl_pitch_amt part 10.0)
    ;; noise
    (dl_noise_amp part 0.0)
    ;; 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))