Update of /project/gsharp/cvsroot/gsharp In directory clnet:/tmp/cvs-serv23201
Modified Files: sdl.lisp Log Message: Improved F-clef. This gave me the opportunity to use the Metafont `curl' operator for the first time.
--- /project/gsharp/cvsroot/gsharp/sdl.lisp 2006/06/03 04:59:56 1.23 +++ /project/gsharp/cvsroot/gsharp/sdl.lisp 2006/06/03 05:40:07 1.24 @@ -666,7 +666,7 @@ (xc (+ xa bigdot-diameter)) (yc ya) (xd xb) (xe (* 0.85 sld)) (ye (- sld (* 2.0 staff-line-thickness))) - (xf (round (* 1.5 sld))) (yf (- 0.5 sld)) + (xf (round (* 1.5 sld))) (yf (- 0.3 sld)) (xg 0.0) (yg (* -2.5 sld)) (xh (+ xf (round (* 0.5 sld)))) (yh yf) (xi sld) (yi sld) @@ -679,12 +679,12 @@ left (c xd yd) & (c xd yd) ++ (c xe ye) right ++ - (c xf yf) down ++ + (c xf yf) (direction #c(-0.2 -1)) ++ (curl 3) (c xg yg) & (c xg yg) -- (c xg (1- yg)) & - (c xg (1- yg)) ++ - (c xh yh) up ++ + (c xg (1- yg)) (curl 3) ++ + (c xh yh) (direction #c(0.2 1)) ++ (c xi yi) left ++ cycle))) (clim:region-union (translate p (c 0 staff-line-thickness))