]> git.donarmstrong.com Git - lilypond.git/blobdiff - scm/output-tex.scm
* lily/tuplet-bracket.cc (make_bracket): make sure that gap is
[lilypond.git] / scm / output-tex.scm
index fb1fe1bb5cca24f4e3236f78f219acf3e2ae33be..4e43277a6dda7e31d1c269b2e74e8f7d7d9e95b8 100644 (file)
@@ -88,8 +88,8 @@
 (define (dot x y radius)
   (embedded-ps (list 'dot x y radius)))
 
-(define (beam width slope thick)
-  (embedded-ps (list 'beam  width slope thick)))
+(define (beam width slope thick blot)
+  (embedded-ps (list 'beam  width slope thick blot)))
 
 (define (bracket arch_angle arch_width arch_height height arch_thick thick)
   (embedded-ps (list 'bracket  arch_angle arch_width arch_height height arch_thick thick)))
 (define (no-origin) "")
 
 (define-public (tex-output-expression expr port)
-  (display (eval expr this-module) port )
-  )
+  (display (eval expr this-module) port ))