So, the general architecture is definitively made "by the grace" of excellent def-section system (class system) of scom.
I've basically design a section Master template and use it for each section of the piece but feeded with different material.
;;;;;;COQUILLE NOISE STUDY
;;;;===============================================================================================================
;;;SECTION G
(setq nbzne 8)
(setq zne (gen-repeat nbzne '(1/1)))
;;Harmonic path pour la section
(setq path1 (vector-map '(a b c d e f g) (vector-smooth 4 (gen-noise-asymmetric (* nbzne 4) 10 :seed .412))))
(setq path (activate-tonality-symbols path1))
(setq mat1 )
(setq mat2 )
(setq mat3 )
(setq mat4 )
(setq p1sym )
(setq p2sym )
(setq p3sym )
(setq p4sym )
(setq part1.sym (find-symbols p1sym))
(setq part2.sym (find-symbols p2sym))
(setq part3.sym (find-symbols p3sym))
(setq part4.sym (find-symbols p4sym))
(setq part1.len (length-trim (make-zone zne) (get-timing '1/16 p1sym)))
(setq part2.len (length-trim (make-zone zne) (get-timing '1/16 p2sym)))
(setq part3.len (length-trim (make-zone zne) (get-timing '1/16 p3sym)))
(setq part4.len (length-trim (make-zone zne) (get-timing '1/16 p4sym)))
(setq part1.vel (symbol-to-velocity 88 118 3 part1.sym))
(setq part2.vel (symbol-to-velocity 88 118 3 part2.sym))
(setq part3.vel (symbol-to-velocity 88 118 3 part3.sym))
(setq part4.vel (symbol-to-velocity 88 118 3 part4.sym))
(setq part1.artic (gen-repeat (length zne) '((2))))
(setq part2.artic (gen-repeat (length zne) '((2))))
(setq part3.artic (gen-repeat (length zne) '((2))))
(setq part4.artic (gen-repeat (length zne) '((2))))
(def-section g
default
zone zne
p1
length part1.len
symbol part1.sym
velocity part1.vel
tonality (transpose-tonality 0 path)
channel 1
program part1.artic
p3
length part2.len
symbol part2.sym
velocity part2.vel
tonality (transpose-tonality 0 path)
channel 2
program part2.artic
p4
length part3.len
symbol part3.sym
velocity part3.vel
tonality (transpose-tonality -12 path)
channel 3
program part3.artic
p2
length part4.len
symbol part4.sym
velocity part4.vel
tonality (transpose-tonality -24 path)
channel 4
program part4.artic
)
;;;======================================================================================================