default_cym   xtlang

(bind-func default_cym
  (lambda (part:DLOGUE_PART* decay)
    (dl_osc1_pitch part 1.19)
    (dl_osc1_amp part 0.5)
    (dl_osc1_phase part 0.35)
    (dl_osc1_pw part 0.11)
    (dl_osc2_pitch part 1.5)
    (dl_osc2_amp part 0.5)
    (dl_osc2_phase part 0.13)
    (dl_osc2_pw part 0.0)
    ;; amp envelope decay
    (dl_amp_decay part decay)
    (dl_amp_decay_dur part 0.0)
    ;; pitch envelope decay & amt
    (dl_pitch_decay part 10.0)
    (dl_pitch_amt part 5.0)
    ;; noise
    (dl_noise_amp part 0.2)
    ;; filters
    (dl_filter1_type part DL_LPF)
    (dl_filter1_frq part 7500.0)
    (dl_filter1_frq_scale part 0.0)
    (dl_filter1_res part 0.2)
    (dl_filter2_type part DL_BPF)
    (dl_filter2_frq part 7900.0)
    (dl_filter2_frq_scale part 0.0)
    (dl_filter2_res part 0.9)
    ;; amplitude of part
    (dl_part_amp part 2.0)
    ;; base frq offset
    (dl_base_frq part 200.0) ;; 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))