lilypond-user
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: Thickness of tick bar line in LilyPond version 2.18.2.


From: SoundsFromSound
Subject: Re: Thickness of tick bar line in LilyPond version 2.18.2.
Date: Mon, 2 Jan 2017 15:41:13 -0700 (MST)

Mirosław Doroszewski-2 wrote
> Thickness of tick bar line in LilyPond version 2.18.2.
> 
> 1. Why tick bar line is so thin by default?
> 2. Other bar lines are not.
> 
> _______________________________________________
> lilypond-user mailing list

> lilypond-user@

> https://lists.gnu.org/mailman/listinfo/lilypond-user

Hello.

This came up a while back and here is the thread, perhaps this can help you
too?
http://lilypond.1069038.n5.nabble.com/Thickness-of-tick-style-barlines-td191337.html

Highlights:

Thickness and length are taken from
ly:staff-symbol-line-thickness and ly:staff-symbol-staff-space. 

You could redefine it ofcourse:

\version "2.19.36"

#(define (calc-blot thickness extent grob)
  "Calculate the blot diameter by taking @code{'rounded}
and the dimensions of the extent into account."
  (let* ((rounded (ly:grob-property grob 'rounded #f))
         (blot (if rounded
                   (let ((blot-diameter (layout-blot-diameter grob))
                         (height (interval-length extent)))

                     (cond ((< thickness blot-diameter) thickness)
                           ((< height blot-diameter) height)
                           (else blot-diameter)))
                   0)))

    blot))

#(define ((make-tick-bar-line x y) grob extent)
  "Draw a tick bar line."
  (let* ((half-staff (* 1/2 (ly:staff-symbol-staff-space grob)))
         (staff-line-thickness (ly:staff-symbol-line-thickness grob))
         (height (interval-end extent))
         (blot (calc-blot staff-line-thickness extent grob)))

    (ly:round-filled-box (cons 0 (+ x staff-line-thickness))
                         (cons (- height (+ y half-staff)) (+ height y
half-staff))
                         blot)))

#(add-bar-glyph-print-procedure "'" (make-tick-bar-line 0.2 1))
#(define-bar-line "'" "'" #f #f)

{
    r1
    \bar "'"
    r1
} 



-----
composer | sound designer 
LilyPond Tutorials (for beginners) --> http://bit.ly/bcl-lilypond
--
View this message in context: 
http://lilypond.1069038.n5.nabble.com/Thickness-of-tick-bar-line-in-LilyPond-version-2-18-2-tp198772p198775.html
Sent from the User mailing list archive at Nabble.com.



reply via email to

[Prev in Thread] Current Thread [Next in Thread]