mirror of
				https://gitlab.dit.htwk-leipzig.de/computermusik-ws23/data-composition.git
				synced 2025-11-04 14:05:17 +01:00 
			
		
		
		
	Add some results of playing around
This commit is contained in:
		
							
								
								
									
										25
									
								
								scratchpads/granular.tidal
									
									
									
									
									
										Normal file
									
								
							
							
						
						
									
										25
									
								
								scratchpads/granular.tidal
									
									
									
									
									
										Normal file
									
								
							@@ -0,0 +1,25 @@
 | 
			
		||||
d1 $ slow 4 $ striate 3 $ sound "numbers:0 numbers:1 numbers:2 numbers:3"
 | 
			
		||||
 | 
			
		||||
d1 $ slow 4 $ chop 3 $ sound "numbers:0 numbers:1 numbers:2 numbers:3"
 | 
			
		||||
 | 
			
		||||
d1 $ slow 4 $ sound "numbers:0 numbers:1 numbers:2 numbers:3"
 | 
			
		||||
 | 
			
		||||
d1 $ chop 256 $ sound "bd*4 [sn cp] [hh future]*2 [cp feel]"
 | 
			
		||||
 | 
			
		||||
d1 $ chop 2 $ sound (samples "arpy*8" (run 16))
 | 
			
		||||
 | 
			
		||||
d1 $ slow 2 $ jux rev $ chop 16 $ sound "breaks125"
 | 
			
		||||
 | 
			
		||||
d1 $ chop "<16 128 32>" $ sound "arpy ~ feel*2 newnotes"
 | 
			
		||||
 | 
			
		||||
d1 "newnotes"
 | 
			
		||||
 | 
			
		||||
d1 $ slice 8 (irand n) $ sound "breaks165"
 | 
			
		||||
  # legato 1
 | 
			
		||||
 | 
			
		||||
d1 $ n "0 .. 7" # sound "drum"
 | 
			
		||||
 | 
			
		||||
d1 $ bite 4 "0 1*2 2*2 [~ 3]" $ n "0 .. 7" # sound "drum"
 | 
			
		||||
 | 
			
		||||
d1 $ chew 4 "0 1*2 2*2 [~ 3]" $ n "0 .. 7" # sound "drum"
 | 
			
		||||
 | 
			
		||||
							
								
								
									
										83
									
								
								scratchpads/test.tidal
									
									
									
									
									
										Normal file
									
								
							
							
						
						
									
										83
									
								
								scratchpads/test.tidal
									
									
									
									
									
										Normal file
									
								
							@@ -0,0 +1,83 @@
 | 
			
		||||
 | 
			
		||||
-- EVAL IN CASE OF EARRAPE
 | 
			
		||||
hush
 | 
			
		||||
 | 
			
		||||
setcps (120/60/4)
 | 
			
		||||
 | 
			
		||||
d1 $ stut 3
 | 
			
		||||
      (range 0.02 0.8 rand)
 | 
			
		||||
      (range (1/16) (3/16) square)
 | 
			
		||||
    $ s "sn:3"
 | 
			
		||||
 | 
			
		||||
d1 silence
 | 
			
		||||
 | 
			
		||||
d2 $ fast 2 $ s "808:7 [~ 808:7]"
 | 
			
		||||
 | 
			
		||||
d2 silence
 | 
			
		||||
 | 
			
		||||
 | 
			
		||||
d3 $ s "bd:5!4" # gain 1.3
 | 
			
		||||
 | 
			
		||||
d3 $ stack [
 | 
			
		||||
    s "bd:5!4" # gain 1.3,
 | 
			
		||||
    sometimes (hurry 4) $ s "bd:5!4" # gain 1.3
 | 
			
		||||
    ]
 | 
			
		||||
 | 
			
		||||
d3 silence
 | 
			
		||||
 | 
			
		||||
 | 
			
		||||
