/* * Test SOLID comment * */ ;==================================================================================================== ;============ NACHLEBEN - Sasha J. Blondeau ========================================================= ;================================== 2014 ============================================================ antescofo::suivi 0 @track_def track::CS_solo_lignes {"CS_solo_lignes"} @track_def track::CS_tutti_lignes {CS_tutti_lignes} @track_def track::SOLO {Solo, SOLO, solo} @track_def track::TUTTI {Tutti,tutti,TUTTI} @track_def track::SPAT { "SPAT.*", spat} @track_def track::OTHER { "lvl_ech.*", "CS.*points", "CS_tutti.*", "PlayEch.*", "solo_Play.*", "num_ech.*" } antescofo::mute track::CS_solo_lignes antescofo::mute track::CS_tutti_lignes antescofo::mute track::SOLO antescofo::mute track::SPAT antescofo::mute track::OTHER @track_def track::ALL { ".*" } antescofo::mute track::ALL BPM 60 // @INSERT "JBLO_macroDef.asco.txt" ; Fichier de définition des macros ========================================================== ; ---- Sasha Blondeau ---- ; ---- 2014 -------------- @global $diapason $diapason := 442 ; Courbes de spatialisation ; Modules de synthèse additive CSound ; synth. granulaire ; conversion beat => secondes @fun_def b2sec($val) {$val*(60/$RT_TEMPO)} ; conversion midi => herz @fun_def midi2hz($x) {$diapason * @exp(($x-69.0) * @log(2.0)/12)} ; -------------------------------------------------- ; --- MACROS DE SPATIALISATION --------------------- ;-------------------------------- voir shémas ------ ; --------> SPAT COURBE1 % RT_TEMPO ; la vitesse détermine le temps de la courbe complète ; une sorte de papillon favorisant avant-arrière (un coup L un coup R @proc_def ::SPAT_lissaj1($SPAT,$distanceL1,$vitesse1,$offset) { loop LISSAJOU1 $vitesse1 { curve @grain := 0.1s ; @Action := @command($SPAT) xy (@cos(($liss1x+$offset)*2.)*$distanceL1) ((@sin($liss1x*5.)*$distanceL1)) { $liss1x { { 0. } $vitesse1 { 6.283 } } } } } ; la version plus circulaire avec passage à côté du milieu @proc_def ::SPAT_lissaj2($SPAT,$distanceL2,$vitesse2,$offset) { loop LISSAJOU2 $vitesse2 { curve @grain := 0.1s, @Action := { ; @command($SPAT) xy (@cos(($liss2x+$offset)*3.)*$distanceL2)((@sin($liss2x*5.)*$distanceL2)) } { $liss2x { { 0. } $vitesse2 { 6.283 } } } } } @proc_def ::SPAT_lissaj2inv($SPAT,$distanceL2,$vitesse2,$offset) { loop LISSAJOU2 $vitesse2 { curve @grain := 0.1s ; @Action := @command($SPAT) xy (@cos(($liss2x+$offset)*3.)*$distanceL2) ((@sin($liss2x*5.)*$distanceL2)) { $liss2x { { 6.283 } $vitesse2 { 0. } } } } } ; celui-là fait une diagonale en passant au milieu, donc à utiliser avec aperture = 180 @proc_def ::SPAT_lissaj3($SPAT,$distanceL3,$vitesse3,$offset) { loop LISSAJOU3 $vitesse3 { curve @grain := 0.1s ; @Action := @command($SPAT) xy (@cos(($liss3x+$offset)*3.)*$distanceL3) ((@sin($liss3x*4.)*$distanceL3)) { $liss3x { { 0. } $vitesse3 { 6.283 } } } } } @proc_def ::SPAT_lissaj3inv($SPAT,$distanceL3,$vitesse3,$offset) { loop LISSAJOU3 $vitesse3 { curve @grain := 0.1s ; @Action := @command($SPAT) xy (@cos(($liss3x+$offset)*3.)*$distanceL3) ((@sin($liss3x*4.)*$distanceL3)) { $liss3x { { 6.283 } $vitesse3 { 0. } } } } } ; Renforcement des diagonales, sans passage au milieu @proc_def ::SPAT_lissaj4($SPAT,$distanceL4,$vitesse4,$offset) { loop LISSAJOU4 $vitesse4 { curve @grain := 0.1s ; @Action := @command($SPAT) xy (@cos(($liss4x+$offset)*4.)*$distanceL4) ((@sin($liss4x*5.)*$distanceL4)) { $liss4x { { 0. } $vitesse4 { 6.283 } } } } } ; parcours couvrant @proc_def ::SPAT_lissaj5($SPAT,$distanceL5,$vitesse5,$offset) { loop LISSAJOU5 $vitesse5 { curve @grain := 0.1s ; @Action := @command($SPAT) xy (@cos(($liss5x+$offset)*7.)*$distanceL5) ((@sin($liss5x*5.)*$distanceL5)) { $liss5x { { 0. } $vitesse5 { 6.283 } } } } } ; panoramique du devant vers arrière @proc_def ::SPAT_lissaj6($SPAT,$distanceL6,$vitesse6,$offset) { loop LISSAJOU6 $vitesse6 { curve @grain := 0.1s ;@Action := @command($SPAT) xy (@cos(($liss6x+$offset)*7.)*$distanceL6) ((@sin($liss6x*1.)*$distanceL6)) { $liss6x { { 0. } $vitesse6 { 6.283 } } } } } ; ------------ MODULES DE SYNTHESE ----------------- ; Electronique tutti @proc_def ::CS_tutti_points($instr, $dur, $amp, $lvl_rev, $noteMidi) { CS_tutti_points e $instr 0 (@b2sec($dur)) $amp $lvl_rev (@midi2hz($noteMidi)) } ; nota bene : la sortie 7 va vers l'effet e1 @proc_def ::CS_tutti_lignes($numGen,$dur,$kamp,$icnt,$enviter,$noteMidi,$iter,$del,$mfo,$numSortie) { CS_tutti_lignes c ($numGen+".AddTurnoff") 0 CS_tutti_lignes c ($numGen+".freq") (@midi2hz($noteMidi)) CS_tutti_lignes c ($numGen+".tempiter") $iter CS_tutti_lignes c ($numGen+".multidel") $del CS_tutti_lignes c ($numGen+".mfo") $mfo CS_tutti_lignes c ($numGen+".amp") $kamp CS_tutti_lignes e i2 0 (@b2sec($dur)) ("\"" + $numGen + "\"") $icnt $numSortie $enviter } ; ---- synthèse "raide" sans delays, à privilégier pour les graves "toniques" @proc_def ::CS_tutti_lignesD($dur,$kamp,$icnt,$enviter,$noteMidi,$iter,$mfo,$numSortie) { CS_tutti_lignes c kAddTurnoff 0 CS_tutti_lignes c kfreq (@midi2hz($noteMidi)) CS_tutti_lignes c tempiter $iter CS_tutti_lignes c mfo $mfo CS_tutti_lignes c kamp $kamp CS_tutti_lignes e i3 0 (@b2sec($dur)) $icnt $numSortie $enviter } ; soustractive @proc_def ::CS_tutti_soust1($dur,$amp1,$noteMidi1,$numSortie1,$numSortie2 ) { CS_tutti_lignes c soust.freq (@midi2hz($noteMidi1)) CS_tutti_lignes c soust.amp1 $amp1 CS_tutti_lignes e i51 0 (@b2sec($dur)) $numSortie1 $numSortie2 } @proc_def ::CS_tutti_soust2($dur,$amp2,$noteMidi2,$numSortie1,$numSortie2 ) { CS_tutti_lignes c soust.amp2 $amp2 CS_tutti_lignes e i52 0 (@b2sec($dur)) (@midi2hz($noteMidi2)) $numSortie1 $numSortie2 } @proc_def ::CS_tutti_soust3($dur,$amp3,$noteMidi3,$numSortie1,$numSortie2 ) { CS_tutti_lignes c soust.amp3 $amp3 CS_tutti_lignes e i53 0 (@b2sec($dur)) (@midi2hz($noteMidi3)) $numSortie1 $numSortie2 } ; synthèse granulaire -------------------------------------- @proc_def ::CS_tutti_grain($dur,$pitch1,$pitch2,$pitch3,$pitch4,$numSortie) { CS_tutti_lignes c grain.kamp 0.5 CS_tutti_lignes c grain.kgap 0.1 CS_tutti_lignes c grain.kgsize 0.04 CS_tutti_lignes e i35 0 (@b2sec($dur)) $pitch1 $pitch2 $pitch3 $pitch4 $numSortie } @proc_def ::CS_tutti_constel($dur,$amp,$noteMidi,$numharm,$fadeIn,$fadeOut,$RevColor,$Spatx,$Spaty) { CS_tutti_constel e i9 0 $dur $amp $fadeIn $fadeOut $RevColor $Spatx $Spaty (@midi2hz($noteMidi)) $numharm CS_tutti_constel c kmixFM 0. CS_tutti_constel c kdurRev 5. } @proc_def ::CS_tutti_constel1($dur,$amp,$noteMidi,$numharm,$RevColor,$Spatx,$Spaty) { CS_tutti_constel e i10 0 $dur $amp $RevColor $Spatx $Spaty (@midi2hz($noteMidi)) $numharm CS_tutti_constel c kmixFM 0. CS_tutti_constel c kdurRev 3. } @global $xComSpat, $yComSpat, $index , $trecurs // gestion de la synthese Comete $xComSpat := TAB [0.0, 0.0, 0.0, 0.0, 0.0 ] $yComSpat := TAB [0.0, 0.0, 0.0, 0.0, 0.0 ] $index := 0 @proc_def ::Comete($densite,$dur,$amp,$amb,$freqC,$xDep,$yDep,$xFin,$yFin) { @local $i $i := $index $index := ($index + 1) % 5 let $xComSpat[$i] := $xDep let $yComSpat[$i] := $yDep $trecurs := ($dur/$densite) curve Comete @grain := 0.08s, @action := { let $xComSpat[$i] := $x let $yComSpat[$i] := $y } { $x,$y { {$xDep,$yDep} $dur {$xFin,$yFin} } } ::CometeGen($densite,$dur,$amp,$amb,$freqC,$i) } @proc_def ::CometeGen($densite,$dur,$amp,$amb,$freqC,$i) { @local $harm1 @local $harm2 @local $freq1 @local $freq2 $freq1 := $freqC $freq2 := $freqC ::CS_tutti_constel1($dur,$amp,$freqC,9,0.08,$xComSpat[$i] ,$yComSpat[$i] ) ; quand le problème est réglé, mettre [i] après ComSpat loop launchGen1 0.02s { $freq1 := $freq1+(($amb/2.)/($densite/2.)) $harm1 := (1+(@rand_int(10))) ::CS_tutti_constel1($dur,$amp,$freq1,$harm1,0.08,$xComSpat[$i] ,$yComSpat[$i] ) $freq2 := $freq2-(($amb/2.)/($densite/2.)) $harm2 := (1+(@rand_int(10))) 0.01s ::CS_tutti_constel1($dur,$amp,$freq2,$harm2,0.08,$xComSpat[$i] ,$yComSpat[$i] ) } during [(@round($densite/2))#] if ($densite > 1) ; RECURSION { $trecurs ::CometeGen(($densite-1),($dur+0.2),($amp-0.01),($amb-0.1),$freqC,$i) } else { abort ::CometeGen } } ; electronique SOLO ---------------------------------------- ; pour les itérations ($enviter) utiliser les tables 1002 (plat) ou 1003 et 1004 @proc_def CS_solo_points($instr, $dur, $amp, $lvl_rev, $noteMidi) { CS_solo_points e $instr 0 (@b2sec($dur)) $amp $lvl_rev (@midi2hz($noteMidi)) } ; ici, l'utilisation des proc est justifiée uniquement pour ne pas surcharger l'affichage dans AscoGraph @proc_def ::CS_solo_lignes($numGen,$dur,$kamp,$icnt,$enviter,$noteMidi,$iter,$del,$mfo) { CS_solo_lignes c ($numGen+".AddTurnoff") 0 CS_solo_lignes c ($numGen+".freq") (@midi2hz($noteMidi)) CS_solo_lignes c ($numGen+".tempiter") $iter CS_solo_lignes c ($numGen+".multidel") $del CS_solo_lignes c ($numGen+".mfo") $mfo CS_solo_lignes c ($numGen+".amp") $kamp CS_solo_lignes e i2 0 (@b2sec($dur)) ("\"" + $numGen + "\"") $icnt $enviter } ; ---- synthèse "raide" sans delays, à privilégier pour les graves "toniques" @proc_def ::CS_solo_lignesD($dur,$kamp,$icnt,$enviter,$noteMidi,$iter,$mfo) { CS_solo_lignes c kAddTurnoff 0 CS_solo_lignes c kfreq (@midi2hz($noteMidi)) CS_solo_lignes c tempiter $iter CS_solo_lignes c mfo $mfo CS_solo_lignes c kamp $kamp CS_solo_lignes e i3 0 (@b2sec($dur)) $icnt $enviter } ; synthèse granulaire @proc_def CS_solo_grain($dur,$pitch1,$pitch2,$pitch3,$pitch4) { CS_solo_lignes c grain.kamp 0. CS_solo_lignes c grain.kgap 0.1 CS_solo_lignes c grain.kgsize 0.04 CS_solo_lignes e i35 0 (@b2sec($dur)) $pitch1 $pitch2 $pitch3 $pitch4 } @proc_def CS_solo_grain2($dur,$pitch1,$pitch2,$pitch3,$pitch4) { CS_solo_lignes c grain.kamp 0. CS_solo_lignes c grain.kgap 0.1 CS_solo_lignes c grain.kgsize 0.04 CS_solo_lignes e i36 0 (@b2sec($dur)) $pitch1 $pitch2 $pitch3 $pitch4 } ; soustractive @proc_def ::CS_solo_soust($dur,$amp,$noteMidi) { CS_solo_lignes c soust.freq (@midi2hz($noteMidi)) CS_solo_lignes c soust.amp $amp CS_solo_lignes e i51 0 (@b2sec($dur)) } // ==================================================================================== $ampVox := 0. ; variable externe $mfcc1 := 0. ; détection des plosives $freqVox := 69 ; détection de hauteur $freqMatchSop := 71 $freqMatchBar := 58 @pattern_def pattern::toucheSop { EVENT $freqVox where $freqVox == $freqMatchSop Before [0.2s] EVENT $freqVox where $freqVox != $freqMatchSop } @pattern_def pattern::dureSop { @local $xxx STATE $freqVox during 0.7s start $xxx where $freqVox == $freqMatchSop } @pattern_def pattern::stopDureSop { @local $xxx STATE $freqVox during 0.7s start $xxx where $freqVox == $freqMatchSop STATE $freqVox where $freqVox == $freqMatchSop } @pattern_def pattern::toucheBar { EVENT $freqVox where $freqVoxBar == $freqMatchBar Before [0.2s] EVENT $freqVox where $freqVoxBar != $freqMatchBar } @pattern_def pattern::dureBar { @local $xxx STATE $freqVox during 0.7s start $xxx where $freqVoxBar == $freqMatchBar } @pattern_def pattern::stopDureBar { @local $xxx STATE $freqVox during 0.7s start $xxx where $freqVox == $freqMatchBar STATE $freqVox where $freqVoxBar == $freqMatchBar } @proc_def ::dureeSoprano () { whenever pattern::dureSop { abort ::dureeBaryton ; si une durée de Sop est détectée on bloque le pattern de durée du Bar. print "duuuuuuuuuure" } whenever pattern::stopDureSop { ::dureeBaryton() print "stopDure" } } @proc_def ::dureeBaryton () { whenever pattern::dureBar { abort ::dureeSoprano print "duuuuuuuuuure" } whenever pattern::stopDureBar { ::dureeSoprano() print "stopDure" } } @proc_def ::polesVox2electro () { whenever pattern::toucheSop {print "SOPRANO---touchetouchetouche" } whenever pattern::toucheBar {print "BARYTON-touchetouchetouche" } ::dureeSoprano() ::dureeBaryton() } SPAT source 10 reverb 2 ;-------------------------------------------------------------------------------------------------- ;-------------------------------------------------------------------------------------------------- ;-------------------------------------------------------------------------------------------------- ; TEXT - percu : "Au soir du premier jour de combat, on vit en plusieurs endroits de Paris, au même ; moment et sans concertation, les gens tirer sur les horloges." ; 8'' ;-------------------------------------------------------------------------------------------------- BPM 56 NOTE G1 0 ; Table NOTE B1 0 NOTE D2 0 NOTE C1 3/2 mes1 ;::CS_tutti_lignes("g1",30,0.4,5,0.6,71,7.01,10.2,3,1) ;::CS_tutti_lignes("g2",30,0.4,3,0.6,78,10.01,10.2,4,3) ;::CS_tutti_lignes("g3",30,0.4,2,0.6,84,13.01,10.2,5,5) ;::CS_tutti_lignesD(30,0.3,11,0.1,37,0.1,8,8) ;::CS_tutti_grain(20,1,2,3,4,2) ;::CS_tutti_constel(4,0.4,81,4,0.1,2.3,0.04,1.2,-1.2) ;print t----------------------------------------------t ;::Comete(15,0.8,0.1,7.5,93.,1.3,-1.3,-1,1.3) ; à tester avec pas plus de 3 simultanés... ;::Comete(8,0.8,0.2,7.5,58.,-1,-1.3,1,1.3) ;::CS_tutti_constel1(1,0.2,69,23,0.1,0,1) GROUP Solo { ::CS_solo_lignes("g1",25,0.,3,1002,81,0.31,10.2,5) curve ampg1 @Grain := 0.01s, @Action := CS_solo_lignes c g1.amp $ampg1 { $ampg1 { { 0. } ;@type "exp_out" 1/4 { 0.3 } @type "cubic_out" 3/8 { 0.1 } 7/2 { 0.1 } @type "cubic" 1 { 0.45 } @type "cubic" 1 { 0.12 } 3 { 0.15 } 4 { 0. } } } curve delg1 @Grain := 0.05s, @Action := CS_solo_lignes c g1.multidel $multidelg1 { $multidelg1 { { 0.2 } @type "exp" 9 { 18.1 } } } curve mfog1 @Grain := 0.05s, @Action := CS_solo_lignes c g1.mfo $mfog1 { $mfog1 { { 5. } 2 { 5. } 2 { 7. } 2 { 4. } 3 { 8. } } } } NOTE 0 3/2 NOTE C7 0 mes2;-----SOPRANO------ NOTE D6 1/2 NOTE C7 1/5 NOTE Eb7 2/5 NOTE G#6 1/2 CHORD (D1 A7) 1/8 mes2_2 ; ------ -> to PERCU NOTE C2 1/8 NOTE Db2 1/8 NOTE Eb2 1/8 NOTE A2 1/4 NOTE 0 3/2 NOTE F1 1/2 mes3 ; T.B. NOTE 0 1/2 NOTE F1 1/2 NOTE 0 2/3 NOTE F1 1/3 NOTE 0 1 NOTE B1 1/2 NOTE 0 1/2 NOTE D1 1/8 mes4 ; crotales NOTE C2 1/8 NOTE Db2 1/8 NOTE Ab1 1/8 NOTE A2 1/2 Curve tSolo @grain := 0.05s { $tSolo { { $RT_TEMPO } @type "exp" 1/2 { ($RT_TEMPO+30) } @type "cubic_out" 2/4 { ($RT_TEMPO-20) } } } GROUP Solo @tempo := $tSolo { ::CS_solo_points("i3",1/2,0.08,0.5,81) 1/8 ::CS_solo_points("i1",1/2,0.09,0.5,91) 1/8 ::CS_solo_points("i1",1/2,0.1,0.5,92) 1/8 ::CS_solo_points("i1",1/2,0.11,0.5,87) 1/6 ::CS_solo_points("i1",1/6,0.1,0.5,100) 1/6 ::CS_solo_points("i11",1/5,0.08,0.5,104) 1/6 ::CS_solo_points("i33",1/4,0.06,0.6,100) 1/6 ::CS_solo_points("i33",1/4,0.05,0.7,104) 1/6 ::CS_solo_points("i11",1/4,0.04,0.8,100) 1/6 ::CS_solo_points("i11",1/4,0.03,0.8,104) } Curve tTutti @grain := 0.05s { $tTutti { { $RT_TEMPO } 1 { ($RT_TEMPO+25) } @type "quad_out" 1 { ($RT_TEMPO-15) } 1 { ($RT_TEMPO) } } } GROUP Tutti @tempo := $tTutti { ;--------- ech G1 ------------------ num_ech 5 PlayEch start curve echG1 @grain := 0.05s, @action := lvl_ech $ampEchS 10 {$ampEchS { { 0. } @type "quad_out" 1 { 0.7 } 10 { 0. } } } curve spatTEchT @grain := 0.05s, @action := SPAT10 xy $xSp10 $ySp10 { $xSp10, $ySp10 { { 0 .8 } 5 { 0. -1.7 } } } 1/2 Group tutti1 { ::CS_tutti_constel(8,0.2,101,5,0.1,0.8,0.08,1.2, -0.8) 2/3 ::CS_tutti_constel(7,0.17,89,4,0.2,0.8,0.08,-0.5, -1.4) 2/3 ::CS_tutti_constel(7,0.19,99,11,0.4,0.8,0.08,-1.1, 1.2) 2/3 ::CS_tutti_constel(6,0.18,95,3,0.1,0.8,0.08,0.8, 0.7 ) 2/5 ::CS_tutti_constel(5,0.15,102,8,0.1,0.8,0.08,-1,-0.8) 2/5 ::CS_tutti_constel(4,0.15,91,6,0.1,0.8,0.08,0.75,-1.4) 2/5 ::CS_tutti_constel(3,0.17,97,3,0.2,0.4,0.15,-1.2,-1.2) 2/5 ::CS_tutti_lignes("g7",8,0.,2,1005,105,0.1,1.2,5,1) curve spatTlin @grain := 0.05s, @action := SPAT1 xy $xSp1 $ySp1 { $xSp1, $ySp1 { { 0 0.8 } @type "quad" 3 { -0.9 -0.7 } } } curve ampg7t @Grain := 0.04s, @Action := CS_tutti_lignes c g7.amp $ampg7t { $ampg7t { { 0. } @type "quad_out" 1/2 { 0.7 } @type "quad" 5 { 0. } } } curve iterg7T @Grain := 0.05s, @Action := CS_tutti_lignes c g7.tempiter $itertg7 { $itertg7 { { 0. } @type "quad_out" 4 { 16. } } } ;--------- ech G2 ------------------ num_ech2 3 PlayEch2 start curve echG2 @grain := 0.05s, @action := lvl_ech2 $ampEchS 10 {$ampEchS { { 0. } @type "quad" 2 { 0.4 } @type "quad" 6 { 0.43 } 4 { 0. } } } } 1 Group tutti2 { curve spatTut2 @grain := 0.05s, @action := SPAT7 xy $xSp7 $ySp7 { $xSp7, $ySp7 { { -0.2 -1 } @type "quad" 1/2 { 0.3 -0.7 } 1/2 { 1.5 0.7 } } } ::CS_tutti_points("i11",1/6,0.03,0.8,100) 1/6 ::CS_tutti_points("i11",1/5,0.04,0.8,104) 1/6 ::CS_tutti_points("i11",1/4,0.05,0.8,100) 1/6 ::CS_tutti_points("i11",1/4,0.06,0.8,104) 1/6 ::CS_tutti_points("i11",1/4,0.07,0.8,100) 1/12 ::CS_tutti_points("i11",5/4,0.08,0.8,104) } } 2 CS_solo_lignes c g1.AddTurnoff 1 NOTE 0 5/2 NOTE G1 0 ; Table NOTE B1 0 NOTE D2 0 NOTE C1 1/2 NOTE 0 1/2 NOTE C1 1/2 NOTE G2 1 mes5 ; crotale GROUP Solo { ::CS_solo_lignes("g1",25,0.,9,1003,93,0.31,10.2,4) ::CS_solo_lignes("g2",25,0.,3,1003,87,0.31,7.2,7) ::CS_solo_lignes("g3",25,0.,7,1003,85,0.31,7.2,5) ::CS_solo_lignes("g4",25,0.,6,1003,84,0.31,4,6) ::CS_solo_lignes("g5",25,0.,11,1003,82,0.31,15.2,5) ::CS_solo_lignes("g6",25,0.,2,1003,74,0.31,5.2,5) curve ampsolo @Grain := 0.03s, @Action := { CS_solo_lignes c g1.amp $ampg1S CS_solo_lignes c g2.amp $ampg2S CS_solo_lignes c g3.amp $ampg3S CS_solo_lignes c g4.amp $ampg4S CS_solo_lignes c g5.amp $ampg5S CS_solo_lignes c g6.amp $ampg6S } { $ampg1S,$ampg2S,$ampg3S,$ampg4S,$ampg5S,$ampg6S { { 0.,0.,0.,0.,0.,0.} @type "exp" 3/2 { 0.6,0.31,0.29,0.31,0.32,0.31 } @type "exp_out" 3/2 { 0.2,0.2,0.2,0.2,0.2,0.2 } @type "quad_out" 2 { 0.,0.2,0.2,0.2,0.2,0.2 } @type "quad_out" 3 { 0.,0.18,0.18,0.18,0.,0.} @type "quad_out" 14 { 0.,0.,0.,0.,0.,0.} } } curve delg1 @Grain := 0.05s, @Action := {CS_solo_lignes c g1.tempiter $iterSolo CS_solo_lignes c g2.tempiter $iterSolo CS_solo_lignes c g3.tempiter $iterSolo CS_solo_lignes c g4.tempiter $iterSolo CS_solo_lignes c g5.tempiter $iterSolo CS_solo_lignes c g6.tempiter $iterSolo } { $iterSolo { { 15. } @type "cubic" 3/2 { 0. } @type "quad" 7/2 { 13. } 7 { 7. } } } 3 solo_num_ech 6 ;<----- radio solo_PlayEch start curve echRadio @grain := 0.05s, @action := solo_lvl_ech $ampEchS 10 {$ampEchS { { 0. } @type "quad_out" 1/2 { 0.2 } @type "quad" 1/2 { 0.05 } @type "quad_out" 1/2 { 0.15 } @type "quad" 1/2 { 0.05 } @type "quad_out" 1/2 { 0.15 } @type "quad" 1 { 0.03 } @type "quad_out" 2 { 0.2 } @type "quad_out" 7 { 0. } } } } NOTE 0 1/2 NOTE G1 0 NOTE B1 0 NOTE D2 0 NOTE C1 1/2 NOTE 0 1/4 NOTE D2 1/2 ; bol NOTE D2 1/4 NOTE 0 2/3 NOTE D2 1/3 NOTE 0 1/8 NOTE D2 7/8 mes6 GROUP tutti { ::CS_tutti_lignes("g1",21,0.,4,1003,104,0.31,10.2,4,1) ::CS_tutti_lignes("g2",21,0.,4,1003,92,0.31,7.2,6,1) ::CS_tutti_lignes("g3",21,0.,4,1003,79,0.31,7.2,5,2) ::CS_tutti_lignes("g4",21,0.,4,1003,78,0.31,4,6,3) ::CS_tutti_lignes("g5",21,0.,4,1003,67,0.31,15.2,5,4) ::SPAT_lissaj2("SPAT1",1,12,0) ::SPAT_lissaj2inv("SPAT2",1,12,0) ::SPAT_lissaj2("SPAT3",1,12,3.14) ::SPAT_lissaj2inv("SPAT4",1,12,3.14) Curve amptut @Grain := 0.04s, @Action := {CS_tutti_lignes c g1.amp $ampg1T CS_tutti_lignes c g2.amp $ampg1T CS_tutti_lignes c g3.amp $ampg1T } { $ampg1T { { 0.0 } @type "exp" 1.150797 { 0.19064 } @type "quad_out" 1.08197 { 0.158241 } @type "quad" 1.72804 { 0.373766 } @type "cubic" 1.85296 { 0.181076 } @type "cubic" 4 { 0.115316 } @type "cubic_out" 3 { 0. } } } Curve amptut2 @Grain := 0.04s, @Action := {CS_tutti_lignes c g4.amp $ampg2T CS_tutti_lignes c g5.amp $ampg2T } { $ampg2T { { 0.0 } @type "cubic" 1.06643 { 0.211111 } @type "quad" 0.770332 { 0.147893 } @type "quad" 0.707869 { 0.332446 } @type "linear" 1.06181 { 0.194444 } @type "linear" 0.260241 { 0.168114 } @type "linear" 1.85296 { 0.281944 } @type "quad" 1.87378 { 0.106944 } @type "quad" 2.26935 { 0.303009 } @type "linear" 3.13723 { 0.0 } } } curve iterT2 @Grain := 0.05s, @Action := {CS_tutti_lignes c g1.tempiter $iterT CS_tutti_lignes c g2.tempiter $iterT CS_tutti_lignes c g5.tempiter $iterT} { $iterT { { 0. } 4 { 13. } 8 { 0. } } } curve iterT2 @Grain := 0.05s, @Action := {CS_tutti_lignes c g3.tempiter $iterT2 CS_tutti_lignes c g4.tempiter $iterT2} { $iterT2 { { 0. } 3 { 6. } 1 { 3.5 } 2 { 9. } 6 { 0. } } } } NOTE 0 7/4 NOTE C1 1/4 ; tamtam NOTE 0 1 NOTE A1 1/4 mes7 ; t.b. NOTE A1 1/2 NOTE E2 1/4 NOTE 0 1/2 NOTE E2 1/2 NOTE 0 1/3 NOTE E2 1/6 NOTE C2 1/6 NOTE 0 3/3 NOTE F1 1/3 ;----------------------------------------- PAGE 2 ----------------------------------------- NOTE G6 1/2 mes8_1 ; SOPRANO solo_PlayEch stop PlayEch stop SPAT room 2 active 0 SPAT10 xy 0.7 -0.7 num_ech4 24 ; DANTE 1 PlayEch4 start curve ech4 @grain := 0.05s, @action := lvl_ech4 $ampEch4 10 {$ampEch4 { { 0. } @type "quad" 1/4 { 1.1 } @type "quad" 12 { 1.1 } 1 { 0. } } } GROUP SOLO { ::CS_solo_lignes("g7",8,0.,2,1002,87,0.31,10.2,4) curve freqg7s @Grain := 0.05s, @Action := CS_solo_lignes c g7.freq (@midi2hz($freqg7s)) { $freqg7s { { 87. } 3/3 { 87. } @type "quad" 2/3 { 92 } 1/6 { 92 } @type "exp" 1/6 { 98 } @type "exp" 3/4 { 91 } @type "exp" 1/4 { 97 } @type "exp" 1/4 { 101 } } } curve ampg7s @Grain := 0.04s, @Action := CS_solo_lignes c g7.amp $ampg7s { $ampg7s { { 0. } @type "quad_out" 5/3 { 0.3 } 1/3 { 0.085 } @type "cubic" 3/4 { 0.1 } 1/4 { 0.2 } 1/4 { 0.1 } @type "quart" 2 { 0. } } } curve delg7s @Grain := 0.05s, @Action := CS_solo_lignes c g7.multidel $multidelg7s { $multidelg7s { { 0.2 } @type "exp" 3 { 18.1 } 2 { 7.1 } } } 2 ::CS_solo_points("i11",3/4,0.05,0.5,98) } NOTE G6 1/2 NOTE G6 1/3 mes8_2 CHORD (D1 G6) 1/3 NOTE C7 1/3 NOTE Ab7 3/4 mes8_3 NOTE B6 1/4 NOTE F6 1/4 mes8_4 NOTE Eb7 7/4 NOTE F#6 1/4 mes9_1 abort LISSAJOU2 GROUP Solo { ::CS_solo_lignes("g8",20,0.,9,1002,87,0.31,10.2,6) SPAT6 xy 0. -0.6 curve freqg8s @Grain := 0.05s, @Action := CS_solo_lignes c g8.freq (@midi2hz($freqg8s)) { $freqg8s { { 91 } @type "exp" 1/2 { 85 } @type "exp" 1/4 { 86 } 19/8{ 86 } @type "cubic" 3/8 { 92 } @type "exp" 1 { 83 } @type "exp" 3/2 { 85 } @type "exp" 1 { 91 } @type "exp" 1/2 { 96 } @type "exp" 3 { 95 } } } curve ampg8s @Grain := 0.04s, @Action := CS_solo_lignes c g8.amp $ampg8s { $ampg8s { { 0. } 1/2 { 0.05 } @type "quad" 1/4 { 0.1 } 21/8{ 0.06 } @type "exp" 1/8 { 0.1 } @type "exp" 1 { 0.07 } @type "exp" 3/2 { 0.16 } @type "exp" 3/2 { 0.085 } 1 { 0.08 } 3 { 0.1 } 3 { 0. } } } curve delg8s @Grain := 0.05s, @Action := CS_solo_lignes c g8.multidel $multidelg8s { $multidelg8s { { 10.2 } 4 { 28.1 } 5 { 33. } } } } 3/4 GROUP Tutti { curve tempvH @grain := 0.07s { $tutti_vH { { $RT_TEMPO } 11/4 { $RT_TEMPO } 1 { ($RT_TEMPO+12) } 1 { ($RT_TEMPO-5) } 1 { ($RT_TEMPO+16) } 1 { ($RT_TEMPO) } } } GROUP TuttivHaute @tempo := $tutti_vH { ::CS_tutti_lignes("g6",13,0.,2,1002,74,0.1,1.2,5,5) curve ampg6t @Grain := 0.02s, @Action := CS_tutti_lignes c g6.amp $ampg6t { $ampg6t { { 0. } @type "quad" 1/2 { 0.3 } @type "quad_out" 3 { 0. } } } 7/4 ::CS_tutti_constel(1,0.3,103,7,0.1,0.8,0.1,-0.4,1) 1/6 ::CS_tutti_constel(2,0.2,73,2,0.1,0.8,0.1,0.4,-1) 1/6 ::CS_tutti_constel(1,0.2,92,7,0.1,0.8,0.1,0.8,0.3) 1/6 ::CS_tutti_constel(1,0.2,96,7,0.1,0.8,0.1,0.8,-0.3) 1/6 ::CS_tutti_constel(1,0.2,79,3,0.1,0.8,0.1,0.4,-1) 1/6 ::CS_tutti_constel(1,0.3,109,7,0.1,0.8,0.1,-0.4,-0.8) 1/6 ::CS_tutti_constel(1,0.2,96,12,0.1,0.8,0.1,-0.8,-0.9) 1/6 ::CS_tutti_constel(1,0.2,83,9,0.1,0.8,0.1,-0.4,-0.3) 1/6 ::CS_tutti_constel(1,0.15,92,5,0.1,0.8,0.1,0.4,0.3) 1/6 ::CS_tutti_constel(1,0.25,108,2,0.1,0.8,0.1,0.,1) 3/12 ::CS_tutti_constel(1,0.3,95,4,0.1,0.3,0.1,0.,-1) 1/12 ::CS_tutti_constel(1,0.25,108,8,0.1,0.8,0.1,-0.4,0.81) 1/3 ::CS_tutti_constel(1,0.3,83,4,0.8,1.1,0.1,0.9,-0.9) 1/3 ::CS_tutti_constel(1,0.3,91,4,0.8,1.1,0.1,-0.4,-0.9) 1/8 ::CS_tutti_constel(1,0.5,107,10,0.8,1.1,0.1,0.9,0.7) 5/8 ::CS_tutti_constel(1/2,0.2,82,4,0.1,0.3,0.1,-0.4,0.9) 1/8 ::CS_tutti_constel(1/2,0.2,82,4,0.1,0.3,0.1,0.4,-0.9) 1/8 ::CS_tutti_constel(1/2,0.3,97,7,0.1,0.3,0.1,-0.4,-0.9) 1/6 ::CS_tutti_constel(1/2,0.3,97,7,0.1,0.3,0.1,0.7,0.9) 3/6 ::CS_tutti_constel(1/2,0.2,84,4,0.1,0.3,0.1,-0.2,0.9) 2/3 ::CS_tutti_constel(1/2,0.15,95,4,0.05,0.3,0.1,-0.9,0.2) 1/3 ::CS_tutti_constel(1/2,0.3,95,4,0.05,0.3,0.1,-0.4,-0.9) 1/8 ::CS_tutti_constel(1/2,0.25,95,4,0.05,0.3,0.1,-0.9,0.2) 5/8 ::CS_tutti_constel(1/2,0.2,95,4,0.05,0.3,0.1,0.9,-0.8) 1/8 ::CS_tutti_constel(1/2,0.3,95,4,0.05,0.3,0.1,-0.7,-0.9) 1/2 ::CS_tutti_constel(1/2,0.2,95,4,0.05,0.3,0.1,0.9,0.3) 1/6 ::CS_tutti_constel(1/2,0.3,95,4,0.05,0.3,0.1,0.,0.8) 1/6 ::CS_tutti_constel(1/2,0.2,95,4,0.05,0.3,0.1,-0.9,0.4) } ::CS_tutti_lignes("g7",16,0.,2,1002,37,0.1,1.2,5,5) curve spatTlin @grain := 0.07s, @action := SPAT5 xy $xSp5 $ySp5 { $xSp5, $ySp5 { { 0 0.8 } @type "quad" 2 { 0. -0.7 } } } curve ampg7t @Grain := 0.04s, @Action := CS_tutti_lignes c g7.amp $ampg7t { $ampg7t { { 0. } @type "quad" 2 { 0.7 } @type "quad" 1/2 { 0.7 } @type "quad_out" 10 { 0. } } } curve mfolT @grain := 0.05s, @action := CS_tutti_lignes c g7.mfo $mfog7t { $mfog7t { { 5. } 2 { 8.8 } 4 { 6. } } } 6 num_ech 5 ; tremb PlayEch2 start SPAT10 xy 0 -0.3 curve echG2 @grain := 0.05s, @action := lvl_ech2 $ampEch2 10 { $ampEch2 { { 0. } @type "quad_out" 1/4 { 0.8 } @type "quad_out" 3 { 0.9 } 4 { 0. } } } } NOTE F#6 1/4 NOTE D7 1/8 NOTE F7 15/8 NOTE Db7 1/2 mes10 NOTE Db7 1/2 NOTE C7 1 NOTE C6 3/2 NOTE Bb6 1 NOTE A6 1/2 NOTE Eb6 1/4 mes11 1/4 GROUP Solo { ::CS_solo_lignes("g9",14,0.,2,1005,105,0.1,1.2,5) curve freqg9s @Grain := 0.05s, @Action := CS_solo_lignes c g9.freq (@midi2hz($freqg9s)) { $freqg9s { { 71 } 9/2 { 84 } } } curve ampg9s @Grain := 0.04s, @Action := CS_solo_lignes c g9.amp $ampg9s { $ampg9s { { 0. } @type "quad_out" 4 { 0.2 } @type "quad" 2 { 0. } } } curve iterg9s @Grain := 0.06s, @Action := CS_solo_lignes c g9.tempiter $itertg9s { $itertg9s { { 0.1 } @type "quad_out" 1 { 0.3 } 1 { 15. } @type "quad" 4 { 0.1 } } } curve mfo9s @Grain := 0.06s, @Action := CS_solo_lignes c g9.mfo $mfog9s { $mfog9s { { 4. } 9/2 { 7. } } } } 4 GROUP Tutti { ::CS_tutti_lignes("g3",13,0.,4,1004,108,0.1,1.2,5,3) curve spatT3 @grain := 0.05s, @action := SPAT3 xy $xSp3 $ySp3 { $xSp3, $ySp3 { { -0.8 0.8 } @type "quad" 5 { 0.8 0.4 } } } curve ampg3t @Grain := 0.04s, @Action := CS_tutti_lignes c g3.amp $ampg3t { $ampg3t { { 0. } @type "quad" 1 { 0.2 } @type "quad" 1 { 0.5 } @type "quad_out" 4 { 0. } } } curve iterg3t @Grain := 0.05s, @Action := CS_tutti_lignes c g3.tempiter $iterg3t { $iterg3t { { 0.1 } 2 { 11 } 2 { 3 } } } ::CS_tutti_lignes("g4",25,0.,6,1002,43,0.1,1.2,5,4) curve spatT4 @grain := 0.05s, @action := SPAT4 xy $xSp4 $ySp4 { $xSp4, $ySp4 { { 0 -0.8 } 4 { 0. -0.7 } 2 { 0. 0.8 } } } curve ampg4t @Grain := 0.04s, @Action := CS_tutti_lignes c g4.amp $ampg4t { $ampg4t { { 0. } 3 { 0.6 } 3/2 { 0.15 } 1 { 0.7 } 11 { 0. } } } curve mfog4T @Grain := 0.05s, @Action := CS_tutti_lignes c g4.mfo $mfog4T { $mfog4T { { 5. } 4/3 { 1. } 4 { 8.5 } 1 { 6.5 } 2 { 8. } 2 { 5. } } } SPAT10 xy -0.3 -0.6 num_ech3 29 PlayEch3 start curve echG3 @grain := 0.05s, @action := lvl_ech3 $ampEch3 10 {$ampEch3 { { 0. } @type "quad" 1/4 { 0.9 } @type "quad" 12 { 0.95 } 1 { 0. } } } } NOTE B6 3/4 NOTE 0 3/4 ; PERCU - bol NOTE F2 1/4 NOTE 0 1/2 NOTE D2 1/2 NOTE 0 7/4 NOTE D2 1/4 NOTE 0 3 NOTE D1 1/8 mes12 ; crotales NOTE C2 1/8 NOTE Db2 1/8 NOTE Eb2 1/8 NOTE A2 1/2 GROUP Solo { ::CS_solo_lignes("g1",14,0.,2,1002,92,0.1,1.2,5) curve freqg1s @Grain := 0.02s, @Action := CS_solo_lignes c g1.freq (@midi2hz($freqg1s)) { $freqg1s { { 92 } 3/4 { 92 } 1/4 { 103 } } } curve ampg1s @Grain := 0.02s, @Action := CS_solo_lignes c g1.amp $ampg1s { $ampg1s { { 0. } @type "quad" 1/8 { 0.4 } @type "cubic_out" 3/4 { 0.2 } @type "quad" 1/8 { 0.5 } 11/8{ 0.1 } @type "quad" 1/4 { 0.5 } @type "cubic_out" 3 { 0. } } } 1/2 solo_num_ech 13 ; <----- porte solo_PlayEch start solo_lvl_ech 0.5 50 solo_num_ech2 18 ; <----- cuve solo_PlayEch2 start solo_lvl_ech2 0.5 50 2 solo_num_ech3 16 ; <----- cuve solo_PlayEch3 start solo_lvl_ech3 0.5 50 1/2 ::CS_solo_points("i1",3,0.06,0.5,72) ::CS_solo_points("i3",3,0.08,0.5,97) 3/2 solo_num_ech 7 ; <----- radio solo_PlayEch start curve echRadio @grain := 0.05s, @action := solo_lvl_ech $ampEchS 10 {$ampEchS { { 0. } @type "quad_out" 1/2 { 0.4 } @type "quad" 1/2 { 0.01 } @type "quad_out" 1/2 { 0.5 } @type "quad" 1/2 { 0.01 } @type "quad_out" 1/2 { 0.2 } @type "quad_out" 2 { 0. } } } } NOTE 0 1/2 mes13 ; Table NOTE C1 1/2 BPM 84 ;========= CHANGEMENT DE TEMPO ========================================================= PlayEch stop NOTE 0 1/2 NOTE C1 1/2 NOTE 0 1/4 NOTE G1 1/4 NOTE 0 3/4 NOTE G1 1/4 NOTE B1 1/2 NOTE 0 1 mes14 NOTE C1 1 NOTE 0 1/4 NOTE G1 1/2 NOTE B1 1/4 NOTE 0 1/2 mes14_2 GROUP Solo { 1/2 ::CS_solo_lignes("g2",14,0.,7,1002,79,0.1,10.2,6) curve ampg2s @Grain := 0.02s, @Action := CS_solo_lignes c g2.amp $ampg2s { $ampg2s { { 0. } @type "quad" 1/4 { 0.6 } ;@type "cubic_out" 15/8{ 0. } } } 1 solo_num_ech2 18 ; <----- cuve solo_PlayEch2 start solo_lvl_ech2 0.4 50 1 ::CS_solo_lignes("g3",14,0.,2,1002,86,0.1,1.2,5) curve freqg3s @Grain := 0.01s, @Action := CS_solo_lignes c g3.freq (@midi2hz($freqg3s)) { $freqg3s { { 86 } @type "cubic" 1/2 { 105 } @type "quad" 1/4 { 109 } } } curve ampg3s @Grain := 0.02s, @Action := CS_solo_lignes c g3.amp $ampg3s { $ampg3s { { 0. } @type "quad" 1/8 { 0.3 } @type "cubic_out" 7/8 { 0.05 } @type "exp" 3/4 { 0.9 } @type "quad_out" 1 { 0. } } } } NOTE G1 0 NOTE B1 0 NOTE D2 1/2 NOTE D2 1 mes15 GROUP Tutti { SPAT room 2 active 1 num_ech 3 ; <------ bobine PlayEch start curve echT @grain := 0.05s, @action := lvl_ech $ampEchT 10 {$ampEchT { { 0. } @type "quad" 1 { 0.4 } 4 { 0.3 } 3 { 0. } } } } NOTE 0 1/2 NOTE C2 0 ; crotales NOTE D1 1/2 NOTE Eb2 1/4 NOTE G2 1/2 NOTE C1 1/4 ; table NOTE 0 1 ;----------------------------------------- PAGE 3 ----------------------------------------- NOTE C2 0 mes16 ; crotales $grain := 0.01 $grain02 := 2*$grain $grain05 := 5*$grain $grain07 := 7*$grain curve tgSolo @grain := 0.05s { $tgSolo { {($RT_TEMPO - 20 )} 1 {($RT_TEMPO + 40 )} 1/8 {$RT_TEMPO} } } GROUP Solo @tempo := $tgSolo { ::CS_solo_points("i11",3,0.04,0.5,94) 1/5 ::CS_solo_points("i1",3,0.05,0.5,91) 1/5 ::CS_solo_points("i1",3,0.07,0.5,97) 1/5 ::CS_solo_points("i1",3,0.08,0.5,84) 1/5 ::CS_solo_points("i1",3,0.09,0.5,90) 1/5 ::CS_solo_lignes("g4",14,0.,5,1005,97,0.1,1.2,5) curve ampg4s @Grain := $grain02 s, @Action := CS_solo_lignes c g4.amp $ampg4s { $ampg4s { { 0. } @type "quad" 1/8 { 0.4 } @type "cubic_out" 7/8 { 0.1 } @type "exp" 1 { 0.1 } @type "quad" 1 { 0.5 } @type "quad" 2 { 0.1 } @type "cubic" 1 { 0.3 } @type "cubic_out" 7/2 { 0. } } } curve freqg4s @Grain := $grain02 s, @Action := CS_solo_lignes c g4.freq (@midi2hz($freqg4s)) { $freqg4s { { 97. } 6 { 97. } @type "cubic_out" 1/4 { 98. } } } curve iterg4s @grain := $grain05 s, @Action := CS_solo_lignes c g4.tempiter $iterg4s { $iterg4s { { 0. } @type "quad" 3 { 15. } 2 { 15. } 1 { 2. } } } ::CS_solo_lignes("g5",14,0.,4,1005,79,0.1,1.2,5) curve ampg5s @Grain := $grain02 s, @Action := CS_solo_lignes c g5.amp $ampg5s { $ampg5s { { 0. } @type "quad" 1/8 { 0.3 } @type "cubic_out" 7/8 { 0.1 } @type "exp" 1 { 0.1 } @type "quad" 1 { 0.2 } @type "cubic_out" 3 { 0. } } } curve iterg5s @grain := $grain05 s, @Action := CS_solo_lignes c g5.tempiter $iterg5s { $iterg5s { { 0. } @type "quad" 3 { 15. } 2 { 15. } 1 { 2. } } } 2 solo_num_ech 15 ; <----- cuve solo_PlayEch start solo_lvl_ech 0.6 50 5 solo_num_ech2 15 ; <----- cuve solo_PlayEch2 start solo_lvl_ech2 0.7 50 } 2/3 GROUP tutti { GROUP tuttiaig { ::CS_tutti_lignes("g1",14,0.,9,1005,79,0.1,1.2,5,1) curve ampg1t @Grain := $grain05 s, @Action := CS_tutti_lignes c g1.amp $ampg1t { $ampg1t { { 0. } @type "quad" 1/6 { 0.5 } @type "cubic_out" 4/6 { 0.25 } 7/2 { 0.05 } @type "quad_in_out" 2 { 0.4 } @type "quad" 5 { 0. } } } curve freqg1t @Grain := $grain05 s, @Action := CS_tutti_lignes c g1.freq (@midi2hz($freqg1t)) { $freqg1t { { 79. } 4 { 79. } @type "exp" 1 { 80. } } } curve iterg1t @grain := $grain07 s, @Action := CS_tutti_lignes c g1.tempiter $iterg1t { $iterg1t { { 0. } @type "quad" 4/3 { 9. } 2 { 5. } 3/2 { 13. } 3/2 { 5. } 3 { 15. } } } curve SPAT1 @grain := $grain07 s, @action := SPAT1 xy $xSp1 $ySp1 { $xSp1, $ySp1 { { 0., 1.} 1 { -1, 0 } 2 { 0, -1 } 2 { 1., 0.3 } } } } 4/3 GROUP tuttigr { ::CS_tutti_lignes("g2",30,0.,9,1003,31,0.1,1.2,5,2) ::CS_tutti_lignes("g7",30,0.,9,1003,31,0.1,1.2,5,7) SPAT2 xy 0. -0.2 e1toSPAT 2 curve ampg2t @Grain := $grain05 s, @Action := { CS_tutti_lignes c g2.amp $ampg2t CS_tutti_lignes c g7.amp $ampg7t } { $ampg2t,$ampg7t { { 0. ,0. } @type "quad_out" 2 { 0.4, 0. } @type "cubic_out" 3 { 0.2 0. } @type "cubic_in_out" 1 { 0.5 0. } @type "quad" 2 { 0.25 0. } 2 { 0.25 0. } @type "quad_in_out" 1 { 0.5 0.4 } @type "quad" 2 { 0.2 0.3 } @type "quad_in_out" 1 { 0.4 0.3 } @type "quad_out" 2 { 0.3 0.3 } 5 { 0. 0. } } } curve mfog2t @Grain := $grain05 s, @Action := { CS_tutti_lignes c g2.mfo $mfog2t CS_tutti_lignes c g7.mfo $mfog2t } { $mfog2t { { 5 } 4 { 6.5 } 4 { 4 } 2 { 8.5 } 7 { 5 } } } curve iterg2t @grain := $grain05 s, @Action := CS_tutti_lignes c g2.tempiter $iterg2t { $iterg2t { { 0. } @type "quad" 2 { 6. } 2 { 0.2 } 5/2 { 3. } 3/2 { 0. } 4 { 0. } 2 { 8. } 2 { 2. } 3 { 0. } } } 10 curve 1gliss @Grain := $grain05 s, @Action := e1Gliss_value $e1gliss1 { $e1gliss1 { { 1.8 } 3/2 { 1.1 } 3/2 { 1.8 } 1 { 1.1 } 1 { 1.8 } 3/2 { 1.1 } 3/2 { 1.8 } 4 { 1.1 } } } } 8 curve spattutPoints @grain := $grain05 s, @action := SPAT7 xy $xSp7 $ySp7 { $xSp7, $ySp7 { { -1.3 -0.3 } @type "quad_out" 1 { 0.0 -1.3 } @type "quad" 1 { 1.3 -0.3 } } } ::CS_tutti_points("i11",2/5,0.04,0.8,86) 2/5 ::CS_tutti_points("i11",2/5,0.06,0.8,97) 2/5 ::CS_tutti_points("i11",2/5,0.07,0.8,103) 2/5 ::CS_tutti_points("i11",2/5,0.1,0.8,92) 2/5 ::CS_tutti_points("i11",8/5,0.12,0.8,96) } NOTE Db2 0 NOTE C2 2/3 NOTE G2 1/3 NOTE F2 1/5 ; table NOTE D2 1/5 NOTE B1 1/5 NOTE G1 1/5 NOTE E1 1/5 NOTE 0 3/2 NOTE B2 1/2 ; bol NOTE 0 3/2 NOTE Eb2 1/2 mes17; crotales NOTE 0 1/2 NOTE Eb2 0 NOTE D1 1/2 NOTE 0 5/3 NOTE G2 1/3 NOTE 0 2/3 NOTE G2 1/3 NOTE D1 2/5 mes18 NOTE Db2 2/5 NOTE G2 2/5 NOTE Ab1 2/5 NOTE C2 2/5 NOTE 0 2/3 mes18_2 GROUP Solo { ::CS_solo_lignes("g6",14,0.,15,1003,94,0.1,1.2,6) curve ampg6s @Grain := 0.02s, @Action := CS_solo_lignes c g6.amp $ampg6s { $ampg6s { { 0. } @type "quad_out" 1/2 { 0.1 } 2 { 0.1 } @type "quad_in_out" 1 { 0.4 } @type "cubic_in_out" 3 { 0.0 } } } curve iterg6s @grain := 0.05s, @Action := CS_solo_lignes c g6.tempiter $iterg6s { $iterg6s { { 3. } @type "quad" 3 { 15. } 2 { 0. } } } } NOTE C1 1/3 ; tamtam NOTE 0 3/2 NOTE D2 1/2 ; bol NOTE D1 1/6 mes19 NOTE Ab1 1/6 NOTE C2 1/6 NOTE Db2 1/6 NOTE Eb2 1/6 NOTE G2 1/6 NOTE 0 2/3 CHORD (G2 A2) 1/3 GROUP solo { solo_num_ech 6 ; <----- radio solo_PlayEch start curve echRadio @grain := 0.05s, @action := solo_lvl_ech $ampEchS 10 {$ampEchS { { 0. } @type "quad_out" 2 { 0.4 } } } } NOTE 0 2/3 CHORD (G2 A2) 1/3 NOTE 0 3/2 NOTE D2 1/2 ; bol NOTE 0 1 NOTE E1 1/9 mes20 ; table NOTE E1 1/9 NOTE G1 1/9 NOTE B1 1/9 NOTE D2 1/9 NOTE F2 1/9 NOTE G1 1/9 NOTE B1 1/9 NOTE D2 1/9 NOTE F2 1/8 NOTE C1 7/8 NOTE 0 1/2 NOTE B1 1/2 NOTE 0 1 CHORD (B1 D2) 1 mes21 ; w.B. BPM 56 GROUP solo { solo_PlayEch stop solo_lvl_ech 0. 1000 ::CS_solo_lignes("g1",14,0.,4,1003,95,0.1,1.2,7) curve ampg1s @Grain := 0.02s, @Action := CS_solo_lignes c g1.amp $ampg1s { $ampg1s { { 0. } @type "quad_out" 1/2 { 0.1 } 8 { 0.1 } @type "quad_out" 2 { 0. } } } 7/3 ::CS_solo_points("i11",7/6,0.04,0.5,79) 7/6 ::CS_solo_points("i1",1,0.07,0.5,78) 1/8 ::CS_solo_points("i1",1,0.07,0.5,79) ::CS_solo_points("i1",3/2,0.07,0.5,82) 1/8 ::CS_solo_points("i1",3/2,0.06,0.5,85) 1/8 ::CS_solo_points("i1",3/2,0.07,0.5,84) ::CS_solo_points("i1",5,0.1,0.5,91) 5/8 ::CS_solo_points("i1",4,0.1,0.5,91) ::CS_solo_lignes("g2",14,0.,9,1005,81,0.1,15.2,6) curve ampg2s @Grain := 0.02s, @Action := CS_solo_lignes c g2.amp $ampg2s { $ampg2s { { 0. } @type "quad_out" 1/2 { 0.2 } 6 { 0.15 } @type "quad_out" 4 { 0.0 } } } curve iterg2s @grain := 0.05s, @Action := CS_solo_lignes c g2.tempiter $iterg2s { $iterg2s { { 0. } @type "quad" 3 { 0.1 } 1 { 9. } 3/2 { 0. } } } 1 ::CS_solo_soust(17,1.,66) curve frsoustS @grain := 0.05s, @Action := CS_solo_lignes c soust.freq (@midi2hz($frsoustS)) { $frsoustS { { 66. } @type "quad" 7 { 105 } } } curve ampsoustS @grain := 0.05s, @Action := CS_solo_lignes c soust.amp $ampsoustS { $ampsoustS { { 0. } @type "quad" 1/2 { 1.9 } 7 { 2.4 } 8 { 0. } } } } 1 GROUP Tutti { num_ech 5 PlayEch start curve EchTremb @grain := 0.08s, @action := lvl_ech $ampEchT 10 { $ampEchT { { 0. } 1 { 0.4 } 23 { 0.3 } 3 { 0. } } } ::CS_tutti_soust1(18,1.,40,9,8) ::CS_tutti_soust2(18,1.9,66,9,8) ::CS_tutti_soust3(18,1.8,76,9,8) SPAT8 xy -1 -0.8 SPAT9 xy 1 -0.8 curve ampsoustS @grain := 0.05s, @Action := {CS_tutti_lignes c soust.amp1 $ampsoustS1 CS_tutti_lignes c soust.amp2 $ampsoustS2 CS_tutti_lignes c soust.amp3 $ampsoustS3 } { $ampsoustS1,$ampsoustS2,$ampsoustS3 { { 0.,0.,0. } @type "quad" 1 { 1., 1.,1. } 5 { 1.,1.,1.3 } 8 { 0.,0.,0. } } } } NOTE 0 1/4 NOTE C2 3/4 ; crotale NOTE G2 1 NOTE 0 1/4 NOTE B1 1/8 NOTE B1 1/8 NOTE 0 3 NOTE D2 1/2 mes22 ; bol NOTE 0 1/2 NOTE D2 1/2 NOTE 0 1/2 NOTE D2 1/2 NOTE 0 3/2 ;----------------------------------------- PAGE 4 ----------------------------------------- NOTE G1 1/8 mes23 ; table NOTE B1 1/8 NOTE D2 1/8 NOTE F2 1/8 NOTE F1 1 ; T.B. 1/2 GROUP Solo { ::CS_solo_lignes("g3",15,0.,2,1005,75,0.1,10.2,5) curve ampg3s @Grain := 0.025s, @Action := CS_solo_lignes c g3.amp $ampg3s { $ampg3s { { 0. } @type "quad_out" 1/4 { 0.1 } 3/4 { 0.06 } 2 { 0.1 } @type "quad_in_out" 1/2 { 0.25 } @type "quad_in_out" 1/2 { 0.1 } @type "quad_in_out" 3/2 { 0.15 } @type "quad_in_out" 4 { 0. } } } curve iterg3s @grain := 0.05s, @Action := CS_solo_lignes c g3.tempiter $iterg3s { $iterg3s { { 0. } @type "quad" 1 { 9.1 } 2 { 0. } } } curve freqg3s @grain := 0.05s, @Action := CS_solo_lignes c g3.freq (@midi2hz($freqg3s)) { $freqg3s { { 75. } 7/2 { 75. } @type "exp" 1 { 85. } 1 { 85. } 1/3 { 81. } @type "exp" 1/3 { 80. } } } ::CS_solo_lignes("g5",14,0.,8,1005,37,0.1,7.2,7) curve ampg5s @Grain := 0.05s, @Action := CS_solo_lignes c g5.amp $ampg5s { $ampg5s { { 0. } @type "quad_out" 3 { 0.15 } 6 { 0.1 } @type "quad_out" 2 { 0.0 } } } 7/2 ::CS_solo_lignes("g4",14,0.,12,1005,79,0.1,8.2,5) curve ampg4s @Grain := 0.05s, @Action := CS_solo_lignes c g4.amp $ampg4s { $ampg4s { { 0. } @type "quad_out" 1 { 0.15 } @type "cubic" 3 { 0.08 } @type "quad_out" 2 { 0.0 } } } curve freqg4s @grain := 0.05s, @Action := CS_solo_lignes c g4.freq (@midi2hz($freqg4s)) { $freqg4s { { 86. } @type "quad" 4 { 97. } } } 2 solo_num_ech 11 ; <----- porte solo_PlayEch start solo_lvl_ech 5.7 50 } NOTE 0 2/3 NOTE F1 1/3 NOTE G1 1/8 ; table NOTE B1 1/8 NOTE D2 1/8 NOTE F2 1/8 NOTE 0 3/2 NOTE 0 4 mes24 NOTE 0 1/2 mes25 GROUP Solo { ::CS_solo_lignes("g1",14,0.,4,1005,79,0.1,1.2,5) curve ampg1s @Grain := 0.04s, @Action := CS_solo_lignes c g1.amp $ampg1s { $ampg1s { { 0. } 2 { 0.3 } 2 { 0.1 } 3 { 0.3 } 3 { 0. } } } } GROUP Tutti { ::CS_tutti_soust1(24,3.,40,9,8) ::CS_tutti_soust2(24,3.9,66,9,8) ::CS_tutti_soust3(24,3.8,76,9,8) SPAT8 xy -1 -0.8 SPAT9 xy 1 -0.8 curve ampsoustS @grain := 0.04s, @Action := {CS_tutti_lignes c soust.amp1 $ampsoustS1 CS_tutti_lignes c soust.amp2 $ampsoustS2 CS_tutti_lignes c soust.amp3 $ampsoustS3 } { $ampsoustS1,$ampsoustS2,$ampsoustS3 { { 0.,0.,0. } @type "quad" 1 { 3., 2.8,2.8 } 8 { 1.9,1.8,1.6 } 4 { 0.,0.,0. } } } } NOTE Db2 0 NOTE Db2 1/2 NOTE 0 5/4 NOTE A1 3/4 ; t.B. TRILL (A1) 1 NOTE F1 1 mes26 NOTE 0 1/6 NOTE E2 1/6 NOTE A1 1/6 NOTE C2 1/6 NOTE E2 1/6 NOTE F1 1/6 NOTE 0 1/4 NOTE C1 3/4 mes26_2 curve tempSpat @grain := 0.08s { $tSpat { { $RT_TEMPO } 4 { $RT_TEMPO } 4 {($RT_TEMPO+30)} 4 { $RT_TEMPO } 4 { ($RT_TEMPO-20)} 4 { ($RT_TEMPO-20)} 4 { $RT_TEMPO } 2 { $RT_TEMPO } 3 {($RT_TEMPO+30)} 5 { $RT_TEMPO } 5 { ($RT_TEMPO-20)} 10 {($RT_TEMPO+30)} } } GROUP SpatTutti @tempo := $tSpat { loop RoundSpat 2 { curve SpatRound @grain := 0.08s,@action := {SPAT1 ad $azim 1 SPAT2 ad ($azim+72) 1 SPAT3 ad ($azim+144) 1 SPAT4 ad ($azim+216) 1 SPAT5 ad ($azim+288) 1 } { $azim { { 0. } 2 { 360 } } } } } GROUP Tutti { ::CS_tutti_lignes("g1",60,0.,6,1003,62,0.31,10.2,4,1) ::CS_tutti_lignes("g2",60,0.,7,1003,70,0.31,7.2,6,2) ::CS_tutti_lignes("g3",60,0.,6,1003,76,0.31,7.2,5,3) ::CS_tutti_lignes("g4",60,0.,7,1003,85,0.31,4,6,4) ::CS_tutti_lignes("g5",60,0.,8,1003,95,0.31,15.2,5,5) curve ampg5t @Grain := 0.04s, @Action := CS_tutti_lignes c g5.amp $ampg5t { $ampg5t { { 0. } @type "quad" 6/4 { 0.7 } @type "cubic" 1/4 { 0.2 } @type "cubic" 1/10{ 0.7 } @type "cubic_out" 1/10{ 0.2 } (4/5 + 2/6) { 0.2 } @type "cubic" 1/12{ 0.7 } @type "cubic_out" 1/12{ 0.2 } 4/6 { 0.2 } @type "cubic" 1/12{ 0.7 } @type "cubic_out" 1/12{ 0.2 } 4/6 { 0.2 } @type "cubic" 1/12{ 0.7 } @type "cubic_out" 1/12{ 0.2 } 7/6 { 0.2 } @type "cubic" 1/12{ 0.7 } @type "cubic_out" 1/12{ 0.2 } 5/6 { 0.2 } @type "cubic" 1/12{ 0.7 } @type "cubic_out" 1/12{ 0.2 } 3/6 { 0.2 } @type "cubic" 1/12{ 0.7 } @type "cubic_out" 1/12{ 0.2 } 4/6 { 0.2 } @type "cubic" 1/12{ 0.7 } @type "cubic_out" 1/12{ 0.2 } 4/5 { 0.2 } @type "cubic" 1/10{ 0.7 } @type "cubic_out" 1/10{ 0.2 } 4/5 { 0.2 } @type "cubic" 1/10{ 0.7 } @type "cubic_out" 1/10{ 0.2 } 3/2 { 0.7 } 3/2 { 0.1 } 4 { 0. } 4 { 0. } 4 { 0.6 } 3/4 { 0.1 } @type "cubic" 1/8 { 0.7 } @type "cubic_out" 1/8 { 0.1 } 1 { 0.1 } @type "cubic" 1/6 { 0.7 } @type "cubic_out" 1/6 { 0.1 } 1/3 { 0.1 } @type "cubic" 1/6 { 0.7 } @type "cubic_out" 1/6 { 0.2 } 3/4 { 0.2 } @type "cubic" 1/8 { 0.7 } @type "cubic_out" 1/8 { 0.2 } 1/2 { 0.2 } @type "cubic" 1/8 { 0.7 } @type "cubic_out" 1/8 { 0.2 } 1/4 { 0.2 } @type "cubic" 1/8 { 0.7 } @type "cubic_out" 1/8 { 0.2 } 3/4 { 0.2 } @type "cubic" 1/8 { 0.7 } @type "cubic_out" 1/8 { 0.2 } 1 { 0.2 } @type "cubic" 1/8 { 0.7 } @type "cubic_out" 1/8 { 0.2 } 5/4 { 0.2 } @type "cubic" 1/8 { 0.7 } @type "cubic_out" 1/8 { 0.2 } 4/6 { 0.2 } @type "cubic" 1/12{ 0.7 } @type "cubic_out" 1/12{ 0.2 } @type "cubic" 1/12{ 0.7 } @type "cubic_out" 1/12{ 0.2 } 3/2 { 0.2 } @type "quad" 3/2 { 0.7 } 2 { 0.2 } 8 { 0. } } } curve ampg4t @Grain := 0.04s, @Action := CS_tutti_lignes c g4.amp $ampg4t { $ampg4t { { 0. } @type "quad" 6/4 { 0.5 } @type "cubic" 1/4 { 0.2 } @type "cubic" 3/5 { 0.2 } @type "cubic" 1/10{ 0.6 } @type "cubic_out" 1/10{ 0.2 } 1/5 { 0.2 } @type "cubic" 1/12{ 0.6 } @type "cubic_out" 1/12{ 0.2 } 3/6 { 0.2 } @type "cubic" 1/12{ 0.6 } @type "cubic_out" 1/12{ 0.2 } 4/6 { 0.2 } @type "cubic" 1/12{ 0.6 } @type "cubic_out" 1/12{ 0.2 } 5/6 { 0.2 } @type "cubic" 1/12{ 0.6 } @type "cubic_out" 1/12{ 0.2 } 2/6 { 0.2 } @type "cubic" 1/12{ 0.6 } @type "cubic_out" 1/12{ 0.2 } 3/6 { 0.2 } @type "cubic" 1/12{ 0.6 } @type "cubic_out" 1/12{ 0.2 } 4/6 { 0.2 } @type "cubic" 1/12{ 0.6 } @type "cubic_out" 1/12{ 0.2 } 4/6 { 0.2 } @type "cubic" 1/12{ 0.6 } @type "cubic_out" 1/12{ 0.2 } 3/6 { 0.2 } @type "cubic" 1/10{ 0.6 } @type "cubic_out" 1/10{ 0.2 } 1 { 0.2 } @type "cubic" 1/10{ 0.6 } @type "cubic_out" 1/10{ 0.2 } 3/5 { 0.2 } @type "quad" 2 { 0.6 } 1 { 0.1 } 16/5 { 0.1 } 2/5 { 0.6 } @type "quad_in_out" 2/5 { 0.08 } @type "quad_in_out" 1 { 0.6 } @type "quad_in_out" 1 { 0.08 } @type "quad_in_out" 3 { 0.08 } @type "cubic" 1/8 { 0.6 } @type "cubic_out" 1/8 { 0.08 } 1 { 0.08 } @type "cubic" 1/8 { 0.6 } @type "cubic_out" 1/8 { 0.08 } 5/4 { 0.08 } @type "cubic" 1/8 { 0.6 } @type "cubic_out" 1/8 { 0.08 } 7/4 { 0.08 } @type "cubic" 1/8 { 0.6 } @type "cubic_out" 1/8 { 0.08 } 5/4 { 0.08 } @type "cubic" 1/8 { 0.6 } @type "cubic_out" 1/8 { 0.08 } (3/4 + 1/3){ 0.2 } @type "cubic" 1/6 { 0.6 } @type "cubic_out" 1/6 { 0.08 } 5/6 { 0.08 } @type "cubic" 1/8 { 0.6 } @type "cubic_out" 1/8 { 0.08 } 2/4 { 0.08 } @type "cubic" 1/8 { 0.6 } @type "cubic_out" 1/8 { 0.08 } 6/4 { 0.08 } @type "cubic" 1/8 { 0.6 } @type "cubic_out" 1/8 { 0.08 } 11/4 { 0.08 } @type "cubic" 1/4 { 0.6 } @type "cubic_out" 3/4 { 0.1 } 11 { 0. } } } curve ampg3t @Grain := 0.04s, @Action := CS_tutti_lignes c g3.amp $ampg3t { $ampg3t { { 0. } @type "quad" 6/4 { 0.5 } @type "cubic" 1/4 { 0.2 } @type "cubic" 2/5 { 0.2 } @type "cubic" 1/10{ 0.6 } @type "cubic_out" 1/10{ 0.2 } (2/5 + 1/6) { 0.2 } @type "cubic" 1/12{ 0.6 } @type "cubic_out" 1/12{ 0.2 } 4/6 { 0.2 } @type "cubic" 1/12{ 0.6 } @type "cubic_out" 1/12{ 0.2 } 1 { 0.2 } @type "cubic" 1/12{ 0.6 } @type "cubic_out" 1/12{ 0.2 } 5/6 { 0.2 } @type "cubic" 1/12{ 0.6 } @type "cubic_out" 1/12{ 0.2 } 4/6 { 0.2 } @type "cubic" 1/12{ 0.6 } @type "cubic_out" 1/12{ 0.2 } 4/6 { 0.2 } @type "cubic" 1/12{ 0.6 } @type "cubic_out" 1/12{ 0.2 } 4/6 { 0.2 } @type "cubic" 1/12{ 0.6 } @type "cubic_out" 1/12{ 0.2 } (1/6 + 3/5) {0.2 } @type "cubic" 1/10{ 0.6 } @type "cubic_out" 1/10{ 0.2 } 4/5 { 0.2 } @type "cubic" 1/10{ 0.6 } @type "cubic_out" 1/10{ 0.2 } 1/5 { 0.2 } @type "cubic" 5/2 { 0.6 } 1/2 { 0.2 } 11/5{0.2 } @type "quad_in_out" 3/5 { 0.6 } @type "quad_in_out" 3/5 { 0.2 } 3/5 { 0.2 } @type "quad_in_out" 1 { 0.6 } @type "quad_in_out" 1 { 0.08 } 3 { 0.08 } 1/8 { 0.1 } @type "cubic" 1/8 { 0.6 } @type "cubic_out" 1/4 { 0.1 } 3/4 { 0.1 } @type "cubic" 1/8 { 0.6 } @type "cubic_out" 1/8 { 0.1 } 3/4 { 0.1 } @type "cubic" 1/8 { 0.6 } @type "cubic_out" 1/8 { 0.1 } 1 { 0.1 } @type "cubic" 1/8 { 0.6 } @type "cubic_out" 1/8 { 0.1 } 3/4 { 0.1 } @type "cubic" 1/8 { 0.6 } @type "cubic_out" 1/8 { 0.08 } 2/4 { 0.08 } @type "cubic" 1/8 { 0.6 } @type "cubic_out" 1/8 { 0.08} 2/4 { 0.08 } @type "cubic" 1/8 { 0.6 } @type "cubic_out" 1/8 { 0.08 } 2 { 0.08 } @type "cubic" 1/8 { 0.6 } @type "cubic_out" 1/8 { 0.08 } 7/2 { 0.08 } @type "cubic" 1/8 { 0.6 } @type "cubic_out" 1/8 { 0.08 } 9/2 { 0.08 } @type "cubic" 1/8 { 0.6 } @type "cubic" 2/3 { 0.08 } 9 { 0. } } } curve ampg2t @Grain := 0.04s, @Action := CS_tutti_lignes c g2.amp $ampg2t { $ampg2t { { 0. } @type "quad" 6/4 { 0.4 } @type "cubic" 1/4 { 0.2 } @type "cubic" 1/5 { 0.2 } @type "cubic" 1/10{ 0.4 } @type "cubic_out" 1/10{ 0.2 } (3/5 + 3/6) {0.2} @type "cubic" 1/12{ 0.4 } @type "cubic_out" 1/12{ 0.2 } 4/6 { 0.2 } @type "cubic" 1/12{ 0.4 } @type "cubic_out" 1/12{ 0.2 } 2/6 { 0.2 } @type "cubic" 1/12{ 0.4 } @type "cubic_out" 1/12{ 0.2 } 4/6 { 0.2 } @type "cubic" 1/12{ 0.4 } @type "cubic_out" 1/12{ 0.2 } 4/6 { 0.2 } @type "cubic" 1/12{ 0.4 } @type "cubic_out" 1/12{ 0.2 } 3/6 { 0.2 } @type "cubic" 1/12{ 0.4 } @type "cubic_out" 1/12{ 0.2 } 5/6 { 0.2 } @type "cubic" 1/12{ 0.4 } @type "cubic_out" 1/12{ 0.2 } (4/6 + 2/5) {0.2 } @type "cubic" 1/10{ 0.4 } @type "cubic_out" 1/10{ 0.2 } 2/5 {0.2 } @type "cubic" 1/10{ 0.4 } @type "cubic_out" 1/10{ 0.2 } 4/5 {0.2 } 5/2 { 0.4 } @type "quad_in_out" 1/2 { 0.2 } 8/5 { 0.2 } @type "quad_in_out" 3/5 { 0.4 } @type "quad_in_out" 4/5 { 0.2 } 5/5 { 0.1 } 6 { 0.1 } @type "cubic" 1/8 { 0.4 } @type "cubic_out" 1/8 { 0.08 } 5/4 { 0.2 } @type "cubic" 1/8 { 0.4 } @type "cubic_out" 1/8 { 0.08 } 5/8 { 0.08 } @type "cubic" 1/8 { 0.4 } @type "cubic_out" 2/8 { 0.08 } 9/8 { 0.08 } @type "cubic" 1/8 { 0.4 } @type "cubic_out" 1/8 { 0.08 } 2/4 { 0.08 } @type "cubic" 1/8 { 0.4 } @type "cubic_out" 1/8 { 0.1 } 1/4 { 0.1 } @type "cubic" 1/8 { 0.4 } @type "cubic_out" 1/8 { 0.1 } 2/4 { 0.1 } @type "cubic" 1/8 { 0.4 } @type "cubic_out" 1/8 { 0.1 } 1/4 { 0.1 } @type "cubic" 1/8 { 0.4 } @type "cubic_out" 1/8 { 0.08 } 5/6 { 0.08 } @type "cubic" 1/8 { 0.4 } @type "cubic_out" 1/8 { 0.08 } 6/4 { 0.08 } @type "cubic" 1/8 { 0.4 } @type "cubic_out" 1/8 { 0.08 } 5/2 { 0.08 } @type "cubic" 1 { 0.3 } @type "cubic" 2/3 { 0.08 } 12 { 0. } } } curve ampg1t @Grain := 0.04s, @Action := CS_tutti_lignes c g1.amp $ampg1t { $ampg1t { { 0. } @type "quad" 6/4 { 0.4 } @type "cubic" 1/4 { 0.2 } @type "cubic" 4/5 { 0.2 } @type "cubic" 1/10{ 0.4 } @type "cubic_out" 1/10{ 0.2 } 5/6 { 0.2 } @type "cubic" 1/12{ 0.4 } @type "cubic_out" 1/12{ 0.2 } 4/6 { 0.2 } @type "cubic" 1/12{ 0.4 } @type "cubic_out" 1/12{ 0.2 } 3/6 { 0.2 } @type "cubic" 1/12{ 0.4 } @type "cubic_out" 1/12{ 0.2 } 2/6 { 0.2 } @type "cubic" 1/12{ 0.4 } @type "cubic_out" 1/12{ 0.2 } 5/6 { 0.2 } @type "cubic" 1/12{ 0.4 } @type "cubic_out" 1/12{ 0.2 } 4/6 { 0.2 } @type "cubic" 1/12{ 0.4 } @type "cubic_out" 1/12{ 0.2 } 4/6 { 0.2 } @type "cubic" 1/12{ 0.4 } @type "cubic_out" 1/12{ 0.2 } (2/6 + 1/5) { 0.2 } @type "cubic" 1/10{ 0.4 } @type "cubic_out" 1/10{ 0.08 } 1 { 0.08 } @type "cubic" 1/10{ 0.4 } @type "cubic_out" 1/10{ 0.2 } 2/5 { 0.08 } 2 { 0.08} @type "exp" 1/4 { 0.4 } 3/4 { 0.08} 4/5 { 0.08 } @type "quad_in_out" 3/5 { 0.4 } @type "quad_in_out" 4/5 { 0.08 } 9/5 { 0.08 } 11/2{ 0.08 } @type "cubic" 1/8 { 0.4 } @type "cubic_out" 1/8 { 0.08 } 3/4 { 0.08 } @type "cubic" 1/8 { 0.4 } @type "cubic_out" 1/8 { 0.08 } (1/4 + 2/3 ) { 0.1 } @type "cubic" 1/6 { 0.4 } @type "cubic_out" 1/6 { 0.08 } 1/8 { 0.4 } @type "cubic_out" 1/8 { 0.1 } @type "cubic" 1/8 { 0.4 } @type "cubic_out" 1/8 { 0.08 } 3/4 { 0.1 } @type "cubic" 1/8 { 0.4 } @type "cubic_out" 1/8 { 0.08 } @type "cubic_in_out" 3/4 { 0.3 } @type "cubic_in_out" 1 { 0.08 } @type "cubic_in_out" 1 { 0.1 } @type "cubic_in_out" 1 { 0.08 } @type "cubic" 1/8 { 0.3 } @type "cubic_out" 1/8 { 0.08 } @type "cubic_in_out" 2 { 0.3 } @type "cubic_in_out" 2 { 0.08 } @type "cubic_in_out" 2 { 0.22 } 12 { 0. } } } curve freqg5t @Grain := 0.04s, @Action := CS_tutti_lignes c g5.freq (@midi2hz($freqg5t)) { $freqg5t { { 95. } @type "quad" 18 { 95 } 2 { 100 } } } curve freqg4t @Grain := 0.04s, @Action := CS_tutti_lignes c g4.freq (@midi2hz($freqg4t)) { $freqg4t { { 85. } @type "quad" (7/4 + 8){ 85. } 7/2 { 81. } 13/2 { 81. } 3 { 91. } } } curve freqg3t @Grain := 0.04s, @Action := CS_tutti_lignes c g3.freq (@midi2hz($freqg3t)) { $freqg3t { { 76. } @type "quad" (7/4 + 8) { 76. } 4 { 80. } 13/2 { 80. } 5/2 { 89. } } } curve freqg2t @Grain := 0.04s, @Action := CS_tutti_lignes c g2.freq (@midi2hz($freqg2t)) { $freqg2t { { 70. } @type "quad" (7/4 + 18){ 70. } 3 { 80. } } } curve freqg1t @Grain := 0.04s, @Action := CS_tutti_lignes c g1.freq (@midi2hz($freqg1t)) { $freqg1t { { 62. } @type "quad" (7/4 + 8){ 62. } 3 { 64. } 5 { 64. } 5 { 74. } } } } NOTE 0 7/8 NOTE C1 1/8 NOTE 0 1 NOTE 0 1 NOTE 0 1/2 NOTE G2 0 mes27 ; crotales curve tsolo @grain := 0.08s {$tsolo { { $RT_TEMPO } @type "cubic" 1/8 { ($RT_TEMPO+40) } 1/3 { $RT_TEMPO } @type "quad" 3/4 { ($RT_TEMPO+40) } 1/2 { ($RT_TEMPO - 10) } 1/3 { ($RT_TEMPO+30) } 1/2 { $RT_TEMPO } 2 { ($RT_TEMPO + 40) } } } GROUP Solo @tempo := $tsolo { ::CS_solo_points("i3",7/6,0.12,0.8,79) 1/6 ::CS_solo_points("i3",7/6,0.12,0.8,90) 1/6 ::CS_solo_points("i3",7/6,0.12,0.8,81) 1/6 ::CS_solo_points("i3",7/6,0.12,0.8,74) 1/6 ::CS_solo_points("i3",7/6,0.12,0.8,85) 1/6 ::CS_solo_points("i3",7/6,0.12,0.8,80) 1/6 ::CS_solo_points("i1",2,0.1,0.8,69) 1/6 ::CS_solo_points("i3",7/6,0.11,0.8,69) 1/6 ::CS_solo_points("i1",2,0.12,0.8,69) 1/6 ::CS_solo_points("i3",7/6,0.13,0.8,69) 1/6 ::CS_solo_points("i3",7/6,0.14,0.8,69) 1/6 ::CS_solo_points("i3",7/6,0.15,0.8,69) 1/6 ::CS_solo_points("i3",7/6,0.11,0.8,76) 1/6 ::CS_solo_points("i3",3/6,0.12,0.8,68) 1/6 ::CS_solo_points("i3",5/6,0.12,0.8,62) 1/6 ::CS_solo_points("i3",7/6,0.12,0.8,72) 1/6 ::CS_solo_points("i3",5/6,0.12,0.4,80) 1/6 ::CS_solo_points("i3",7/6,0.12,0.8,83) 1/6 ::CS_solo_points("i3",3/6,0.2,0.4,79) 1/6 ::CS_solo_points("i3",4/6,0.13,0.8,73) 1/6 ::CS_solo_points("i3",7/6,0.13,0.4,86) 1/6 ::CS_solo_points("i3",5/6,0.14,0.8,92) 1/6 ::CS_solo_points("i3",7/6,0.14,0.8,82) 1/6 ::CS_solo_points("i3",3/6,0.15,0.4,90) 1/6 ::CS_solo_points("i3",7/6,0.25,0.8,97) 1/6 ::CS_solo_points("i3",5/6,0.26,0.4,96) 1/6 ::CS_solo_points("i3",7/6,0.24,0.4,95) 1/6 ::CS_solo_points("i3",5/6,0.22,0.4,94) 1/6 ::CS_solo_points("i3",7/6,0.2,0.4,93) 1/6 ::CS_solo_points("i3",4/6,0.19,0.4,92) 1/6 ::CS_solo_points("i3",3,0.25,0.8,98) 4/6 ::CS_solo_points("i3",2,0.21,0.8,86) 1/6 ::CS_solo_points("i3",2,0.28,0.8,97) } NOTE A2 1/2 NOTE G#1 3/4 NOTE G#1 1/8 NOTE G#1 1/8 NOTE 0 1 mes28; siffl NOTE A3 3 solo_lvl_ech 0 solo_num_ech 12 ; <----- porte solo_PlayEch start solo_lvl_ech 5.7 50 NOTE 0 1/3 mes29 ; T.B. NOTE F1 1/3 GROUP solo { solo_num_ech2 2 ; <----- radio solo_PlayEch2 start curve echRadio @grain := 0.05s, @action := solo_lvl_ech2 $ampEchS 10 {$ampEchS { { 0. } @type "quad" 2 { 0.6 } 6 { 0.6 } 3 { 0. } } } } NOTE F1 1/3 NOTE F1 1/3 NOTE F1 1/3 CHORD (F1 C2) 1/3 NOTE 0 1/3 NOTE F1 1/3 CHORD (A1 C2) 1/3 NOTE 0 7/8 NOTE F1 1/8 NOTE 0 1/3 mes30 NOTE A1 2/3 NOTE 0 1/2 NOTE F1 1/2 NOTE 0 1/3 NOTE E2 1/3 NOTE E2 1/3 NOTE E2 1/3 NOTE E2 1/3 NOTE 0 1/3 CHORD (D2 F2) 1 mes31 ; bol CHORD (D2 F2) 1 NOTE 0 1/8 CHORD (D2 F2) 7/8 GROUP Solo { ::CS_solo_points("i3",4/6,0.12,0.8,84) 1/8 ::CS_solo_points("i3",3/6,0.13,0.8,83) 1/8 ::CS_solo_points("i3",2/6,0.14,0.8,82) 1/8 ::CS_solo_points("i3",4/6,0.15,0.8,85) 1/8 ::CS_solo_points("i3",4/6,0.17,0.8,81) 1/6 ::CS_solo_points("i3",5/6,0.12,0.8,91) 1/6 ::CS_solo_points("i3",7/6,0.12,0.8,92) 1/6 ::CS_solo_points("i3",3/6,0.12,0.8,88) 1/6 ::CS_solo_points("i3",2/6,0.12,0.8,82) 1/6 ::CS_solo_points("i3",7/6,0.12,0.8,91) 1/6 ::CS_solo_points("i3",2/6,0.12,0.8,81) 1/6 ::CS_solo_points("i3",4/6,0.12,0.8,91) 1/6 ::CS_solo_points("i3",7/6,0.12,0.8,94) 1/6 ::CS_solo_points("i3",2,0.12,0.5,62) 1/6 ::CS_solo_points("i3",4/6,0.12,0.8,80) 1/6 ::CS_solo_points("i3",7/6,0.13,0.8,98) 1/6 ::CS_solo_points("i3",2,0.15,0.8,99) } NOTE 0 1/2 CHORD (D2 F2) 1/2 NOTE 0 1 mes32 GROUP Solo { ::CS_solo_soust(12,1.,66) curve frsoustS @grain := 0.05s, @Action := CS_solo_lignes c soust.freq (@midi2hz($frsoustS)) { $frsoustS { { 51. } @type "quad" 3 { 60. } 1 { 54. } 2 { 69. } @type "quart" 3 { 93. } } } curve ampsoustS @grain := 0.05s, @Action := CS_solo_lignes c soust.amp $ampsoustS { $ampsoustS { { 0. } @type "quad" 1/2 { 0.6 } 3 { 1.1 } @type "quad_out" 8 { 0. } } } } GROUP Tutti { ::CS_tutti_lignes("g6",60,0.,8,1003,25,0.31,15.2,5,6) ::CS_tutti_lignes("g7",60,0.,8,1003,25,0.31,15.2,5,7) SPAT6 xy 0. -0.9 e1toSPAT 6 curve ampg6t @Grain := 0.04s, @Action := { CS_tutti_lignes c g6.amp $ampg6t CS_tutti_lignes c g7.amp $ampg7t } { $ampg6t,$ampg7t { { 0.,0. } @type "cubic_in_out" 2 { 0.5,0. } @type "cubic_in_out" 2 { 0.3,0. } @type "cubic_in_out" 3 { 0.6,0. } @type "cubic_in_out" 2 { 0.3,0. } @type "cubic_in_out" 4 { 0.7,0.1 } @type "cubic_in_out" 3 { 0.3,1.5 } @type "cubic_in_out" 4 { 0.5,1.9 } @type "cubic_in_out" 4 { 0.3,1.4 } 8 { 0.,0. } } } curve mfog67 @Grain := 0.08s, @Action := { CS_tutti_lignes c g6.mfo $mfog67 CS_tutti_lignes c g7.mfo $mfog67 } { $mfog67 { { 4.5} 8 { 8.5 } 6 { 5. } 6 { 8. } 6 { 6. } } } 12 curve 1gliss @Grain := 0.08s, @Action := e1Gliss_value $e1gliss1 { $e1gliss1 { { 1.9 } 3/2 { 1.1 } 3/2 { 1.7 } 2 { 1.17 } 2 { 1.8 } 2 { 1.02 } 2 { 1.9 } 4 { 1.15 } 4 { 1.5 } } } curve Spat7 @Grain := 0.08s, @Action := SPAT6 xy $Spat7x $Spat7y { $Spat7x, $Spat7y { {0., -0.3 } 2 { 0.,0.8 } 2 { -1,0.3 } 2 { -1,-0.8 } 2 { 0,-1 } 2 { 0.7,-0.8 } 7 { 0.,1 } } } 2 ::CS_tutti_soust1(35,0.5,44,9,8) ::CS_tutti_soust2(35,0.5,67,8,9) ::CS_tutti_soust3(35,0.5,80,9,8) curve ampsoustS @grain := 0.04s, @Action := {CS_tutti_lignes c soust.amp1 $ampsoustS1 CS_tutti_lignes c soust.amp2 $ampsoustS2 CS_tutti_lignes c soust.amp3 $ampsoustS3 } { $ampsoustS1,$ampsoustS2,$ampsoustS3 { { 0.,0.,0. } @type "quad" 4 { 3.8, 3.8,3.9 } } } ::SPAT_lissaj3("SPAT8",1,10,0) ::SPAT_lissaj3inv("SPAT9",1,10,3.14) } abort ::SPAT_lissaj3 abort ::SPAT_lissaj3inv NOTE F2 1 NOTE 0 1/2 NOTE C1 1/2 ; tamtam NOTE 0 3/6 NOTE F2 1/6 ; table NOTE D2 1/6 NOTE B1 1/6 NOTE 0 1/6 mes33 GROUP Solo { ::CS_solo_points("i3",4/6,0.17,0.8,74) 1/6 ::CS_solo_points("i3",5/6,0.12,0.8,89) 1/6 ::CS_solo_points("i3",7/6,0.13,0.8,80) 1/6 ::CS_solo_points("i3",3/6,0.14,0.8,91) 1/6 ::CS_solo_points("i3",2/6,0.15,0.8,89) 1/6 ::CS_solo_points("i3",7/6,0.16,0.8,100) 1/6 ::CS_solo_points("i3",1,0.28,0.8,103) 1/6 ::CS_solo_points("i3",4/6,0.12,0.8,80) 1/6 ::CS_solo_points("i3",2,0.12,0.8,62) 1/6 ::CS_solo_points("i3",3/6,0.12,0.5,85) 1/6 ::CS_solo_points("i3",4/6,0.12,0.8,94) 1/6 ::CS_solo_points("i3",2,0.13,0.8,57) 1/6 ::CS_solo_points("i33",2,0.15,0.8,80) ::CS_solo_points("i3",2,0.19,0.8,80) } NOTE E3 1/6 NOTE E3 1/6 NOTE E3 1/6 NOTE E3 1/6 NOTE E3 1/6 NOTE E3 1/6 NOTE E3 1/6 NOTE E3 1/6 NOTE E3 1/6 NOTE E3 1/6 NOTE E3 1/6 NOTE E3 1/6 NOTE E3 1/6 NOTE E3 1/6 NOTE E3 1/6 NOTE E3 1/6 NOTE E3 1/6 NOTE C1 1/8 NOTE B1 15/8 ; text : "Die Erfahrung ist im Kurse Gefallen !" NOTE B1 0 mes34 num_ech 5 PlayEch start SPAT10 xy 0. -1.6 curve EchTremb @grain := 0.08s, @action := lvl_ech $ampEchT 10 { $ampEchT { { 0. } 1 { 1.6 } 5 { 0.9 } } } GROUP solo { ::CS_solo_lignes("g1",8,0.,6,1005,68,0.1,10.2,6) curve ampg1s @Grain := 0.025s, @Action := CS_solo_lignes c g1.amp $ampg1s { $ampg1s { { 0. } @type "quad_out" 1/4 { 0.15 } 2/4 { 0.2 } @type "quad_in_out" 3 { 0.3 } 2 { 0.1 } 5 { 0.0 } } } curve freqg1s @Grain := 0.025s, @Action := CS_solo_lignes c g1.freq (@midi2hz($freqg1s)) { $freqg1s { { 68. } @type "exp" 1/4 { 91. } @type "quad" 3 { 98. } } } curve delg1s @grain := 0.05s, @Action := CS_solo_lignes c g1.multidel $delg1s { $delg1s { { 0.5 } @type "quad" 2 { 16.1 } 4 { 36. } } } 3 solo_num_ech 6 ; <----- radio solo_PlayEch start curve echRadio @grain := 0.05s, @action := solo_lvl_ech $ampEchS 10 {$ampEchS { { 0. } @type "quad" 2 { 1.2 } 2 { 0.85 } 4 { 0. } } } } NOTE B1 0 NOTE C1 1/2 TRILL (B1) 9/2 NOTE 0 1/3 mes 35 ; table NOTE C1 2/3 NOTE 0 1/2 NOTE G1 0 NOTE B1 1/2 NOTE 0 2/3 NOTE G2 1/3 NOTE C1 1/3 NOTE B1 2/3 NOTE 0 1/2 NOTE Ab1 0 ; crotales NOTE C2 1/2 NOTE 0 2/3 mes36 GROUP Solo { ::CS_solo_lignes("g2",8,0.,2,1005,97,0.1,10.2,5) curve ampg2s @Grain := 0.025s, @Action := CS_solo_lignes c g2.amp $ampg2s { $ampg2s { { 0. } @type "quad_out" 1/4 { 1.4 } 3/4 { 0.8 } @type "quad_in_out" 2 { 0.9 } 4 { 0.0 } } } curve iterg2s @grain := 0.05s, @Action := CS_solo_lignes c g2.tempiter $iterg2s { $iterg2s { { 0. } @type "quad" 2 { 12.1 } 4 { 0. } } } } NOTE D2 1/3 NOTE 0 5/2 NOTE F2 1/8 ; table NOTE D2 1/8 NOTE B1 1/8 NOTE G1 1/8 NOTE C1 1/6 mes37 NOTE B1 1/6 NOTE D2 1/6 NOTE C1 1/6 NOTE G1 1/6 NOTE B1 1/6 NOTE C1 1/6 NOTE G1 1/6 NOTE B1 1/6 NOTE G1 1/6 NOTE B1 1/6 NOTE D2 1/6 NOTE F2 1/10 1/2 curve tsoloR @grain := 0.04s { $tsoloR { { ($RT_TEMPO-20) } 1/4 { ($RT_TEMPO+15) } 1/4 { $RT_TEMPO } } } GROUP Solo @tempo := $tsoloR { ::CS_solo_points("i3",6/6,0.18,0.8,73) 1/10 ::CS_solo_points("i3",5/6,0.24,0.8,96) 1/10 ::CS_solo_points("i3",7/6,0.25,0.8,95) 1/10 ::CS_solo_points("i3",3/6,0.17,0.8,53) 1/10 ::CS_solo_points("i3",2/6,0.14,0.8,66) 1/10 ::CS_solo_points("i33",1,0.1,0.8,84) ::CS_solo_points("i3",1,0.16,0.8,84) 3/4 ::CS_solo_lignes("g3",8,0.,2,1003,91,0.1,15.2,5) curve ampg3s @Grain := 0.025s, @Action := CS_solo_lignes c g3.amp $ampg3s { $ampg3s { { 0. } @type "quad_out" 1/4 { 1. } 3/4 { 0.8 } @type "quad_in_out" 2 { 0.9 } 4 { 0.0 } } } curve iterg3s @grain := 0.05s, @Action := CS_solo_lignes c g3.tempiter $iterg3s { $iterg3s { { 0. } @type "quad" 2 { 14.1 } 4 { 6. } } } } NOTE D2 1/10 NOTE B1 1/10 NOTE G1 1/10 NOTE E1 1/10 NOTE 0 5/10 NOTE 0 1/4 NOTE C1 0 NOTE G2 3/4 ;----------------------------------------- PAGE 6 ----------------------------------------- NOTE C1 1/6 mes38 NOTE E1 1/6 NOTE B1 1/6 NOTE E1 1/6 NOTE B1 1/6 NOTE D2 1/6 NOTE G2 1/6 GROUP Solo-Ech { solo_lvl_ech 0. solo_lvl_ech2 0. solo_lvl_ech3 0. solo_num_ech 17 ; <----- cuve solo_PlayEch start solo_lvl_ech 0.7 50 3/2 solo_num_ech2 16 ; <----- cuve solo_PlayEch2 start solo_lvl_ech2 1.5 50 3/4 solo_num_ech3 17 ; <----- cuve solo_PlayEch3 start solo_lvl_ech3 0.7 50 1/2 solo_lvl_ech 0. solo_num_ech 15 ; <----- cuve solo_PlayEch start solo_lvl_ech 3.2 50 3/2 solo_lvl_ech3 0. solo_num_ech3 16 ; <----- cuve solo_PlayEch3 start solo_lvl_ech3 3.3 50 } NOTE C1 1/6 NOTE B1 1/6 NOTE D2 1/6 NOTE C1 1/6 NOTE B1 1/6 NOTE B1 0 TRILL (B1) 2 NOTE C1 1 mes39 GROUP Solo-Ech { solo_lvl_ech 0 solo_num_ech 12 ; <----- porte solo_PlayEch start solo_lvl_ech 3.7 50 } NOTE 0 1/2 NOTE G1 1/8 NOTE B1 1/8 NOTE D2 1/8 NOTE F2 1/8 NOTE 0 1/2 NOTE G2 1/2 NOTE 0 3/4 curve ampsoustS @grain := 0.04s, @Action := {CS_tutti_lignes c soust.amp1 $ampsoustS1 CS_tutti_lignes c soust.amp2 $ampsoustS2 CS_tutti_lignes c soust.amp3 $ampsoustS3 } { $ampsoustS1,$ampsoustS2,$ampsoustS3 { { 3.8, 3.8,3.9 } @type "quad" 1 { 0.,0.,0. } } } curve EchTremb @grain := 0.08s, @action := lvl_ech $ampEchT 10 { $ampEchT { { 0.8 } @type "exp" 1 { 0. } } } abort RoundSpat abort ::SPAT_lissaj3 abort ::SPAT_lissaj3inv NOTE B1 1/8 NOTE C1 1/8 NOTE C3 15 mes40 ; TEXT - "Tous se figent alors. - Leur séjour va peut-être finir. - Au bout de quelques secondes ; tout reprend. Conséquences de cette lumière pour l'oeil qui cherche. Conséquences pour l'oeil ; qui ne cherchant plus fixe le sol ou se lève vers le lointain plafond où il ne peut y avoir ; personne. - Tous se figent alors. - Tout va peut-être finir. - Au bout de quelques secondes ; tout reprend." GROUP SoloProc { ::CS_solo_lignes("g1",50,0.,2,1005,92,0.1,10.2,5) ::CS_solo_lignes("g3",50,0.,2,1005,79,0.1,10.2,5) ::CS_solo_lignes("g2",50,0.,2,1003,97,0.1,10.2,5) curve ampg1s @Grain := 0.02s, @Action := CS_solo_lignes c g1.amp $ampg1s { $ampg1s { { 0. } @type "quad_in_out" 1 { 0.1 } } } curve ampg3s @Grain := 0.02s, @Action := CS_solo_lignes c g3.amp $ampg3s { $ampg3s { { 0. } @type "quad_in_out" 1 { 0.1 } } } curve ampg2s @Grain := 0.02s, @Action := CS_solo_lignes c g2.amp $ampg2s { $ampg2s { { 0.0 } @type "quad_in_out" 1 { 0.03 } } } curve iterg2s @grain := 0.04s, @Action := CS_solo_lignes c g2.tempiter $iterg2s { $iterg2s { { 15. } @type "quad_out" 6 { 3.4 } 10 { 16. } 8 { 7. } } } curve delg1s @Grain := 0.08s, @Action := CS_solo_lignes c g1.multidel $delg1s { $delg1s { { 0.5 } @type "quad_in_out" 15 { 13.1 } 10 { 1.5 } } } curve delg2s @Grain := 0.08s, @Action := CS_solo_lignes c g2.multidel $delg2s { $delg2s { { 10. } @type "quad_in_out" 8 { 0.1 } 10 { 20. } 8 { 8. } } } curve delg3s @Grain := 0.08s, @Action := CS_solo_lignes c g3.multidel $delg3s { $delg3s { { 5. } @type "quad_in_out" 7 { 10.1 } 7 { 4. } 7 { 14. } } } solo_num_ech2 6 ; <----- radio solo_PlayEch2 start curve echRadio @grain := 0.05s, @action := solo_lvl_ech2 $ampEchS 10 {$ampEchS { { 0. } @type "quad" 4 { 0.15 } 20 { 0.2 } 6 { 0. } } } 1 loop SurAmp 7 { curve ampg13 @grain := 0.04s { $ampg13 { { 1. } 4 { 1.2 } 3 { 1. } } } } curve tloop1 @grain := 0.04s { $tloop1 { { 56. } 25 { 10. } } } loop ampg1s 1 @tempo := $tloop1 @abort { curve ampg1s @Grain := 0.02s, @Action := CS_solo_lignes c g1.amp $ampg1s { $ampg1s { { $ampg1loc } 2 { 0.0 } } } } { curve ampg1s @Grain := 0.02s, @Action := CS_solo_lignes c g1.amp $ampg1s { $ampg1s { { 0.1 } @type "quad_in_out" 1/2 { (0.2*$ampg13) } @type "quad_in_out" 1/2 { 0.1 } } } $ampg1loc := $ampg1s } loop ampg3s 8/3 @tempo := $tloop1 @abort { curve ampg3s @Grain := 0.02s, @Action := CS_solo_lignes c g3.amp $ampg3s { $ampg3s { { $ampg3loc } 4 { 0.0 } } } } { curve ampg3s @Grain := 0.02s, @Action := CS_solo_lignes c g3.amp $ampg3s { $ampg3s { { 0.1 } @type "quad_in_out" 4/3 { (0.2*$ampg13) } @type "quad_in_out" 4/3 { 0.1 } } } $ampg3loc := $ampg3s } loop ampg2s 2 @tempo := $tloop1 @abort { curve ampg2s @Grain := 0.02s, @Action := CS_solo_lignes c g2.amp $ampg2s { $ampg2s { { $ampg2loc } 4 { 0.0 } } } } { curve ampg2s @Grain := 0.02s, @Action := CS_solo_lignes c g2.amp $ampg2s { $ampg2s { { 0.03 } @type "quad_in_out" 4/5 { (0.07*$ampg13) } @type "quad_in_out" 4/5 { 0.03 } } } $ampg2loc := $ampg2s } loop freqg2s 4 @tempo := $tloop1 { curve freqg2s @Grain := 0.02s, @Action := CS_solo_lignes c g2.freq (@midi2hz($freqg2s)) { $freqg2s { { 85. } 2 { 86. } 2 { 85. } } } } } NOTE C3 15 mes40_2 num_ech 19 ; trembGr PlayEch start SPAT10 xy 0. -2.6 curve EchTremb @grain := 0.08s, @action := lvl_ech $ampEchT 10, @abort { curve EchAbort @grain := 0.08s, @action := lvl_ech $ampEchT 10 { $ampEchT { { $ampEchT } 2 { 0. } } }} { $ampEchT { { 0. } 1 { 0.2 } 20 { 0.1 } } } CHORD (C1 F2) 1 mes41 ; tam - bol abort SoloProc ;abort EchTremb solo_lvl_ech2 0. 500 solo_num_ech 33 solo_PlayEch start curve echT @grain := 0.05s, @action := solo_lvl_ech $ampEchT 10 {$ampEchT { { 0. } @type "quad" 1 { 0.9 } 16 { 0.9 } 2 { 0. } } } GROUP Tutti { ::CS_tutti_lignes("g1",25,0.,2,1003,105,16,8.2,7,1) curve spatT1 @grain := 0.08s, @action := SPAT1 xy $xSp1 $ySp1 { $xSp1, $ySp1 { { -1.4 -0.8 } 4 { 0.3 -0.7 } 4 { -0.9 -0.8 } 4 { 0.3 -0.9 } 4 { 1.3 -1 } } } curve ampg1t @Grain := 0.04s, @Action := CS_tutti_lignes c g1.amp $ampg1t { $ampg1t { { 0. } 1 { 0.6 } 12 { 0.6 } 6 { 0. } } } } NOTE 0 1/3 NOTE F2 2/3 GROUP solo { ::CS_solo_lignes("g4",4,0.,11,1002,82,0.1,10.2,5) curve ampg4s @Grain := 0.02s, @Action := CS_solo_lignes c g4.amp $ampg4s { $ampg4s { { 0. } 1/6 { 0.12 } 3/6 { 0.12 } 1/2 { 0.07 } 1/4 { 0.08 } 1/2 { 0.07 } 1/2 { 0.09 } 2 { 0.0 } } } curve freqg4s @Grain := 0.04s, @Action := CS_solo_lignes c g4.freq (@midi2hz($freqg4s)) { $freqg4s { { 82. } 3/6 { 82. } 1/6 { 82. } @type "exp" 1/4 { 85. } 1/4 { 85. } @type "exp_out" 1/4 { 79. } @type "exp" 1/4 { 80. } 1/4 { 80. } @type "exp_out" 1/4 { 74. } } } } NOTE 0 1/2 NOTE F2 1/2 NOTE 0 1 NOTE 0 1/3 NOTE F1 1/3 mes42; t.b. NOTE F1 1/3 NOTE F1 1/6 1/2 GROUP solo { ::CS_solo_lignes("g5",8,0.,6,1005,84,0.1,10.2,6) curve ampg5s @Grain := 0.02s, @Action := CS_solo_lignes c g5.amp $ampg5s { $ampg5s { { 0. } 1/4 { 0.15 } 3/2 { 0.13 } 1/4 { 0.14 } 1/2 { 0.12 } 3 { 0.12 } 5 { 0.0 } } } curve freqg5s @Grain := 0.02s, @Action := CS_solo_lignes c g5.freq (@midi2hz($freqg5s)) { $freqg5s { { 84. } 3/2 { 84. } 1/8 { 93. } 3/4 { 93. } @type "exp" 1/8 { 85. } 1 { 85. } 7/3 { 98. } } } } NOTE F1 1/6 NOTE F1 1/6 NOTE A1 1/6 NOTE A1 1/6 NOTE A1 1/6 NOTE 0 1/2 NOTE F1 1/2 NOTE 0 1/3 NOTE C2 1/3 NOTE C2 1/3 ;----------------------------------------- PAGE 7 ----------------------------------------- NOTE C2 1/3 mes43 solo_num_ech2 13 ; <----- porte solo_PlayEch2 start solo_lvl_ech2 0.5 50 NOTE C2 1/3 NOTE E2 1/3 NOTE 0 1 NOTE D2 1/8 ; bol NOTE D2 7/8 NOTE 0 1/2 NOTE A2 1/2 ; crotales curve tsoloR @grain := 0.04s { $tsoloR { { $RT_TEMPO } 1/4 { ($RT_TEMPO-20) } 1/4 { ($RT_TEMPO+20) } 1/4 { $RT_TEMPO } } } GROUP Solo @tempo := $tsoloR { ::CS_solo_points("i33",3/5,0.14,0.8,81) 1/5 ::CS_solo_points("i3",5/6,0.06,0.8,68) 1/5 ::CS_solo_points("i3",7/6,0.15,0.8,78) 1/5 ::CS_solo_points("i3",1,0.09,0.8,68) 1/5 ::CS_solo_points("i3",1,0.09,0.8,57) 1/5 ::CS_solo_lignes("g1",8,0.,2,1003,68,0.1,15.2,5) ::CS_solo_points("i3",2,0.05,0.8,68) curve ampg1s @Grain := 0.025s, @Action := CS_solo_lignes c g1.amp $ampg1s { $ampg1s { { 0. } @type "quad_out" 1/8 { 0.36 } 1/4 { 0.05 } @type "quad_in_out" 3 { 0.35 } 4 { 0.0 } } } curve freqg1s @Grain := 0.02s, @Action := CS_solo_lignes c g1.freq (@midi2hz($freqg1s)) { $freqg1s { { 68. } @type "quart" 4/5 { 93. } } } curve iterg1s @grain := 0.05s, @Action := CS_solo_lignes c g1.tempiter $iterg1s { $iterg1s { { 0. } @type "quad" 3 { 14.1 } 4 { 2. } } } } NOTE 0 2/3 NOTE D2 1/3 mes44; bol NOTE 0 1/2 TRILL (F1) 5/2 ; T.B. NOTE 0 1 NOTE B1 6 mes45 ; TEXT - "De tout temps le bruit court ou encore mieux l'idée a court qu'il existe une issue. ; Ceux qui n'y croient plus ne sont pas à l'abri d'y croire de nouveau". GROUP Tutti { SPAT10 xy 0. -0.5 lvl_ech2 0. num_ech2 31 PlayEch2 start lvl_ech2 6. 30 SPAT1 xy 0 1 SPAT2 xy -0.8 0.3 SPAT3 xy 0.8 0.3 SPAT4 xy -0.8 -0.3 SPAT5 xy 0.8 -0.3 SPAT6 xy 0 -1 3 ::CS_tutti_lignes("g2",25,0.,6,1005,48,1,8.2,7,2) ::CS_tutti_lignes("g4",25,0.,8,1005,71,1,8.2,7,4) ::CS_tutti_lignes("g5",25,0.,5,1005,80,1,8.2,7,5) ::CS_tutti_lignes("g6",25,0.,4,1005,86,1,8.2,7,6) curve ampg4t @Grain := 0.04s, @Action := { CS_tutti_lignes c g4.amp $ampg4t CS_tutti_lignes c g5.amp $ampg4t CS_tutti_lignes c g6.amp $ampg4t} { $ampg4t { { 0. } @type "cubic" 2 { 0.7 } @type "cubic_out" 2 { 0.2 } 13/2{ 0.2 } 1/4 { 0.6 } 1 { 0.3 } @type "quad" 9 { 0. } } } curve ampg2t @Grain := 0.04s, @Action := CS_tutti_lignes c g2.amp $ampg2t { $ampg2t { { 0. } @type "cubic" 2 { 0.7 } @type "cubic_out" 2 { 0.2 } 13/2{ 0.2 } 1 { 0.3 } 1 { 0.7 } 1 { 0.7 } @type "quad_out" 8 { 0. } } } curve itert @Grain := 0.04s, @Action := { CS_tutti_lignes c g2.tempiter $iterg2 CS_tutti_lignes c g5.tempiter $iterg4 CS_tutti_lignes c g6.tempiter $iterg5} { $iterg2,$iterg4,$iterg5 { { 0.,0.,0. } 3 { 0.,0.,0. } 4 { 5.,12.,16. } 7/2 { 0.,0.,0. } 4 { 0.,0.,9. } 3 { 0.,0.,0. } } } Curve freq56t @Grain := 0.04 s, @Action := { CS_tutti_lignes c g5.freq @midi2hz($freqt5) CS_tutti_lignes c g6.freq @midi2hz($freqt6) } { $freqt5 { { 80 } @type "linear" 7 { 80 } @type "linear" 3.5 { 78 } } $freqt6 { { 86 } @type "linear" 7 { 86 } @type "linear" 3.5 { 83 } } } } 1/4 solo_num_ech2 6 solo_PlayEch2 start curve ampEchS2 @grain := 0.05s, @action := solo_lvl_ech2 $ampEchS2 10 {$ampEchS2 { { 0. } @type "quad" 1/4 { 0.5 } 1 { 0.05 } 1/4 { 0.8 } 6 { 0. } } } (15/4 + 2/3 ) solo_num_ech3 6 solo_PlayEch3 start curve ampEch3 @grain := 0.05s, @action := solo_lvl_ech3 $ampEch3 10 {$ampEch3 { { 0.8 } @type "quad" 3 { 0. } } } CHORD (D2 F2) 1/8 mes46 NOTE C1 7/8 NOTE 0 1/2 NOTE B1 1/2 ; W.B. NOTE 0 1/2 NOTE B1 1/2 GROUP solo { ::CS_solo_lignes("g2",6,0.,9,1005,82,0.1,10.2,6) curve ampg2s @Grain := 0.02s, @Action := CS_solo_lignes c g2.amp $ampg2s { $ampg2s { { 0. } 1/3 { 0.13 } 2 { 0.13 } 3 { 0.0 } } } curve freqg2s @Grain := 0.02s, @Action := CS_solo_lignes c g2.freq (@midi2hz($freqg2s)) { $freqg2s { { 76. } @type "exp" 2 { 74. } } } } NOTE 0 1/2 NOTE B1 1/2 NOTE 0 1 NOTE 0 1/8 mes47 2/3 GROUP solo { ::CS_solo_lignes("g1",8,0.,6,1005,82,0.1,10.2,6) curve ampg1s @Grain := 0.02s, @Action := CS_solo_lignes c g1.amp $ampg1s { $ampg1s { { 0. } 1/3 { 0.15 } 4 { 0.15 } 4 { 0.0 } } } curve freqg1s @Grain := 0.02s, @Action := CS_solo_lignes c g1.freq (@midi2hz($freqg1s)) { $freqg1s { { 82. } 4 { 88. } } } curve iter1s @Grain := 0.02s, @Action := CS_solo_lignes c g1.tempiter $iter1s { $iter1s { { 3. } 4 { 12. } } } } NOTE D2 7/8 NOTE 0 1/2 NOTE D2 1/2 NOTE 0 1/2 NOTE C1 1/2 mes47_2 GROUP Solo { solo_num_ech 34 solo_PlayEch start curve echsolo @grain := 0.08s, @action := solo_lvl_ech $ampEchs 40 {$ampEchs { { 0. } @type "quad" 1/2 { 0.9 } 11 { 0.9 } 2 { 0. } } } } GROUP Tutti { ::CS_tutti_lignes("g7",15,0.,6,1005,91,0.,0.2,7,7) curve ampg7t @Grain := 0.04s, @Action := CS_tutti_lignes c g7.amp $ampg7t { $ampg7t { { 0. } 1/4 { 0.3 } 1 { 0.1 } @type "quad" 9 { 0. } } } curve itert7 @Grain := 0.04s, @Action :=CS_tutti_lignes c g7.tempiter $iterg7 { $iterg7 { { 17. } 7 { 0.} } } curve mfog2 @Grain := 0.08s, @Action :=CS_tutti_lignes c g2.mfo $mfog2 { $mfog2 { { 5. } 4 { 8.5 } 4 { 5. } } } ::CS_tutti_lignes("g3",15,0.,6,1005,91,0.,0.2,7,3) curve ampg3t @Grain := 0.04s, @Action := CS_tutti_lignes c g3.amp $ampg3t { $ampg3t { { 0. } 1/4 { 0.4 } 1 { 0.3 } @type "quad" 9 { 0. } } } } TRILL (F1) 2 TRILL (F1) 2 mes48 NOTE 0 1/8 NOTE F2 7/8 ; bol NOTE 0 1/2 NOTE B1 1/2 ; w.b. GROUP Solo { solo_num_ech2 6 solo_PlayEch2 start curve ech2 @grain := 0.05s, @action := solo_lvl_ech2 $ampech2 10 {$ampech2 { { 0. } @type "quad" 1/2 { 0.5 } 1 { 0.5 } 1 { 0. } } } } NOTE 0 1/2 NOTE B1 1/2 NOTE 0 1/2 ;----------------------------------------- PAGE 8 ----------------------------------------- NOTE B1 1/2 mes49 ; "Lumière, GROUP solo { ::CS_solo_lignes("g3",55,0.,6,1005,88,0.1,0.2,6) curve ampg3s @Grain := 0.04s, @Action := CS_solo_lignes c g3.amp $ampg3s { $ampg3s { { 0. } 1/4 { 0.5 } 3/4 { 0.2 } @type "quad_in_out" 1 { 0.5 } @type "quad_in_out" 1 { 0.2 } 39 { 0.2 } 4 { 0. } } } curve freqg3s @Grain := 0.02s, @Action := CS_solo_lignes c g3.freq (@midi2hz($freqg3s)) { $freqg3s { { 88. } 20 { 88. } 7 { 91. } 12 { 91. } 1 { 92. } @type "exp" 2 { 98. } } } curve del3s @Grain := 0.04s, @Action := CS_solo_lignes c g3.multidel $del3s { $del3s { { 0.8 } 6 { 0.8 } 6 { 20. } 8 { 0.8 } 7 { 0.8 } 8 { 20. } 6 { 0.8 } } } } GROUP Tutti { ::CS_tutti_lignes("g8",13,0.,6,1005,88,0.1,0.2,6,8) curve ampg8t @Grain := 0.04s, @Action := CS_tutti_lignes c g8.amp $ampg8t { $ampg8t { { 0. } 1 { 0.15 } 2 { 0.15 } @type "quad_in_out" 3/2 { 0.5 } @type "quad_in_out" 3/2 { 0.2 } 5 { 0. } } } curve SPAT8 @grain := 0.08s, @action SPAT8 ad $sp8az 1 { $sp8az { { 0 } 11 { 360 } } } SPAT8 xy 0.5 -1 SPAT9 xy -0.5 -1 num_ech6 30 ; lumière synth PlayEch6 start curve echG6 @grain := 0.05s, @action := lvl_ech6 $ampEch6 10 {$ampEch6 { { 0. } @type "quad" 1 { 3. } @type "quad" 6 { 3. } 3 { 0. } } } curve Spatgrav @grain := 0.08s, @action := {SPAT8 xy $sp8x $sp8y SPAT9 xy $sp9x $sp9y } { $sp8x, $sp8y, $sp9x, $sp9y { { 0.4, -1, -0.4, -1 } 5 { 0.2, 1, -0.2, 1 } } } } NOTE 0 1/4 NOTE B1 3/4 ; sa faiblesse NOTE 0 1/2 NOTE B1 1/2 ; son jaune NOTE 0 1/2 NOTE B1 3/2 ; son omniprésence". NOTE 0 1/4 NOTE F2 3/4 ; bol NOTE 0 1/2 NOTE C1 1/2 mes50 GROUP Solo { solo_num_ech3 6 ; radio solo_PlayEch3 start curve ech3s @grain := 0.05s, @action := solo_lvl_ech3 $ampEch3s 10 {$ampEch3s { { 0. } 1 { 0.4 } 8 { 0.4 } 5 { 0. } } } } GROUP Tutti { SPAT room 2 active 0 num_ech4 21 ; Dante PlayEch4 start curve echG4 @grain := 0.04s, @action := lvl_ech4 $ampEch4 10 {$ampEch4 { { 0. } @type "quad" 1/4 { 0.75 } @type "quad" 12 { 0.75 } 1 { 0. } } } num_ech5 35 ; gra PlayEch5 start curve echG5 @grain := 0.04s, @action := lvl_ech5 $ampEch5 10 {$ampEch5 { { 0. } @type "quad_in_out" 2 { 2.8 } @type "quad_in_out" 2 { 0.9 } @type "quad_in_out" 2 { 3.2 } @type "quad_in_out" 2 { 0.9 } @type "quad_in_out" 3/2 { 3.4 } @type "quad_in_out" 3/2 { 0.9 } @type "quad_in_out" 3/2 { 3.9 } @type "quad_in_out" 3/2 { 1.2 } @type "quad" 7 { 8.7 } @type "quad_in_out" 1/2 { 0. } } } curve Spatgrav @grain := 0.08s, @action := {SPAT8 xy $sp8x $sp8y SPAT9 xy $sp9x $sp9y } { $sp8x, $sp8y, $sp9x, $sp9y { { 0.2, 1, -0.2, 1 } 4 { -1, 0.2, -1, -0.2 } 2 { -0.8, -0.5, -0.2, -1 } 2 { 0.8, -1, 1, -0.8 } 3 { 0.2, 1, -0.2, 1 } 3 { -1, 0.2, -1, -0.2 } 2 { -0.2, -1, 0.2, -1 } } } } NOTE 0 1 TRILL (F1 A1) 2 TRILL (F1 A1) 2 mes51 NOTE 0 1 NOTE D2 1 NOTE 0 9/6 NOTE D1 1/6 mes52 ; crotales num_ech 36 PlayEch start lvl_ech 0. 10 0.6 30 curve SPAT10 @grain := 0.08s, @action := SPAT10 xy $sp10x $sp10y { $sp10x, $sp10y { { -1, 0.7 } 3 { 1, 0.7 } } } NOTE Db2 1/6 NOTE Eb2 1/6 NOTE 0 1 NOTE C1 1 mes53 GROUP Solo { curve iter3s @Grain := 0.04s, @Action := CS_solo_lignes c g3.tempiter $iter3s { $iter3s { { 0. } 1/2 { 8. } 3 { 8. } 1/2 { 0. } } } } NOTE 0 2 NOTE B1 7 mes54 ; TEXT - "Et le voilà en effet ce dernier si c'est un homme qui lentement se redresse ; et au bout d'un certain temps rouvre les yeux brûlés". NOTE G1 0 mes55 num_ech4 28 PlayEch4 start curve echG4 @grain := 0.05s, @action := lvl_ech4 $ampEch4 10 {$ampEch4 { { 0. } @type "quad" 1/4 { 0.95 } @type "quad" 12 { 0.95 } 1 { 0. } } } GROUP Tutti { ::CS_tutti_soust1(24,0.,66,1,2) curve frsoustT @grain := 0.02s, @Action := CS_tutti_lignes c soust.freq (@midi2hz($frsoustS)) { $frsoustS { { 50. } @type "cubic_in_out" 3 { 84 } @type "cubic_in_out" 3 { 60 } @type "cubic_in_out" 3 { 79 } @type "cubic_in_out" 2 { 73 } } } curve ampsoustT @grain := 0.05s, @Action := CS_tutti_lignes c soust.amp1 $ampsoustS { $ampsoustS { { 0. } @type "quad" 1/2 { 0.1 } 12 { 0.25 } 8 { 0. } } } 3 num_ech6 10 SPAT8 xy 0 0.2 SPAT9 xy 0 0.2 PlayEch6 start curve echG6 @grain := 0.05s, @action := lvl_ech6 $ampEch6 10 {$ampEch6 { { 0. } 1/4 { 3.8 } 12 { 3.8 } 4 { 0. } } } } NOTE B1 0 NOTE D2 0 NOTE C1 1 NOTE 0 1/2 NOTE B1 1/2 ; TEXT - "Tantôt le chaos est un immense trou noir et l'on s'efforce.... NOTE 0 3/4 NOTE B1 1/8 ; table NOTE B1 1/8 NOTE 0 1 NOTE 0 1/2 NOTE B1 1/2 mes56 GROUP Solo { ::CS_solo_points("i3",3,0.14,0.8,81) } NOTE 0 3/2 NOTE F1 1/8 ; T.B. NOTE F1 1/8 NOTE 0 5/4 NOTE 0 1/2 NOTE B1 1/2 mes57; table GROUP Solo { curve iter3s @Grain := 0.04s, @Action := CS_solo_lignes c g3.tempiter $iter3s { $iter3s { { 0. } 2 { 13. } 2 { 0. } } } } NOTE 0 1 NOTE B1 1 NOTE 0 1 ;----------------------------------------- PAGE 8 ----------------------------------------- NOTE B1 1 mes58 ; TEXT - "Tantôt on greffe une échapée sur cette allure, hors du trou noir". GROUP Tutti { SPAT8 xy 0.6 0.6 SPAT9 xy -0.6 -0.6 num_ech5 38 ; <------ bobine PlayEch5 start curve echT5 @grain := 0.05s, @action := lvl_ech5 $ampEchT5 10 {$ampEchT5 { { 0. } @type "quad" 4 { 0.3 } 29 { 0.37 } 6 { 0. } } } 3 num_ech 36 ; anguille PlayEch start lvl_ech 0. 10 0.5 30 curve SPAT10 @grain := 0.08s, @action := SPAT10 xy $sp10x $sp10y { $sp10x, $sp10y { { 1, 0.7 } 3 { -1, 0.7 } } } 1 num_ech7 37 ; zigoui PlayEch7 start lvl_ech7 0. 10 4.8 30 } 6 GROUP Solo { solo_lvl_ech 0. solo_num_ech 13 solo_PlayEch start solo_lvl_ech 1.5 10 1/2 solo_num_ech2 6 ; radio solo_PlayEch2 start curve ech2s @grain := 0.05s, @action := solo_lvl_ech2 $ampEch2s 10 {$ampEch2s { { 0. } @type "cubic_in_out" 1 { 0.4 } @type "cubic_in_out" 2 { 0.1 } @type "cubic_in_out" 1 { 0.4 } @type "cubic_in_out" 3 { 0. } } } 3/2 curve temposolop @grain := 0.02s { $tempSo { { $RT_TEMPO } 1/2 { ($RT_TEMPO + 30) } } } GROUP soloT @tempo := $tempSo { ::CS_solo_points("i3",2/3,0.1,0.8,81) 1/6 ::CS_solo_points("i3",2/3,0.11,0.8,91) 1/6 ::CS_solo_points("i3",2/3,0.13,0.8,81) 1/6 ::CS_solo_points("i3",1,0.09,0.8,68) 1/6 ::CS_solo_points("i3",1,0.16,0.8,81) 1/6 ::CS_solo_points("i3",5,0.21,0.8,94) } 1 ::CS_solo_lignes("g1",55,0.,6,1005,81,0.1,15.2,6) curve ampg1s @Grain := 0.04s, @Action := CS_solo_lignes c g1.amp $ampg1s { $ampg1s { { 0. } 3 { 0.2 } 25 { 0.2 } 4 { 0. } } } ::CS_solo_lignes("g2",55,0.,8,1005,43,0.1,0.2,6) curve ampg2s @Grain := 0.04s, @Action := CS_solo_lignes c g2.amp $ampg1s { $ampg1s { { 0. } 3 { 0.18 } 25 { 0.18 } 4 { 0. } } } } NOTE 0 1/4 NOTE B1 3/4 NOTE 0 10 NOTE 0 3 NOTE 0 1/8 mes61 ; ------ SOPRANO --- !! CHORAL GROUP Solo { ::CS_solo_points("i3",1/3,0.15,0.8,81) 1/8 ::CS_solo_points("i3",3,0.15,0.8,92) 3/4 ::CS_solo_points("i3",2/3,0.15,0.8,83) 1/4 ::CS_solo_points("i3",2,0.15,0.8,89) (3/4 + 1/6) ::CS_solo_points("i3",1,0.15,0.8,91) 2/3 ::CS_solo_points("i3",2,0.16,0.8,80) 5/6 ::CS_solo_points("i3",3/2,0.15,0.8,88) 1 ::CS_solo_points("i3",2,0.14,0.8,82) 1 ::CS_solo_points("i3",3,0.13,0.8,88) 1 ::CS_solo_lignes("g3",8,0.,6,1005,81,0.1,0.2,6) curve ampg3s @Grain := 0.04s, @Action := CS_solo_lignes c g3.amp $ampg3s { $ampg3s { { 0. } 1/2 { 0.2 } ;@type "quart_out" 7 { 0. } } } curve freqg3s @Grain := 0.02s, @Action := CS_solo_lignes c g3.freq (@midi2hz($freqg3s)) { $freqg3s { { 81. } 4 { 103. } } } (4 + 1/4) ::CS_solo_points("i3",2,0.13,0.8,79) 3/4 ::CS_solo_points("i3",2,0.13,0.8,81) 2/3 ::CS_solo_points("i3",3,0.13,0.8,73) 5/6 ::CS_solo_lignes("g4",8,0.,6,1005,81,0.1,0.2,6) curve ampg4s @Grain := 0.04s, @Action := CS_solo_lignes c g4.amp $ampg4s { $ampg4s { { 0. } 1/2 { 0.2 } ;@type "quart_out" 2 { 0. } } } curve freqg4s @Grain := 0.02s, @Action := CS_solo_lignes c g4.freq (@midi2hz($freqg4s)) { $freqg4s { { 86. } 1 { 97. } } } 3/2 ::CS_solo_points("i3",1/2,0.13,0.8,94) 1/6 ::CS_solo_points("i3",1/2,0.13,0.8,93) 1/6 ::CS_solo_points("i3",1/2,0.13,0.8,92) 1/6 ::CS_solo_points("i3",1/2,0.13,0.8,96) 1/6 ::CS_solo_points("i3",1/2,0.13,0.8,95) 1/6 ::CS_solo_points("i3",1/2,0.13,0.8,94) 1/6 ::CS_solo_points("i3",1/2,0.13,0.8,97) 1/5 ::CS_solo_points("i3",1/2,0.13,0.8,96) 1/5 ::CS_solo_points("i3",1/2,0.13,0.8,93) 1/5 ::CS_solo_points("i3",1/2,0.13,0.8,95) 1/5 ::CS_solo_points("i3",1/2,0.13,0.8,94) (1/5 + 2/3) ::CS_solo_points("i3",2,0.13,0.8,91) 2/3 ::CS_solo_points("i3",1/2,0.13,0.8,73) 2/3 ::CS_solo_points("i3",1/2,0.13,0.8,85) 5/4 ::CS_solo_points("i3",1/2,0.13,0.8,67) 3/4 ::CS_solo_points("i3",1/2,0.13,0.8,90) 3/6 ::CS_solo_points("i3",1/2,0.13,0.8,84) 1/6 ::CS_solo_points("i3",1/2,0.13,0.8,88) 2/6 ::CS_solo_lignes("g5",8,0.,6,1005,87,0.1,0.2,6) curve ampg5s @Grain := 0.04s, @Action := CS_solo_lignes c g5.amp $ampg5s { $ampg5s { { 0. } 1/2 { 0.4 } ;@type "quart_out" 1/2 { 0.2 } @type "quart" 3/2 { 0.5 } @type "quad_in_out" 3/2 { 0.1 } 3 { 0. } } } curve iter5s @Grain := 0.04s, @Action := CS_solo_lignes c g5.tempiter $iter5s { $iter5s { { 16. } 5 { 3. } } } } NOTE A6 7/8 NOTE C7 1/4 mes62 NOTE Ab6 3/4 NOTE G6 2/3 NOTE C#7 5/6 NOTE D6 7/6 NOTE D6 7/12 NOTE D6 7/4 mes63 NOTE B6 1/2 NOTE A7 2 NOTE 0 1/4 NOTE B6 7/4 mes64 NOTE 0 1/4 NOTE F6 3/4 NOTE F#6 2/3 NOTE G6 17/24 NOTE E6 1/8 mes65 NOTE Eb6 5/6 MULTI (C7 -> F#7) 11/3 NOTE 0 2/3 NOTE F6 2/3 mes66 NOTE B6 2/3 MULTI (C6 -> G6) 2 NOTE Ab5 3/6 NOTE E6 1/6 NOTE Eb6 2/6 ;----------------------------------------- PAGE 9 ----------------------------------------- NOTE D7 3/2 mes67 NOTE Eb7 1 NOTE F#7 1 NOTE Eb7 1 NOTE F#7 1/2 NOTE B1 28 ; LANCEMENT PROCESSUS BIPOLE GROUP SoloBipole { loop mfo12s 9/2 { curve mfo12s @grain := 0.08s, @action := { CS_solo_lignes c g1.mfo $mfo12s CS_solo_lignes c g2.mfo $mfo12s } { $mfo12s { { 5. } 7/2 { 8.5 } 1 { 5. } } } } loop delg1s 7/2 { curve delg1s @grain := 0.08s, @action := CS_solo_lignes c g1.multidel $delg1s { $delg1s { { 18. } 5/2 { 2. } 1 { 18. } } } } loop ampg1s 2 { curve ampg1s @grain := 0.08s, @action := CS_solo_lignes c g1.amp $ampg1s { $ampg1s { { 0.2 } 1 { 0.5 } 1 { 0.2 } } } } loop delg2s 7/2 { curve delg2s @grain := 0.08s, @action := CS_solo_lignes c g2.multidel $delg2s { $delg2s { { 1. } 2 { 18. } 3/2 { 1. } } } } loop ampg2s 7 { curve ampg2s @grain := 0.08s, @action := CS_solo_lignes c g2.amp $ampg2s { $ampg2s { { 0.2 } @type "cubic" 7/2 { 0.6 } @type "cubic_out" 7/2 { 0.2 } } } } } GROUP Tutti ; à faire avec l'original------------------------------------------------ { ::CS_tutti_lignes("g1",15,0.,6,1005,91,0.,0.2,7,7) curve ampg1t @Grain := 0.04s, @Action := CS_tutti_lignes c g1.amp $ampg1t { $ampg1t { { 0. } 1/4 { 0.3 } 1 { 0.1 } @type "quad" 9 { 0. } } } curve del1t @Grain := 0.04s, @Action :=CS_tutti_lignes c g1.multidel $del1t { $del1t { { 17. } 7 { 0.} } } curve mfog2 @Grain := 0.08s, @Action :=CS_tutti_lignes c g2.mfo $mfog2 { $mfog2 { { 5. } 4 { 8.5 } 4 { 5. } } } } ;------------------------------------------------------------------ NOTE 0 1/2 NOTE B6 3/2 mes69 ; TEXT - "Ne vois-tu pas que je brûle encore ?" lvl_Player4 1. 50 CS_Player4 e i1 0 37 "ECH_CS/03_Tarkofin.wav" 0.8 ::CS_tutti_soust1(120,0.4,61,5,6) ::CS_tutti_soust2(120,0.4,50,1,2) ::CS_tutti_soust3(120,0.4,84 ,3,4) curve ampsoustS @grain := 0.04s, @Action := {CS_tutti_lignes c soust.amp1 $ampsoustS1 CS_tutti_lignes c soust.amp2 $ampsoustS2 CS_tutti_lignes c soust.amp3 $ampsoustS3 } { $ampsoustS1,$ampsoustS2,$ampsoustS3 { { 0.,0.,0. } @type "quad" 6 { 0.8, 0.8,0.9 } 2 { 0.2, 0.2,0.2 } 1 { 0.8, 0.8,0.9 } 2 { 0.3, 0.3,0.3 } 1 { 0.6, 0.6,0.7 } } } ::SPAT_lissaj2("SPAT1",1,15,0) ::SPAT_lissaj2("SPAT2",1,15,3.14) ::SPAT_lissaj2inv("SPAT3",1,15,0) ::SPAT_lissaj2inv("SPAT4",1,15,3.14) ::SPAT_lissaj3("SPAT5",1,18,0) ::SPAT_lissaj3("SPAT6",1,18,3.14) NOTE 0 2 ;----------------------------------------- PAGE 10 ----------------------------------------- NOTE 0 1/2 NOTE B6 7/2 mes70 NOTE A7 3/2 mes71 ; sifffffl NOTE B6 1/2 NOTE 0 5/3 NOTE B6 1/3 NOTE 0 3/2 NOTE B6 5/4 mes72 NOTE B6 8 mes73 NOTE Bb6 1/3 mes75 NOTE G6 1/6 NOTE A6 3/6 NOTE 0 1/2 NOTE G#7 1 NOTE F7 3/2 NOTE 0 1/2 NOTE C#6 1 mes76 NOTE C6 5/6 NOTE B6 7/6 NOTE G#6 5/4 NOTE G7 9/4 mes77 NOTE E7 1 NOTE 0 1/2 NOTE G6 7/6 mes78 NOTE B6 0 NOTE Bb6 5/3 NOTE C#7 1/3 NOTE D7 2/3 MULTI (Ab7 -> C7) 5/3 NOTE C7 3 mes79 NOTE 0 1/2 NOTE F#6 1 mes80 NOTE F6 1 NOTE F#6 3/4 NOTE A6 1/4 NOTE Ab6 1/4 NOTE G6 3/4 NOTE F#6 1 NOTE F6 1/2 NOTE 0 3/2 NOTE C#6 1 mes81 NOTE B5 1 NOTE C#6 7/6 NOTE B5 1/3 NOTE 0 1/2 NOTE B1 23/2 mes82 ; PERCU ; TEXT - "Sans doute le feu s'est-il retiré, mais s'il y a là cendre, c'est que du feu reste ; en retrait". NOTE 0 1/2 NOTE B1 7 NOTE A3 1 ILFAUTBIENQUITTERLEPLATEAU antescofo::killall