
/*
 * Test SOLID comment
 *
 */


;====================================================================================================
;============ NACHLEBEN - Julia 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 ==========================================================
; ---- Julia 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
































