Commit 75bdb554 authored by Arshia Cont's avatar Arshia Cont
Browse files

Repository Creation

parents
BPM 60
;;;;;;;;; Load Library
@INSERT "zInclude/Lib_ofSil-harms1.txt"
/* Convenient Macro for setting Harmonizers
Note: In the score, harmonizers are set using semi-tones. THe GIZMO object however uses pitch scale.
We convert semi-tones to pitch-scale factor using (@pow(2., $x/12)) expression.
*/
@MACRO_DEF harms($h1, $h2, $h3, $h4)
{
group harms
{
@harm(1, $h1)
@harm(2, $h2)
@harm(3, $h3)
@harm(4, $h4)
}
}
;------------- Definition of AutoWah:
; A classic midi to hz convertor
$diapason := 440
@FUN_DEF midicent2hz($X) {
$diapason* @exp( ( ($X/100.0)-69.0) * @log(2.0)/12)
}
@MACRO_DEF wahwah($p,$dur)
{
curve wahwah-out 0.0 60ms
abort autowah
curve autowah @action := wah-params $freq $gain, @grain:=0.01s
{
$freq
{
{ (@midicent2hz($p)) } ;@type "exp_out"
$dur/2 { (@midicent2hz($p+2400)) } ;@type "exp_out"
$dur/2 { (@midicent2hz($p)) }
}
$gain
{
{0.0} @type "exp_in"
0.05 {1.0} @type "exp_in"
($dur-0.15) {0.9} @type "exp_in"
0.1 {0.0}
}
}
}
;;;;;;;;;;;; INITIALIZATIONS
; global level control for all harms in DB (post)
curve hr-out-db-ctrl -96, 0. 300ms
; individual harm level controls in DB (post). Needs to be set before hr-out-db-ctrl
curve hr1-out -96, -96 300ms
curve hr2-out -96, -96 300ms
curve hr3-out -96, -96 300ms
curve hr4-out -96, -96 300ms
fs1_fre 0.0
fs2_fre 0.0
fs3_fre 0.0
fs4_fre 0.0
curve fs1-out -96, -96 100ms ; individual fs level in DB
curve fs2-out -96, -96 100ms
curve fs3-out -96, -96 100ms
curve fs4-out -96, -96 100ms
curve fs-out-db-ctrl -96, -0. 100ms ; global post level fs in DB
; wah wah initialization
wah-Q 5.0
wah-filter gainresonant
curve wahwah-out -96, -96 300ms
NOTE C4 5.0
curve hr1-out -6. 300ms
curve hr2-out -3. 300ms
curve hr3-out -6. 300ms
curve hr4-out -4. 300ms
; hr-out-db-ctrl controls harm levels in DB
curve hr-out-db-ctrl -6.0 500ms
; Harms macro sets scalar value in semi-tones
@harms(-0.25,0.5,-0.5,0.25)
@harms(0.,0.,0.,0.)
NOTE D4 5.0
curve hr-out-db-ctrl 0.0 500ms
curve hr1-out 0. 300ms
loop hr1-baland 2.0 @abort:= { curve hr1-out -96. 60ms }
{
curve slider @Grain := 0.05s, @Action :=
{
@harm(1, $hr1)
}
{
$hr1
{
{ -1. } /*@type "exp"*/
1 { 1. }
1 { -1. }
}
}
}
NOTE E4 5.0 SingleHarm-Jitter
curve hr-out-db-ctrl 0.0 500ms
curve hr1-out 0. 300ms
loop hr1-jitter 200ms @abort:= { curve hr1-out -96. 60ms }
{
curve slider @Grain := 0.01s, @Action :=
{
@harm(1, $hr1)
}
{
$hr1
{
{ -0.25 } /*@type "exp"*/
100ms { 0.25 }
100ms { -0.25 }
}
}
}
abort hr1-jitter
curve hr1-out 0. 300ms
$random1 := @random()
loop hr1-jitter2 200ms @abort:= { curve hr1-out -96. 60ms }
{
@local $temp
curve slider @Grain := 0.01s,
@Action :=
{
$temp := $hr1
@harm(1, $hr1)
}
{
$hr1
{
{ (-0.5*$random1) } /*@type "exp"*/
100ms { (0.5*@random()) }
100ms { (-0.5*@random()) }
}
}
200ms $random1 := $temp
}
abort hr1-jitter2
NOTE F4 5.0 Trans
curve hr1-out 0. 300ms
curve hr2-out 0. 300ms
::trans( [-200, 200], 2.0)
curve hr3-out 0. 300ms
::trans( [-100, 100, -50], 2.0)
curve hr4-out 0. 300ms
::trans( [-100, 100, -50, 50], 2.0)
NOTE G4 5.0 Trans-Reordering
; Aborting ::trans will cut off all harms! So you'd need to reinitiate their levels!
abort ::trans
;;; IMPORTANT NOTE: The above is NOT effective if ::trans has already finished (auto-kill) like a Group
curve hr1-out 0. 300ms
curve hr2-out 0. 300ms
curve hr3-out 0. 300ms
curve hr4-out 0. 300ms
;;; Scrambling (random re-ordering)
$transpositions := [ -75, -25, 25, 75]
$loop := 2.0
loop scramble $loop
{
::trans($transpositions, $loop)
$loop $transpositions := @scramble($transpositions)
}
abort scramble
;;; Permuting the same list in a loop
$transpositions := [ -75, -25, 25, 75]
$loop := 2.0
loop permutation $loop
{
::trans($transpositions, $loop)
$loop $transpositions := @permute($transpositions, (@rand_int(@size($transpositions))))
}
abort permutation
;;; Order reversal
$transpositions := [ -75, -25, 25, 75]
$loop := 2.0
loop reversal $loop
{
::trans($transpositions, $loop)
$loop $transpositions := @reverse($transpositions)
}
abort reversal
;;; Rotation
$transpositions := [ -75, -25, 25, 75]
$loop := 2.0
loop rotate $loop
{
::trans($transpositions, $loop)
$loop $transpositions := @rotate($transpositions, 1) ; use negative for left rotation
}
abort rotate
NOTE C4 5.0 fs-Jitter
curve fs-out-db-ctrl 0.0 500ms
curve fs1-out 0. 100ms
loop fs1-jitter 100ms @abort:= { curve fs1-out -96. 60ms }
{
curve slider @Grain := 0.005s, @Action := fs1_fre $f1
{
$f1
{
{ -50. } /*@type "exp"*/
50ms { 50 }
50ms { -50 }
}
}
}
abort fs1-jitter
NOTE F4 5.0 wahwah
@wahwah(6900, 3.0)
@wahwah(6900, 1.0)
@wahwah(5800, 3.0)
@wahwah(5800, 1.0)
group wah
{
@wahwah(5800, 1.0)
0.5 @wahwah(5800, 1.0)
0.5 @wahwah(5800, 1.0)
0.5 @wahwah(5800, 1.0)
}
group wah
{
@wahwah(6900, 1.0)
1.0 @wahwah(6900, 1.0)
0.5 @wahwah(6900, 1.0)
0.5 @wahwah(6900, 1.0)
}
BPM 60
;;;;;;;;; Load Library
@INSERT "zInclude/Lib_Stroppa-harms3.txt"
;;;;;;;;;;;; INITIALIZATIONS
; global level control for all harms in DB (post)
curve hr-out-db-ctrl -96, 0. 300ms
; individual harm level controls in DB (post). Needs to be set before hr-out-db-ctrl
curve hr1-out -96, -96 300ms
curve hr2-out -96, -96 300ms
curve hr3-out -96, -96 300ms
curve hr4-out -96, -96 300ms
fs1_fre 0.0
fs2_fre 0.0
fs3_fre 0.0
fs4_fre 0.0
curve fs1-out -96, -96 100ms ; individual fs level in DB
curve fs2-out -96, -96 100ms
curve fs3-out -96, -96 100ms
curve fs4-out -96, -96 100ms
curve fs-out-db-ctrl -96, -0. 100ms ; global post level fs in DB
; wah wah initialization
wah-Q 5.0
wah-filter gainresonant
curve wahwah-out -96, -96 300ms
NOTE C4 5.0
curve hr1-out -6. 300ms
curve hr2-out -3. 300ms
curve hr3-out -6. 300ms
curve hr4-out -4. 300ms
; hr-out-db-ctrl controls harm levels in DB
curve hr-out-db-ctrl -6.0 500ms
; Harms macro sets scalar value in semi-tones
@harms(-0.25,0.5,-0.5,0.25)
@harms(0.,0.,0.,0.)
NOTE D4 5.0
curve hr-out-db-ctrl 0.0 500ms
curve hr1-out 0. 300ms
loop hr1-baland 2.0 @abort:= { curve hr1-out -96. 60ms }
{
curve slider @Grain := 0.05s, @Action :=
{
@harm(1, $hr1)
}
{
$hr1
{
{ -1. } /*@type "exp"*/
1 { 1. }
1 { -1. }
}
}
}
NOTE E4 5.0 SingleHarm-Jitter
curve hr-out-db-ctrl 0.0 500ms
curve hr1-out 0. 300ms
loop hr1-jitter 200ms @abort:= { curve hr1-out -96. 60ms }
{
curve slider @Grain := 0.01s, @Action :=
{
@harm(1, $hr1)
}
{
$hr1
{
{ -0.25 } /*@type "exp"*/
100ms { 0.25 }
100ms { -0.25 }
}
}
}
abort hr1-jitter
curve hr1-out 0. 300ms
$random1 := @random()
loop hr1-jitter2 200ms @abort:= { curve hr1-out -96. 60ms }
{
@local $temp
curve slider @Grain := 0.01s,
@Action :=
{
$temp := $hr1
@harm(1, $hr1)
}
{
$hr1
{
{ (-0.5*$random1) } /*@type "exp"*/
100ms { (0.5*@random()) }
100ms { (-0.5*@random()) }
}
}
200ms $random1 := $temp
}
abort hr1-jitter2
NOTE F4 5.0 Trans
curve hr1-out 0. 300ms
curve hr2-out 0. 300ms
::trans( [-200, 200], 2.0)
curve hr3-out 0. 300ms
::trans( [-100, 100, -50], 2.0)
curve hr4-out 0. 300ms
::trans( [-100, 100, -50, 50], 2.0)
NOTE G4 5.0 Trans-Reordering
; Aborting ::trans will cut off all harms! So you'd need to reinitiate their levels!
abort ::trans
;;; IMPORTANT NOTE: The above is NOT effective if ::trans has already finished (auto-kill) like a Group
curve hr1-out 0. 300ms
curve hr2-out 0. 300ms
curve hr3-out 0. 300ms
curve hr4-out 0. 300ms
;;; Scrambling (random re-ordering)
$transpositions := [ -75, -25, 25, 75]
$loop := 2.0
loop scramble $loop
{
::trans($transpositions, $loop)
$loop $transpositions := @scramble($transpositions)
}
abort scramble
;;; Permuting the same list in a loop
$transpositions := [ -75, -25, 25, 75]
$loop := 2.0
loop permutation $loop
{
::trans($transpositions, $loop)
$loop $transpositions := @permute($transpositions, (@rand_int(@size($transpositions))))
}
abort permutation
;;; Order reversal
$transpositions := [ -75, -25, 25, 75]
$loop := 2.0
loop reversal $loop
{
::trans($transpositions, $loop)
$loop $transpositions := @reverse($transpositions)
}
abort reversal
;;; Rotation
$transpositions := [ -75, -25, 25, 75]
$loop := 2.0
loop rotate $loop
{
::trans($transpositions, $loop)
$loop $transpositions := @rotate($transpositions, 1) ; use negative for left rotation
}
abort rotate
NOTE C4 5.0 fs-Jitter
curve fs-out-db-ctrl 0.0 500ms
curve fs1-out 0. 100ms
loop fs1-jitter 100ms @abort:= { curve fs1-out -96. 60ms }
{
curve slider @Grain := 0.005s, @Action := fs1_fre $f1
{
$f1
{
{ -50. } /*@type "exp"*/
50ms { 50 }
50ms { -50 }
}
}
}
abort fs1-jitter
NOTE F4 5.0 wahwah
@wahwah(6900, 3.0)
@wahwah(6900, 1.0)
@wahwah(5800, 3.0)
@wahwah(5800, 1.0)
group wah
{
@wahwah(5800, 1.0)
0.5 @wahwah(5800, 1.0)
0.5 @wahwah(5800, 1.0)
0.5 @wahwah(5800, 1.0)
}
group wah
{
@wahwah(6900, 1.0)
1.0 @wahwah(6900, 1.0)
0.5 @wahwah(6900, 1.0)
0.5 @wahwah(6900, 1.0)
}
This diff is collapsed.
This diff is collapsed.
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE plist PUBLIC "-//Apple//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
<plist version="1.0">
<dict>
<key>BuildMachineOSBuild</key>
<string>13F34</string>
<key>CFBundleDevelopmentRegion</key>
<string>English</string>
<key>CFBundleExecutable</key>
<string>antescofo~</string>
<key>CFBundleIdentifier</key>
<string>com.cycling74.antescofo-</string>
<key>CFBundleInfoDictionaryVersion</key>
<string>6.1.1</string>
<key>CFBundleLongVersionString</key>
<string>antescofo~ 6.1.0, Copyright 2013 Cycling '74</string>
<key>CFBundlePackageType</key>
<string>iLaX</string>
<key>CFBundleShortVersionString</key>
<string>6.1.0</string>
<key>CFBundleSignature</key>
<string>max2</string>
<key>CFBundleVersion</key>
<string>6.1.0</string>
<key>CSResourcesFileMapped</key>
<true/>
<key>DTCompiler</key>
<string>com.apple.compilers.llvm.clang.1_0</string>
<key>DTPlatformBuild</key>
<string>6A317</string>
<key>DTPlatformVersion</key>
<string>GM</string>
<key>DTSDKBuild</key>
<string>13F26</string>
<key>DTSDKName</key>
<string>macosx10.9</string>
<key>DTXcode</key>
<string>0600</string>
<key>DTXcodeBuild</key>
<string>6A317</string>
</dict>
</plist>
iLaXmax2
\ No newline at end of file
@global $p1, $p2, $global, $y, $q1, $q2
@proc_def ::P($id) {
@local $x
$x := 0
whenever ($x == $x)
{
print "at " $NOW "process " $id ": variable $x set to " $x
$global := $x
}
}
$p1 := ::P("toto")
$p2 := ::P("tutu")
$y := 0
1
$p1.$x := 33
@assert 33 == $p1.$x
@assert 33 == $global
1
$p2.$x := 66
@assert 66 == $p2.$x
@assert 66 == $global
@assert 33 == $p1.$x
1
$p1.$x := $p2.$x - 22
$p1.$x := $p1.$x
@assert 44 == $p1.$x
@assert 44 == $global
@assert 44 == $p1.$x
@assert 66 == $p2.$x
1
$p1.$y := 77
@assert 77 == $y
1
$y := 11
@assert 11 == $p1.$y
@assert 11 == $p2.$y
Group G1 {
@local $y
$y := 22
$q1 := ::P("titi")
whenever ($y == $y)
{
print "G1 " $NOW " variable $y set to " $y