X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Foutput-tex.scm;h=4be327839707c5e8a68ecd6f58d2f62433988ce6;hb=95f4590b72ce219471cc4018a188b401aa3f6daa;hp=d9a97b90934139f5316153473e957dcdc799923d;hpb=03ce3667568361ee7433032988a4089c64de2ec7;p=lilypond.git diff --git a/scm/output-tex.scm b/scm/output-tex.scm index d9a97b9093..4be3278397 100644 --- a/scm/output-tex.scm +++ b/scm/output-tex.scm @@ -27,7 +27,6 @@ dashed-slur named-glyph dashed-line - zigzag-line comment repeat-slash placebox @@ -101,9 +100,6 @@ (define (dashed-line thick on off dx dy phase) (embedded-ps (list 'dashed-line thick on off dx dy phase))) -(define (zigzag-line centre? zzw zzh thick dx dy) - (embedded-ps (list 'zigzag-line centre? zzw zzh thick dx dy))) - (define (embedded-ps expr) (let ((ps-string (with-output-to-string @@ -180,4 +176,4 @@ (string-append "\\special{src:" (line-column-location location) "}") "")) - "")) \ No newline at end of file + ""))