;;;; source file of the GNU LilyPond music typesetter
;;;;
;;;; (c) 1998--2006 Jan Nieuwenhuizen <janneke@gnu.org>
-;;;; Han-Wen Nienhuys <hanwen@cs.uu.nl>
+;;;; Han-Wen Nienhuys <hanwen@xs4all.nl>
;;;; Note: currently misused as testbed for titles with markup, see
;;;; input/test/title-markup.ly
polygon
repeat-slash
resetcolor
- resetrotatino
+ resetrotation
round-filled-box
setcolor
- setrotation
+ setrotation
text
zigzag-line))
(format #f "~a draw_repeat_slash"
(numbers->string4 (list x-width width height)))))
-;; restore color from stack
-(define (resetcolor) "setrgbcolor\n")
-
(define (round-filled-box left right bottom top blotdiam)
(let* ((halfblot (/ blotdiam 2))
;; save current color on stack and set new color
(define (setcolor r g b)
- (format #f "currentrgbcolor ~a setrgbcolor\n"
+ (format #f "gsave ~a setrgbcolor\n"
(numbers->string4 (list r g b))))
+;; restore color from stack
+(define (resetcolor) "grestore \n")
+
;; rotation around given point
(define (setrotation ang x y)
(format "gsave ~a translate ~a rotate ~a translate\n"