d4  $ slow 10
 | 
			
		||||
    $ sometimes (# speed (-1))
 | 
			
		||||
    $ n (run 10) +| "0*40"
 | 
			
		||||
    # s "numbers"
 | 
			
		||||
    # begin (range 0.1 0.2 rand)
 | 
			
		||||
    # end (range 0.3 0.4 rand)
 | 
			
		||||
    # room 1
 | 
			
		||||
    # delay 1 # delayfeedback 0.8 # delaytime (1/8)
 | 
			
		||||
    # lock 1
 | 
			
		||||
 | 
			
		||||
d4 silence
 | 
			
		||||
 | 
			
		||||
-- "Space for Future Expansion"
 | 
			
		||||
 | 
			
		||||
d7  $ note "<[e4!4 [f4*10]] [e5!3 g5 [f5*10]] [e5!3 g5 [f5*10],g5!3 b5 [a5*10]] [e5!3 g5 [f5*10],g5!3 b5 [a5*10]]>"
 | 
			
		||||
    # s "jvbass"
 | 
			
		||||
    # room 1
 | 
			
		||||
    # delay 0.5
 | 
			
		||||
    # delayfeedback 0.8
 | 
			
		||||
    # delaytime 0.5
 | 
			
		||||
 | 
			
		||||
d7 silence
 | 
			
		||||
 | 
			
		||||
 | 
			
		||||
d8  $ slow 4 
 | 
			
		||||
    $ degradeBy 0.9
 | 
			
		||||
    $ sometimes rev
 | 
			
		||||
    $ n (run 32)
 | 
			
		||||
    # s "industrial"
 | 
			
		||||
    # room 1 # size 1
 | 
			
		||||
    # delay 0.5 # delayfeedback 0.5 # delaytime (1/4)
 | 
			
		||||
    # lock 1
 | 
			
		||||
    # speed (-4)
 | 
			
		||||
    # gain 0.7
 | 
			
		||||
    # release 0.9
 | 
			
		||||
 | 
			
		||||
d8 silence
 | 
			
		||||
 | 
			
		||||
d9 $ slow 5 $ loopAt 5 $ s "sheffield"  # gain 0.5 # release 0.9
 | 
			
		||||
 | 
			
		||||
d9 silence
 | 
			
		||||
 | 
			
		||||
d10 $ jux ( sometimes rev ) $ loopAt 1 $ chop 4 $ s "breaks125" # delay 0.5 # delaytime (1/4)
 | 
			
		||||
 | 
			
		||||
d1 $ slow 8 $ s "tabla" <| n (run 26)
 | 
			
		||||
 | 
			
		||||
-- Something different:
 | 
			
		||||
 | 
			
		||||
d1 $ slow 2 $ s "arpy" <| up "c'maj(3,8) f'maj(3,8) ef'maj(3,8,1) bf4'maj(3,8)" # delay 0.5
 | 
			
		||||
d2 $ s "can" <| n (run 16) # speed "0.125 1!15"
 | 
			
		||||
d3 $ slow 2 $ s "speakspell" <| n (run 12) # speed "{-1 2 0.25? -0.5}%6"
 | 
			
		||||
d4 $ jux (# delay 0.5) $ s "808bd:3" # gain 1.5 # delaytime (1/400) # lock 1
 | 
			
		||||
d5 $ degradeBy 0.3 $ fast 8 $ s "[clak clak]!2" <| n (run 2) # gain "1 0.7 0.7 0.7"
 | 
			
		||||
 | 
			
		||||
hush
 | 
			
		||||
							
								
								
									
										40
									
								
								scratchpads/test2.tidal
									
									
									
									
									
										Normal file
									
								
							
							
						
						
									
										40
									
								
								scratchpads/test2.tidal
									
									
									
									
									
										Normal file
									
								
							@@ -0,0 +1,40 @@
 | 
			
		||||
-- Basic rythm
 | 
			
		||||
 | 
			
		||||
d1 $ sometimes (fast "2") $ s "[bd:3*4,sn*2,hh*8]" # delay 0.5 # delaytime 1 # leslie 0.5
 | 
			
		||||
 | 
			
		||||
d1 ""
 | 
			
		||||
 | 
			
		||||
d2 $ "1!7 1*2" # s "hh"
 | 
			
		||||
 | 
			
		||||
d2 ""
 | 
			
		||||
 | 
			
		||||
-- Sliced and jumbled breaks
 | 
			
		||||
 | 
			
		||||
d3 $ sometimes (fast 2) $ slice 16 (run 8 |> irand 16) $ sound "breaks165:1" # cut "-1" # room 0.5
 | 
			
		||||
 | 
			
		||||
d3 ""
 | 
			
		||||
 | 
			
		||||
-- Something melodic or so?
 | 
			
		||||
 | 
			
		||||
d4 $ n (scale "minor" "[1 3 5 3]*2"|+"<[-2,+5] [-1,+6]>") # s "jvbass" # room 0.3 # delay 0.75 # delayfb 0.8
 | 
			
		||||
 | 
			
		||||
d4 ""
 | 
			
		||||
 | 
			
		||||
d5 $ sometimes (jux rev) $ n ( scale "<major minor locrian>" (run 8)) # s "supermandolin" # room 0.3 # delay 0.75 # delayfb 0.8
 | 
			
		||||
 | 
			
		||||
d5 silence
 | 
			
		||||
 | 
			
		||||
 | 
			
		||||
d6 $ n (run 16 |> run 64 |+| slow 4 "4 13 7 2")  # s "jvbass" # room 5 # delay 0.75 # delayfb 0.9 # gain 0.5
 | 
			
		||||
 | 
			
		||||
d6 ""
 | 
			
		||||
 | 
			
		||||
-- Quantized Perlin Noise
 | 
			
		||||
 | 
			
		||||
d7 $ s "superpiano*2" # n (quantise 1 (perlin * 10))
 | 
			
		||||
-- Why does the following not work then???
 | 
			
		||||
d7 $ s "superpiano*2" # n (scale "major" (perlin * 10))
 | 
			
		||||
 | 
			
		||||
d7 silence
 | 
			
		||||
 | 
			
		||||
hush
 | 
			
		||||
		Reference in New Issue
	
	Block a user