diff options
Diffstat (limited to 'scm/output-ps.scm')
| -rw-r--r-- | scm/output-ps.scm | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/scm/output-ps.scm b/scm/output-ps.scm index 010e8f15a2..108771ee4b 100644 --- a/scm/output-ps.scm +++ b/scm/output-ps.scm @@ -112,13 +112,16 @@ "false") (round4 radius) (round4 thick))) -(define (dashed-line thick on off dx dy) - (format #f "~a ~a ~a [ ~a ~a ] 0 draw_dashed_line" +(define (dashed-line thick on off dx dy phase) + (format #f "~a ~a ~a [ ~a ~a ] ~a draw_dashed_line" (str4 dx) (str4 dy) (str4 thick) (str4 on) - (str4 off))) + (str4 off) + (str4 phase) + + )) ;; what the heck is this interface ? (define (dashed-slur thick on off l) |