|  | @@ -27,8 +27,8 @@ let k = sound "k"
 | 
											
												
													
														|  |  let sn = sound "[~ sn]/2"
 |  |  let sn = sound "[~ sn]/2"
 | 
											
												
													
														|  |  
 |  |  
 | 
											
												
													
														|  |  let bass'params = (|+| gain "0.7").
 |  |  let bass'params = (|+| gain "0.7").
 | 
											
												
													
														|  | -                 (|+| hcutoff "0.022").
 |  | 
 | 
											
												
													
														|  | -                 (|+| hresonance "0.001")
 |  | 
 | 
											
												
													
														|  | 
 |  | +                  (|+| hcutoff "0.022").
 | 
											
												
													
														|  | 
 |  | +                  (|+| hresonance "0.001")
 | 
											
												
													
														|  |  
 |  |  
 | 
											
												
													
														|  |  let bass' c = rev . chop c $ bass'params $ sound "[dubb dubb:1]/2"
 |  |  let bass' c = rev . chop c $ bass'params $ sound "[dubb dubb:1]/2"
 | 
											
												
													
														|  |  
 |  |  
 | 
											
										
											
												
													
														|  | @@ -37,8 +37,8 @@ let bass' c = rev . chop c $ bass'params $ sound "[dubb dubb:1]/2"
 | 
											
												
													
														|  |  -}
 |  |  -}
 | 
											
												
													
														|  |  
 |  |  
 | 
											
												
													
														|  |  let fly'1 = slow 16 $ jux (0.5 <~) $ rev . striate 256 $ sound "fly"
 |  |  let fly'1 = slow 16 $ jux (0.5 <~) $ rev . striate 256 $ sound "fly"
 | 
											
												
													
														|  | -               |+| hcutoff "0.09"
 |  | 
 | 
											
												
													
														|  | -               |+| hresonance "0.06"
 |  | 
 | 
											
												
													
														|  | 
 |  | +            |+| hcutoff "0.09"
 | 
											
												
													
														|  | 
 |  | +            |+| hresonance "0.06"
 | 
											
												
													
														|  |  
 |  |  
 | 
											
												
													
														|  |  {- n.b. defs suffixed with 'nf are final-ish versions for reuse in
 |  |  {- n.b. defs suffixed with 'nf are final-ish versions for reuse in
 | 
											
												
													
														|  |  later sections. saves copying extra functions -}
 |  |  later sections. saves copying extra functions -}
 |