* This can only be used with the SVG backend.
draw-line
ellipse
embedded-ps
draw-line
ellipse
embedded-ps
glyph-string
named-glyph
oval
glyph-string
named-glyph
oval
(define (utf-8-string pango-font-description string)
(dispatch `(fontify ,pango-font-description ,(entity 'tspan string))))
(define (utf-8-string pango-font-description string)
(dispatch `(fontify ,pango-font-description ,(entity 'tspan string))))
+(define (embedded-svg string)
+ string)
(define (setcolor r g b)
(format "<g color=\"rgb(~a%,~a%,~a%)\">\n"
(define (setcolor r g b)
(format "<g color=\"rgb(~a%,~a%,~a%)\">\n"