added sub-sequence method to sequencer

in conduite, a line starting with "sequence" is interpreted as a
textfile ./sequences/$1.txt wihch is read as a sub scene. Main sequencer
is paused during sub sequence and restarted at the end.

main.pd

@@ -1,4 +1,4 @@
-#N canvas 849 238 977 492 10;
+#N canvas 1 129 977 492 10;
 #X declare -path extra/evt/data -path extra/evt/data -path extra/evt/ev-in
 -path extra/evt/ev-main -path extra/evt/ev-pano -path extra/evt/ev-pro
 -path extra/evt/libs/gil -path extra/evt/libs/kollabs -path extra/evt/media
@@ -495,22 +495,22 @@ uses scene "0" of "ev_example_panoramic_preset.txt".;
 #X connect 55 0 49 0;
 #X coords 0 -1 1 1 250 90 1 400 100;
 #X restore 328 170 pd mediaplayers;
-#N canvas 432 156 997 647 sequencer 0;
+#N canvas 22 498 1059 647 sequencer 1;
 #X obj 382 172 text define -k conduite;
 #A set scene entree \; sound 0 \; light1-val 0 0 \; light2-val 0 0
 \; light3-val 0 0 \; light4-val 0 0 \; light5-val 0 0 \; light6-val
 0 0 \; light7-val 0 0 \; light8-val 0 0 \; light9-val 0 0 \; light10-val
 0 0 \; light11-val 0 0 \; light12-val 0 0 \; 0 \; 1000 \; scene fadeout_tableaux
-\; light9-val 0 5000 \; sound LACHOSEAVOIR7MNVRAIRenderedcut.wav \;
-video brouillardH26413AVRIL.mov \; 2000 \; scene video_brouillard \;
-2000 \; scene depart_son \; 22000 \; scene dune_25%_16s \; light1-val
-25 11000 \; light2-val 25 11000 \; 91000 \; scene dune_0%_5s \; light1-val
-0 5000 \; light2-val 0 5000 \; 7000 \; scene video_papillon \; video
-PAPILLONJAUNEDEF13_2.mov \; 3000 \; scene papillon_45%_3s \; light3-val
-43 3000 \; 49000 \; scene papillon_0%_1s \; light3-val 0 0 \; 5000
-\; scene tete_50%_3s \; light4-val 50 3000 \; 43000 \; scene tete_0%_1s
-\; light4-val 0 2000 \; 4000 \; scene par56_26%_2s \; light7-val 26
-2000 \; 10000 \; scene video_mouches \; video Flee11avril_H264_02.mp4
+\; sequence test \; light9-val 0 5000 \; sound LACHOSEAVOIR7MNVRAIRenderedcut.wav
+\; video brouillardH26413AVRIL.mov \; 2000 \; scene video_brouillard
+\; 2000 \; scene depart_son \; 22000 \; sequence 0 \; scene dune_25%_16s
+\; light1-val 25 11000 \; light2-val 25 11000 \; 91000 \; scene dune_0%_5s
+\; light1-val 0 5000 \; light2-val 0 5000 \; 7000 \; scene video_papillon
+\; video PAPILLONJAUNEDEF13_2.mov \; 3000 \; scene papillon_45%_3s
+\; light3-val 43 3000 \; 49000 \; scene papillon_0%_1s \; light3-val
+0 0 \; 5000 \; scene tete_50%_3s \; light4-val 50 3000 \; 43000 \;
+scene tete_0%_1s \; light4-val 0 2000 \; 4000 \; scene par56_26%_2s
+\; light7-val 26 2000 \; 10000 \; scene video_mouches \; video Flee11avril_H264_02.mp4
 \; 155000 \; scene par56_15%_19s \; light7-val 15 19000 \; 22000 \;
 scene signal_cri \; light7-val 0 0 \; 2000 \; scene cri_par56_80% \;
 light7-val 80 0 \; 2000 \; scene fin \; light7-val 0 0 \; light8-val
