color patch by EA

[lilypond.git] / scm / output-tex.scm

diff --git a/scm/output-tex.scm b/scm/output-tex.scm
index 43e68d7782d5cfa6efe0d242c30ac62906d2f738..7d5bffda091fa6ffe8e95bb8a58d19ed7d5eced2 100644 (file)
--- a/scm/output-tex.scm
+++ b/scm/output-tex.scm
@@ -43,6 +43,8 @@
            round-filled-box
            text
            white-text
+           setcolor
+           resetcolor
            polygon
            draw-line
            no-origin
@@ -170,6 +172,19 @@
 (define (white-text scale s)
   (embedded-ps (list 'white-text scale s)))
 
+(define (setcolor r g b)
+  (string-append "\\color[rgb]{"
+  (number->string r) ", "
+  (number->string g) ", "
+  (number->string b) "}"))
+
+;; FIXME
+;; The PostScript backend saves the current color
+;; during setcolor and restores it during resetcolor.
+;; We don't do that here.
+(define (resetcolor)
+  (string-append "\\color[rgb]{0,0,0}"))
+
 (define (polygon points blotdiameter)
   (embedded-ps (list 'polygon `(quote ,points) blotdiameter)))