- (format "text \"~a\" ~a ~a " postscript-font-name size
- (string-join (map (lambda (xyn) (caddr xyn))
- x-y-named-glyphs))))
+(define-public (utf-8-string
+ descr
+ string)
+
+ (format "utf-8 \"~a\" \"~a\""
+ (escape-string descr)
+
+ ;; don't want unescaped spaces.
+ (escape-string string)
+ ))
+
+
+(define (bezier-sandwich lst thick)
+ (format
+ #f
+ "bezier_sandwich ~a [~a]"
+ thick
+ (string-append
+ (string-join (map (lambda (x) (format "(~a,~a)" (car x) (cdr x)))
+ lst) ","))))