@@ -542,7 +542,7 @@ light7-val 80 0 \; 2000 \; scene fin \; light7-val 0 0 \; light8-val
 -1;
 #X obj 113 145 bng 15 250 50 0 cue empty cue 17 7 0 10 -262144 -1 -1
 ;
-#X obj 103 172 cnv 15 40 16 empty chrono 4:22 2 9 0 14 -233017 -66577
+#X obj 103 172 cnv 15 40 16 empty chrono 0:12 2 9 0 14 -233017 -66577
 0;
 #X obj 493 406 pack f f;
 #X obj 557 345 div 60;
@@ -572,6 +572,25 @@ light7-val 80 0 \; 2000 \; scene fin \; light7-val 0 0 \; light8-val
 #X msg 469 130 read ./conduite13-04A.txt;
 #X obj 652 107 loadbang;
 #X msg 436 103 write ./conduite13-04A.txt;
+#X obj 747 247 r sequence;
+#X obj 272 290 r sequence;
+#X obj 750 434 text sequence sequence -g;
+#X obj 770 351 text define sequence;
+#X msg 770 319 read ./sequences/\$1.txt;
+#X msg 750 391 line 0 \, auto;
+#X obj 747 269 t b a b;
+#X obj 859 390 r stop;
+#X msg 858 291 write ./sequences/test.txt;
+#X obj 924 440 s play;
+#X obj 846 253 print;
+#X obj 793 292 s pause;
+#X obj 257 246 r pause;
+#X symbolatom 801 111 25 0 0 0 - - -, f 25;
+#X obj 825 81 symbol;
+#X obj 826 59 r sequence;
+#X msg 964 403 symbol ---;
+#X obj 970 372 r home;
+#X msg 859 412 stop;
 #X connect 1 0 3 0;
 #X connect 2 0 3 0;
 #X connect 3 1 34 0;
@@ -619,6 +638,24 @@ light7-val 80 0 \; 2000 \; scene fin \; light7-val 0 0 \; light8-val
 #X connect 48 0 0 0;
 #X connect 49 0 48 0;
 #X connect 50 0 0 0;
+#X connect 51 0 57 0;
+#X connect 51 0 61 0;
+#X connect 52 0 2 0;
+#X connect 53 1 60 0;
+#X connect 53 1 67 0;
+#X connect 55 0 54 0;
+#X connect 56 0 53 0;
+#X connect 57 0 56 0;
+#X connect 57 1 55 0;
+#X connect 57 2 62 0;
+#X connect 58 0 69 0;
+#X connect 59 0 54 0;
+#X connect 63 0 2 0;
+#X connect 65 0 64 0;
+#X connect 66 0 65 0;
+#X connect 67 0 64 0;
+#X connect 68 0 67 0;
+#X connect 69 0 53 0;
 #X coords 0 -1 1 1 250 90 1 100 100;
 #X restore 608 168 pd sequencer;
 #X obj 68 44 simpleLight 1;

sequences/0.txt

@@ -0,0 +1,19 @@
+scene par56_26%_2s;
+light7-val 26 2000;
+10000;
+scene video_mouches;
+video Flee11avril_H264_02.mp4;
+155000;
+scene par56_15%_19s;
+light7-val 15 19000;
+22000;
+scene signal_cri;
+light7-val 0 0;
+2000;
+scene cri_par56_80%;
+light7-val 80 0;
+2000;
+scene fin;
+light7-val 0 0;
+light8-val 100 0;
+light9-val 69 0;

sequences/test.txt

@@ -0,0 +1,19 @@
+scene par56_26%_2s;
+light7-val 26 2000;
+10000;
+scene video_mouches;
+video Flee11avril_H264_02.mp4;
+155000;
+scene par56_15%_19s;
+light7-val 15 19000;
+22000;
+scene signal_cri;
+light7-val 0 0;
+2000;
+scene cri_par56_80%;
+light7-val 80 0;
+2000;
+scene fin;
+light7-val 0 0;
+light8-val 100 0;
+light9-val 69 0;