[CM] CMN - straight flag problem in sbcl?

[Bill Sack]

hello cm people,

i'm a long-time cmn user and just started using it with sbcl 1.0.1 - is it
possible that the patch Anders suggested back in 2002 for displaying
slanted, straight flags doesn't work with sbcl? i ask because i looked at
the code in cmn2.lisp:

          ;; this version from AV 7-Oct-02
          (rlineto score *straight-flag-dx* (if up-stem (-
*straight-flag-dy*) *straight-flag-dy*))
          (rlineto score 0.0 *beam-width*)
          (lineto score bx0 (+ y *beam-width*))

;          (lineto score (+ bx0 .3) y)
;          (lineto score (+ bx0 .3) (+ y .1))
;          (lineto score bx0 (+ y .1))

          (lineto score bx0 y)
          (fill-in score))
    #+(or gcl sbcl)    (do ((i 0 (1+ i))
             (y by0 (+ y incr)))
            ((>= i nflags))
etc.

... contains that conditional stuff about gcl and sbcl

anyway, this little example:

(in-package :cmn)
(setf *straight-flag-dy* .2)
(cmn (curvy-flags nil)(output-file "flag-test.eps")
(c5 e)
(rest e)
(c4 e)
(rest e))

shows flags that do not slant, but rather are displaced on the stem by a
small amount.

i'll comment out the sbcl stuff on my local copy and recompile just to see
what happens.

all best,
bill sack
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://cm-mail.stanford.edu/pipermail/cmdist/attachments/20070320/4fbf210b/attachment.html>