diff options
author | Karl Berry <karl@freefriends.org> | 2016-10-20 22:01:19 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2016-10-20 22:01:19 +0000 |
commit | c689ba652e46ef5fdb8eb5653519727c58236f61 (patch) | |
tree | e3292d83c85dbb418329021879dda92ab56ccc4c /Master/texmf-dist/tex | |
parent | 4dcd7116b3bc7377eb859c477731bec1b93d20c4 (diff) |
rm context-lilypond, obsolete per author
git-svn-id: svn://tug.org/texlive/trunk@42316 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex')
-rw-r--r-- | Master/texmf-dist/tex/context/third/lilypond/t-lilypond.tex | 432 |
1 files changed, 0 insertions, 432 deletions
diff --git a/Master/texmf-dist/tex/context/third/lilypond/t-lilypond.tex b/Master/texmf-dist/tex/context/third/lilypond/t-lilypond.tex deleted file mode 100644 index acde63655e8..00000000000 --- a/Master/texmf-dist/tex/context/third/lilypond/t-lilypond.tex +++ /dev/null @@ -1,432 +0,0 @@ -%D \module -%D [ file=t-lilypond, -%D version=2010.03.11, -%D title=\CONTEXT\ User Modules, -%D subtitle=LilyPond Bridge (Music Typesetting), -%D author={Christopher Creutzig, H. Ramm et al.}, % , Mojca Miklavec, Wolfgang Schuster -%D maintainer={Henning Hraban Ramm, hraban@fiee.net}, -%D date=\currentdate, -%D copyright=the authors] -%C -%C This module is licensed under the GNU GPL. - -%D This module serves to include LilyPond music directly in the -%D \CONTEXT\ source, just as \METAPOST\ code can be. -%D -%D It is supposed to work only with LilyPond's stable version 2.12 and \CONTEXT\ MkIV i.\,e. \LUATEX. -%D -%D {\bfa Complete list of options:} -%D -%D \starttabulate[|l|l|l|] -%D \NC option\NC default\NC comment\NC\NR -%D \HL -%D \NC staffsize\NC 14\NC in pt \NC\NR -%D \NC indent\NC 0pt\NC first line indent \NC\NR -%D \NC time\NC yes\NC count time? (i.e. show time signature, set bars, split line) \NC\NR -%D \NC clef\NC yes\NC show clef? \NC\NR -%D \NC linewidth\NC \type{\localhsize}\NC \NC\NR -%D \NC betweensystemspace\NC 54pt\NC space between systems \NC\NR -%D \NC height\NC \type{\textheight}\NC \NR -%D \NC align\NC ?\NC default depends on fragment=... \NC\NR -%D \NC fragment\NC no\NC whole staff line or only snippet? \NC\NR -%D \NC barnumbers\NC no\NC show numbers of measures? \NC\NR -%D \NC showempty\NC no\NC drop empty staves? \NC\NR -%D \NC seriffont\NC "TeX Gyre Schola"\NC font for e.g. lyrics \NC\NR -%D \NC sansfont\NC "LMSans10"\NC font for e.g. chords \NC\NR -%D \NC monofont\NC "LMTypewriter10" \NC normally not used \NC\NR -%D \NC tmpdir\NC ./lilytemp \NC directory for temporary files \NC\NR -%D \NC imgdir\NC ./lilypdfs \NC directory for image files (note PDFs) \NC\NR -%D \stoptabulate -%D -%D {\bfa Todo list} -%D -%D \startitemize[packed,joinedup] -%D \item Proper support for multipage results. -%D \item Set LilyPond page size to remaining page space. -%D \item Place instrument names in margin. -%D \item Work with existing PDFs on systems where LilyPond isn't installed. -%D \stopitemize -%D -%D {\bfa Commented Source} -%D -%D As usual, we use a prefix for buffers, \type{\getparameters} etc.: - -\writestatus{loading}{LilyPond module} - -\startmodule[lilypond] - -\unprotect - -\definesystemvariable{lily} - -%D Define the text snippets to be placed around fragments. -%D Since LilyPond uses similar syntax to TeX, we must do some catcode fiddling. - -\bgroup - -\catcode`\/=\@@escape -/catcode`/\=/@@other -/catcode`/#=/@@other -/catcode`/<=/@@begingroup -/catcode`/>=/@@endgroup -/catcode`/{=/@@other -/catcode`/}=/@@other -/catcode`/%=/@@other -/catcode`/-=/@@letter - -/gdef/lily!fragmentprefix - </string^^J - /string^^J - {/string^^J - % ly snippet contents follows:/string^^J - > - -/gdef/lily!fragmentsuffix - </string^^J - % end ly snippet/string^^J - }/string^^J - > - -/gdef/lily!prefix - </string^^J - /string^^J - #(ly:set-option (quote no-point-and-click))/string^^J - #(ly:set-option (quote delete-intermediate-files))/string^^J - /string^^J - \version "2.12.0"/string^^J - #(define version-seen? #t)/string^^J - \layout {/string^^J - /iflily!showempty/else - % drop empty staves/string^^J - \context { \RemoveEmptyStaffContext } % MUST come first/string^^J - \context { \Score \override VerticalAxisGroup #'remove-first = ##t }/string^^J - /fi - /string^^J - /unless/iflily!time - % switch off time signature (i.e. only one line, no bars)/string^^J - ragged-last = ##t/string^^J - \context { \Score timing = ##f }/string^^J - \context { \Staff \remove "Time_signature_engraver" }/string^^J - /string^^J - /fi - /unless/iflily!barnumbers - % switch off bar numbers/string^^J - \context { \Score \remove "Bar_number_engraver" }/string^^J - /fi - /string^^J - /unless/iflily!clef - % switch off clef sign/string^^J - \context { \Staff \remove "Clef_engraver" }/string^^J - /fi - /string^^J - #(define fonts - (make-pango-font-tree - /@@lilyseriffont/space - /@@lilysansfont/space - /@@lilymonofont/space - (/letterslash/space/@@lilystaffsize/space 20)))/string^^J - /string^^J - }/string^^J - \paper {/string^^J - #(define dump-extents #t)/string^^J - ragged-right = /iflily!align ##f/else ##t/fi/string^^J - indent = /withoutpt/the/lily!indent\pt/string^^J - line-width = /withoutpt/the/lily!linewidth\pt/string^^J - vsize = /withoutpt/the/lily!vsize\pt/string^^J - printpagenumber = ##f/string^^J - oddFooterMarkup=##f/string^^J - oddHeaderMarkup=##f/string^^J - bookTitleMarkup = ##f/string^^J - scoreTitleMarkup = ##f/string^^J - ragged-bottom=##t/string^^J - ragged-last-bottom=##t/string^^J - between-system-padding = #0/string^^J - between-system-space = /withoutpt/the/lily!betweensystemspace\pt/string^^J - }/string^^J - > - -/egroup - -%D Here, we define our parameters: - -\newdimen\lily!linewidth -\newdimen\lily!vsize -\newdimen\lily!indent -\newdimen\lily!betweensystemspace -\newif\iflily!showempty -\newif\iflily!align -\newif\iflily!clef -\newif\iflily!time -\newif\iflily!barnumbers - -\newcounter\lily!figures - -%D Again, as usual, there is a \type{\setuplilypond} command -%D that accepts the same parameters as \type{\lilypond} and -%D \type{\startlilypond} do in their optional argument. - -\def\setuplilypond - {\bgroup - \catcode`\#=\@@other - \dosingleempty\dosetuplilypond} - -\def\dosetuplilypond[#1]% - {\egroup - \getparameters[\??lily][#1]} - -%D We set the following defaults: - -\setuplilypond - [staffsize=20, - indent=0pt, - betweensystemspace=54pt, - time=\v!yes, - clef=\v!yes, - align=?, % default depends on fragment=... - fragment=\v!no, - barnumbers=\v!no, - showempty=\v!no, - seriffont="TeX Gyre Schola", % LilyPond default font - sansfont="LMSans10", - monofont="LMTypewriter10", - tmpdir={./lilytemp}, - imgdir={./lilypdfs}] -%D -%D If you want to know which fonts of your system LilyPond can see -%D with which names, try \type{lilypond -dshow-available-fonts any}. -%D (The 3rd parameter is necessary, but can be anything.)\par -%D There are a lot of restrictions, e.g. no fonts from the \TeX\ tree (don't know why), -%D only one face per font file etc. - -%D -%D Check if temporary and image directories exist and create them if not: -%D - -\def\tmpdir{\@@lilytmpdir} % for intermediate files -\def\imgdir{\@@lilyimgdir} % for music PDFs - -\startluacode - if not lfs.isdir("\tmpdir") then - logs.report("LilyPond Warn ", "Temporary directory not found, trying to make '\tmpdir'") - lfs.mkdir("\tmpdir") - end - if not lfs.isdir("\imgdir") then - logs.report("LilyPond Warn ", "Image directory not found, trying to make '\imgdir'") - lfs.mkdir("\imgdir") - end -\stopluacode - -%D -%D \type{\startlilypond} is a multistage implementation, because -%D end-of-line characters must be treated specially in the -%D \type{\startlilypond} \dots\ \type{\stoplilypond} range. -%D - -\def\startlilypond - {\bgroup - \catcode`\#=\@@other - \dosingleempty\dostartlilypond} - -\def\dostartlilypond[#1]% - {\obeylines - \dodostartlilypond[#1]} - -\long\def\dodostartlilypond[#1]#2\stoplilypond - {\egroup - \bgroup -%D -%D The default of the \type{linewidth} parameter is the local \type{\hsize}. -%D - \setlocalhsize - \getparameters[\??lily][linewidth=\the\localhsize,height=\the\textheight,#1]% - \lily!linewidth\@@lilylinewidth - \lily!vsize\@@lilyheight - \lily!indent\@@lilyindent - \lily!betweensystemspace\@@lilybetweensystemspace -%D -%D The default of \type{align} depends on whether we typeset a fragment: -%D - \doifelse\@@lilyalign\v!yes\lily!aligntrue\lily!alignfalse - \doif\@@lilyfragment\v!no{\doif\@@lilyalign{?}\lily!aligntrue}% - \doifelse\@@lilytime\v!yes\lily!timetrue\lily!timefalse - \doifelse\@@lilybarnumbers\v!yes\lily!barnumberstrue\lily!barnumbersfalse - \doifelse\@@lilyshowempty\v!yes\lily!showemptytrue\lily!showemptyfalse - \doifelse\@@lilyclef\v!yes\lily!cleftrue\lily!cleffalse -%D -%D We are using a counter to keep the different LilyPond pieces -%D separate. This allows to typeset them only once, during the -%D first run. -%D -%D TODO: This won't work any longer once we pass the remaining -%D vertical space to LilyPond. -%D - \doglobal\increment\lily!figures - \edef\lily!filename{\bufferprefix lilypond-\lily!figures}% - \edef\lily!tmpfilename{\tmpdir/\lily!filename.tmp}% - \edef\lily!img{\imgdir/\lily!filename.pdf} - \def\obeyedlines{\string^^J}% - \convertargument#2\to\ascii - \startexpanded - \noexpand\setbuffer[\lily!tmpfilename]% - \lily!prefix - \letterhash(set-global-staff-size \getvalue{\??lily staffsize})\string^^J% - \ifdefined\@@lilyfragment\lily!fragmentprefix\fi -%D TODO: Option \quote{packed} - \ascii - \ifdefined\@@lilyfragment\lily!fragmentsuffix\fi - \noexpand\endbuffer - \stopexpanded -%D -%D In \LUATEX\ buffers are kept in memory -%D in contrast to older flavours of \TeX\ where they're written to a -%D file automatically. We have to require writing to a file explicitely -%D with \type{\savebuffer}. -%D - \writestatus{LilyPond}{\lily!filename} - \startluacode - buffers.save('\lily!tmpfilename') - if not lfs.isfile('\lily!tmpfilename') then - logs.report("LilyPond ERROR", "File '\lily!tmpfilename' was not written!") - end -%D -%D Generating a PDF directly previously created always a whole page, so we generate EPS first. -%D In recent versions of LilyPond that gets converted to PDF immediately, but we check for that. -%D -%D It would be nice, if \type{-ddelete-intermediate-files} would delete all useless intermediate files. -%D It would be even better, if mtxrun wouldn't declare non-existing files as \quotation{unchanged}. (Is that fixed now?) -%D -%D Remember: More possible options in \type{lily.scm}. -%D - os.execute('mtxrun --ifchanged="\lily!tmpfilename" --exec bin:lilypond -dbackend=eps -dno-gs-load-fonts -dinclude-eps-fonts -ddelete-intermediate-files -o"\tmpdir/\lily!filename" "\lily!tmpfilename"') - if not lfs.isfile('\tmpdir/\lily!filename.pdf') then - os.execute('mtxrun --ifchanged="\tmpdir/\lily!filename.eps" --exec bin:pstopdf "\tmpdir/\lily!filename.eps"') - end -%D At least on Windows, Lua's \type{os.rename} won't overwrite existing files, so we need to remove them before. - if lfs.isfile('\lily!img') and lfs.isfile('\tmpdir/\lily!filename.pdf') then - os.remove('\lily!img') - end - os.rename('\tmpdir/\lily!filename.pdf', '\lily!img') - \stopluacode -%D -%D TODO: Get the relevant dimension directly from LilyPond, -%D to place the instrument name into the left margin for -%D short snippets as well. (Is that possible at all?) -%D -%D If we are not in the middle of some text, we have to check -%D whether LilyPond created an image that is wider than requested: -%D It places the instrument names in the left margin. -%D - \ifvmode - \getfiguredimensions[\lily!img]% - \leavevmode - \!!dimenb\figurewidth - \ifdim\!!dimenb>\localhsize - \!!dimena=\localhsize - \advance\!!dimena-\!!dimenb - \noindent\hskip\!!dimena - \fi - \fi - \externalfigure[\lily!img]% - \egroup} - -%D For short snippets, we define an inline alternative to -%D our start/stop pair: - -\def\lilypond {\dosingleempty\dolilypond} -\def\dolilypond[#1]#2{\startlilypond[#1]#2\stoplilypond} - -\stopmodule - -\protect \doifnotmode{demo}{\endinput} - - -%D End of file. -%D -%D Here follows a sample. (\type{context t-lilypond --mode=demo}) - -\starttext - -\startbuffer[sample] -\subject{Telemann, TWV 40:11} -\startlilypond - \relative c' { - \set Staff.instrumentName = flute - \key fis \minor - \time 3/4 - \partial 4 - r8 fis'8 | fis4. cis8 a cis | fis, a cis fis a fis | - b, d fis b d b | eis,, gis cis eis gis b, | - a fis' gis, fis' cis eis | fis,4 r8 - a' gis fis | e gis, a e' fis cis | - d fis, gis b e d | cis4 \trill r8 - cis b a | b dis e gis cis, b | - a e' dis fis b, a | gis4 \trill r8 - } -\stoplilypond -\stopbuffer - -The input -\typebuffer[sample] -is typeset as -\getbuffer[sample] - -\type{\startlilypond} accepts options, as in\crlf -\type{\startlilypond[staffsize=18, linewidth=14cm, indent=5cm, time=no, clef=no]}: -\nobreak -\startlilypond[staffsize=18,linewidth=14cm,indent=5cm,time=no,clef=no] - \relative c' { - \key fis \minor - \time 3/4 - \partial 4 - r8 fis'8 | fis4. cis8 a cis | fis, a cis fis a fis | - b, d fis b d b | eis,, gis cis eis gis b, | - a fis' gis, fis' cis eis | fis,4 r8 - a' gis fis | e gis, a e' fis cis | - d fis, gis b e d | cis4 \trill r8 - cis b a | b dis e gis cis, b | - a e' dis fis b, a | gis4 \trill r8 - } -\stoplilypond - -It is also possible to mix text and music: -\lower 8.2pt\hbox{\lilypond[fragment=true,staffsize=16,time=no,clef=no]{g'}} is a g. - -TODO: The \type{\lower} in the example above should not be necessary. - -\subject{Starlight (round)} - -Here is a sample with lyrics: - -\startlilypond -<< -\context Staff = onlyone << - \clef treble - \key a \major - \time 6/8 - \context Voice = one { - \relative c'' { - a4.^\markup{1.} e' | - e8( d cis) b4. | - e4.^\markup{2.} d4 d8 | - cis( b) a b4 e,8 | - a4 a8 gis( a) b | - cis4 cis8 b( cis d) | - cis( d) e e4 e,8 | - fis4 fis8 gis4. - \bar ":|" - } - } ->> -\lyricsto one \new Lyrics { - \lyricmode { - Star -- light, star -- bright, - first star I see to -- night; - I wish I may, I wish I might - have the wish I wish to -- night. - } -} ->> - -\stoplilypond - -\stoptext |