;;;;
;;;; source file of the GNU LilyPond music typesetter
;;;;
-;;;; (c) 1998--2007 Jan Nieuwenhuizen <janneke@gnu.org>
+;;;; (c) 1998--2008 Jan Nieuwenhuizen <janneke@gnu.org>
;;;; Han-Wen Nienhuys <hanwen@xs4all.nl>
;;;; Note: currently misused as testbed for titles with markup, see
dashed-slur
dot
draw-line
+ ellipse
embedded-ps
named-glyph
no-origin
+ oval
placebox
polygon
repeat-slash
(- x2 x1) (- y2 y1)
x1 y1 thick))
+(define (ellipse x-radius y-radius thick fill)
+ (ly:format
+ "~a ~4f ~4f ~4f draw_ellipse"
+ (if fill
+ "true"
+ "false")
+ x-radius y-radius thick))
+
(define (embedded-ps string)
string)
(define (no-origin)
"")
+(define (oval x-radius y-radius thick fill)
+ (ly:format
+ "~a ~4f ~4f ~4f draw_oval"
+ (if fill
+ "true"
+ "false")
+ x-radius y-radius thick))
+
(define (placebox x y s)
(ly:format
"~4f ~4f moveto
(list r g b)))
;; restore color from stack
-(define (resetcolor) "grestore \n")
+(define (resetcolor) "grestore\n")
;; rotation around given point
(define (setrotation ang x y)