-
-(define (zigzag-line centre? zzw zzh thick dx dy)
- (format #f "~a ~a ~a ~a 0 0 ~a ~a draw_zigzag_line"
- (if centre? "true" "false")
- (str4 zzw)
- (str4 zzh)
- (str4 thick)
- (str4 dx)
- (str4 dy)))
+(define (path thickness exps)
+ (define (convert-path-exps exps)
+ (if (pair? exps)
+ (let*
+ ((head (car exps))
+ (rest (cdr exps))
+ (arity
+ (cond
+ ((memq head '(rmoveto rlineto lineto moveto)) 2)
+ ((memq head '(rcurveto curveto)) 6)
+ (else 1)))
+ (args (take rest arity))
+ )
+
+ ;; WARNING: this is a vulnerability: a user can output arbitrary PS code here.
+ (cons (ly:format
+ "~l ~a "
+ args
+ head)
+ (convert-path-exps (drop rest arity))))
+ '()))
+
+
+ (ly:format
+ "1 setlinecap ~a setlinewidth\n~l stroke"
+ thickness
+ (convert-path-exps exps) ))
+