I tried this score and when I evaluate it I do not have on the second flute stave the material of fluterev but two staves with fmel  instead of one  with feel and the other with fluterev . I am sure there is a very simple solution to this issue but I can't find it 

 

Thank you for your help 

 

Patrick

;;;---------------------------------------------------------
;;; Parameters
;;;---------------------------------------------------------
(setf size 16)
(setf bars (gen-repeat size '(4/4)))
;(setf pause (length-span bars '(-s)))

(setf melo (tonality-map
            '(minor)
            (pitch-transpose
             '(0 2 -2 -4 -1 2)
             (gen-eval
              3
              '(rnd-order '(s c4 d4 e4 f4 q g4 ) :type :pitch)))))
(setf melos (gen-eval 5 '(aleaparent1a '(4 2 3 4 5 2 3) (flatten melo))))
(setf melos1 (reverse (gen-eval 5 '(aleaparent1a '(4 2 3 4 5 2 3) (flatten melo)))))  

(setf fmel (ambitus '(g4 c6) melos))
(setf fluterev (reverse fmel))
;;;---------------------------------------------------------
;;; Score and Layout
;;;---------------------------------------------------------
(def-score flute
           (:title "Melody"
            :composer "Patrick Mimran"
            :copyright "Copyright © 2020"
            :key-signature 'chromatic
            :time-signature '((1 1 1 1) 4)
            :tempo 100
            :layout (list (flute-layout 'flute)
                          (flute-layout 'flute)
))
  
  (flute
   :omn fmel
   :channel 1
   :sound 'gm
   :program 'flute 
   :volume 95
   :pan 70
   ;:controllers (91 '(52)) 
)
(flute1 
   :omn fluterev
   :channel 2 
   :sound 'gm
   :program 'violin
   :volume 60  
   :pan 70
   ;:controllers (91 '(52))
   
  ))

Flute-example.opmo

I found the mistake 

 

Thank you 

 

Patrick

:layout (list (flute-layout 'flute)
              (flute-layout 'flute1)

 

Sharing code (score) with others should include custom function if any.