;;; -*- lisp -*-
;;;
;;; Examples of the fm violin (see v.ins) 
;;; This file semi-automatically translated from a sambox note list ca 1983.

(defvar fm-violin-fm-index 1.0)
(defvar fm-violin-amp-env '(0 0  25 1  75 1  100 0))
(defvar fm-violin-periodic-vibrato-rate 5.0)
(defvar fm-violin-random-vibrato-rate 16.0)
(defvar fm-violin-periodic-vibrato-amplitude 0.0025)
(defvar fm-violin-random-vibrato-amplitude 0.005)
(defvar fm-violin-noise-amount 0.0)
(defvar fm-violin-noise-freq 1000.0)
(defvar fm-violin-ind-noise-amount 0.0)
(defvar fm-violin-ind-noise-freq 10.0)
(defvar fm-violin-amp-noise-amount 0.0)
(defvar fm-violin-amp-noise-freq 20.0)
(defvar fm-violin-gliss-env '(0 0  100 0))
(defvar fm-violin-glissando-amount 0.0)
(defvar fm-violin-fm1-env '(0 1  25 .4  75 .6  100 0))
(defvar fm-violin-fm2-env fm-violin-fm1-env)
(defvar fm-violin-fm3-env fm-violin-fm1-env)
(defvar fm-violin-fm1-rat 1.0)
(defvar fm-violin-fm2-rat 3.0)
(defvar fm-violin-fm3-rat 4.0)
(defvar fm-violin-base nil)
(defvar fm-violin-frobber nil)
(defvar fm-violin-reverb-amount 0.01)
(defvar fm-violin-index-type :violin)
(defvar fm-violin-denoise nil)
(defvar fm-violin-index1 nil)
(defvar fm-violin-index2 nil)
(defvar fm-violin-index3 nil)

(defun restore-fm-violin-defaults ()
  (setf fm-violin-fm-index 1.0)
  (setf fm-violin-amp-env '(0 0  25 1  75 1  100 0))
  (setf fm-violin-periodic-vibrato-rate 5.0)
  (setf fm-violin-random-vibrato-rate 16.0)
  (setf fm-violin-periodic-vibrato-amplitude 0.0025)
  (setf fm-violin-random-vibrato-amplitude 0.005)
  (setf fm-violin-noise-amount 0.0)
  (setf fm-violin-noise-freq 1000.0)
  (setf fm-violin-ind-noise-amount 0.0)
  (setf fm-violin-ind-noise-freq 10.0)
  (setf fm-violin-gliss-env '(0 0  100 0))
  (setf fm-violin-glissando-amount 0.0)
  (setf fm-violin-fm1-env '(0 1  25 .4  75 .6  100 0))
  (setf fm-violin-fm2-env fm-violin-fm1-env)
  (setf fm-violin-fm3-env fm-violin-fm1-env)
  (setf fm-violin-fm1-rat 1.0)
  (setf fm-violin-fm2-rat 3.0)
  (setf fm-violin-fm3-rat 4.0)
  (setf fm-violin-base nil)
  (setf fm-violin-frobber nil)
  (setf fm-violin-reverb-amount 0.01)
  (setf fm-violin-index-type :violin)
  (setf fm-violin-denoise nil)
  (setf fm-violin-index1 nil)
  (setf fm-violin-index2 nil)
  (setf fm-violin-index3 nil))

(defun old-fm-violin (startime dur frequency amplitude &key
	    (fm-index                   fm-violin-fm-index)
	    (amp-env                    fm-violin-amp-env)
	    (periodic-vibrato-rate      fm-violin-periodic-vibrato-rate)
	    (random-vibrato-rate        fm-violin-random-vibrato-rate)
	    (periodic-vibrato-amplitude fm-violin-periodic-vibrato-amplitude)
	    (random-vibrato-amplitude   fm-violin-random-vibrato-amplitude)
	    (noise-amount               fm-violin-noise-amount)
	    (ind-noise-freq             fm-violin-ind-noise-freq)
	    (ind-noise-amount           fm-violin-ind-noise-amount)
	    (amp-noise-freq             fm-violin-amp-noise-freq)
	    (amp-noise-amount           fm-violin-amp-noise-amount)
	    (noise-freq                 fm-violin-noise-freq)
	    (gliss-env                  fm-violin-gliss-env)
	    (glissando-amount           fm-violin-glissando-amount)
	    (fm1-env                    fm-violin-fm1-env)
	    (fm2-env                    fm-violin-fm2-env)
	    (fm3-env                    fm-violin-fm3-env)
	    (fm1-rat                    fm-violin-fm1-rat)
	    (fm2-rat                    fm-violin-fm2-rat)
	    (fm3-rat                    fm-violin-fm3-rat)
	    (fm1-index                  fm-violin-index1)
	    (fm2-index                  fm-violin-index2)
	    (fm3-index                  fm-violin-index3)
	    (base                       fm-violin-base)
	    (frobber                    fm-violin-frobber)
	    (reverb-amount              fm-violin-reverb-amount)
	    (index-type                 fm-violin-index-type)
	    (degree                     nil)
	    (distance                   1.0)
	    (no-waveshaping             nil)
	    (denoise                    fm-violin-denoise)
	    (denoise-dur                .1) ;used to be .5 
	    (denoise-amp                .005)
   &allow-other-keys)
  (fm-violin startime dur frequency amplitude
	    :fm-index fm-index
	    :amp-env amp-env
	    :periodic-vibrato-rate periodic-vibrato-rate
	    :random-vibrato-rate random-vibrato-rate
	    :periodic-vibrato-amplitude periodic-vibrato-amplitude
	    :random-vibrato-amplitude random-vibrato-amplitude
	    :noise-amount noise-amount
	    :ind-noise-freq ind-noise-freq
	    :ind-noise-amount ind-noise-amount
	    :amp-noise-freq amp-noise-freq
	    :amp-noise-amount amp-noise-amount
	    :noise-freq noise-freq
	    :gliss-env gliss-env
	    :glissando-amount glissando-amount
	    :fm1-env fm1-env
	    :fm2-env fm2-env
	    :fm3-env fm3-env
	    :fm1-rat fm1-rat
	    :fm2-rat fm2-rat
	    :fm3-rat fm3-rat
	    :fm1-index fm1-index
	    :fm2-index fm2-index
	    :fm3-index fm3-index
	    :base base
	    :frobber frobber
	    :reverb-amount reverb-amount
	    :index-type index-type
	    :degree degree
	    :distance distance
	    :no-waveshaping no-waveshaping
	    :denoise denoise
	    :denoise-dur denoise-dur
	    :denoise-amp denoise-amp))


(setf pna '(0 0 1 1 10 .6000 25 .3000 100 0 ))
(setf ind2 '(0 1 25 .4000 75 .6000 100 0 ))
(setf high_att_ind '(0 1 25 .2000 75 .4000 100 0 ))
(setf no_att_ind '(0 .6000 75 .6000 100 0 ))
(setf no_dec_ind '(0 1 25 .4000 75 .6000 100 .6000 ))
(setf no_att_or_dec_ind '(0 .6000 100 .6000 ))
(setf amp '(0 0 25 1 60 .7000 75 1 100 0 ))
(setf ramp '(0 0 100 1 ))
(setf fast_up '(0 0 25 1 100 1 ))
(setf slow_up '(0 0 25 0 100 1 ))
(setf tap '(0 0 1 1 99 1 100 0 ))
(setf skwfrq '(0 -1 5 .2500 10 0 100 .1000 ))
(setf circle '(0 90 0 90 0 90 0 90 ))
(setf oldpizzf '(0 0 1 1 5 .6000 10 .3000 25 .1000 100 0 ))
(setf newpizzf '(0 0 1 1 5 .6000 10 .3000 25 .1000 99 .0200 100 0 ))
(setf pizzf '(0 0 1 1 5 .6000 10 .3000 25 .1000 100 0 ))
(setf legatof '(0 0 30 1 90 1 100 0 ))
(setf marcatof '(0 0 3 1 10 .8000 95 1 100 0 ))
(setf one '(0 1 100 1 ))
(setf mod_up '(0 0 25 0 75 1 100 1 ))
(setf mod_down '(0 1 25 1 75 0 100 0 ))
(setf one_to_zero '(0 1 75 1 100 0 ))
(setf zero_to_one '(0 0 75 0 100 1 ))
(setf down_flat '(0 1 25 0 75 .0500 100 0 ))
(setf down_down '(0 1 25 0 75 .0500 100 -1 ))
(setf down_up '(0 1 25 0 75 .0500 100 1 ))
(setf flat_down '(0 -.1000 10 .1000 25 0 75 .0500 100 -1 ))
(setf flat_up '(0 -.1000 10 .1000 25 0 75 0 100 1 ))
(setf up_flat '(0 -1 25 .0500 75 0 100 0 ))
(setf up_up '(0 -1 25 .0500 75 0 100 1 ))
(setf up_down '(0 -1 25 .0500 75 0 100 -1 ))
(setf swellf '(0 0 25 .8000 50 1 75 .8000 100 0 ))
(setf fpf '(0 0 25 1 50 .3000 75 .3000 100 0 ))
(setf indswell '(1 1 25 .4000 75 1 100 0 ))
(setf pyr '(0 1 25 .1000 95 .1000 100 0 ))
(setf fbell '(0 1 2 1.1000 25 .7500 75 .5000 100 .2000 ))
(setf lowbell '(0 1 5 1.2500 25 .8000 75 .5000 100 .2000 ))
(setf abell '(0 0 .1000 1 10 .6000 25 .3000 50 .1500 90 .1000 100 0 ))
(setf dwnup '(0 1 10 .4000 20 1 35 .3000 45 .8000 60 .2000 80 .6000 100 0 ))
(setf up50down '(0 0 50 1 100 0 ))
(setf metalamp '(0 0 .5000 1 5 1 10 .5000 15 .2500 35 .1000 100 0 ))
(setf slowupfastdown '(0 0 25 1 97 1 100 0 ))
(setf slowup '(0 0 50 .1000 95 1 100 0 ))
(setf indtoone '(0 1 25 .4000 100 .6500 ))

(setf whoosh '(0 0 75 .1000 90 .3000 97 .6000 100 1 ))
(setf mamp '(0 0 50 1 100 0 ))
(setf n_amp '(0 0 65 1 100 0 ))


(setf fullbeg 24.0)

(defmacro vln_one_sin (start-time duration frequency amplitude &rest rest)
  `(old-fm-violin ,(- start-time fullbeg) 
	      ,duration 
	      ,frequency 
	      ,(* amplitude .125) 
	      :degree (random 90.0) 
	      :noise-amount 0.0
	      ,@rest))

(defmacro vln_one_sin_ran (start-time duration frequency amplitude &rest rest)
  `(old-fm-violin ,(- start-time fullbeg) 
	      ,duration 
	      ,frequency 
	      ,(* amplitude .125) 
	      :degree (random 90.0) 
	      ,@rest))

(defmacro vln_one_sin_exp (start dur freq amp &rest rest) 
  `(vln_one_sin ,start ,dur ,freq ,amp :base 0.03125 ,@rest))

(defmacro violin (start dur freq amp &rest rest) 
  `(vln_one_sin ,start ,dur ,freq ,amp ,@rest))

(defmacro cel_one_sum (start-time duration frequency amplitude &rest rest)
  `(old-fm-violin ,(- start-time fullbeg) 
	      ,duration 
	      ,frequency 
	      ,(* amplitude .125) 
	      :degree (random 90.0) 
	      :index-type 'cello
	      ,@rest))

(with-sound (:channels 2 :reverb jc-reverb)


(setf fm-violin-glissando-amount 0.0)
(setf fm-violin-reverb-amount .1)
(setf fm-violin-amp-env metalamp)
(setf fm-violin-fm1-rat 6.718)
(setf fm-violin-fm2-rat 4.414)
(setf fm-violin-fm3-rat 5.141)

(vln_one_sin 24 1.6000 164.5868 .1600 :fm-index 2.1087)
(vln_one_sin 24.0003 4 164.5868 .2600 :fm-index 1.5488)
(vln_one_sin 24.0005 1.2000 125.9513 .2600 :fm-index 2.2999)
(vln_one_sin 24.0005 2.8000 125.9513 .1600 :fm-index 1.6818)
(vln_one_sin 24.0013 4 24.4994 .3000 :fm-index 2.4557)
(vln_one_sin 24.0033 3 24.4994 .3000 :fm-index 1.9387)
(vln_one_sin 24.0035 2.8000 24.4994 .2600 :fm-index 2.3828)
(vln_one_sin 24.0040 .8000 24.4994 .1600 :fm-index 1.7348)
(vln_one_sin 24.0043 4 24.4994 .3000 :fm-index 2.0886)


(setf fm-violin-fm1-rat 2.718)
(setf fm-violin-fm2-rat 4.414)
(setf fm-violin-fm3-rat 3.141)

(vln_one_sin 30.0003 1.2000 88.8854 .1600 :fm-index 2.0711)
(vln_one_sin 30.0003 4 88.8854 .2600 :fm-index 2.0225)
(vln_one_sin 30.0005 1.2000 102.7186 .2600 :fm-index 1.9300)
(vln_one_sin 30.0010 1.2000 32.7025 .3600 :fm-index 1.9269)
(vln_one_sin 30.0015 2.8000 32.7025 .2600 :fm-index 2.2153)
(vln_one_sin 30.0023 2 32.7025 .2600 :fm-index 2.1968)
(vln_one_sin 30.0023 4 32.7025 .3600 :fm-index 1.6091)
(vln_one_sin 30.0025 2 32.7025 .2600 :fm-index 2.1766)
(vln_one_sin 30.0035 1.2000 32.7025 .1600 :fm-index 1.5157)
(vln_one_sin 30.0040 .8000 32.7025 .1600 :fm-index 1.8092)
(vln_one_sin 30.0043 2 32.7025 .2600 :fm-index 1.6198)


(setf fm-violin-reverb-amount .2)
(setf fm-violin-fm3-rat 5.141)

(vln_one_sin 36.0003 1.2000 177.7708 .3000 :fm-index 1.9631)
(vln_one_sin 36.0003 4 177.7708 .3000 :fm-index 1.9647)
(vln_one_sin 36.0005 2.8000 336.2471 .1600 :fm-index 2.3977)
(vln_one_sin 36.0008 1.2000 336.2471 .2500 :fm-index 2.4103)
(vln_one_sin 36.0010 2 65.4050 .3000 :fm-index 1.8419)
(vln_one_sin 36.0033 2 65.4050 .3000 :fm-index 2.4540)
(vln_one_sin 36.0043 4 65.4050 .1600 :fm-index 2.2909)


(setf fm-violin-reverb-amount .1)

(vln_one_sin 42.0003 1.2000 11.1107 .3000 :fm-index 1.8715)
(vln_one_sin 42.0003 4 11.1107 .3000 :fm-index 2.4590)
(vln_one_sin 42.0005 2.8000 21.0154 .1600 :fm-index 2.3802)
(vln_one_sin 42.0008 1.2000 21.0154 .2500 :fm-index 1.7564)
(vln_one_sin 42.0010 2 4.0878 .3000 :fm-index 2.2529)
(vln_one_sin 42.0033 2 4.0878 .3000 :fm-index 1.9693)
(vln_one_sin 42.0043 4 4.0878 .1600 :fm-index 2.2534)


(restore-fm-violin-defaults)
(setf fm-violin-noise-amount .1)

(vln_one_sin_ran 48 5.4000 116.5400 .2500 :fm-index 2.2822 :reverb-amount .0280 :amp-env '(0 0 .0556 1 4.0937 .6000 9.1414 .3000 24.2845 .1000 100.0000 0 ))
(vln_one_sin_ran 48.0100 5.4000 43.6538 .2500 :fm-index 2.0867 :reverb-amount .0202 :amp-env '(0 0 .0556 1 4.0937 .6000 9.1414 .3000 24.2845 .1000 100.0000 0 ))
(vln_one_sin_ran 48.0200 5.4000 130.8100 .2500 :fm-index 1.9652 :reverb-amount .0270 :amp-env '(0 0 .0556 1 4.0937 .6000 9.1414 .3000 24.2845 .1000 100.0000 0 ))
(vln_one_sin_ran 48.0250 5.4000 87.3075 .2500 :fm-index 2.1524 :reverb-amount .0260 :amp-env '(0 0 .0556 1 4.0937 .6000 9.1414 .3000 24.2845 .1000 100.0000 0 ))
(vln_one_sin_ran 48.0300 4.5000 261.6200 .1500 :fm-index 2.1384 :reverb-amount .0242 :amp-env '(0 0 .0667 1 4.1044 .6000 9.1515 .3000 24.2929 .1000 100 0 ))
(vln_one_sin_ran 48.0300 4.5000 174.6150 .1500 :fm-index 2.1425 :reverb-amount .0265 :amp-env '(0 0 .0667 1 4.1044 .6000 9.1515 .3000 24.2929 .1000 100 0 ))
(vln_one_sin_ran 48.0300 4.5000 130.8100 .1500 :fm-index 1.9805 :reverb-amount .0201 :amp-env '(0 0 .0667 1 4.1044 .6000 9.1515 .3000 24.2929 .1000 100 0 ))
(vln_one_sin_ran 48.0350 4.5000 43.6538 .1500 :fm-index 2.4876 :reverb-amount .0329 :amp-env '(0 0 .0667 1 4.1044 .6000 9.1515 .3000 24.2929 .1000 100 0 ))
(vln_one_sin_ran 48.0400 3.6000 220 .1500 :fm-index 1.8282 :reverb-amount .0244 :amp-env '(0 0 .0833 1 4.1204 .6000 9.1667 .3000 24.3056 .1000 100.0000 0 ) :noise-amount .1500)
(vln_one_sin_ran 48.0400 3.6000 174.6150 .1500 :fm-index 2.3479 :reverb-amount .0200 :amp-env '(0 0 .0833 1 4.1204 .6000 9.1667 .3000 24.3056 .1000 100.0000 0 ) :noise-amount .1500)
(vln_one_sin_ran 48.0400 3.6000 523.2400 .1500 :fm-index 1.6424 :reverb-amount .0286 :amp-env '(0 0 .0833 1 4.1204 .6000 9.1667 .3000 24.3056 .1000 100.0000 0 ) :noise-amount .1500)
(vln_one_sin_ran 48.0450 3.6000 349.2300 .1500 :fm-index 1.6449 :reverb-amount .0333 :amp-env '(0 0 .0833 1 4.1204 .6000 9.1667 .3000 24.3056 .1000 100.0000 0 ) :noise-amount .1500)
(vln_one_sin_ran 48.0500 6 699.4600 .1500 :fm-index 1.5570 :reverb-amount .1300 :amp-env tap)
(vln_one_sin_ran 48.0500 6 1397.9200 .1500 :fm-index 1.5131 :reverb-amount .1300 :amp-env tap)
(vln_one_sin_ran 48.0500 6 783.9800 .1500 :fm-index 2.2031 :reverb-amount .1300 :amp-env tap)
(vln_one_sin_ran 48.0500 6 1046.4800 .1500 :fm-index 2.2724 :reverb-amount .1300 :amp-env tap)
(vln_one_sin_ran 48.0600 9 21.8269 .1500 :fm-index 2.1048 :reverb-amount .1000 :amp-env tap)
(vln_one_sin_ran 48.0600 8 87.3075 .1500 :fm-index 1.8854 :reverb-amount .1000 :amp-env tap)
(vln_one_sin_ran 48.0600 7 65.4050 .1500 :fm-index 1.6781 :reverb-amount .1000 :amp-env tap)
(vln_one_sin_ran 48.0600 8 43.6538 .1500 :fm-index 1.7862 :reverb-amount .1000 :amp-env tap)
(vln_one_sin_ran 48.0700 6 175.6150 .1500 :fm-index 2.2656 :reverb-amount .1000 :amp-env tap)
(vln_one_sin_ran 48.0700 6 350.2300 .1500 :fm-index 2.4241 :reverb-amount .1000 :amp-env tap)
(vln_one_sin_ran 48.0700 6 131.8100 .1500 :fm-index 2.4294 :reverb-amount .1000 :amp-env tap)
(vln_one_sin_ran 48.0700 6 32.7025 .1500 :fm-index 1.5779 :reverb-amount .1000 :amp-env tap)
(vln_one_sin_ran 48.0800 6 196.9950 .1500 :fm-index 1.8511 :reverb-amount .1000 :amp-env tap)
(vln_one_sin_ran 48.0800 6 1047.4800 .1500 :fm-index 2.2148 :reverb-amount .1000 :amp-env tap)
(vln_one_sin_ran 48.0800 6 831.6200 .1500 :fm-index 1.9913 :reverb-amount .1000 :amp-env tap)
(vln_one_sin_ran 48.0800 6 2793.8400 .1500 :fm-index 2.2607 :reverb-amount .1000 :amp-env tap)
(vln_one_sin_ran 48.2700 6 784.9800 .1600 :fm-index 2.0693 :reverb-amount .1000 :amp-env tap)
(vln_one_sin_ran 48.2700 6 64.4050 .1600 :fm-index 1.6920 :reverb-amount .1000 :amp-env tap)
(vln_one_sin_ran 48.2700 6 208.6550 .1600 :fm-index 2.2597 :reverb-amount .1000 :amp-env tap)
; from lizard
(vln_one_sin_ran 48.2700 6 43.6538 .1600 :fm-index 2.2522 :reverb-amount .1000 :amp-env tap)


(restore-fm-violin-defaults)
(vln_one_sin_ran 60 1.8000 349.2300 .1600 :fm-index 2.1541 :reverb-amount .0225 :amp-env '(0 0 .1667 1 4.2003 .6000 9.2424 .3000 24.3687 .1000 100 0 ) :noise-amount .0500)
(vln_one_sin_ran 60.0100 2.7000 146.8300 .1600 :fm-index 2.3335 :reverb-amount .0274 :amp-env '(0 0 .1111 1 4.1470 .6000 9.1919 .3000 24.3266 .1000 100.0000 0 ) :noise-amount .0500)
(vln_one_sin_ran 60.0200 1.8000 880 .1600 :fm-index 2.1910 :reverb-amount .0279 :amp-env '(0 0 .1667 1 4.2003 .6000 9.2424 .3000 24.3687 .1000 100 0 ) :noise-amount .0500)
(vln_one_sin_ran 60.0250 3.6000 73.4150 .1600 :fm-index 2.1410 :reverb-amount .0223 :amp-env '(0 0 .0833 1 4.1204 .6000 9.1667 .3000 24.3056 .1000 100.0000 0 ) :noise-amount .0500)
(vln_one_sin_ran 60.0300 2.7000 87.3075 .1600 :fm-index 1.8491 :reverb-amount .0217 :amp-env '(0 0 .1111 1 4.1470 .6000 9.1919 .3000 24.3266 .1000 100.0000 0 ) :noise-amount .0010)
(vln_one_sin_ran 60.0300 2.7000 75.5662 .1600 :fm-index 1.9191 :reverb-amount .0204 :amp-env '(0 0 .1111 1 4.1470 .6000 9.1919 .3000 24.3266 .1000 100.0000 0 ) :noise-amount .0010)
(vln_one_sin_ran 60.0400 3.6000 52.3432 .1600 :fm-index 1.6090 :reverb-amount .0296 :amp-env '(0 0 .0833 1 4.1204 .6000 9.1667 .3000 24.3056 .1000 100.0000 0 ) :noise-amount .0010)
(vln_one_sin_ran 60.0450 1.8000 73.4150 .1600 :fm-index 2.2201 :reverb-amount .0221 :amp-env '(0 0 .1667 1 4.2003 .6000 9.2424 .3000 24.3687 .1000 100 0 ) :noise-amount .0010)
(vln_one_sin_ran 60.0500 4 116.5400 .0600 :fm-index 2.0230 :reverb-amount .1000 :amp-env tap :noise-amount .0010)
(vln_one_sin_ran 60.0500 4 97.9975 .0600 :fm-index 1.7284 :reverb-amount .1000 :amp-env tap :noise-amount .0010)
(vln_one_sin_ran 60.0600 4 36.7075 .0600 :fm-index 1.6845 :reverb-amount .1000 :amp-env tap :noise-amount .0010)
(vln_one_sin_ran 60.0650 4 97.9975 .0600 :fm-index 2.4616 :reverb-amount .1000 :amp-env tap :noise-amount .0010)


(vln_one_sin_ran 67 1.8000 261.6200 .1600 :fm-index 2.2576 :reverb-amount .0286 :amp-env '(0 0 .1667 1 4.2003 .6000 9.2424 .3000 24.3687 .1000 100 0 ) :noise-amount .0100)
(vln_one_sin_ran 67.0100 2.7000 130.8100 .1600 :fm-index 2.1530 :reverb-amount .0330 :amp-env '(0 0 .1111 1 4.1470 .6000 9.1919 .3000 24.3266 .1000 100.0000 0 ) :noise-amount .0100)
(vln_one_sin_ran 67.0200 1.8000 523.2400 .1600 :fm-index 2.0608 :reverb-amount .0235 :amp-env '(0 0 .1667 1 4.2003 .6000 9.2424 .3000 24.3687 .1000 100 0 ) :noise-amount .0100)
(vln_one_sin_ran 67.0250 3.6000 65.4050 .1600 :fm-index 2.2203 :reverb-amount .0234 :amp-env '(0 0 .0833 1 4.1204 .6000 9.1667 .3000 24.3056 .1000 100.0000 0 ) :noise-amount .0100)
(vln_one_sin_ran 67.0300 2.7000 65.4050 .1600 :fm-index 1.7089 :reverb-amount .0208 :amp-env '(0 0 .1111 1 4.1470 .6000 9.1919 .3000 24.3266 .1000 100.0000 0 ) :noise-amount .0010)
(vln_one_sin_ran 67.0300 2.7000 130.8100 .1600 :fm-index 2.2948 :reverb-amount .0269 :amp-env '(0 0 .1111 1 4.1470 .6000 9.1919 .3000 24.3266 .1000 100.0000 0 ) :noise-amount .0010)
(vln_one_sin_ran 67.0400 3.6000 32.7025 .1600 :fm-index 1.7677 :reverb-amount .0288 :amp-env '(0 0 .0833 1 4.1204 .6000 9.1667 .3000 24.3056 .1000 100.0000 0 ) :noise-amount .0010)
(vln_one_sin_ran 67.0450 1.8000 32.7025 .1600 :fm-index 1.9030 :reverb-amount .0209 :amp-env '(0 0 .1667 1 4.2003 .6000 9.2424 .3000 24.3687 .1000 100 0 ) :noise-amount .0010)
(vln_one_sin_ran 67.0500 4 65.4050 .0600 :fm-index 2.2757 :reverb-amount .1000 :amp-env tap :noise-amount .0010)
(vln_one_sin_ran 67.0500 4 65.4050 .0600 :fm-index 2.2435 :reverb-amount .1000 :amp-env tap :noise-amount .0010)
(vln_one_sin_ran 67.0600 4 32.7025 .0600 :fm-index 1.9619 :reverb-amount .1000 :amp-env tap :noise-amount .0010)
(vln_one_sin_ran 67.0650 4 65.4050 .0600 :fm-index 2.0207 :reverb-amount .1000 :amp-env tap :noise-amount .0010)


(vln_one_sin_ran 73.0100 .9000 3135.9200 .1600 :fm-index 2.1204 :reverb-amount .0024 :amp-env '(0 0 .3333 1 4.3603 .6000 9.3939 .3000 24.4950 .1000 100.0000 0 ) :noise-amount .0100)
(vln_one_sin_ran 73.0100 .4500 1567.9600 .1600 :fm-index 2.0691 :reverb-amount .0025 :amp-env '(0 0 .6667 1 4.6801 .6000 9.6970 .3000 24.7475 .1000 100 0 ) :noise-amount .0100)
(vln_one_sin_ran 73.0200 .9000 6271.8400 .1600 :fm-index 2.2081 :reverb-amount .0022 :amp-env '(0 0 .3333 1 4.3603 .6000 9.3939 .3000 24.4950 .1000 100.0000 0 ) :noise-amount .0100)
(vln_one_sin_ran 73.0250 .9000 783.9800 .1600 :fm-index 1.8719 :reverb-amount .0022 :amp-env '(0 0 .3333 1 4.3603 .6000 9.3939 .3000 24.4950 .1000 100.0000 0 ) :noise-amount .0100)
(vln_one_sin_ran 73.0300 .2700 783.9800 .1600 :fm-index 1.9705 :reverb-amount .0020 :amp-env '(0 0 1.1111 1 5.1066 .6000 10.1010 .3000 25.0842 .1000 100.0000 0 ) :noise-amount .0100)
(vln_one_sin_ran 73.0300 .6300 1567.9600 .1600 :fm-index 1.6778 :reverb-amount .0021 :amp-env '(0 0 .4762 1 4.4974 .6000 9.5238 .3000 24.6032 .1000 100.0000 0 ) :noise-amount .0100)
(vln_one_sin_ran 73.0400 .9000 391.9900 .1600 :fm-index 1.9558 :reverb-amount .0023 :amp-env '(0 0 .3333 1 4.3603 .6000 9.3939 .3000 24.4950 .1000 100.0000 0 ) :noise-amount .0100)
(vln_one_sin_ran 73.0450 .4500 195.9950 .1600 :fm-index 2.1344 :reverb-amount .0027 :amp-env '(0 0 .6667 1 4.6801 .6000 9.6970 .3000 24.7475 .1000 100 0 ) :noise-amount .0100)
(vln_one_sin_ran 73.0500 2 783.9800 .1600 :reverb-amount .0100 :amp-env tap :noise-amount .0090)
(vln_one_sin_ran 73.0500 1 1567.9600 .1600 :reverb-amount .0100 :amp-env tap :noise-amount .0090)
(vln_one_sin_ran 73.0600 2 391.9900 .1600 :reverb-amount .0100 :amp-env tap :noise-amount .0090)
(vln_one_sin_ran 73.0650 1 783.9800 .1600 :reverb-amount .0100 :amp-env tap :noise-amount .0090)
(vln_one_sin_ran 73.0700 2 195.9950 .1600 :reverb-amount .0100 :amp-env tap :noise-amount .0040)
(vln_one_sin_ran 73.0700 1 1567.9600 .1600 :reverb-amount .0100 :amp-env tap :noise-amount .0040)
(vln_one_sin_ran 73.0800 1 784.9800 .1600 :reverb-amount .0100 :amp-env tap :noise-amount .0040)
(vln_one_sin_ran 73.0850 2 391.9900 .1600 :reverb-amount .0100 :amp-env tap :noise-amount .0040)


(vln_one_sin_ran 79.0100 .9000 97.9975 .1000 :fm-index 2.0885 :reverb-amount .0031 :amp-env '(0 0 .3333 1 4.3603 .6000 9.3939 .3000 24.4950 .1000 100.0000 0 ) :noise-amount .0100)
(vln_one_sin_ran 79.0100 1.8000 48.9988 .1000 :fm-index 2.2269 :reverb-amount .0026 :amp-env '(0 0 .1667 1 4.2003 .6000 9.2424 .3000 24.3687 .1000 100 0 ) :noise-amount .0100)
(vln_one_sin_ran 79.0200 .9000 195.9950 .1000 :fm-index 2.0305 :reverb-amount .0032 :amp-env '(0 0 .3333 1 4.3603 .6000 9.3939 .3000 24.4950 .1000 100.0000 0 ) :noise-amount .0100)
(vln_one_sin_ran 79.0250 .9000 24.4994 .1000 :fm-index 2.4934 :reverb-amount .0025 :amp-env '(0 0 .3333 1 4.3603 .6000 9.3939 .3000 24.4950 .1000 100.0000 0 ) :noise-amount .0100)
(vln_one_sin_ran 79.0300 1.8000 97.9975 .1000 :fm-index 2.4039 :reverb-amount .0023 :amp-env '(0 0 .1667 1 4.2003 .6000 9.2424 .3000 24.3687 .1000 100 0 ) :noise-amount .0400)
(vln_one_sin_ran 79.0300 .9000 195.9950 .1000 :fm-index 1.5159 :reverb-amount .0021 :amp-env '(0 0 .3333 1 4.3603 .6000 9.3939 .3000 24.4950 .1000 100.0000 0 ) :noise-amount .0400)
(vln_one_sin_ran 79.0300 .9000 392.9900 .1000 :fm-index 2.2122 :reverb-amount .0028 :amp-env '(0 0 .3333 1 4.3603 .6000 9.3939 .3000 24.4950 .1000 100.0000 0 ) :noise-amount .0400)
(vln_one_sin_ran 79.0300 1.8000 784.9800 .1000 :fm-index 2.1574 :reverb-amount .0020 :amp-env '(0 0 .1667 1 4.2003 .6000 9.2424 .3000 24.3687 .1000 100 0 ) :noise-amount .0400)
(vln_one_sin_ran 79.0300 2.7000 24.4994 .1000 :fm-index 2.1963 :reverb-amount .0031 :amp-env '(0 0 .1111 1 4.1470 .6000 9.1919 .3000 24.3266 .1000 100.0000 0 ) :noise-amount .0100)
(vln_one_sin_ran 79.0300 1.8000 48.9988 .1000 :fm-index 1.9761 :reverb-amount .0032 :amp-env '(0 0 .1667 1 4.2003 .6000 9.2424 .3000 24.3687 .1000 100 0 ) :noise-amount .0100)
(vln_one_sin_ran 79.0400 2.7000 12.2497 .1000 :fm-index 1.5088 :reverb-amount .0021 :amp-env '(0 0 .1111 1 4.1470 .6000 9.1919 .3000 24.3266 .1000 100.0000 0 ) :noise-amount .0100)
(vln_one_sin_ran 79.0450 1.8000 6.1248 .1000 :fm-index 1.7384 :reverb-amount .0021 :amp-env '(0 0 .1667 1 4.2003 .6000 9.2424 .3000 24.3687 .1000 100 0 ) :noise-amount .0100)
(vln_one_sin_ran 79.0500 2 24.4994 .1000 :reverb-amount .1000 :amp-env tap :noise-amount .0040)
(vln_one_sin_ran 79.0500 1 48.9988 .1000 :reverb-amount .1000 :amp-env tap :noise-amount .0040)
(vln_one_sin_ran 79.0600 2 12.2497 .1000 :reverb-amount .1000 :amp-env tap :noise-amount .0040)
(vln_one_sin_ran 79.0650 1 24.4994 .1000 :reverb-amount .1000 :amp-env tap :noise-amount .0040)
(vln_one_sin_ran 79.0700 2 6.1248 .1000 :fm-index 1.2474 :reverb-amount .1000 :amp-env tap :noise-amount .0040)
(vln_one_sin_ran 79.0700 1 48.9988 .1000 :fm-index .7526 :reverb-amount .1000 :amp-env tap :noise-amount .0040)
(vln_one_sin_ran 79.0800 1 25.4994 .1000 :fm-index 1.1080 :reverb-amount .1000 :amp-env tap :noise-amount .0040)
(vln_one_sin_ran 79.0850 2 12.2497 .1000 :fm-index 1.0859 :reverb-amount .1000 :amp-env tap :noise-amount .0040)
(vln_one_sin_ran 79.0900 4 97.9975 .1000 :fm-index 2.4788 :reverb-amount .1000 :amp-env tap :noise-amount .0040)
(vln_one_sin_ran 79.0900 3 48.9988 .1000 :fm-index 1.8980 :reverb-amount .1000 :amp-env tap :noise-amount .0040)
(vln_one_sin_ran 79.0900 3 25.4994 .1000 :fm-index 2.1151 :reverb-amount .1000 :amp-env tap :noise-amount .0040)
(vln_one_sin_ran 79.0950 5 12.2497 .1000 :fm-index 2.3224 :reverb-amount .1000 :amp-env tap :noise-amount .0040)


(vln_one_sin_ran 85.2100 .9000 123.4725 .1000 :reverb-amount .0031 :amp-env '(0 0 .3333 1 4.3603 .6000 9.3939 .3000 24.4950 .1000 100.0000 0 ) :noise-amount .0100)
(vln_one_sin_ran 85.2100 1.8000 61.7363 .1000 :reverb-amount .0023 :amp-env '(0 0 .1667 1 4.2003 .6000 9.2424 .3000 24.3687 .1000 100 0 ) :noise-amount .0100)
(vln_one_sin_ran 85.2200 .9000 246.9450 .1000 :reverb-amount .0023 :amp-env '(0 0 .3333 1 4.3603 .6000 9.3939 .3000 24.4950 .1000 100.0000 0 ) :noise-amount .0100)
(vln_one_sin_ran 85.2250 .9000 30.8681 .1000 :reverb-amount .0026 :amp-env '(0 0 .3333 1 4.3603 .6000 9.3939 .3000 24.4950 .1000 100.0000 0 ) :noise-amount .0100)
(vln_one_sin_ran 85.2300 1.8000 123.4725 .1000 :reverb-amount .0027 :amp-env '(0 0 .1667 1 4.2003 .6000 9.2424 .3000 24.3687 .1000 100 0 ) :noise-amount .0400)
(vln_one_sin_ran 85.2300 .9000 246.9450 .1000 :reverb-amount .0026 :amp-env '(0 0 .3333 1 4.3603 .6000 9.3939 .3000 24.4950 .1000 100.0000 0 ) :noise-amount .0400)
(vln_one_sin_ran 85.2300 .9000 494.8900 .1000 :reverb-amount .0020 :amp-env '(0 0 .3333 1 4.3603 .6000 9.3939 .3000 24.4950 .1000 100.0000 0 ) :noise-amount .0400)
(vln_one_sin_ran 85.2300 1.8000 988.7800 .1000 :reverb-amount .0025 :amp-env '(0 0 .1667 1 4.2003 .6000 9.2424 .3000 24.3687 .1000 100 0 ) :noise-amount .0400)
(vln_one_sin_ran 85.2300 2.7000 30.8681 .1000 :reverb-amount .0028 :amp-env '(0 0 .1111 1 4.1470 .6000 9.1919 .3000 24.3266 .1000 100.0000 0 ) :noise-amount .0100)
(vln_one_sin_ran 85.2300 1.8000 61.7363 .1000 :reverb-amount .0023 :amp-env '(0 0 .1667 1 4.2003 .6000 9.2424 .3000 24.3687 .1000 100 0 ) :noise-amount .0100)
(vln_one_sin_ran 85.2400 2.7000 15.4341 .1000 :reverb-amount .0030 :amp-env '(0 0 .1111 1 4.1470 .6000 9.1919 .3000 24.3266 .1000 100.0000 0 ) :noise-amount .0100)
(vln_one_sin_ran 85.2450 1.8000 20.5788 .1000 :reverb-amount .0023 :amp-env '(0 0 .1667 1 4.2003 .6000 9.2424 .3000 24.3687 .1000 100 0 ) :noise-amount .0100)
(vln_one_sin_ran 85.2500 2 30.8681 .1000 :reverb-amount .1000 :amp-env tap :noise-amount .0090)
(vln_one_sin_ran 85.2500 1 61.7363 .1000 :reverb-amount .1000 :amp-env tap :noise-amount .0090)
(vln_one_sin_ran 85.2600 2 15.4341 .1000 :reverb-amount .1000 :amp-env tap :noise-amount .0090)
(vln_one_sin_ran 85.2650 1 30.8681 .1000 :reverb-amount .1000 :amp-env tap :noise-amount .0090)
(vln_one_sin_ran 85.2710 2 30.8681 .1000 :reverb-amount .1000 :amp-env tap :noise-amount .0040)
(vln_one_sin_ran 85.2710 1 61.7363 .1000 :reverb-amount .1000 :amp-env tap :noise-amount .0040)
(vln_one_sin_ran 85.2810 1 31.8681 .1000 :reverb-amount .1000 :amp-env tap :noise-amount .0040)
(vln_one_sin_ran 85.2860 2 15.4341 .1000 :reverb-amount .1000 :amp-env tap :noise-amount .0040)


(setf yup '(0 0 1 1 100 0 ))
(vln_one_sin_ran 93.0100 .9000 3135.9200 .1600 :fm-index 1.7299 :reverb-amount .0026 :amp-env '(0 0 .3333 1 4.3603 .6000 9.3939 .3000 24.4950 .1000 100.0000 0 ) :noise-amount .0100)
(vln_one_sin_ran 93.0100 .4500 1464.6987 .1600 :fm-index 1.9173 :reverb-amount .0027 :amp-env '(0 0 .6667 1 4.6801 .6000 9.6970 .3000 24.7475 .1000 100 0 ) :noise-amount .0100)
(vln_one_sin_ran 93.0200 .9000 6714.0048 .1600 :fm-index 2.4604 :reverb-amount .0032 :amp-env '(0 0 .3333 1 4.3603 .6000 9.3939 .3000 24.4950 .1000 100.0000 0 ) :noise-amount .0100)
(vln_one_sin_ran 93.0250 .9000 684.1190 .1600 :fm-index 1.9969 :reverb-amount .0021 :amp-env '(0 0 .3333 1 4.3603 .6000 9.3939 .3000 24.4950 .1000 100.0000 0 ) :noise-amount .0100)
(vln_one_sin_ran 93.0300 .2700 684.1190 .1600 :fm-index 2.0022 :reverb-amount .0026 :amp-env '(0 0 1.1111 1 5.1066 .6000 10.1010 .3000 25.0842 .1000 100.0000 0 ) :noise-amount .0100)
(vln_one_sin_ran 93.0300 .6300 1464.6987 .1600 :fm-index 2.1058 :reverb-amount .0027 :amp-env '(0 0 .4762 1 4.4974 .6000 9.5238 .3000 24.6032 .1000 100.0000 0 ) :noise-amount .0100)
(vln_one_sin_ran 93.0400 .9000 319.5325 .1600 :fm-index 2.2293 :reverb-amount .0029 :amp-env '(0 0 .3333 1 4.3603 .6000 9.3939 .3000 24.4950 .1000 100.0000 0 ) :noise-amount .0100)
(vln_one_sin_ran 93.0450 .4500 149.2445 .1600 :fm-index 1.5780 :reverb-amount .0025 :amp-env '(0 0 .6667 1 4.6801 .6000 9.6970 .3000 24.7475 .1000 100 0 ) :noise-amount .0100)
(vln_one_sin_ran 93.0500 1 684.1190 .1600 :reverb-amount .0100 :amp-env yup :noise-amount .0090)
(vln_one_sin_ran 93.0500 1 1464.6987 .1600 :reverb-amount .0100 :amp-env yup :noise-amount .0090)
(vln_one_sin_ran 93.0600 1 319.5325 .1600 :reverb-amount .0100 :amp-env yup :noise-amount .0090)
(vln_one_sin_ran 93.0650 1 684.1190 .1600 :reverb-amount .0100 :amp-env yup :noise-amount .0090)
(vln_one_sin_ran 93.0700 1 149.2445 .1600 :reverb-amount .0100 :amp-env yup :noise-amount .0040)
(vln_one_sin_ran 93.0700 1 1464.6987 .1600 :reverb-amount .0100 :amp-env yup :noise-amount .0040)
(vln_one_sin_ran 93.0800 1 561.6022 .1600 :reverb-amount .0100 :amp-env yup :noise-amount .0040)
(vln_one_sin_ran 93.0850 1 319.5325 .1600 :reverb-amount .0100 :amp-env yup :noise-amount .0040)


(vln_one_sin_ran 96.0100 .9000 3135.9200 .1600 :fm-index 1.6329 :reverb-amount .0031 :amp-env '(0 0 .3333 1 4.3603 .6000 9.3939 .3000 24.4950 .1000 100.0000 0 ) :noise-amount .0100)
(vln_one_sin_ran 96.0100 .4500 1810.5774 .1600 :fm-index 1.8298 :reverb-amount .0031 :amp-env '(0 0 .6667 1 4.6801 .6000 9.6970 .3000 24.7475 .1000 100 0 ) :noise-amount .0100)
(vln_one_sin_ran 96.0200 .9000 5431.4135 .1600 :fm-index 2.1640 :reverb-amount .0022 :amp-env '(0 0 .3333 1 4.3603 .6000 9.3939 .3000 24.4950 .1000 100.0000 0 ) :noise-amount .0100)
(vln_one_sin_ran 96.0250 .9000 1045.3680 .1600 :fm-index 1.6971 :reverb-amount .0032 :amp-env '(0 0 .3333 1 4.3603 .6000 9.3939 .3000 24.4950 .1000 100.0000 0 ) :noise-amount .0100)
(vln_one_sin_ran 96.0300 .2700 1045.3680 .1600 :fm-index 2.4855 :reverb-amount .0028 :amp-env '(0 0 1.1111 1 5.1066 .6000 10.1010 .3000 25.0842 .1000 100.0000 0 ) :noise-amount .0100)
(vln_one_sin_ran 96.0300 .6300 1810.5774 .1600 :fm-index 2.1604 :reverb-amount .0020 :amp-env '(0 0 .4762 1 4.4974 .6000 9.5238 .3000 24.6032 .1000 100.0000 0 ) :noise-amount .0100)
(vln_one_sin_ran 96.0400 .9000 603.5612 .1600 :fm-index 2.4204 :reverb-amount .0031 :amp-env '(0 0 .3333 1 4.3603 .6000 9.3939 .3000 24.4950 .1000 100.0000 0 ) :noise-amount .0100)
(vln_one_sin_ran 96.0450 .4500 348.4765 .1600 :fm-index 2.3918 :reverb-amount .0026 :amp-env '(0 0 .6667 1 4.6801 .6000 9.6970 .3000 24.7475 .1000 100 0 ) :noise-amount .0100)
(vln_one_sin_ran 96.0460 .9000 201.1989 .1600 :fm-index 1.5205 :reverb-amount .0024 :amp-env '(0 0 .3333 1 4.3603 .6000 9.3939 .3000 24.4950 .1000 100.0000 0 ) :noise-amount .0100)
(vln_one_sin_ran 96.0460 .9000 116.1656 .1600 :fm-index 2.3049 :reverb-amount .0028 :amp-env '(0 0 .3333 1 4.3603 .6000 9.3939 .3000 24.4950 .1000 100.0000 0 ) :noise-amount .0100)
(vln_one_sin_ran 96.0500 .9000 3135.9200 .1600 :fm-index 2.4363 :reverb-amount .0021 :amp-env '(0 0 .3333 1 4.3603 .6000 9.3939 .3000 24.4950 .1000 100.0000 0 ) :noise-amount .0100)
(vln_one_sin_ran 96.0500 .4500 1464.6987 .1600 :fm-index 2.3865 :reverb-amount .0027 :amp-env '(0 0 .6667 1 4.6801 .6000 9.6970 .3000 24.7475 .1000 100 0 ) :noise-amount .0100)
(vln_one_sin_ran 96.0600 .9000 6714.0048 .1600 :fm-index 1.7354 :reverb-amount .0021 :amp-env '(0 0 .3333 1 4.3603 .6000 9.3939 .3000 24.4950 .1000 100.0000 0 ) :noise-amount .0100)
(vln_one_sin_ran 96.0650 .9000 684.1190 .1600 :fm-index 1.8282 :reverb-amount .0025 :amp-env '(0 0 .3333 1 4.3603 .6000 9.3939 .3000 24.4950 .1000 100.0000 0 ) :noise-amount .0100)
(vln_one_sin_ran 96.0700 .2700 684.1190 .1600 :fm-index 2.3923 :reverb-amount .0025 :amp-env '(0 0 1.1111 1 5.1066 .6000 10.1010 .3000 25.0842 .1000 100.0000 0 ) :noise-amount .0100)
(vln_one_sin_ran 96.0700 .6300 1464.6987 .1600 :fm-index 2.2789 :reverb-amount .0028 :amp-env '(0 0 .4762 1 4.4974 .6000 9.5238 .3000 24.6032 .1000 100.0000 0 ) :noise-amount .0100)
(vln_one_sin_ran 96.0800 .9000 319.5325 .1600 :fm-index 1.5438 :reverb-amount .0027 :amp-env '(0 0 .3333 1 4.3603 .6000 9.3939 .3000 24.4950 .1000 100.0000 0 ) :noise-amount .0100)
(vln_one_sin_ran 96.0850 .4500 149.2445 .1600 :fm-index 2.4210 :reverb-amount .0028 :amp-env '(0 0 .6667 1 4.6801 .6000 9.6970 .3000 24.7475 .1000 100 0 ) :noise-amount .0100)
(vln_one_sin_ran 96.0860 .9000 69.7078 .1600 :fm-index 2.0288 :reverb-amount .0029 :amp-env '(0 0 .3333 1 4.3603 .6000 9.3939 .3000 24.4950 .1000 100.0000 0 ) :noise-amount .0100)
(vln_one_sin_ran 96.0860 .9000 32.5585 .1600 :fm-index 1.8254 :reverb-amount .0028 :amp-env '(0 0 .3333 1 4.3603 .6000 9.3939 .3000 24.4950 .1000 100.0000 0 ) :noise-amount .0100)

(setf fm-violin-reverb-amount 0.0)
(setf fm-violin-noise-amount 0.01)
(vln_one_sin_ran 99.0500 .9000 3135.9200 .1600 :fm-index 1.7334 :amp-env '(0 0 .3333 1 4.3603 .6000 9.3939 .3000 24.4950 .1000 100.0000 0 ))
(vln_one_sin_ran 99.0500 .4500 1810.5774 .1600 :fm-index 2.3629 :amp-env '(0 0 .6667 1 4.6801 .6000 9.6970 .3000 24.7475 .1000 100 0 ))
(vln_one_sin_ran 99.0600 .9000 5431.4135 .1600 :fm-index 2.2744 :amp-env '(0 0 .3333 1 4.3603 .6000 9.3939 .3000 24.4950 .1000 100.0000 0 ))
(vln_one_sin_ran 99.0650 .9000 1045.3680 .1600 :fm-index 1.8722 :amp-env '(0 0 .3333 1 4.3603 .6000 9.3939 .3000 24.4950 .1000 100.0000 0 ))
(vln_one_sin_ran 99.1100 .2700 1045.3680 .1600 :fm-index 2.3139 :amp-env '(0 0 1.1111 1 5.1066 .6000 10.1010 .3000 25.0842 .1000 100.0000 0 ))
(vln_one_sin_ran 99.1100 .6300 1810.5774 .1600 :fm-index 1.6216 :amp-env '(0 0 .4762 1 4.4974 .6000 9.5238 .3000 24.6032 .1000 100.0000 0 ))
(vln_one_sin_ran 99.1200 .9000 603.5612 .1600 :fm-index 1.5308 :amp-env '(0 0 .3333 1 4.3603 .6000 9.3939 .3000 24.4950 .1000 100.0000 0 ))
(vln_one_sin_ran 99.1650 .4500 348.4765 .1600 :fm-index 2.0346 :amp-env '(0 0 .6667 1 4.6801 .6000 9.6970 .3000 24.7475 .1000 100 0 ))
(vln_one_sin_ran 99.1660 .9000 201.1989 .1600 :fm-index 1.8176 :amp-env '(0 0 .3333 1 4.3603 .6000 9.3939 .3000 24.4950 .1000 100.0000 0 ))
(vln_one_sin_ran 99.1660 .9000 116.1656 .1600 :fm-index 1.7145 :amp-env '(0 0 .3333 1 4.3603 .6000 9.3939 .3000 24.4950 .1000 100.0000 0 ))
(vln_one_sin_ran 99.1700 .9000 3135.9200 .1600 :fm-index 2.4459 :amp-env '(0 0 .3333 1 4.3603 .6000 9.3939 .3000 24.4950 .1000 100.0000 0 ))
(vln_one_sin_ran 99.1700 .4500 1464.6987 .1600 :fm-index 2.4644 :amp-env '(0 0 .6667 1 4.6801 .6000 9.6970 .3000 24.7475 .1000 100 0 ))
(vln_one_sin_ran 99.1800 .9000 6714.0048 .1600 :fm-index 1.9985 :amp-env '(0 0 .3333 1 4.3603 .6000 9.3939 .3000 24.4950 .1000 100.0000 0 ))
(vln_one_sin_ran 99.1850 .9000 684.1190 .1600 :fm-index 2.4542 :amp-env '(0 0 .3333 1 4.3603 .6000 9.3939 .3000 24.4950 .1000 100.0000 0 ))
(vln_one_sin_ran 99.2900 .2700 684.1190 .1600 :fm-index 2.3391 :amp-env '(0 0 1.1111 1 5.1066 .6000 10.1010 .3000 25.0842 .1000 100.0000 0 ))
(vln_one_sin_ran 99.2900 .6300 1464.6987 .1600 :fm-index 1.5138 :amp-env '(0 0 .4762 1 4.4974 .6000 9.5238 .3000 24.6032 .1000 100.0000 0 ))
(vln_one_sin_ran 99.3000 .9000 319.5325 .1600 :fm-index 1.5440 :amp-env '(0 0 .3333 1 4.3603 .6000 9.3939 .3000 24.4950 .1000 100.0000 0 ))
(vln_one_sin_ran 99.3050 .4500 149.2445 .1600 :fm-index 2.2283 :amp-env '(0 0 .6667 1 4.6801 .6000 9.6970 .3000 24.7475 .1000 100 0 ))
(vln_one_sin_ran 99.3060 .9000 69.7078 .1600 :fm-index 1.9498 :amp-env '(0 0 .3333 1 4.3603 .6000 9.3939 .3000 24.4950 .1000 100.0000 0 ))
(vln_one_sin_ran 99.3060 .9000 32.5585 .1600 :fm-index 2.2943 :amp-env '(0 0 .3333 1 4.3603 .6000 9.3939 .3000 24.4950 .1000 100.0000 0 ))

(restore-fm-violin-defaults)
(setf fm-violin-amp-env metalamp)
(setf fm-violin-glissando-amount 0.0)
(setf fm-violin-reverb-amount 0.01)
(setf fm-violin-fm1-rat 2.718)
(setf fm-violin-fm2-rat 1.414)
(setf fm-violin-fm3-rat 3.141)

(vln_one_sin 102.2600 1.2000 355.5416 .1600 :fm-index 2.0375)
(vln_one_sin 102.2600 1.5000 354.8319 .1600 :fm-index 1.8744)
(vln_one_sin 102.2603 .9000 356.2527 .1600 :fm-index 1.8743)
(vln_one_sin 102.2605 .9000 409.2356 .1600 :fm-index 2.0808)
(vln_one_sin 102.2605 2.1000 410.0541 .1600 :fm-index 1.9219)
(vln_one_sin 102.2608 1.2000 130.8100 .1600 :fm-index 1.5746)
(vln_one_sin 102.2613 3 130.2883 .1600 :fm-index 2.3771)
(vln_one_sin 102.2615 .9000 130.2883 .1600 :fm-index 1.7765)
(vln_one_sin 102.2615 2.1000 130.5489 .2600 :fm-index 1.6485)
(vln_one_sin 102.2625 2 130.8100 .1600 :fm-index 2.1416)
(vln_one_sin 102.2633 2 130.5488 .1600 :fm-index 2.0883)


(setf newf '(0 0 .5000 1 5 1 10 .5000 15 .2500 35 .1000 100 0 ))
(setf fm-violin-noise-amount .0001)
(setf fm-violin-amp-env newf)
(setf fm-violin-reverb-amount .01)

(vln_one_sin_ran 106.2605 .8000 523.2400 .1600 :fm-index 2.3056)
(vln_one_sin_ran 106.2605 1 247.1611 .1600 :fm-index 1.6308)
(vln_one_sin_ran 106.2610 .6000 1107.6991 .1600 :fm-index 1.9364)
(vln_one_sin_ran 106.2613 2 116.7506 .1600 :fm-index 2.3740)
(vln_one_sin_ran 106.2615 .6000 116.7506 .1600 :fm-index 1.8374)
(vln_one_sin_ran 106.2615 1.4000 247.1611 .1600 :fm-index 1.7250)
(vln_one_sin_ran 106.2620 .6000 55.1491 .1600 :fm-index 1.5495)
(vln_one_sin_ran 106.2623 1 26.0506 .1600 :fm-index 1.7235)
(vln_one_sin_ran 106.2623 2 12.3054 .1600 :fm-index 1.8818)
(vln_one_sin_ran 106.2623 2 5.8127 .1600 :fm-index 1.9537)
(vln_one_sin_ran 106.2625 2 523.2400 .1600 :fm-index 2.1593)
(vln_one_sin_ran 106.2625 1 256.2390 .1600 :fm-index 1.9851)
(vln_one_sin_ran 106.2630 2 1068.4561 .1600 :fm-index 1.8015)
(vln_one_sin_ran 106.2633 2 125.4843 .1600 :fm-index 1.6161)
(vln_one_sin_ran 106.2635 .6000 125.4843 .1600 :fm-index 2.2767)
(vln_one_sin_ran 106.2635 1.4000 256.2390 .1600 :fm-index 2.0835)
(vln_one_sin_ran 106.2640 .4000 61.4517 .1600 :fm-index 1.5310)
(vln_one_sin_ran 106.2643 1 30.0939 .1600 :fm-index 1.5803)
(vln_one_sin_ran 106.2643 2 14.7374 .1600 :fm-index 1.9586)
(vln_one_sin_ran 106.2643 2 7.2172 .1600 :fm-index 1.7270)
(vln_one_sin_ran 106.2645 6 28.4710 .1600 :fm-index 1.5983)
(vln_one_sin_ran 106.2648 10 25.6239 .1600 :fm-index 1.7285)
(vln_one_sin_ran 106.2648 8 21.3532 .1600 :fm-index 1.7955)
(vln_one_sin_ran 106.2648 8 17.0826 .1600 :fm-index 2.0866)


(setf fm-violin-reverb-amount .001)
(setf fm-violin-noise-amount .004)
(setf fm-violin-fm1-rat 3.141)
(setf fm-violin-fm2-rat 1.414)
(setf fm-violin-fm3-rat 2.718)

(vln_one_sin_ran 110.2600 1.6000 1643.4968 .1600 :fm-index 2.1104)
(vln_one_sin_ran 110.2600 2 1643.4968 .1600 :fm-index 1.5191)
(vln_one_sin_ran 110.2603 1.2000 1643.4968 .1600 :fm-index 2.0478)
(vln_one_sin_ran 110.2603 4 1643.4968 .1600 :fm-index 2.0473)
(vln_one_sin_ran 110.2605 1.2000 1422.1663 .1600 :fm-index 1.9845)
(vln_one_sin_ran 110.2605 2.8000 1422.1663 .1600 :fm-index 2.0429)
(vln_one_sin_ran 110.2605 1.2000 1422.1663 .1600 :fm-index 1.6184)
(vln_one_sin_ran 110.2608 1.6000 523.2400 .1600 :fm-index 2.3908)
(vln_one_sin_ran 110.2608 2 523.2400 .1600 :fm-index 1.6733)
(vln_one_sin_ran 110.2610 1.2000 523.2400 .1600 :fm-index 2.0431)
(vln_one_sin_ran 110.2610 4 523.2400 .1600 :fm-index 1.7430)
(vln_one_sin_ran 110.2613 1.2000 523.2400 .1600 :fm-index 2.2030)
(vln_one_sin_ran 110.2613 2.8000 523.2400 .1600 :fm-index 2.0149)
(vln_one_sin_ran 110.2615 1.2000 523.2400 .1600 :fm-index 2.2310)
(vln_one_sin_ran 110.2615 2 523.2400 .1600 :fm-index 2.1625)
(vln_one_sin_ran 110.2618 4 523.2400 .1600 :fm-index 2.0000)
(vln_one_sin_ran 110.2618 4 523.2400 .1600 :fm-index 2.2034)
(vln_one_sin_ran 110.2620 3 523.2400 .1600 :fm-index 2.0186)
(vln_one_sin_ran 110.2620 1.5000 523.2400 .1600 :fm-index 2.1373)
(vln_one_sin_ran 110.2623 3 523.2400 .1600 :fm-index 1.9046)
(vln_one_sin_ran 110.2623 3 523.2400 .1600 :fm-index 2.1834)
(vln_one_sin_ran 110.2625 1.2000 523.2400 .1600 :fm-index 1.8266)
(vln_one_sin_ran 110.2625 2.8000 523.2400 .1600 :fm-index 1.5937)
(vln_one_sin_ran 110.2628 .8000 523.2400 .1600 :fm-index 1.9762)
(vln_one_sin_ran 110.2628 2 523.2400 .1600 :fm-index 1.8954)
(vln_one_sin_ran 110.2630 4 523.2400 .1600 :fm-index 2.3302)
(vln_one_sin_ran 110.2630 4 523.2400 .1600 :fm-index 2.4949)


(setf fm-violin-fm1-rat 3.414)
(setf fm-violin-fm2-rat 1.414)
(setf fm-violin-fm3-rat 2.718)
(vln_one_sin_ran 114.2600 1.6000 821.7484 .1600 :fm-index 2.4793)
(vln_one_sin_ran 114.2600 2 821.7484 .1600 :fm-index 2.4789)
(vln_one_sin_ran 114.2603 1.2000 821.7484 .1600 :fm-index 2.0827)
(vln_one_sin_ran 114.2603 4 821.7484 .1600 :fm-index 2.4769)
(vln_one_sin_ran 114.2605 1.2000 711.0832 .1600 :fm-index 2.4094)
(vln_one_sin_ran 114.2605 2.8000 711.0832 .1600 :fm-index 2.4031)
(vln_one_sin_ran 114.2605 1.2000 711.0832 .1600 :fm-index 2.1428)
(vln_one_sin_ran 114.2608 1.6000 261.6200 .1600 :fm-index 2.3129)
(vln_one_sin_ran 114.2608 2 261.6200 .1600 :fm-index 2.3488)
(vln_one_sin_ran 114.2610 1.2000 261.6200 .1600 :fm-index 2.1466)
(vln_one_sin_ran 114.2610 4 261.6200 .1600 :fm-index 1.6938)
(vln_one_sin_ran 114.2613 1.2000 261.6200 .1600 :fm-index 2.1287)
(vln_one_sin_ran 114.2613 2.8000 261.6200 .1600 :fm-index 2.1917)
(vln_one_sin_ran 114.2615 1.2000 261.6200 .1600 :fm-index 2.3583)
(vln_one_sin_ran 114.2615 2 261.6200 .1600 :fm-index 1.8368)
(vln_one_sin_ran 114.2618 4 261.6200 .1600 :fm-index 1.5107)
(vln_one_sin_ran 114.2618 4 261.6200 .1600 :fm-index 1.6218)
(vln_one_sin_ran 114.2620 3 261.6200 .1600 :fm-index 1.9041)
(vln_one_sin_ran 114.2620 1.5000 261.6200 .1600 :fm-index 1.5748)
(vln_one_sin_ran 114.2623 3 261.6200 .1600 :fm-index 1.9339)
(vln_one_sin_ran 114.2623 3 261.6200 .1600 :fm-index 2.0489)
(vln_one_sin_ran 114.2625 1.2000 261.6200 .1600 :fm-index 2.0888)
(vln_one_sin_ran 114.2625 2.8000 261.6200 .1600 :fm-index 1.7306)
(vln_one_sin_ran 114.2628 .8000 261.6200 .1600 :fm-index 2.3257)
(vln_one_sin_ran 114.2628 2 261.6200 .1600 :fm-index 2.4755)
(vln_one_sin_ran 114.2630 4 261.6200 .1600 :fm-index 1.9459)
(vln_one_sin_ran 114.2630 4 261.6200 .1600 :fm-index 1.5782)

(setf fm-violin-fm1-rat 3.414)
(setf fm-violin-fm2-rat 1.414)
(setf fm-violin-fm3-rat 2.718)
(vln_one_sin_ran 118.2600 1.6000 3286.9937 .1600 :fm-index 1.6655)
(vln_one_sin_ran 118.2600 2 3286.9937 .1600 :fm-index 1.9356)
(vln_one_sin_ran 118.2603 1.2000 3286.9937 .1600 :fm-index 1.5665)
(vln_one_sin_ran 118.2603 4 3286.9937 .1600 :fm-index 1.6701)
(vln_one_sin_ran 118.2605 1.2000 2844.3326 .1600 :fm-index 2.3273)
(vln_one_sin_ran 118.2605 2.8000 2844.3326 .1600 :fm-index 1.5520)
(vln_one_sin_ran 118.2605 1.2000 2844.3326 .1600 :fm-index 2.4104)
(vln_one_sin_ran 118.2608 1.6000 1046.4800 .1600 :fm-index 2.1075)
(vln_one_sin_ran 118.2608 2 1046.4800 .1600 :fm-index 1.7004)
(vln_one_sin_ran 118.2610 1.2000 1046.4800 .1600 :fm-index 1.6502)
(vln_one_sin_ran 118.2610 4 1046.4800 .1600 :fm-index 2.4591)
(vln_one_sin_ran 118.2613 1.2000 1046.4800 .1600 :fm-index 2.1491)
(vln_one_sin_ran 118.2613 2.8000 1046.4800 .1600 :fm-index 2.1594)
(vln_one_sin_ran 118.2615 1.2000 1046.4800 .1600 :fm-index 2.4783)
(vln_one_sin_ran 118.2615 2 1046.4800 .1600 :fm-index 2.2080)
(vln_one_sin_ran 118.2618 4 1046.4800 .1600 :fm-index 1.5844)
(vln_one_sin_ran 118.2618 4 1046.4800 .1600 :fm-index 1.5440)
(vln_one_sin_ran 118.2620 3 1046.4800 .1600 :fm-index 1.9857)
(vln_one_sin_ran 118.2620 1.5000 1046.4800 .1600 :fm-index 1.5165)
(vln_one_sin_ran 118.2623 3 1046.4800 .1600 :fm-index 1.8309)
(vln_one_sin_ran 118.2623 3 1046.4800 .1600 :fm-index 2.1236)
(vln_one_sin_ran 118.2625 1.2000 1046.4800 .1000 :fm-index 2.4074)
(vln_one_sin_ran 118.2625 2.8000 1046.4800 .1000 :fm-index 1.6315)
(vln_one_sin_ran 118.2628 .8000 1046.4800 .1000 :fm-index 1.8061)
(vln_one_sin_ran 118.2628 2 1046.4800 .1000 :fm-index 2.3664)
(vln_one_sin_ran 118.2630 4 1046.4800 .1000 :fm-index 2.2490)
(vln_one_sin_ran 118.2630 4 1046.4800 .1000 :fm-index 2.4081)


(setf fm-violin-reverb-amount .01)

(vln_one_sin_ran 122.2600 1.6000 1643.4968 .1600 :fm-index 1.9284)
(vln_one_sin_ran 122.2600 2 1643.4968 .1600 :fm-index 2.2171)
(vln_one_sin_ran 122.2603 1.2000 1643.4968 .1600 :fm-index 2.2272)
(vln_one_sin_ran 122.2603 4 1643.4968 .1600 :fm-index 1.5677)
(vln_one_sin_ran 122.2605 1.2000 1422.1663 .1600 :fm-index 2.0476)
(vln_one_sin_ran 122.2605 2.8000 1422.1663 .1600 :fm-index 2.3289)
(vln_one_sin_ran 122.2605 1.2000 1422.1663 .1600 :fm-index 2.0269)
(vln_one_sin_ran 122.2608 1.6000 523.2400 .1600 :fm-index 1.7767)
(vln_one_sin_ran 122.2608 2 523.2400 .1600 :fm-index 1.8117)
(vln_one_sin_ran 122.2610 1.2000 523.2400 .1600 :fm-index 1.5694)
(vln_one_sin_ran 122.2610 4 523.2400 .1600 :fm-index 1.6869)
(vln_one_sin_ran 122.2613 1.2000 523.2400 .1600 :fm-index 1.9340)
(vln_one_sin_ran 122.2613 2.8000 523.2400 .1600 :fm-index 2.3986)
(vln_one_sin_ran 122.2615 1.2000 523.2400 .1600 :fm-index 2.4593)
(vln_one_sin_ran 122.2615 2 523.2400 .1600 :fm-index 2.3430)
(vln_one_sin_ran 122.2618 4 523.2400 .1600 :fm-index 2.2650)
(vln_one_sin_ran 122.2618 4 523.2400 .1600 :fm-index 2.3015)
(vln_one_sin_ran 122.2620 3 523.2400 .1600 :fm-index 1.9909)
(vln_one_sin_ran 122.2620 1.5000 523.2400 .1600 :fm-index 2.3916)
(vln_one_sin_ran 122.2623 3 523.2400 .1600 :fm-index 2.0401)
(vln_one_sin_ran 122.2623 3 523.2400 .1600 :fm-index 1.8484)
(vln_one_sin_ran 122.2625 1.2000 523.2400 .1600 :fm-index 2.3138)
(vln_one_sin_ran 122.2625 2.8000 523.2400 .1600 :fm-index 1.6295)
(vln_one_sin_ran 122.2628 .8000 523.2400 .1600 :fm-index 2.2344)
(vln_one_sin_ran 122.2628 2 523.2400 .1600 :fm-index 1.8423)
(vln_one_sin_ran 122.2630 4 523.2400 .1600 :fm-index 2.2086)
(vln_one_sin_ran 122.2630 4 523.2400 .1600 :fm-index 2.3130)


(setf fm-violin-noise-amount .0001)
(setf fm-violin-fm1-rat 2.718)
(setf fm-violin-fm2-rat 1.141)
(setf fm-violin-fm3-rat 3.141)
(setf fm-violin-reverb-amount .01)

(vln_one_sin_ran 126.2605 .8000 523.2400 .1600 :fm-index 2.0123)
(vln_one_sin_ran 126.2605 1 493.8728 .1600 :fm-index 2.1176)
(vln_one_sin_ran 126.2610 .6000 554.3535 .1600 :fm-index 1.9163)
(vln_one_sin_ran 126.2613 2 466.1539 .1600 :fm-index 1.5048)
(vln_one_sin_ran 126.2615 .6000 466.1539 .1600 :fm-index 1.5242)
(vln_one_sin_ran 126.2615 1.4000 493.8728 .1600 :fm-index 1.9509)
(vln_one_sin_ran 126.2620 .6000 439.9907 .1600 :fm-index 2.2131)
(vln_one_sin_ran 126.2623 1 415.2959 .1600 :fm-index 1.7326)
(vln_one_sin_ran 126.2623 2 391.9871 .1600 :fm-index 1.9936)
(vln_one_sin_ran 126.2623 2 369.9866 .1600 :fm-index 2.1103)
(vln_one_sin_ran 126.2625 2 523.2400 .1600 :fm-index 1.6206)
(vln_one_sin_ran 126.2625 1 522.7173 .1600 :fm-index 1.8598)
(vln_one_sin_ran 126.2630 2 523.7632 .1600 :fm-index 1.8015)
(vln_one_sin_ran 126.2633 2 522.1951 .1600 :fm-index 2.3575)
(vln_one_sin_ran 126.2635 .6000 522.1951 .1600 :fm-index 1.5010)
(vln_one_sin_ran 126.2635 1.4000 522.7173 .1600 :fm-index 2.4075)
(vln_one_sin_ran 126.2640 .4000 521.6734 .1600 :fm-index 2.0721)
(vln_one_sin_ran 126.2643 1 521.1523 .1600 :fm-index 2.0433)
(vln_one_sin_ran 126.2643 2 520.6316 .1600 :fm-index 1.9788)
(vln_one_sin_ran 126.2643 2 520.1115 .1600 :fm-index 1.6770)


(setf fm-violin-noise-amount .004)

(vln_one_sin_ran 134.2600 .8000 1046.4800 .1600 :fm-index 1.5610)
(vln_one_sin_ran 134.2600 1 1044.3912 .1600 :fm-index 2.3514)
(vln_one_sin_ran 134.2603 .6000 1048.5730 .1600 :fm-index 1.9958)
(vln_one_sin_ran 134.2603 2 1042.3066 .1600 :fm-index 1.9654)
(vln_one_sin_ran 134.2605 .6000 1042.3066 .1600 :fm-index 1.5285)
(vln_one_sin_ran 134.2605 1.4000 1044.3912 .1600 :fm-index 1.8881)
(vln_one_sin_ran 134.2608 .6000 1040.2262 .1600 :fm-index 1.8682)
(vln_one_sin_ran 134.2608 .8000 523.2400 .1600 :fm-index 1.8296)
(vln_one_sin_ran 134.2610 1 522.1956 .1600 :fm-index 2.1899)
(vln_one_sin_ran 134.2610 .6000 524.2865 .1600 :fm-index 1.9614)
(vln_one_sin_ran 134.2613 2 521.1533 .1600 :fm-index 1.7483)
(vln_one_sin_ran 134.2615 .6000 521.1533 .1600 :fm-index 1.8717)
(vln_one_sin_ran 134.2615 1.4000 522.1956 .1600 :fm-index 1.5619)
(vln_one_sin_ran 134.2620 .6000 520.1131 .1600 :fm-index 2.4331)
(vln_one_sin_ran 134.2623 1 519.0749 .1600 :fm-index 2.4153)
(vln_one_sin_ran 134.2623 2 518.0388 .1600 :fm-index 1.5477)
(vln_one_sin_ran 134.2623 2 517.0048 .1600 :fm-index 1.9956)
(vln_one_sin_ran 134.2625 2 523.2400 .1600 :fm-index 1.8111)
(vln_one_sin_ran 134.2625 1 522.7173 .1600 :fm-index 2.4820)
(vln_one_sin_ran 134.2630 2 523.7632 .1600 :fm-index 1.5744)
(vln_one_sin_ran 134.2633 2 522.1951 .1600 :fm-index 1.9950)
(vln_one_sin_ran 134.2635 .6000 522.1951 .1600 :fm-index 1.9792)
(vln_one_sin_ran 134.2635 1.4000 522.7173 .1600 :fm-index 1.7415)
(vln_one_sin_ran 134.2640 .4000 521.6734 .1600 :fm-index 2.0884)
(vln_one_sin_ran 134.2643 1 521.1523 .1600 :fm-index 2.3605)
(vln_one_sin_ran 134.2643 2 520.6316 .1600 :fm-index 1.7817)
(vln_one_sin_ran 134.2643 2 520.1115 .1600 :fm-index 2.0283)


(setf fm-violin-reverb-amount .1)
(setf fm-violin-fm1-rat 2.718)
(setf fm-violin-fm2-rat 1.414)
(setf fm-violin-fm3-rat 3.141)
(setf fm-violin-glissando-amount 0.0)

(vln_one_sin_ran 138.2600 1.6000 177.7708 .1600 :fm-index 1.6447)
(vln_one_sin_ran 138.2600 2 177.7708 .1600 :fm-index 2.4875)
(vln_one_sin_ran 138.2603 1.2000 177.7708 .1600 :fm-index 1.6126)
(vln_one_sin_ran 138.2603 4 177.7708 .1600 :fm-index 2.3122)
(vln_one_sin_ran 138.2605 1.2000 205.4371 .1600 :fm-index 2.4116)
(vln_one_sin_ran 138.2605 2.8000 205.4371 .1600 :fm-index 1.5337)
(vln_one_sin_ran 138.2608 1.2000 205.4371 .1600 :fm-index 2.0307)
(vln_one_sin_ran 138.2608 1.6000 65.4050 .1600 :fm-index 2.2341)
(vln_one_sin_ran 138.2610 2 65.4050 .1600 :fm-index 2.4683)
(vln_one_sin_ran 138.2610 1.2000 65.4050 .1600 :fm-index 2.0643)
(vln_one_sin_ran 138.2613 4 65.4050 .1600 :fm-index 2.1925)
(vln_one_sin_ran 138.2615 1.2000 65.4050 .1600 :fm-index 2.1325)
(vln_one_sin_ran 138.2615 2.8000 65.4050 .1600 :fm-index 1.5847)
(vln_one_sin_ran 138.2620 1.2000 65.4050 .1600 :fm-index 1.8781)
(vln_one_sin_ran 138.2623 2 65.4050 .1600 :fm-index 2.0283)
(vln_one_sin_ran 138.2623 4 65.4050 .1600 :fm-index 2.4739)
(vln_one_sin_ran 138.2623 4 65.4050 .1600 :fm-index 2.2333)
(vln_one_sin_ran 138.2625 2 65.4050 .1600 :fm-index 2.2194)
(vln_one_sin_ran 138.2625 1 65.4050 .1600 :fm-index 2.4491)
(vln_one_sin_ran 138.2630 2 65.4050 .1600 :fm-index 1.5672)
(vln_one_sin_ran 138.2633 2 65.4050 .1600 :fm-index 2.3254)
(vln_one_sin_ran 138.2635 1.2000 65.4050 .1600 :fm-index 1.8302)
(vln_one_sin_ran 138.2635 2.8000 65.4050 .1600 :fm-index 1.9201)
(vln_one_sin_ran 138.2640 .8000 65.4050 .1600 :fm-index 1.9164)
(vln_one_sin_ran 138.2643 2 65.4050 .1600 :fm-index 1.9483)
(vln_one_sin_ran 138.2643 4 65.4050 .1600 :fm-index 2.4247)
(vln_one_sin_ran 138.2643 4 65.4050 .1600 :fm-index 2.0419)


(setf fm-violin-fm1-rat 2.718)
(setf fm-violin-fm2-rat 4.414)
(setf fm-violin-fm3-rat 3.141)

(vln_one_sin_ran 142.2600 1.6000 88.8854 .1600 :fm-index 2.2832)
(vln_one_sin_ran 142.2600 2 88.8854 .1600 :fm-index 1.6588)
(vln_one_sin_ran 142.2603 1.2000 88.8854 .1600 :fm-index 2.2392)
(vln_one_sin_ran 142.2603 4 88.8854 .1600 :fm-index 1.7354)
(vln_one_sin_ran 142.2605 1.2000 102.7186 .1600 :fm-index 1.6692)
(vln_one_sin_ran 142.2605 2.8000 102.7186 .1600 :fm-index 2.1518)
(vln_one_sin_ran 142.2608 1.2000 102.7186 .1600 :fm-index 2.2439)
(vln_one_sin_ran 142.2608 1.6000 32.7025 .1600 :fm-index 2.1665)
(vln_one_sin_ran 142.2610 2 32.7025 .1600 :fm-index 1.7947)
(vln_one_sin_ran 142.2610 1.2000 32.7025 .1600 :fm-index 2.0740)
(vln_one_sin_ran 142.2613 4 32.7025 .1600 :fm-index 1.9705)
(vln_one_sin_ran 142.2615 1.2000 32.7025 .1600 :fm-index 1.9447)
(vln_one_sin_ran 142.2615 2.8000 32.7025 .1600 :fm-index 2.4918)
(vln_one_sin_ran 142.2620 1.2000 32.7025 .1600 :fm-index 1.6275)
(vln_one_sin_ran 142.2623 2 32.7025 .1600 :fm-index 2.2355)
(vln_one_sin_ran 142.2623 4 32.7025 .1600 :fm-index 2.0084)
(vln_one_sin_ran 142.2623 4 32.7025 .1600 :fm-index 1.8964)
(vln_one_sin_ran 142.2625 2 32.7025 .1600 :fm-index 2.3937)
(vln_one_sin_ran 142.2625 1 32.7025 .1600 :fm-index 1.8634)
(vln_one_sin_ran 142.2630 2 32.7025 .1600 :fm-index 1.5217)
(vln_one_sin_ran 142.2633 2 32.7025 .1600 :fm-index 1.9275)
(vln_one_sin_ran 142.2635 1.2000 32.7025 .1600 :fm-index 2.4413)
(vln_one_sin_ran 142.2635 2.8000 32.7025 .1600 :fm-index 2.3242)
(vln_one_sin_ran 142.2640 .8000 32.7025 .1600 :fm-index 2.3267)
(vln_one_sin_ran 142.2643 2 32.7025 .1600 :fm-index 1.7004)
(vln_one_sin_ran 142.2643 4 32.7025 .1600 :fm-index 1.8785)
(vln_one_sin_ran 142.2643 4 32.7025 .1600 :fm-index 2.4573)


(setf fm-violin-fm1-rat 2.718)
(setf fm-violin-fm2-rat 4.414)
(setf fm-violin-fm3-rat 5.141)

(vln_one_sin_ran 146.2600 1.6000 22.2213 .1600 :fm-index 1.6232)
(vln_one_sin_ran 146.2600 2 22.2213 .1600 :fm-index 1.5982)
(vln_one_sin_ran 146.2603 1.2000 22.2213 .1600 :fm-index 2.1585)
(vln_one_sin_ran 146.2603 4 22.2213 .1600 :fm-index 2.2207)
(vln_one_sin_ran 146.2605 1.2000 42.0309 .1600 :fm-index 1.5294)
(vln_one_sin_ran 146.2605 2.8000 42.0309 .1600 :fm-index 1.9544)
(vln_one_sin_ran 146.2608 1.2000 42.0309 .1600 :fm-index 2.4016)
(vln_one_sin_ran 146.2608 1.6000 8.1756 .1600 :fm-index 1.5267)
(vln_one_sin_ran 146.2610 2 8.1756 .1600 :fm-index 2.4190)
(vln_one_sin_ran 146.2610 1.2000 8.1756 .1600 :fm-index 2.2757)
(vln_one_sin_ran 146.2613 4 8.1756 .1600 :fm-index 2.3607)
(vln_one_sin_ran 146.2615 1.2000 8.1756 .1600 :fm-index 1.8698)
(vln_one_sin_ran 146.2615 2.8000 8.1756 .1600 :fm-index 2.3753)
(vln_one_sin_ran 146.2620 1.2000 8.1756 .1600 :fm-index 2.3392)
(vln_one_sin_ran 146.2623 2 8.1756 .1600 :fm-index 1.5088)
(vln_one_sin_ran 146.2623 4 8.1756 .1600 :fm-index 2.2084)
(vln_one_sin_ran 146.2623 4 8.1756 .1600 :fm-index 1.9512)
(vln_one_sin_ran 146.2625 2 8.1756 .1600 :fm-index 2.0399)
(vln_one_sin_ran 146.2625 1 8.1756 .1600 :fm-index 1.7053)
(vln_one_sin_ran 146.2630 2 8.1756 .1600 :fm-index 2.3204)
(vln_one_sin_ran 146.2633 2 8.1756 .1600 :fm-index 1.6336)
(vln_one_sin_ran 146.2635 1.2000 8.1756 .1600 :fm-index 1.9483)
(vln_one_sin_ran 146.2635 2.8000 8.1756 .1600 :fm-index 2.3255)
(vln_one_sin_ran 146.2640 .8000 8.1756 .1600 :fm-index 1.7331)
(vln_one_sin_ran 146.2643 2 8.1756 .1600 :fm-index 1.9318)
(vln_one_sin_ran 146.2643 4 8.1756 .1600 :fm-index 1.6908)
(vln_one_sin_ran 146.2643 4 8.1756 .1600 :fm-index 2.4103)


(vln_one_sin_ran 150.2600 1.6000 11.1107 .1600 :fm-index 1.6371)
(vln_one_sin_ran 150.2600 2 11.1107 .1600 :fm-index 1.8971)
(vln_one_sin_ran 150.2603 1.2000 11.1107 .1600 :fm-index 1.9065)
(vln_one_sin_ran 150.2603 4 11.1107 .1600 :fm-index 2.2143)
(vln_one_sin_ran 150.2605 1.2000 21.0154 .1600 :fm-index 1.8011)
(vln_one_sin_ran 150.2605 2.8000 21.0154 .1600 :fm-index 2.1950)
(vln_one_sin_ran 150.2608 1.2000 21.0154 .1600 :fm-index 2.3563)
(vln_one_sin_ran 150.2608 1.6000 4.0878 .1600 :fm-index 2.3181)
(vln_one_sin_ran 150.2610 2 4.0878 .1600 :fm-index 2.0776)
(vln_one_sin_ran 150.2610 1.2000 4.0878 .1600 :fm-index 1.8336)
(vln_one_sin_ran 150.2613 4 4.0878 .1600 :fm-index 1.5019)
(vln_one_sin_ran 150.2615 1.2000 4.0878 .1600 :fm-index 2.2368)
(vln_one_sin_ran 150.2615 2.8000 4.0878 .1600 :fm-index 1.7462)
(vln_one_sin_ran 150.2620 1.2000 4.0878 .1600 :fm-index 1.9604)
(vln_one_sin_ran 150.2623 2 4.0878 .1600 :fm-index 2.2361)
(vln_one_sin_ran 150.2623 4 4.0878 .1600 :fm-index 1.9972)
(vln_one_sin_ran 150.2623 4 4.0878 .1600 :fm-index 2.4870)
(vln_one_sin_ran 150.2625 2 4.0878 .1600 :fm-index 2.0762)
(vln_one_sin_ran 150.2625 1 4.0878 .1600 :fm-index 2.2973)
(vln_one_sin_ran 150.2630 2 4.0878 .1600 :fm-index 2.2350)
(vln_one_sin_ran 150.2633 2 4.0878 .1600 :fm-index 2.1613)
(vln_one_sin_ran 150.2635 1.2000 4.0878 .1600 :fm-index 2.0640)
(vln_one_sin_ran 150.2635 2.8000 4.0878 .1600 :fm-index 2.1738)
(vln_one_sin_ran 150.2640 .8000 4.0878 .1600 :fm-index 1.5188)
(vln_one_sin_ran 150.2643 2 4.0878 .1600 :fm-index 1.8766)
(vln_one_sin_ran 150.2643 4 4.0878 .1600 :fm-index 2.3083)
(vln_one_sin_ran 150.2643 4 4.0878 .1600 :fm-index 2.2215)


(vln_one_sin_ran 154.2600 1.6000 66.5893 .1600 :fm-index 1.7041)
(vln_one_sin_ran 154.2600 2 66.4564 .1600 :fm-index 2.0296)
(vln_one_sin_ran 154.2603 1.2000 66.7225 .1600 :fm-index 1.8321)
(vln_one_sin_ran 154.2603 4 66.3237 .1600 :fm-index 2.1550)
(vln_one_sin_ran 154.2605 1.2000 125.4490 .1600 :fm-index 2.1806)
(vln_one_sin_ran 154.2605 2.8000 125.6999 .1600 :fm-index 2.3570)
(vln_one_sin_ran 154.2608 1.2000 125.1986 .1600 :fm-index 1.9861)
(vln_one_sin_ran 154.2608 1.6000 24.4994 .1600 :fm-index 1.6412)
(vln_one_sin_ran 154.2610 2 24.4505 .1600 :fm-index 1.9770)
(vln_one_sin_ran 154.2610 1.2000 24.5484 .1600 :fm-index 2.0103)
(vln_one_sin_ran 154.2613 4 24.4017 .1600 :fm-index 2.0663)
(vln_one_sin_ran 154.2615 1.2000 24.4017 .1600 :fm-index 2.1521)
(vln_one_sin_ran 154.2615 2.8000 24.4505 .1600 :fm-index 2.4453)
(vln_one_sin_ran 154.2620 1.2000 24.3530 .1600 :fm-index 2.0930)
(vln_one_sin_ran 154.2623 2 24.6960 .1600 :fm-index 2.3423)
(vln_one_sin_ran 154.2623 4 24.7454 .1600 :fm-index 2.0856)
(vln_one_sin_ran 154.2623 4 24.7948 .1600 :fm-index 1.9570)
(vln_one_sin_ran 154.2625 2 24.4994 .1600 :fm-index 2.4642)
(vln_one_sin_ran 154.2625 1 24.4749 .1600 :fm-index 1.9901)
(vln_one_sin_ran 154.2630 2 24.5239 .1600 :fm-index 1.9972)
(vln_one_sin_ran 154.2633 2 24.4505 .1600 :fm-index 1.9148)
(vln_one_sin_ran 154.2635 1.2000 24.4505 .1600 :fm-index 1.9017)
(vln_one_sin_ran 154.2635 2.8000 24.4749 .1600 :fm-index 2.4958)
(vln_one_sin_ran 154.2640 .8000 24.4260 .1600 :fm-index 2.2518)
(vln_one_sin_ran 154.2643 2 24.5975 .1600 :fm-index 2.1120)
(vln_one_sin_ran 154.2643 4 24.6221 .1600 :fm-index 2.3154)
(vln_one_sin_ran 154.2643 4 24.6467 .1600 :fm-index 1.9240)


(setf fm-violin-fm1-rat 6.718)
(setf fm-violin-fm2-rat 4.414)
(setf fm-violin-fm3-rat 5.141)

(vln_one_sin_ran 158.2600 1.6000 164.5868 .1600 :fm-index 1.9587)
(vln_one_sin_ran 158.2600 2 164.5868 .1600 :fm-index 1.5071)
(vln_one_sin_ran 158.2603 1.2000 164.5868 .1600 :fm-index 1.7690)
(vln_one_sin_ran 158.2603 4 164.5868 .1600 :fm-index 1.7686)
(vln_one_sin_ran 158.2605 1.2000 125.9513 .1600 :fm-index 1.5702)
(vln_one_sin_ran 158.2605 2.8000 125.9513 .1600 :fm-index 2.1962)
(vln_one_sin_ran 158.2608 1.2000 125.9513 .1600 :fm-index 1.7701)
(vln_one_sin_ran 158.2608 1.6000 24.4994 .1600 :fm-index 2.1665)
(vln_one_sin_ran 158.2610 2 24.4994 .1600 :fm-index 1.9345)
(vln_one_sin_ran 158.2610 1.2000 24.4994 .1600 :fm-index 2.2037)
(vln_one_sin_ran 158.2613 4 24.4994 .1600 :fm-index 1.6826)
(vln_one_sin_ran 158.2615 1.2000 24.4994 .1600 :fm-index 1.5410)
(vln_one_sin_ran 158.2615 2.8000 24.4994 .1600 :fm-index 1.8293)
(vln_one_sin_ran 158.2620 1.2000 24.4994 .1600 :fm-index 2.1468)
(vln_one_sin_ran 158.2623 2 24.4994 .1600 :fm-index 2.0758)
(vln_one_sin_ran 158.2623 4 24.4994 .1600 :fm-index 2.4138)
(vln_one_sin_ran 158.2623 4 24.4994 .1600 :fm-index 1.8479)
(vln_one_sin_ran 158.2625 3 24.4994 .1600 :fm-index 2.4639)
(vln_one_sin_ran 158.2625 1.5000 24.4994 .1600 :fm-index 2.3995)
(vln_one_sin_ran 158.2630 3 24.4994 .1600 :fm-index 1.8609)
(vln_one_sin_ran 158.2633 3 24.4994 .1600 :fm-index 2.4506)
(vln_one_sin_ran 158.2635 1.2000 24.4994 .1600 :fm-index 2.1577)
(vln_one_sin_ran 158.2635 2.8000 24.4994 .1600 :fm-index 1.6663)
(vln_one_sin_ran 158.2640 .8000 24.4994 .1600 :fm-index 2.1166)
(vln_one_sin_ran 158.2643 2 24.4994 .1600 :fm-index 1.9362)
(vln_one_sin_ran 158.2643 4 24.4994 .1600 :fm-index 2.2052)
(vln_one_sin_ran 158.2643 4 24.4994 .1600 :fm-index 2.0102)


(restore-fm-violin-defaults)
(setf fm-violin-glissando-amount .8)
(setf fm-violin-reverb-amount .01)
(setf fm-violin-gliss-env whoosh)
(setf fm-violin-amp-env metalamp)
(setf fm-violin-fm1-rat 2.718)
(setf fm-violin-fm2-rat 1.141)
(setf fm-violin-fm3-rat 3.141)

(vln_one_sin 162.2600 .4000 1046.4800 .1600 :fm-index 2.3870)
(vln_one_sin 162.2600 .5000 1044.3912 .1600 :fm-index 2.4309)
(vln_one_sin 162.2603 .3000 1048.5730 .1600 :fm-index 2.1500)
(vln_one_sin 162.2603 .5000 1042.3066 .1600 :fm-index 1.7211)
(vln_one_sin 162.2610 .3000 524.2865 .1600 :fm-index 2.1751)
(vln_one_sin 162.2620 .3000 520.1131 .1600 :fm-index 1.5433)
(vln_one_sin 162.2623 .4000 517.0048 .1600 :fm-index 2.4335)
(vln_one_sin 162.2625 .4000 523.2400 .1600 :fm-index 2.2778)
(vln_one_sin 162.2635 .3000 522.1951 .1600 :fm-index 1.9441)
(vln_one_sin 162.2643 .4000 520.6316 .1600 :fm-index 2.4656)


(restore-fm-violin-defaults)
(vln_one_sin 166.1200 .4000 2092.9600 .1600 :fm-index 3 :reverb-amount 0 :amp-env metalamp :fm2-rat 1.1410 :fm3-rat 3.1410 :fm1-rat 2.7180)
(vln_one_sin 166.1200 .5000 2088.7820 .1600 :fm-index 3 :reverb-amount 0 :amp-env metalamp :fm2-rat 1.1410 :fm3-rat 3.1410 :fm1-rat 2.7180)
(vln_one_sin 166.1200 .3000 2097.1460 .1600 :fm-index 3 :reverb-amount 0 :amp-env metalamp :fm2-rat 1.1410 :fm3-rat 3.1410 :fm1-rat 2.7180)
(vln_one_sin 166.1200 .5000 2084.6130 .1600 :fm-index 3 :reverb-amount 0 :amp-env metalamp :fm2-rat 1.1410 :fm3-rat 3.1410 :fm1-rat 2.7180)
(vln_one_sin 166.1210 .3000 1048.5730 .1600 :fm-index 3 :reverb-amount 0 :amp-env metalamp :fm2-rat 1.1410 :fm3-rat 3.1410 :fm1-rat 2.7180)
(vln_one_sin 166.1220 .3000 1040.2260 .1600 :fm-index 3 :reverb-amount 0 :amp-env metalamp :fm2-rat 1.1410 :fm3-rat 3.1410 :fm1-rat 2.7180)
(vln_one_sin 166.1220 .5000 1034.0100 .1600 :fm-index 3 :reverb-amount 0 :amp-env metalamp :fm2-rat 1.1410 :fm3-rat 3.1410 :fm1-rat 2.7180)
(vln_one_sin 166.1230 .5000 1046.4800 .1600 :fm-index 3 :reverb-amount 0 :amp-env metalamp :fm2-rat 1.1410 :fm3-rat 3.1410 :fm1-rat 2.7180)
(vln_one_sin 166.1240 .3000 1044.3900 .1600 :fm-index 3 :reverb-amount 0 :amp-env metalamp :fm2-rat 1.1410 :fm3-rat 3.1410 :fm1-rat 2.7180)


(setf z1amp '(0 0 20 .5000 40 .1000 60 .2000 80 1 100 0 ))
(setf z2amp '(0 0 20 1 60 .1000 75 .3000 100 0 ))
(setf fm-violin-fm1-rat 2.718)
(setf fm-violin-fm2-rat 4.414)
(setf fm-violin-fm3-rat 5.141)

(vln_one_sin 166.1240 .5000 1041.2630 .1600 :fm-index 3 :reverb-amount 0 :amp-env metalamp :fm2-rat 1.1410 :fm3-rat 3.1410 :fm1-rat 2.7180)
(vln_one_sin_ran 168.4880 1.1770 416.6072 .0110 :fm-index 1.1140 :reverb-amount .1000 :amp-env z1amp :noise-amount .0050)
(vln_one_sin_ran 168.5050 2.4900 859.5863 .0083 :fm-index .5890 :reverb-amount .1000 :amp-env z2amp :noise-amount .0050)
(vln_one_sin_ran 169.0590 1.0550 1758.0816 .0053 :fm-index 1.8640 :reverb-amount .1000 :amp-env z2amp :noise-amount .0050)
(vln_one_sin_ran 169.0930 1.8580 229.0566 .0110 :fm-index 1.9690 :reverb-amount .1000 :amp-env z2amp :noise-amount .0050)
(vln_one_sin_ran 169.3490 3.3680 479.1994 .0083 :fm-index 1.9970 :reverb-amount .1000 :amp-env z1amp :noise-amount .0050)
(vln_one_sin_ran 169.5010 3.0680 411.8241 .0110 :fm-index 1.5390 :reverb-amount .1000 :amp-env z2amp :noise-amount .0050)
(vln_one_sin_ran 169.5200 2.8290 984.8456 .0053 :fm-index .0560 :reverb-amount .1000 :amp-env z1amp :noise-amount .0050)
(vln_one_sin_ran 169.6100 .7040 1767.7444 .0053 :fm-index 1.2620 :reverb-amount .1000 :amp-env z2amp :noise-amount .0050)
(vln_one_sin_ran 169.8480 3.0510 859.7203 .0083 :fm-index 1.6080 :reverb-amount .1000 :amp-env z2amp :noise-amount .0050)
(vln_one_sin_ran 170.4880 3.2350 231.9431 .0110 :fm-index .9690 :reverb-amount .1000 :amp-env z1amp :noise-amount .0050)
(vln_one_sin_ran 170.5610 3.2810 475.2009 .0083 :fm-index .3740 :reverb-amount .1000 :amp-env z2amp :noise-amount .0050)
(vln_one_sin_ran 170.7970 2.8400 988.8375 .0053 :fm-index .4200 :reverb-amount .1000 :amp-env z2amp :noise-amount .0050)
(vln_one_sin_ran 171.0620 1.0210 411.7247 .0110 :fm-index .1370 :reverb-amount .1000 :amp-env z2amp :noise-amount .0050)
(vln_one_sin_ran 171.2130 1.1610 848.5959 .0083 :fm-index 1.3120 :reverb-amount .1000 :amp-env z2amp :noise-amount .0050)
(vln_one_sin_ran 171.4410 2.6160 390.0600 .0110 :fm-index 1.9030 :reverb-amount .1000 :amp-env z1amp :noise-amount .0050)
(vln_one_sin_ran 171.4490 .7000 802.3538 .0083 :fm-index 1.5940 :reverb-amount .1000 :amp-env z2amp :noise-amount .0050)
(vln_one_sin_ran 171.5270 2.5080 1773.9366 .0053 :fm-index 1.8030 :reverb-amount .1000 :amp-env z1amp :noise-amount .0050)
(vln_one_sin_ran 171.7820 2.7990 232.4344 .0110 :fm-index .0590 :reverb-amount .1000 :amp-env z2amp :noise-amount .0050)
(vln_one_sin_ran 171.7830 2.7660 1650.1434 .0053 :fm-index .4400 :reverb-amount .1000 :amp-env z2amp :noise-amount .0050)
(vln_one_sin_ran 171.7890 3.1560 475.7231 .0083 :fm-index .7370 :reverb-amount .1000 :amp-env z2amp :noise-amount .0050)
(vln_one_sin_ran 172.1540 2.1290 976.0237 .0053 :fm-index 1.2690 :reverb-amount .1000 :amp-env z2amp :noise-amount .0050)
(vln_one_sin_ran 172.4890 3.3650 390.0525 .0110 :fm-index 1.4580 :reverb-amount .1000 :amp-env z2amp :noise-amount .0050)
(vln_one_sin_ran 172.7450 1.5070 1665.9722 .0053 :fm-index 1.9330 :reverb-amount .1000 :amp-env z2amp :noise-amount .0050)
(vln_one_sin_ran 172.8320 1.4430 798.1238 .0083 :fm-index .8560 :reverb-amount .1000 :amp-env z1amp :noise-amount .0050)
(vln_one_sin_ran 172.9440 3.1560 229.0528 .0110 :fm-index 1.8300 :reverb-amount .1000 :amp-env z2amp :noise-amount .0050)
(vln_one_sin_ran 173.3930 1.1100 473.7225 .0083 :fm-index 1.6260 :reverb-amount .1000 :amp-env z1amp :noise-amount .0050)
(vln_one_sin_ran 173.6970 1.6170 988.7953 .0053 :fm-index .4230 :reverb-amount .1000 :amp-env z2amp :noise-amount .0050)
(vln_one_sin_ran 174.0620 1.3190 390.9769 .0110 :fm-index .4100 :reverb-amount .1000 :amp-env z2amp :noise-amount .0050)
(vln_one_sin_ran 174.0840 3.3660 804.6413 .0083 :fm-index 1.8760 :reverb-amount .1000 :amp-env z2amp :noise-amount .0050)
(vln_one_sin_ran 174.1740 2.7210 418.6819 .0110 :fm-index .0910 :reverb-amount .1000 :amp-env z2amp :noise-amount .0050)
(vln_one_sin_ran 174.5700 3.4460 845.4019 .0077 :fm-index .7660 :reverb-amount .1000 :amp-env z2amp :noise-amount .0050)
(vln_one_sin_ran 174.6440 1.1790 1656.5756 .0049 :fm-index .2960 :reverb-amount .1000 :amp-env z1amp :noise-amount .0050)
(vln_one_sin_ran 174.6600 2.8520 1758.9788 .0049 :fm-index .4520 :reverb-amount .1000 :amp-env z2amp :noise-amount .0050)
(vln_one_sin_ran 174.8270 1.8840 387.0009 .0099 :fm-index 1.3010 :reverb-amount .1000 :amp-env z1amp :noise-amount .0050)
(vln_one_sin_ran 174.8870 3.4040 796.7213 .0077 :fm-index 1.1820 :reverb-amount .1000 :amp-env z2amp :noise-amount .0050)
(vln_one_sin_ran 174.9640 3.3230 416.3916 .0099 :fm-index .6290 :reverb-amount .1000 :amp-env z2amp :noise-amount .0050)
(vln_one_sin_ran 175.1320 1.7050 1637.2303 .0049 :fm-index 1.0570 :reverb-amount .1000 :amp-env z1amp :noise-amount .0050)
(vln_one_sin_ran 175.1500 3.1250 1762.4906 .0049 :fm-index 1.3170 :reverb-amount .1000 :amp-env z2amp :noise-amount .0050)
(vln_one_sin_ran 175.3860 2.9670 852.0487 .0077 :fm-index 1.4790 :reverb-amount .1000 :amp-env z1amp :noise-amount .0050)
(vln_one_sin_ran 175.6670 .6780 413.7094 .0099 :fm-index .9470 :reverb-amount .1000 :amp-env z2amp :noise-amount .0050)
(vln_one_sin_ran 175.8780 2.7490 1749.7509 .0049 :fm-index .5040 :reverb-amount .1000 :amp-env z1amp :noise-amount .0050)
(vln_one_sin_ran 175.9730 .5990 848.1253 .0077 :fm-index 1.9380 :reverb-amount .1000 :amp-env z1amp :noise-amount .0050)
(vln_one_sin_ran 176.0880 3.3360 229.9144 .0099 :fm-index 1.3930 :reverb-amount .1000 :amp-env z2amp :noise-amount .0050)
(vln_one_sin_ran 176.1170 1.1300 984.0816 .0049 :fm-index .3560 :reverb-amount .1000 :amp-env z2amp :noise-amount .0050)
(vln_one_sin_ran 176.4640 1.7330 478.7184 .0077 :fm-index .2840 :reverb-amount .1000 :amp-env z2amp :noise-amount .0050)
(vln_one_sin_ran 176.5760 .5680 413.4253 .0099 :fm-index 1.5020 :reverb-amount .1000 :amp-env z2amp :noise-amount .0050)
(vln_one_sin_ran 176.8200 1.2150 230.9588 .0099 :fm-index 1.0990 :reverb-amount .1000 :amp-env z1amp :noise-amount .0050)
(vln_one_sin_ran 176.8320 3.4590 473.8903 .0077 :fm-index .7680 :reverb-amount .1000 :amp-env z2amp :noise-amount .0050)
(vln_one_sin_ran 176.8320 .7260 857.2875 .0077 :fm-index .7520 :reverb-amount .1000 :amp-env z2amp :noise-amount .0050)


(setf indfunc '(0 1 20 0 100 0 ))
(setf indfunc2 '(0 1 90 1 100 0 ))
(setf ampfunc '(0 1 6 1 10 .5000 20 .3630 30 .2700 40 .2000 50 .1200 60 .0800 70 .0400 100 0 ))
(setf ampfunc1 '(0 0 1 1 3 1 10 .5000 30 .2000 60 .0500 100 0 ))
(restore-fm-violin-defaults)

(violin 180.2600 .0500 80 .8000 :fm-index 5 :reverb-amount 0 :amp-env ampfunc1 :fm1-env indfunc2)

(violin 181.2610 .2000 80 .8000 :fm-index 4 :reverb-amount 0 :amp-env ampfunc :fm1-env indfunc :fm2-rat .6875)

(violin 182.2600 .0500 80 .8000 :fm-index 5 :reverb-amount 0 :amp-env ampfunc1 :fm1-env indfunc2)
(violin 182.2620 .2000 80 .8000 :fm-index 5 :reverb-amount 0 :amp-env ampfunc :fm1-env indfunc :fm2-rat .6875)

(violin 183.2600 .0500 80 .8000 :fm-index 6 :reverb-amount 0 :amp-env ampfunc1 :fm1-env indfunc2)
(violin 183.2630 .2000 80 .8000 :fm-index 6 :reverb-amount 0 :amp-env ampfunc :fm1-env indfunc :fm2-rat .6875)

(violin 184.2600 .0500 80 .3000 :fm-index 4 :reverb-amount 0 :amp-env ampfunc1 :fm1-env indfunc2)
(violin 184.2620 .1000 160 .3000 :fm-index 4 :reverb-amount 0 :amp-env ampfunc :fm1-env indfunc :fm2-rat .6875)
(violin 184.2620 .2500 80 .8000 :fm-index 4 :reverb-amount 0 :amp-env ampfunc :fm1-env indfunc :fm2-rat .6875)

(violin 185.2600 .0500 80 .5000 :fm-index 4 :reverb-amount 0 :amp-env ampfunc1 :fm1-env indfunc2)
(violin 185.2610 .1000 210 .3000 :fm-index 4 :reverb-amount 0 :amp-env ampfunc :fm1-env indfunc :fm2-rat .6875)
(violin 185.2620 .2000 80 .1000 :fm-index 4 :reverb-amount 0 :amp-env ampfunc :fm1-env indfunc :fm2-rat .6875)
(violin 185.2630 .2500 320 .1000 :fm-index 2 :reverb-amount 0 :amp-env ampfunc :fm1-env indfunc :fm2-rat .6875)
(violin 186.2600 .0500 80 .8000 :fm-index 4 :reverb-amount 0 :amp-env ampfunc1 :fm1-env indfunc2)
(violin 186.2610 .1000 210 .1000 :fm-index 2 :reverb-amount 0 :amp-env ampfunc :fm1-env indfunc :fm2-rat .6875)
(violin 186.2620 .2000 80 .2000 :fm-index 4 :reverb-amount 0 :amp-env ampfunc :fm1-env indfunc :fm2-rat .6875)
(violin 186.2630 .2500 320 .3000 :reverb-amount 0 :amp-env ampfunc :fm1-env indfunc :fm2-rat .6875)

(violin 187.2600 .0500 80 .8000 :fm-index 2 :reverb-amount 0 :amp-env ampfunc1 :fm1-env indfunc2)
(violin 187.2610 .1000 210 .1000 :fm-index 2 :reverb-amount 0 :amp-env ampfunc :fm1-env indfunc :fm2-rat .6875)
(violin 187.2620 .2000 80 .2000 :fm-index 2 :reverb-amount 0 :amp-env ampfunc :fm1-env indfunc :fm2-rat .6875)
(violin 187.2630 .2500 320 .3000 :reverb-amount 0 :amp-env ampfunc :fm1-env indfunc :fm2-rat .6875)


(setf fm-violin-glissando-amount 0.0)
(setf fm-violin-noise-amount 0.004)
(setf fm-violin-fm1-rat 3.141)
(setf fm-violin-fm2-rat 4.414)
(setf fm-violin-fm3-rat 2.718)

(vln_one_sin_ran 188.2600 4 3286.9937 .1600 :fm-index 2.2165 :reverb-amount .0100 :amp-env n_amp :fm1-env n_amp :riamp .7000)
(vln_one_sin_ran 188.2603 4 1046.4800 .1600 :fm-index 2.3234 :reverb-amount .0100 :amp-env n_amp :fm1-env n_amp :riamp .7000)
(vln_one_sin_ran 188.2605 4 2844.3326 .1600 :fm-index 2.4790 :reverb-amount .1000 :amp-env n_amp :fm1-env n_amp :riamp .7000)
(vln_one_sin_ran 188.2608 4 821.7484 .1000 :fm-index 1.8667 :reverb-amount .0100 :amp-env n_amp :fm1-env n_amp :riamp .7000)
(vln_one_sin_ran 188.2610 4 261.6200 .1000 :fm-index 1.8523 :reverb-amount .0100 :amp-env n_amp :fm1-env n_amp :riamp .7000)
(vln_one_sin_ran 188.2613 4 711.0832 .1000 :fm-index 2.2300 :reverb-amount .1000 :amp-env n_amp :fm1-env n_amp :riamp .7000)
(vln_one_sin_ran 188.2615 4 205.4371 .0600 :fm-index 1.5187 :reverb-amount .0100 :amp-env n_amp :fm1-env n_amp :riamp .7000)
(vln_one_sin_ran 188.2618 4 65.4050 .0600 :fm-index 2.4074 :reverb-amount .0100 :amp-env n_amp :fm1-env n_amp :riamp .7000)
(vln_one_sin_ran 188.2620 4 177.7708 .0600 :fm-index 2.4481 :reverb-amount .1000 :amp-env n_amp :fm1-env n_amp :riamp .7000)
(vln_one_sin_ran 188.2623 4 51.3593 .0100 :fm-index 2.3069 :reverb-amount .0100 :amp-env n_amp :fm1-env n_amp :riamp .7000)
(vln_one_sin_ran 188.2625 4 16.3513 .0100 :fm-index 2.1008 :reverb-amount .0100 :amp-env n_amp :fm1-env n_amp :riamp .7000)
(vln_one_sin_ran 188.2628 4 44.4427 .0100 :fm-index 2.4860 :reverb-amount .1000 :amp-env n_amp :fm1-env n_amp :riamp .7000)


(restore-fm-violin-defaults)
(vln_one_sin 196.2603 1.2000 88.8854 .1000 :fm-index 2.3144 :reverb-amount .2000 :amp-env mamp :fm2-rat 4.4140 :fm3-rat 5.1410 :fm1-rat 2.7180)
(vln_one_sin 196.2603 4 88.8854 .1000 :fm-index 2.1690 :reverb-amount .2000 :amp-env mamp :fm2-rat 4.4140 :fm3-rat 5.1410 :fm1-rat 2.7180)
(vln_one_sin 196.2605 2.8000 168.1236 .0500 :fm-index 2.1850 :reverb-amount .2000 :amp-env mamp :fm2-rat 4.4140 :fm3-rat 5.1410 :fm1-rat 2.7180)
(vln_one_sin 196.2608 1.2000 168.1236 .0800 :fm-index 1.7743 :reverb-amount .2000 :amp-env mamp :fm2-rat 4.4140 :fm3-rat 5.1410 :fm1-rat 2.7180)
(vln_one_sin 196.2610 2 32.7025 .1000 :fm-index 2.4925 :reverb-amount .2000 :amp-env mamp :fm2-rat 4.4140 :fm3-rat 5.1410 :fm1-rat 2.7180)
(vln_one_sin 196.2633 2 32.7025 .1000 :fm-index 2.1325 :reverb-amount .2000 :amp-env mamp :fm2-rat 4.4140 :fm3-rat 5.1410 :fm1-rat 2.7180)
(vln_one_sin 196.2643 4 32.7025 .0500 :fm-index 1.7578 :reverb-amount .2000 :amp-env mamp :fm2-rat 4.4140 :fm3-rat 5.1410 :fm1-rat 2.7180)

(vln_one_sin_ran 204.2600 6.6830 244.8160 .0060 :fm-index 2 :reverb-amount .2000 :noise-amount .0040 :riamp .8000)
(vln_one_sin_ran 204.2600 5.5170 495.4040 .0060 :fm-index 2 :reverb-amount .2000 :noise-amount .0040 :riamp .8000)
(vln_one_sin_ran 204.2600 7.5350 980.6190 .0020 :fm-index 2 :reverb-amount .2000 :noise-amount .0040 :riamp .8000)
(vln_one_sin_ran 204.2600 7.1990 1965.4290 .0020 :fm-index .8000 :reverb-amount .2000 :noise-amount .0040 :riamp .8000)
(vln_one_sin_ran 204.2600 4.0790 3835.3170 .0020 :fm-index .8000 :reverb-amount .2000 :noise-amount .0040 :riamp .8000)
(vln_one_sin_ran 204.5170 4.7400 1320.9670 .0020 :fm-index .8000 :reverb-amount .2000 :noise-amount .0040 :riamp .8000)
(vln_one_sin_ran 204.7040 7.2080 655.5670 .0040 :fm-index 2 :reverb-amount .2000 :noise-amount .0040 :riamp .8000)
(vln_one_sin_ran 205.0490 6.6530 169.4230 .0040 :fm-index 2 :reverb-amount .2000 :noise-amount .0040 :riamp .8000)


(setf updown '(0 0 15 1 100 0 ))
(setf fm-violin-glissando-amount 0.0)
(setf fm-violin-reverb-amount .9)

(vln_one_sin_exp 213.5450 6.4650 366.3330 .0320 :fm-index 1.0480 :amp-env '(0 0 1.5468 1 2.0882 .7000 2.3202 1 98.4532 .7500 100.0000 0 ))
(vln_one_sin_exp 213.5950 8.4340 1172.5830 .0180 :fm-index 1.1350 :amp-env '(0 0 1.1857 1.0000 1.6007 .7000 1.7785 1 98.8143 .5556 100.0000 0 ))
(vln_one_sin_exp 213.7650 1.6210 369.9940 .0170 :fm-index .0960 :amp-env '(0 0 6.1690 1.0000 8.3282 .7000 9.2535 1.0000 93.8310 .5294 100.0000 0 ))
(vln_one_sin_exp 213.8820 3.0640 246.9420 .0170 :fm-index .0020 :amp-env '(0 0 3.2637 1 4.4060 .7000 4.8956 1.0000 96.7363 .5294 100.0000 0 ))
(vln_one_sin_exp 213.9250 3.1170 123.4710 .0380 :fm-index .2330 :amp-env '(0 0 3.2082 1 4.3311 .7000 4.8123 1 96.7918 .7895 100.0000 0 ))
(vln_one_sin_exp 213.9810 3.5670 123.4710 .0420 :fm-index .2330 :amp-env '(0 0 2.8035 1 3.7847 .7000 4.2052 1.0000 97.1965 .8095 100.0000 0 ))
(vln_one_sin_exp 214.1280 1.0450 246.9420 .0170 :fm-index 1.2050 :amp-env '(0 0 9.5694 1 12.9187 .7000 14.3541 1 90.4306 .5294 100.0000 0 ))
(vln_one_sin_exp 214.2550 3.3870 374.1370 .0170 :fm-index .1800 :amp-env '(0 0 2.9525 1.0000 3.9858 .7000 4.4287 1.0000 97.0475 .5294 100.0000 0 ))
(vln_one_sin_exp 214.2990 8.3050 1576.9120 .0200 :fm-index .2990 :amp-env '(0 0 1.2041 1 1.6255 .7000 1.8061 1 98.7959 .6000 100.0000 0 ))
(vln_one_sin_exp 214.3300 4.4630 246.9420 .0170 :fm-index .0020 :amp-env '(0 0 2.2406 1 3.0249 .7000 3.3610 1.0000 97.7594 .5294 100.0000 0 ))
(vln_one_sin_exp 214.6600 8.9940 1576.9120 .0200 :fm-index .2990 :amp-env '(0 0 1.1119 1 1.5010 .7000 1.6678 1 98.8881 .6000 100.0000 0 ))
(vln_one_sin_exp 214.9060 8.8360 1172.5830 .0180 :fm-index 1.1350 :amp-env '(0 0 1.1317 1 1.5278 .7000 1.6976 1 98.8683 .5556 100.0000 0 ))
(vln_one_sin_exp 215.1510 4.9320 374.1370 .0170 :fm-index .1800 :amp-env '(0 0 2.0276 1 2.7372 .7000 3.0414 1 97.9724 .5294 100.0000 0 ))
(vln_one_sin_exp 215.2720 2.3250 369.9940 .0170 :fm-index 1.1030 :amp-env '(0 0 4.3011 1 5.8065 .7000 6.4516 1 95.6989 .5294 100.0000 0 ))
(vln_one_sin_exp 216.6960 3.5540 366.3330 .0310 :fm-index 1.0480 :amp-env '(0 0 2.8137 1 3.7985 .7000 4.2206 1 97.1863 .7419 100.0000 0 ))
(vln_one_sin_exp 217.7240 .6040 246.9420 .0170 :fm-index 1.2050 :amp-env '(0 0 16.5563 1 22.3510 .7000 24.8344 1 83.4437 .5294 100 0 ))
(vln_one_sin_exp 217.9420 2.5010 123.4710 .0330 :fm-index .2330 :amp-env '(0 0 3.9984 1 5.3978 .7000 5.9976 1 96.0016 .7576 100.0000 0 ))
(vln_one_sin_exp 218.0340 2.3860 246.9420 .0170 :fm-index .0020 :amp-env '(0 0 4.1911 1 5.6580 .7000 6.2867 1 95.8089 .5294 100.0000 0 ))
(vln_one_sin_exp 218.3850 1.4510 369.9940 .0170 :fm-index 1.1030 :amp-env '(0 0 6.8918 1 9.3039 .7000 10.3377 1 93.1082 .5294 100.0000 0 ))
(vln_one_sin_exp 218.5670 2.6550 374.1370 .0170 :fm-index .1800 :amp-env '(0 0 3.7665 1 5.0847 .7000 5.6497 1 96.2335 .5294 100.0000 0 ))
(vln_one_sin_exp 218.9830 2.9860 123.4710 .0380 :fm-index .2330 :amp-env '(0 0 3.3490 1 4.5211 .7000 5.0234 1 96.6510 .7895 100.0000 0 ))
(vln_one_sin_exp 219.4910 .6110 123.9770 .0170 :fm-index .7550 :amp-env '(0 0 16.3666 1 22.0949 .7000 24.5499 1 83.6334 .5294 100.0000 0 ))
(vln_one_sin_exp 219.7570 1.4440 123.4710 .0170 :fm-index .0020 :amp-env '(0 0 6.9252 1 9.3490 .7000 10.3878 1 93.0748 .5294 100.0000 0 ))
(vln_one_sin_exp 219.7750 .5370 92.4435 .0330 :fm-index .9200 :amp-env '(0 0 18.6220 1 25.1397 .7000 27.9330 1 81.3780 .7576 100.0000 0 ))
(vln_one_sin_exp 219.7750 10.5370 92.4435 .0130 :fm-index .9200 :amp-env '(0 0 .9490 1 1.2812 .7000 1.4236 1 99.0510 .3846 100.0000 0 ))
(vln_one_sin_exp 219.9380 .6520 122.2995 .0170 :fm-index 1.8380 :amp-env '(0 0 15.3374 1 20.7055 .7000 23.0061 1 84.6626 .5294 100.0000 0 ))
(vln_one_sin_exp 220.2350 3.7250 586.2915 .0180 :fm-index 1.1350 :amp-env '(0 0 2.6846 1 3.6242 .7000 4.0268 1 97.3154 .5556 100.0000 0 ))
(vln_one_sin_exp 220.2560 2.8900 183.1665 .0260 :fm-index 1.0480 :amp-env '(0 0 3.4602 1 4.6713 .7000 5.1903 1 96.5398 .6923 100.0000 0 ))
(vln_one_sin_exp 220.2710 1.6210 187.0685 .0170 :fm-index .1800 :amp-env '(0 0 6.1690 1.0000 8.3282 .7000 9.2535 1.0000 93.8310 .5294 100.0000 0 ))
(vln_one_sin_exp 220.2920 2.0160 183.1665 .0290 :fm-index 1.0480 :amp-env '(0 0 4.9603 1 6.6964 .7000 7.4405 1 95.0397 .7241 100.0000 0 ))
(vln_one_sin_exp 220.2920 12.0160 183.1665 .0290 :fm-index 1.0480 :amp-env '(0 0 .8322 1 1.1235 .7000 1.2483 1.0000 99.1678 .7241 100.0000 0 ))
(vln_one_sin_exp 220.3300 .7300 184.9970 .0170 :fm-index .0960 :amp-env '(0 0 13.6986 1 18.4932 .7000 20.5479 1.0000 86.3014 .5294 100 0 ))
(vln_one_sin_exp 220.3570 1.9600 183.1665 .0280 :fm-index 1.0480 :amp-env '(0 0 5.1020 1.0000 6.8878 .7000 7.6531 1.0000 94.8980 .7143 100.0000 0 ))
(vln_one_sin_exp 220.3820 2.2450 61.7355 .0330 :fm-index .2330 :amp-env '(0 0 4.4543 1 6.0134 .7000 6.6815 1 95.5457 .7576 100.0000 0 ))
(vln_one_sin_exp 220.3820 12.2450 61.7355 .0330 :fm-index .2330 :amp-env '(0 0 .8167 1 1.1025 .7000 1.2250 1 99.1833 .7576 100.0000 0 ))
(vln_one_sin_exp 220.5410 3.0130 246.5050 .0360 :fm-index 1.1350 :amp-env '(0 0 3.3190 1.0000 4.4806 .7000 4.9784 1.0000 96.6810 .7778 100.0000 0 ))
(vln_one_sin_exp 220.5570 2.3220 1251.5960 .0400 :fm-index .2990 :amp-env '(0 0 4.3066 1 5.8140 .7000 6.4599 1 95.6934 .8000 100.0000 0 ))
(vln_one_sin_exp 220.5570 18.3220 1251.5960 .0200 :fm-index .2990 :amp-env '(0 0 .5458 1.0000 .7368 .7000 .8187 1 99.4542 .6000 100.0000 0 ))
(vln_one_sin 220.5600 13.8770 3951.1200 .0060 :fm-index .5000 :amp-env updown)
(vln_one_sin 220.7600 17.8770 493.8900 .0170 :fm-index .5280 :amp-env updown)
(vln_one_sin_exp 221.1060 1.9900 183.1665 .0230 :fm-index 1.0480 :amp-env '(0 0 5.0251 1.0000 6.7839 .7000 7.5377 1 94.9749 .6522 100.0000 0 ))
(vln_one_sin 221.1600 13.8770 1975.5600 .0110 :fm-index 1.2000 :amp-env updown)
(vln_one_sin_exp 221.2570 1.9180 61.7355 .0330 :fm-index .2330 :amp-env '(0 0 5.2138 1 7.0386 .7000 7.8206 1 94.7862 .7576 100.0000 0 ))
(vln_one_sin 221.2600 15.8770 246.9450 .0170 :fm-index .5280 :amp-env updown)
(vln_one_sin_exp 221.6370 1.3090 183.1665 .0310 :fm-index 1.0480 :amp-env '(0 0 7.6394 1 10.3132 .7000 11.4591 1 92.3606 .7419 100.0000 0 ))
(vln_one_sin 221.8600 16.8770 987.7800 .0130 :fm-index 1.5000 :amp-env updown)
(vln_one_sin_exp 222.0330 1.1590 183.1665 .0250 :fm-index 1.0480 :amp-env '(0 0 8.6281 1 11.6480 .7000 12.9422 1.0000 91.3719 .6800 100.0000 0 ))
(vln_one_sin 222.0600 13.8770 3951.1200 .0090 :amp-env updown)
(vln_one_sin_exp 222.0980 1.2400 30.8675 .0330 :fm-index .2330 :amp-env '(0 0 8.0645 1 10.8871 .7000 12.0968 1 91.9355 .7576 100.0000 0 ))
(vln_one_sin_exp 222.0980 11.2400 30.8675 .0130 :fm-index .2330 :amp-env '(0 0 .8897 1 1.2011 .7000 1.3345 1 99.1103 .3846 100.0000 0 ))
(vln_one_sin_exp 222.1260 .2600 123.4710 .0170 :fm-index 1.2050 :amp-env '(0 0 38.4615 1 51.9231 .7000 57.6923 1 61.5385 .5294 100.0000 0 ))
(vln_one_sin_exp 222.1260 10.2600 123.4710 .0170 :fm-index 1.2050 :amp-env '(0 0 .9747 1 1.3158 .7000 1.4620 1 99.0253 .5294 100.0000 0 ))
(vln_one_sin 222.2600 14.8770 123.4725 .0170 :fm-index 1.5000 :amp-env updown)
(vln_one_sin 222.2600 13.8770 61.7363 .0170 :fm-index 1.5000 :amp-env updown)
(vln_one_sin 222.2600 12.8770 30.8681 .0170 :fm-index 1.5000 :amp-env updown)
(vln_one_sin 222.2600 11.8770 15.4341 .0170 :fm-index 1.5000 :amp-env updown)


(restore-fm-violin-defaults)
(cel_one_sum 241.2620 .3906 440 .4500 :fm-index 1.2000 :reverb-amount .0013 :amp-env '(0 0 .7680 1 4.7774 .6000 9.7891 .3000 24.8243 .1000 100 0 ))
(cel_one_sum 241.2640 .5220 220 .4500 :fm-index 1.2000 :reverb-amount .0012 :amp-env '(0 0 .5747 1.0000 4.5919 .6000 9.6134 .3000 24.6778 .1000 100 0 ))
(cel_one_sum 241.2660 1.5660 880 .4500 :fm-index 1.2000 :reverb-amount .0014 :amp-env '(0 0 .1916 1.0000 4.2242 .6000 9.2651 .3000 24.3876 .1000 100.0000 0 ))
(cel_one_sum 241.2680 1.5660 110 .4500 :fm-index 1.2000 :reverb-amount .0013 :amp-env '(0 0 .1916 1.0000 4.2242 .6000 9.2651 .3000 24.3876 .1000 100.0000 0 ))
(vln_one_sin 244.8600 .9000 733.3330 .1875 :fm-index .2000 :distance 1 :reverb-amount .0012 :amp-env '(0 0 .3333 1 4.3603 .6000 9.3939 .3000 24.4950 .1000 100.0000 0 ))
(vln_one_sin 244.8600 .2250 550 .1875 :fm-index .2000 :distance 1 :reverb-amount .0015 :amp-env '(0 0 1.3333 1 5.3199 .6000 10.3030 .3000 25.2525 .1000 100 0 ))
(vln_one_sin 244.8600 .4500 586.6670 .3750 :fm-index .2000 :distance 1 :reverb-amount .0013 :amp-env '(0 0 .6667 1 4.6801 .6000 9.6970 .3000 24.7475 .1000 100 0 ))
(vln_one_sin 244.9020 .9000 733.3330 .1875 :fm-index .4000 :distance 1 :reverb-amount .0013 :amp-env '(0 0 .3333 1 4.3603 .6000 9.3939 .3000 24.4950 .1000 100.0000 0 ))
(vln_one_sin 244.9020 .2250 550 .1875 :fm-index .4000 :distance 1 :reverb-amount .0010 :amp-env '(0 0 1.3333 1 5.3199 .6000 10.3030 .3000 25.2525 .1000 100 0 ))
(vln_one_sin 244.9020 .4500 586.6670 .3750 :fm-index .4000 :distance 1 :reverb-amount .0015 :amp-env '(0 0 .6667 1 4.6801 .6000 9.6970 .3000 24.7475 .1000 100 0 ))
(vln_one_sin 244.9430 .9000 366.6670 .1875 :fm-index .6000 :distance 1 :reverb-amount .0016 :amp-env '(0 0 .3333 1 4.3603 .6000 9.3939 .3000 24.4950 .1000 100.0000 0 ))
(vln_one_sin 244.9430 .2250 275 .1875 :fm-index .6000 :distance 1 :reverb-amount .0015 :amp-env '(0 0 1.3333 1 5.3199 .6000 10.3030 .3000 25.2525 .1000 100 0 ))
(vln_one_sin 244.9430 .4500 293.3340 .3750 :fm-index .6000 :distance 1 :reverb-amount .0015 :amp-env '(0 0 .6667 1 4.6801 .6000 9.6970 .3000 24.7475 .1000 100 0 ))
(vln_one_sin 244.9850 .9000 733.3330 .1875 :fm-index .8000 :distance 1 :reverb-amount .0010 :amp-env '(0 0 .3333 1 4.3603 .6000 9.3939 .3000 24.4950 .1000 100.0000 0 ))
(vln_one_sin 244.9850 .2250 550 .1875 :fm-index .8000 :distance 1 :reverb-amount .0013 :amp-env '(0 0 1.3333 1 5.3199 .6000 10.3030 .3000 25.2525 .1000 100 0 ))
)


;;; finally, a function to get a very lush string sound, at enormous expense of course.
#|
(defun violin (beg dur freq amp &key fm1-rat fm2-rat fm3-rat fm-index reverb-amount amp-env)
  (loop for i from 0 to 5 do
    (fm-violin (+ beg (* i .05 (random 1.0)))
	       (+ dur (* i .1 (random 1.0)))
	       (if (> freq 400) (* freq (+ .99 (* .02 (random 1.0))))
		 (if (> freq 200) (* freq (+ .995 (* .01 (random 1.0))))
		   (* freq (+ .999 (* .002 (random 1.0))))))
	       amp
	       :reverb-amount (or reverb-amount .2)
	       :fm-index (* fm-index (+ .75 (random 1.0)))
	       :amp-env amp-env)))

  (setf pna '(0 0 1 1 10 .6000 25 .3000 100 0 ))
  (setf ind2 '(0 1 25 .4000 75 .6000 100 0 ))
  (setf amp '(0 0 25 1 60 .7000 75 1 100 0 ))
  (setf tap '(0 0 1 1 99 1 100 0 ))
  (setf skwfrq '(0 -1 5 .2500 10 0 100 .1000 ))
  (setf pizzf '(0 0 1 1 5 .6000 10 .3000 25 .1000 100 0 ))
  (setf metalamp '(0 0 .5000 1 5 1 10 .5000 15 .2500 35 .1000 100 0 ))

  (setf fm-violin-random-vibrato-rate 12.0)
  (setf fm-violin-random-vibrato-amplitude .01)
  (setf fm-violin-gliss-env skwfrq)
  (setf fm-violin-glissando-amount .01)
  (setf fm-violin-noise-amount .002)

(with-sound (:reverb jc-reverb :statistics t :channels 2 :verbose t) 
  (violin 0 8.53 993.323 .03 :fm-index .75 :reverb-amount .20 :amp-env (list 0 0 221.00 1 240.00 0))
  (violin 5 4.53 (* 5/6 993.323) .02 :fm-index .55 :reverb-amount .20 :amp-env (list 0 0 221.00 1 240.00 0)))

  ;; the violin calls should have the "swelling string" envelope, and be playing
  ;;   chords made up of everything in a major scale, and ta da! 
|#