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: Jesús Guillermo Andrade
Subject: Re: Embedded PS graphics into scores
Date: Thu, 19 Nov 2009 08:18:15 -0430

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:
\version "2.13.8"
%\include "comunes.ily"
%\include "predefined-cuatro-fretboards.ily"
%\include "predefined-strokes.ily"

% Finger stroke symbols
strokeUp = \markup { \postscript #"
/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
showpage
"}

strokeDown = \markup { \postscript #"
  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 {\strokeUp \strokeUp \strokeDown \strokeDown \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 { }
}


Thanks for your input.

Guillermo



reply via email to

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