[prev in list] [next in list] [prev in thread] [next in thread] 

List:       lilypond-user
Subject:    Re: Organ pedal foot substitution
From:       tisimst <tisimst.lilypond () gmail ! com>
Date:       2016-02-25 15:01:03
Message-ID: CACzy+cZ8cjHLBe5R+wGRaTRuAbavVofz_gnBr1kX5QUJaNsTeg () mail ! gmail ! com
[Download RAW message or body]

[Attachment #2 (multipart/alternative)]


Joseph,

On Wed, Feb 24, 2016 at 5:46 PM, Joseph N. Srednicki-2 [via Lilypond] <
ml-node+s1069038n187700h9@n5.nabble.com> wrote:

> Could someone possibly tell me how to code alternate foot organ pedal
> substitution as shown in the attached image file *attach_a.png*?
> 
> 
> 
> This image is from Dickinson, Clarence. *The Technique and Art of Organ
> Playing*. London: H. W. Gray, 1922, p. 117. (Note this book is available
> from the IMSLP site.)
> 
> 
> 
> (Some editors also use curved lines with arrows as shown in the attached
> image file *attach_b.png*. This solution with the curved arrows will also
> work for my purposes if it's easier to code.)
> 
> 
> 
> I located the following related thread in the mail archive:
> https://lists.gnu.org/archive/html/lilypond-user/2007-12/msg00386.html.
> The solution proposed in that thread works for same foot substitution, and
> I intend to use it. However, that solution does not work to indicate
> alternate foot substitution.
> 
> 
> 
> If there is a solution in the mail archive or snippets that I have
> overlooked, please feel free to point me to it.
> 
> 
> 
> Thanks for any suggestions or solutions.
> 

Here's a working solution that you can customize to your taste (the width
of the new markups, controlled by the \draw-line command's x-component, may
need to be adjusted depending on the horizontal spacing of your intended
usage):

%%%%%%%%%%%%%%%%

\version "2.18.2"

heelToToe = \markup {
  \halign #-1.2
  \concat{
    \raise #0.5
\musicglyph #"scripts.upedalheel"
\hspace #0.5
    \with-dimensions #'(0 . 0) #'(0 . 0) \concat {
      \draw-line #'(3 . -5.5)  % <-- controls width
      \lower #5.5 \musicglyph #"scripts.dpedaltoe"
    }
  }
}

toeToHeel = \markup {
  \halign #-1.3
  \concat{
    \musicglyph #"scripts.dpedaltoe"
    \with-dimensions #'(0 . 0) #'(0 . 0) \concat {
      \draw-line #'(3 . 5)  % <-- controls width
      \raise #5.5 \musicglyph #"scripts.upedalheel"
    }
  }
}

music = {
  \clef bass
  c,2_\rtoe g,^\heelToToe |
  c2^\heelToToe g^\heelToToe |
  c'2\rtoe g_\toeToHeel |
  c2_\toeToHeel c,_\rtoe \bar "|."
}

{ \music }

\layout {
  indent = 0
  ragged-right = ##f
}

%%%%%%%%%%%%%%%%

HTH,
Abraham




--
View this message in context: \
http://lilypond.1069038.n5.nabble.com/Organ-pedal-foot-substitution-tp187700p187717.html
 Sent from the User mailing list archive at Nabble.com.


