[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: Older bar type.
From: |
Tim Nowaczyk |
Subject: |
Re: Older bar type. |
Date: |
Tue, 6 May 2003 23:34:44 -0500 |
User-agent: |
Mutt/1.3.28i |
On Mon, May 05, 2003 at 11:46:50PM -0500, Tim Nowaczyk wrote:
> Well, here's a patch that does what I want, but I'd rather do this in
>scheme in the header. The included patch adds a new barline ":4|" that
>creates the correct symbol.
>
> I'm trying to learn all this, but I've never used lisp before. Here's the
>scheme code I have so far. I'm trying to override the ':|' symbol with
>a custom one.
>
Well, no pointers, so I struck out on my own. Am I asking a stupid
question, does no one know or does no one care? That's my main
question.
Here's what I've got. It looks right, but I don't know if
it is really spaced correctly.
\version "1.7.18"
\paper
{
papersize="letter"
}
\include "paper20.ly"
\header {
title = "Candenzen f\\\"ur Gitarre"
composer = "Anton Diabelli"
enteredby = "tim"
}
#(define (brew-custom-barline grob)
(if (string=? (ly:get-grob-property grob 'glyph) ":|" )
(let*
( (dot (ly:find-glyph-by-name (ly:get-default-font grob) "dots-dot"))
(dot (ly:molecule-translate-axis dot 1.5 1))
(colon4 (ly:molecule-combine-at-edge dot 1 -1 dot .5 0))
(colon4 (ly:molecule-combine-at-edge colon4 1 -1 dot .5 0))
(colon4 (ly:molecule-combine-at-edge colon4 1 -1 dot .5 0))
)
(ly:set-grob-property! grob 'glyph "|.")
(ly:molecule-combine-at-edge (Bar_line::brew_molecule grob) 0 -1 colon4
.5 0)
)
(Bar_line::brew_molecule grob)
)
)
global = \notes
{
\key c \major
\clef "G_8"
\time 4/4
\skip 1*4
\bar ":|"
}
upNotes = \notes \relative c
{
\stemUp
<e2 g c> <g b> |
<g c> <a d> |
<e g c> <d g b> |
<e1 g c>
}
downNotes = \notes \relative c
{
\stemDown
c2 d e f g, g c1
}
\score
{
\context Staff
<
\property Staff.BarLine \override #'molecule-callback =
#brew-custom-barline
\global
\context Voice = upVoice \upNotes
\context Voice = downVoice \downNotes
>
\header {piece="No. 1"}
\paper{}
%\midi{}
}
--
----------Tim address@hidden
| <>< Truth
|
| GPG fingerprint = 1612 3E41 D649 63ED 222D EB27 E84D 4274 392C A50A