[CM] CMN - straight flag problem in sbcl?

[Bill Sack]

------=_Part_138423_20812813.1174427922743
Content-Type: text/plain; charset=ISO-8859-1; format=flowed
Content-Transfer-Encoding: 7bit
Content-Disposition: inline

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

------=_Part_138423_20812813.1174427922743
Content-Type: text/html; charset=ISO-8859-1
Content-Transfer-Encoding: 7bit
Content-Disposition: inline

hello cm people,<br><br>i&#39;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&#39;t work with sbcl? i ask because i looked at the code in 
cmn2.lisp:<br><br><span>&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp; ;; this version from AV 7-Oct-02<br>&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp; (rlineto score *straight-flag-dx* (if up-stem (- *straight-flag-dy*) *straight-flag-dy*))<br>&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp; (rlineto score 0.0 *beam-width*)<br>&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp; (lineto score bx0 (+ y *beam-width*))
<br>&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp; <br>;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp; (lineto score (+ bx0 .3) y)<br>;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp; (lineto score (+ bx0 .3) (+ y .1))<br>;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp; (lineto score bx0 (+ y .1))<br>&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp; <br>&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp; (lineto score bx0 y)<br>&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp; (fill-in score))
<br>&nbsp;&nbsp;&nbsp; #+(or gcl sbcl)&nbsp;&nbsp;&nbsp; (do ((i 0 (1+ i))<br>&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp; (y by0 (+ y incr)))<br>&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; ((&gt;= i nflags))<br>etc.<br><br>... contains that conditional stuff about gcl and sbcl<br><br>anyway, this little example:<br>
<br>(in-package :cmn)<br>(setf *straight-flag-dy* .2)<br>(cmn (curvy-flags nil)(output-file &quot;flag-test.eps&quot;)<br>(c5 e)<br>(rest e)<br>(c4 e)<br>(rest e))<br><br>shows flags that do not slant, but rather are displaced on the stem by a small amount. 
<br><br>i&#39;ll comment out the sbcl stuff on my local copy and recompile just to see what happens.<br><br>all best,<br>bill sack<br><br></span>

------=_Part_138423_20812813.1174427922743--