[Attachment #5 (text/html)]

<div dir="ltr">Joseph,<div class="gmail_extra"><br><div class="gmail_quote">On Wed, \
Feb 24, 2016 at 5:46 PM, Joseph N. Srednicki-2 [via Lilypond] <span dir="ltr">&lt;<a \
href="/user/SendEmail.jtp?type=node&node=187717&i=0" target="_top" rel="nofollow" \
link="external">[hidden email]</a>&gt;</span> wrote:<br><blockquote \
style='border-left:2px solid #CCCCCC;padding:0 1em' class="gmail_quote" \
style="margin:0px 0px 0px \
0.8ex;border-left-width:1px;border-left-color:rgb(204,204,204);border-left-style:solid;padding-left:1ex"><div \
class=""><div class="h5">

	<div><p class="MsoNormal">Could someone possibly tell me how to code alternate foot \
organ pedal substitution as shown in the attached image file \
<b>attach_a.png</b>?<u></u><u></u></p><p class="MsoNormal"><u></u>  <u></u></p><p \
class="MsoNormal">This image is from Dickinson, Clarence. <i>The Technique and Art of \
Organ Playing</i>. London: H. W. Gray, 1922, p. 117. (Note this book is available \
from the IMSLP site.)<u></u><u></u></p><p class="MsoNormal"><u></u>  <u></u></p><p \
class="MsoNormal">(Some editors also use curved lines with arrows as shown in the \
attached image file <b>attach_b.png</b>. This solution with the curved arrows will \
also work for my purposes if it's easier to code.)<u></u><u></u></p><p \
class="MsoNormal"><u></u>  <u></u></p><p class="MsoNormal">I located the following \
related thread in the mail archive: <a \
href="https://lists.gnu.org/archive/html/lilypond-user/2007-12/msg00386.html" \
rel="nofollow" link="external" \
target="_blank">https://lists.gnu.org/archive/html/lilypond-user/2007-12/msg00386.html</a>. \
The solution proposed in that thread works for same foot substitution, and I intend \
to use it. However, that solution does not work to indicate alternate foot \
substitution.<u></u><u></u></p><p class="MsoNormal"><u></u>  <u></u></p><p \
class="MsoNormal">If there is a solution in the mail archive or snippets that I have \
overlooked, please feel free to point me to it.<u></u><u></u></p><p \
class="MsoNormal"><u></u>  <u></u></p><p class="MsoNormal">Thanks for any suggestions \
or solutions.</p></div></div></div></blockquote><div><br></div><div>Here&#39;s a \
working solution that you can customize to your taste (the width of the new markups, \
controlled by the \draw-line command&#39;s x-component, may need to be adjusted \
depending on the horizontal spacing of your intended \
usage):</div><div><br></div><div>%%%%%%%%%%%%%%%%</div><div><br></div><div><font \
face="monospace, monospace">\version &quot;2.18.2&quot;</font></div><div><font \
face="monospace, monospace"><br></font></div><div><font face="monospace, \
monospace">heelToToe = \markup {</font></div><div><font face="monospace, monospace">  \
\halign #-1.2</font></div><div><font face="monospace, monospace">   \
\concat{</font></div><div><font face="monospace, monospace">      \raise \
#0.5</font></div><div><font face="monospace, monospace"><span class="" \
style="white-space:pre">	</span>\musicglyph \
#&quot;scripts.upedalheel&quot;</font></div><div><font face="monospace, \
monospace"><span class="" style="white-space:pre">	</span>\hspace \
#0.5</font></div><div><font face="monospace, monospace">      \with-dimensions \
#&#39;(0 . 0) #&#39;(0 . 0) \concat {</font></div><div><font face="monospace, \
monospace">         \draw-line #&#39;(3 . -5.5)   % &lt;-- controls \
width</font></div><div><font face="monospace, monospace">         \lower #5.5 \
\musicglyph #&quot;scripts.dpedaltoe&quot;</font></div><div><font face="monospace, \
monospace">      }</font></div><div><font face="monospace, monospace">   \
}</font></div><div><font face="monospace, monospace">}</font></div><div><font \
face="monospace, monospace"><br></font></div><div><font face="monospace, \
monospace">toeToHeel = \markup {</font></div><div><font face="monospace, monospace">  \
\halign #-1.3</font></div><div><font face="monospace, monospace">   \
\concat{</font></div><div><font face="monospace, monospace">      \musicglyph \
#&quot;scripts.dpedaltoe&quot;</font></div><div><font face="monospace, monospace">    \
\with-dimensions #&#39;(0 . 0) #&#39;(0 . 0) \concat {</font></div><div><font \
face="monospace, monospace">         \draw-line #&#39;(3 . 5)    % &lt;-- controls \
width</font></div><div><font face="monospace, monospace">         \raise #5.5 \
\musicglyph #&quot;scripts.upedalheel&quot;</font></div><div><font face="monospace, \
monospace">      }</font></div><div><font face="monospace, monospace">   \
}</font></div><div><font face="monospace, monospace">}</font></div><div><font \
face="monospace, monospace"><br></font></div><div><font face="monospace, \
monospace">music = {</font></div><div><font face="monospace, monospace">   \clef \
bass</font></div><div><font face="monospace, monospace">   c,2_\rtoe g,^\heelToToe \
|</font></div><div><font face="monospace, monospace">   c2^\heelToToe g^\heelToToe \
|</font></div><div><font face="monospace, monospace">   c&#39;2\rtoe g_\toeToHeel \
|</font></div><div><font face="monospace, monospace">   c2_\toeToHeel c,_\rtoe \bar \
&quot;|.&quot;</font></div><div><font face="monospace, \
monospace">}</font></div><div><font face="monospace, \
monospace"><br></font></div><div><font face="monospace, monospace">{ \music \
}</font></div><div><font face="monospace, monospace"><br></font></div><div><font \
face="monospace, monospace">\layout {  </font></div><div><font face="monospace, \
monospace">   indent = 0</font></div><div><font face="monospace, monospace">   \
ragged-right = ##f</font></div><div><font face="monospace, monospace">}  \
</font></div><div><br></div><div>%%%%%%%%%%%%%%%%</div><div><br></div><div>HTH,</div><div>Abraham</div></div></div></div>



	
	
	
<br/><hr align="left" width="300" />
View this message in context: <a \
href="http://lilypond.1069038.n5.nabble.com/Organ-pedal-foot-substitution-tp187700p187717.html">Re: \
Organ pedal foot substitution</a><br/> Sent from the <a \
href="http://lilypond.1069038.n5.nabble.com/User-f3.html">User mailing list \
archive</a> at Nabble.com.<br/>



_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user


[prev in list] [next in list] [prev in thread] [next in thread] 

Configure | About | News | Add a list | Sponsored by KoreLogic