(define (number-pair->string4 numpair)
(ly:format "~4l" numpair))
-(define (numbers->string4 numlist)
- (string-join (map str4 numlist) " "))
-
;;;
;;; Lily output interface, PostScript implementation --- cleanup and docme
;;;
"\n unknown\n")
(define (url-link url x y)
- (ly:format "~a ~a ~a ~a (~a) mark_URI"
+ (ly:format "~a ~a currentpoint vector_add ~a ~a currentpoint vector_add (~a) mark_URI"
(car x)
(car y)
(cdr x)