(convert-path-exps (drop rest arity))))
'()))
- (let ((cap-numeric (case cap ((butt) 0) ((round) 1) ((square) 2)))
- (join-numeric (case join ((miter) 0) ((round) 1) ((bevel) 2))))
+ (let ((cap-numeric (case cap ((butt) 0) ((round) 1) ((square) 2)
+ (else (begin
+ (ly:warning (_ "unknown line-cap-style: ~S")
+ (symbol->string cap))
+ 1))))
+ (join-numeric (case join ((miter) 0) ((round) 1) ((bevel) 2)
+ (else (begin
+ (ly:warning (_ "unknown line-join-style: ~S")
+ (symbol->string join))
+ 1)))))
(ly:format
"gsave currentpoint translate
~a setlinecap ~a setlinejoin ~a setlinewidth