lilypond-user
[Top][All Lists]
Advanced

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

Re: Embedded PS graphics into scores


From: Patrick McCarty
Subject: Re: Embedded PS graphics into scores
Date: Thu, 19 Nov 2009 11:10:47 -0800
User-agent: Mutt/1.5.20 (2009-06-14)

Hi,

On 2009-11-19, Jesús Guillermo Andrade wrote:
> Thanks Patrick for your advice: Im sending a working minimal example
> for your (and everybody's!) consideration. I cannot figure out this
> behaviour.  Here it follows:

I removed the "showpage" operator from your Postscript code, and that
solved the problem of extra pages.  I changed the strategy for
variable assignments so that everything works correctly.  The
alignment of the arrows does not look accurate, but hopefully this new
snippet will help you achieve what you're trying to do:

%%% Begin snippet %%%

\version "2.13.8"
%\include "comunes.ily"
%\include "predefined-cuatro-fretboards.ily"
%\include "predefined-strokes.ily"

% Finger stroke symbols
strokeUp = "
/arrowdict 14 dict def
arrowdict begin
    /mtrx matrix def
end

/arrow
  {arrowdict begin
    /headlength exch def
    /halfheadthick exch 2 div def
    /halfthick exch 2 div def
    /tipy exch def  /tipx exch def
    /taily exch def /tailx exch def

    /dx tipx tailx sub def
    /dy tipy taily sub def
    /arrowlength dx dx mul dy dy mul add sqrt def
    /angle dy dx atan def
    /base arrowlength headlength sub def

    /savematrix mtrx currentmatrix def

    tailx taily translate
    angle rotate

    0 halfthick neg moveto
    base halfthick neg lineto
    base halfheadthick neg lineto
    arrowlength 0 lineto
    base halfheadthick lineto
    base halfthick lineto
    0 halfthick lineto
    closepath

    savematrix setmatrix
  end
} def
    newpath
    4 3 4 .9 .9 2 2 .2 sqrt mul 2 div
arrow .65 setgray fill
"

strokeDown = "
   0.3     setlinewidth
   0.5 0   moveto
   0.5 2   lineto
   0.2 1.4 lineto
   0.5 2   moveto
   0.8 1.4 lineto
   stroke
"

%%% NOW COMES THE FILE
\paper{
   %annotate-spacing = ##t
   %after-title-space=20\mm
   indent=0\mm
   line-width=190\mm
   #(set-paper-size "letter")
}

\header {
   tagline = ##f
   title = "Viajera del Río"
   subtitle = "Vals Venezolano"
   composer = \markup {
     \column \roman \right-align {"Manuel YÁNEZ"
         \lower #2 \tiny "Transcrito por Jesús G. Andrade."
         \lower #1 \tiny "Conservatorio Vicente E. Sojo."
         \vspace #1
     }
   }
   meter = \markup {
     \postscript #strokeUp
     \postscript #strokeUp
     \postscript #strokeDown
     \postscript #strokeDown
     \postscript #strokeUp
   }
}

%%% HEADER END.

%%% MUSIC PART

melody = \relative c' {
%  \override Score.RehearsalMark #'break-visibility = #begin-of-line-invisible
\override Score.RehearsalMark #'font-size = #-2
%  \override MultiMeasureRestText #'self-alignment-X = #DOWN
   \time 3/4
   \clef treble
   \key a \major
   r4 e8 fis\( \times 2/3 {fis\)gis a} %1
   \bar "||"
   gis4 r8 e8 fis gis16 a %2
   }

   \score {
   <<
   \new Voice = "melodia" { \melody }
   >>
   %\midi { }
}

%%% End snippet %%%


-Patrick




reply via email to

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