|  | @@ -90,16 +90,14 @@ d3 $
 | 
											
												
													
														|  |  
 |  |  
 | 
											
												
													
														|  |  d4 $
 |  |  d4 $
 | 
											
												
													
														|  |    density 0.25 $
 |  |    density 0.25 $
 | 
											
												
													
														|  | -  gap 128 $
 |  | 
 | 
											
												
													
														|  | -  s "eg*2"
 |  | 
 | 
											
												
													
														|  | -  # gain "0.7" -- fade up to 0.8
 |  | 
 | 
											
												
													
														|  | 
 |  | +  gap 128 $ s "eg*2"
 | 
											
												
													
														|  | 
 |  | +  # gain "0.7" -- fade up to 0.7
 | 
											
												
													
														|  |    # cut "4"
 |  |    # cut "4"
 | 
											
												
													
														|  |  
 |  |  
 | 
											
												
													
														|  |  d4 $
 |  |  d4 $
 | 
											
												
													
														|  |    (# speed ((+0.8).(/2) <$> slow 4 saw1)) $
 |  |    (# speed ((+0.8).(/2) <$> slow 4 saw1)) $
 | 
											
												
													
														|  |    density 0.25 $
 |  |    density 0.25 $
 | 
											
												
													
														|  | -  gap 128 $
 |  | 
 | 
											
												
													
														|  | -  s "eg*2"
 |  | 
 | 
											
												
													
														|  | 
 |  | +  gap 128 $ s "eg*2"
 | 
											
												
													
														|  |    # gain "0.7"
 |  |    # gain "0.7"
 | 
											
												
													
														|  |    # cut "4"
 |  |    # cut "4"
 | 
											
												
													
														|  |  
 |  |  
 | 
											
										
											
												
													
														|  | @@ -107,6 +105,14 @@ d4 $
 | 
											
												
													
														|  |    (# speed ((+0.8).(/2) <$> slow 4 saw1)) $
 |  |    (# speed ((+0.8).(/2) <$> slow 4 saw1)) $
 | 
											
												
													
														|  |    density 0.25 $
 |  |    density 0.25 $
 | 
											
												
													
														|  |    slowspread density [1, 2, 0.5, 2] $
 |  |    slowspread density [1, 2, 0.5, 2] $
 | 
											
												
													
														|  | 
 |  | +  gap 128 $ s "eg*2"
 | 
											
												
													
														|  | 
 |  | +  # gain "0.7"
 | 
											
												
													
														|  | 
 |  | +  # cut "4"
 | 
											
												
													
														|  | 
 |  | +
 | 
											
												
													
														|  | 
 |  | +d4 $
 | 
											
												
													
														|  | 
 |  | +  (# speed ((+0.8).(/2) <$> slow 4 saw1)) $
 | 
											
												
													
														|  | 
 |  | +  density 0.245 $
 | 
											
												
													
														|  | 
 |  | +  slowspread density [1, 2, 0.5, 2] $
 | 
											
												
													
														|  |    gap 128 $
 |  |    gap 128 $
 | 
											
												
													
														|  |    s "eg*2"
 |  |    s "eg*2"
 | 
											
												
													
														|  |    # gain "0.7"
 |  |    # gain "0.7"
 | 
											
										
											
												
													
														|  | @@ -119,8 +125,7 @@ d4 $
 | 
											
												
													
														|  |    (# speed ((+0.8).(/2) <$> slow 4 saw1)) $
 |  |    (# speed ((+0.8).(/2) <$> slow 4 saw1)) $
 | 
											
												
													
														|  |    density 0.245 $
 |  |    density 0.245 $
 | 
											
												
													
														|  |    slowspread density [1, 2, 0.5, 2] $
 |  |    slowspread density [1, 2, 0.5, 2] $
 | 
											
												
													
														|  | -  gap 128 $
 |  | 
 | 
											
												
													
														|  | -  s "eg*2"
 |  | 
 | 
											
												
													
														|  | 
 |  | +  gap 128 $ s "eg*2"
 | 
											
												
													
														|  |    # gain "0.8"
 |  |    # gain "0.8"
 | 
											
												
													
														|  |    # cut "4"
 |  |    # cut "4"
 | 
											
												
													
														|  |  
 |  |  
 | 
											
										
											
												
													
														|  | @@ -132,23 +137,28 @@ d1 $ stack [
 | 
											
												
													
														|  |    ]
 |  |    ]
 | 
											
												
													
														|  |  
 |  |  
 | 
											
												
													
														|  |  d5 $
 |  |  d5 $
 | 
											
												
													
														|  | -  chop 128 $
 |  | 
 | 
											
												
													
														|  | -  s "[gt [~ gt] ! ~]/2"
 |  | 
 | 
											
												
													
														|  | 
 |  | +  chop 128 $ s "[gt [~ gt] ! ~]/2"
 | 
											
												
													
														|  |    # gain "0.7"
 |  |    # gain "0.7"
 | 
											
												
													
														|  |    # cut "4"
 |  |    # cut "4"
 | 
											
												
													
														|  |  
 |  |  
 | 
											
												
													
														|  |  d5 $
 |  |  d5 $
 | 
											
												
													
														|  |    density 0.98 $
 |  |    density 0.98 $
 | 
											
												
													
														|  | -  chop 128 $
 |  | 
 | 
											
												
													
														|  | -  s "[gt [~ gt] ! ~]/2"
 |  | 
 | 
											
												
													
														|  | 
 |  | +  chop 128 $ s "[gt [~ gt] ! ~]/2"
 | 
											
												
													
														|  |    # gain "0.7"
 |  |    # gain "0.7"
 | 
											
												
													
														|  |    # cut "4"
 |  |    # cut "4"
 | 
											
												
													
														|  |  
 |  |  
 | 
											
												
													
														|  |  d5 $
 |  |  d5 $
 | 
											
												
													
														|  |    (# speed ((+0.8).(/2) <$> slow 4 saw1)) $
 |  |    (# speed ((+0.8).(/2) <$> slow 4 saw1)) $
 | 
											
												
													
														|  |    density 0.98 $
 |  |    density 0.98 $
 | 
											
												
													
														|  | -  chop 128 $
 |  | 
 | 
											
												
													
														|  | -  s "[gt [~ gt] ! ~]/2"
 |  | 
 | 
											
												
													
														|  | 
 |  | +  chop 128 $ s "[gt [~ gt] ! ~]/2"
 | 
											
												
													
														|  | 
 |  | +  # gain "0.7"
 | 
											
												
													
														|  | 
 |  | +  # cut "4"
 | 
											
												
													
														|  | 
 |  | +
 | 
											
												
													
														|  | 
 |  | +d4 $
 | 
											
												
													
														|  | 
 |  | +  (# speed ((+0.8).(/2) <$> slow 4 saw1)) $
 | 
											
												
													
														|  | 
 |  | +  density 0.245 $
 | 
											
												
													
														|  | 
 |  | +  slowspread density [1, 2, 0.5, 2] $
 | 
											
												
													
														|  | 
 |  | +  gap 128 $ s "eg*2"
 | 
											
												
													
														|  |    # gain "0.7"
 |  |    # gain "0.7"
 | 
											
												
													
														|  |    # cut "4"
 |  |    # cut "4"
 | 
											
												
													
														|  |  
 |  |  
 | 
											
										
											
												
													
														|  | @@ -159,7 +169,7 @@ d1 $ stack [
 | 
											
												
													
														|  |    (1 ~>) $ s "sn/2"
 |  |    (1 ~>) $ s "sn/2"
 | 
											
												
													
														|  |    ]
 |  |    ]
 | 
											
												
													
														|  |  
 |  |  
 | 
											
												
													
														|  | -d4 silence
 |  | 
 | 
											
												
													
														|  | 
 |  | +mapM_ ($ silence) [d4,d5]
 | 
											
												
													
														|  |  
 |  |  
 | 
											
												
													
														|  |  -- fast!
 |  |  -- fast!
 | 
											
												
													
														|  |  d1 $ stack [
 |  |  d1 $ stack [
 |