Bug in CMN (first note of each line)?

[Jacques Duthen]

Hello,

Are the versions of CMN labelled?

The only variable which name contains "VERSION" in 
the "CMN" package is AFAIR *cmn-version* which value
seems to be bound to the date when I built the system 
(Nov 19, 1997).  Anyway, it's not far from the date
when I downloaded CMN.

Is this a bug or am I doing something wrong?
When I run the example given at the end of this message
(or a more complex stuff) either as a :quickdraw output 
or as a postscript output, I still get an unexpected result: 
except for the first measure, the f2 (the first note of the 
first measure of the second voice of the second part of each 
line (ouf!)) is not drawn.  If I repeat the same measure many
times on a wider score, the bug occurs on each first note of 
the first measure of the second voice of the second part of 
each line.

Also, the documentation says that "if a staff has no clef,
it is given one [snip], but it is scaled (by 0 0) to be
invisible".  
Can you tell me why my second staff (the drum staff) shows 
a clef on each line but the first one?
Should I put an explicit (clef bass (scale 0 0)) ?

Thanks in advance
-- 
                                                             [jack]
| # # | # # # | # # | # # # | # # | # # # | Jacques Duthen   [jack] |
| # # | # # # | # # | # # # | # # | # # # | duthen@club-internet.fr |
|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|

(in-package "CMN")

(cmn
 (size 18)
 (output-type :quickdraw)
 (page-width 6)
 (staff-name-font-scaler 0.6)
 (layout :old-style)
 (section
  (system
   bracket
   (staff bass
          (staff-name "Bass")
          (meter '"2+2+1" 4 (beaming '(2 2 1)))
          (meter 5 4 invisible (beaming '(2 2 1)))
          (engorge (list (a2 (rq 3/4))
                         (rest (rq 1/4))
                         (d3 (rq 2))
                         (g3 (rq 1))
                         (e3 (rq 1)))))
   (setq |Drum-STAFF|
         (staff nil
                (staff-name "Drum")
                (meter '"2+2+1" 4 (beaming '(2 2 1)))
                (meter 5 4 invisible (beaming '(2 2 1)))
                (engorge (list (g3 (rq 1) nil stem-up)
                               (g3 (rq 1) nil stem-up)
                               (g3 (rq 1) nil stem-up)
                               (g3 (rq 1) nil stem-up)
                               (g3 (rq 1) nil stem-up)))))
   (staff (tied-to |Drum-STAFF|)
          (meter 5 4 invisible (beaming '(2 2 1)))
          (engorge (list (f2 (rq 1) nil stem-down)
                         (c3 (rq 1) nil stem-down)
                         (a2 (rq 1) nil stem-down)
                         (c3 (rq 1) nil stem-down)
                         (c3 (rq 1) nil stem-down))))))
 (section
  (system
   bracket
   (staff bass
          (meter 5 4 invisible (beaming '(2 2 1)))
          (engorge (list (a2 (rq 3/4))
                         (rest (rq 1/4))
                         (d3 (rq 2))
                         (g3 (rq 1))
                         (e3 (rq 1)))))
   (setq |Drum-STAFF|
         (staff nil
                (meter 5 4 invisible (beaming '(2 2 1)))
                (engorge (list (g3 (rq 1) nil stem-up)
                               (g3 (rq 1) nil stem-up)
                               (g3 (rq 1) nil stem-up)
                               (g3 (rq 1) nil stem-up)
                               (g3 (rq 1) nil stem-up)))))
   (staff (tied-to |Drum-STAFF|)
          (meter 5 4 invisible (beaming '(2 2 1)))
          (engorge (list (f2 (rq 1) nil stem-down)
                         (c3 (rq 1) nil stem-down)
                         (a2 (rq 1) nil stem-down)
                         (c3 (rq 1) nil stem-down)
                         (c3 (rq 1) nil stem-down))))))
 (section
  (system
   bracket
   (staff bass
          (meter 5 4 invisible (beaming '(2 2 1)))
          (engorge (list (a2 (rq 3/4))
                         (rest (rq 1/4))
                         (d3 (rq 2))
                         (g3 (rq 1))
                         (e3 (rq 1)))))
   (setq |Drum-STAFF|
         (staff nil
                (meter 5 4 invisible (beaming '(2 2 1)))
                (engorge (list (g3 (rq 1) nil stem-up)
                               (g3 (rq 1) nil stem-up)
                               (g3 (rq 1) nil stem-up)
                               (g3 (rq 1) nil stem-up)
                               (g3 (rq 1) nil stem-up)))))
   (staff (tied-to |Drum-STAFF|)
          (meter 5 4 invisible (beaming '(2 2 1)))
          (engorge (list (f2 (rq 1) nil stem-down)
                         (c3 (rq 1) nil stem-down)
                         (a2 (rq 1) nil stem-down)
                         (c3 (rq 1) nil stem-down)
                         (c3 (rq 1) nil stem-down)))))))

;; end of example