From 986aa8f8974e54c701bed0be54a2b042aecec820 Mon Sep 17 00:00:00 2001 From: Graham Percival Date: Wed, 12 Jul 2006 23:27:52 +0000 Subject: [PATCH] Moving files into input/manual/ --- input/test/bar-lines.ly | 25 ---- input/test/bar-number-regular-interval.ly | 24 ---- input/test/chord-names-jazz.ly | 152 ---------------------- input/test/chord-names-languages.ly | 47 ------- input/test/divisiones.ly | 42 ------ input/test/engraver-example.ily | 37 ------ input/test/font-table.ly | 72 ---------- input/test/ossia.ly | 36 ----- input/test/script-abbreviations.ly | 26 ---- input/test/script-chart.ly | 58 --------- 10 files changed, 519 deletions(-) delete mode 100644 input/test/bar-lines.ly delete mode 100644 input/test/bar-number-regular-interval.ly delete mode 100644 input/test/chord-names-jazz.ly delete mode 100644 input/test/chord-names-languages.ly delete mode 100644 input/test/divisiones.ly delete mode 100644 input/test/engraver-example.ily delete mode 100644 input/test/font-table.ly delete mode 100644 input/test/ossia.ly delete mode 100644 input/test/script-abbreviations.ly delete mode 100644 input/test/script-chart.ly diff --git a/input/test/bar-lines.ly b/input/test/bar-lines.ly deleted file mode 100644 index 52c7cd9020..0000000000 --- a/input/test/bar-lines.ly +++ /dev/null @@ -1,25 +0,0 @@ - -\version "2.7.39" - -\header { - - texidoc = "There a many types of bar lines available." - -} - -\layout { ragged-right = ##t } - -\relative { - \override Score.RehearsalMark #'padding = #3 - - c4 \bar "|" \mark \markup { \simple #"|" } - c \bar "|:" \mark \markup { \simple #"|:" } - c \bar "||" \mark \markup { \simple #"||" } - c \bar ":|" \mark \markup { \simple #":|" } - c \bar ".|" \mark \markup { \simple #".|" } - c \bar ".|." \mark \markup { \simple #".|." } - c \bar ":|:" \mark \markup { \simple #":|:" } - c \bar "|." \mark \markup { \simple #"|." } - c \bar ":" \mark \markup { \simple #":" } - c -} diff --git a/input/test/bar-number-regular-interval.ly b/input/test/bar-number-regular-interval.ly deleted file mode 100644 index e10caf9fec..0000000000 --- a/input/test/bar-number-regular-interval.ly +++ /dev/null @@ -1,24 +0,0 @@ -\header { - texidoc = " - -Bar numbers can be printed at regular intervals, inside a box or a circle. - -" } - -\version "2.7.39" - -\relative c'{ - \override Score.BarNumber #'break-visibility = #end-of-line-invisible - \set Score.barNumberVisibility = #(every-nth-bar-number-visible 4) - \override Score.BarNumber #'font-size = #2 - - \override Score.BarNumber #'stencil - = #(make-stencil-boxer 0.1 0.25 ly:text-interface::print) - \repeat unfold 5 { c1 } \bar "|" - - \override Score.BarNumber #'stencil - = #(make-stencil-circler 0.1 0.25 ly:text-interface::print) - \repeat unfold 4 { c1 } \bar "|." -} - - diff --git a/input/test/chord-names-jazz.ly b/input/test/chord-names-jazz.ly deleted file mode 100644 index babe35ec65..0000000000 --- a/input/test/chord-names-jazz.ly +++ /dev/null @@ -1,152 +0,0 @@ -\version "2.7.39" -\header { - -texidoc = " Chord names are generated from a list pitches. The -functions which construct these names can be customised. Here are shown -Jazz chords, following Ignatzek (pp. 17-18, 1995) and -an alternative Jazz chord notation. - -Chords following Banter (1987) can also be printed from this file, but -are turned off for brevity. - -" - -} - -chs = \transpose c' c' -{ - 1 - % m = minor triad - - \break - - - % triangle = maj - - \break - - - - \break - % 6 = major triad with added sixth - % m6 = minor triad with added sixth - - \break - - - - \break - - - - \break - - - - \break - - - - \break - - - - \break - - - - \break - - % add9 - -} - - -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -% alternate Jazz notation - -efullmusicJazzAlt = -{ - 1-\markup { "+" } - -\markup { \normal-size-super - % \override #'(font-family . math) "N" } - \override #'(font-family . math) "M" } - %%c:3.5.7 = \markup { \override #'(font-family . math) "M" } - %%c:3.5.7 = \markup { \normal-size-super "maj7" } - - -\markup { \super "o" } % should be $\circ$ ? - -\markup { \super \combine "o" "/" } - -\markup { \super "o7" } -} - -efullJazzAlt = #(sequential-music-to-chord-exceptions efullmusicJazzAlt #f) - -epartialmusicJazzAlt = { - 1-\markup { \normal-size-super "2" } - -\markup { "m" } - -\markup { \normal-size-super "sus4" } - -\markup { \normal-size-super "5" } - - %% TODO, partial exceptions - -\markup { "m" }-\markup { \normal-size-super "sus4" } - -\markup { "m" }-\markup { \normal-size-super "sus2" } -} - -epartialJazzAlt = #(sequential-music-to-chord-exceptions epartialmusicJazzAlt #f) - -jazzAltProperties = \sequential { - \set majorSevenSymbol = #whiteTriangleMarkup - \set chordNameSeparator = #(make-simple-markup "/") - \set chordNameExceptionsFull = #efullJazzAlt - \set chordNameExceptionsPartial = #epartialJazzAlt - \set chordNameFunction = #jazz-chord-names -} - -banterProperties = \sequential { - \set chordNameFunction = #banter-chord-names -} - -\score{ - << - \new ChordNames { - \set instrument = #"Ignatzek (default)" - \set instr = #"Def" - \chs - } - - \new ChordNames { - \jazzAltProperties - \set instrument = #"Alternative" - \set instr = #"Alt" - \chs - } - -%{ - - %% This is the Banter (1987) style. It gives exceedingly - %% verbose (wide) names, making the output file take up to 4 pages. - %% (FIXME: how big is is now?) - %% Turned off by default. - - %% FIXME: use smaller font for Banter (or remove some esoteric - %% chords). - - \new ChordNames { - \banterProperties - \set instrument = #"Banter" - \set instr = #"Ban" - \chs - } -%} - - \new Staff \transpose c c' { \chs } - >> - \layout { - indent = 3.\cm - \context { - \ChordNames - \consists Instrument_name_engraver - } - } -} - diff --git a/input/test/chord-names-languages.ly b/input/test/chord-names-languages.ly deleted file mode 100644 index 3a22642e1a..0000000000 --- a/input/test/chord-names-languages.ly +++ /dev/null @@ -1,47 +0,0 @@ -\version "2.7.39" -\header { - texidoc = "@cindex Chord Names German -The english naming of chords (default) can be changed to german -(@code{\germanChords} replaces B and Bes to H and B), semi-german -(@code{\semiGermanChords} replaces B and Bes to H and Bb), italian -(@code{\italianChords} uses Do Re Mi Fa Sol La Si), or french -(@code{\frenchChords} replaces Re to Ré). - -" } - -scm = \chordmode { - e1/d c:m - % c/c cis/cis - % yeah, we get the idea. -hwn - - % cisis/cisis ces/ces ceses/ceses - b/b bis/bis bes/bes - % beses/beses -} - - -\layout { - ragged-right = ##t - \context {\ChordNames \consists Instrument_name_engraver } -} - -<< - \new ChordNames { - \set instrument = #"default" - \scm - } - \new ChordNames { - \set instrument = #"german" - \germanChords \scm } - \new ChordNames { - \set instrument = #"semi-german" - \semiGermanChords \scm } - \new ChordNames { - \set instrument = #"italian" - \italianChords \scm } - \new ChordNames { - \set instrument = #"french" - \frenchChords \scm } - - \context Voice { \scm } ->> diff --git a/input/test/divisiones.ly b/input/test/divisiones.ly deleted file mode 100644 index d3054f99b6..0000000000 --- a/input/test/divisiones.ly +++ /dev/null @@ -1,42 +0,0 @@ -% possible rename to ancient- or gregorian- ? -\header { - texidoc = "@cindex Divisiones - -Divisiones are ancient variants of breathing signs. -Choices are @code{divisioMinima}, @code{divisioMaior}, -@code{divisioMaxima} and @code{finalis}, @code{virgula} and -@code{caesura}. - -" } - -\version "2.7.39" - -\include "gregorian-init.ly" - -\score { - << - \context VaticanaVoice { - \override TextScript #'padding = #3 - g a g - s^\markup { "divisio minima" } - \divisioMinima - g a g - s^\markup { "divisio maior" } - \divisioMaior - g a g - s^\markup { "divisio maxima" } - \divisioMaxima - \break - g a g - s^\markup { "finalis" } - \finalis - g a g - s^\markup { "virgula" } - \virgula - g a g - s^\markup { "caesura" } - \caesura - g a g - } - >> -} diff --git a/input/test/engraver-example.ily b/input/test/engraver-example.ily deleted file mode 100644 index 8962bc7b3c..0000000000 --- a/input/test/engraver-example.ily +++ /dev/null @@ -1,37 +0,0 @@ -%% texidoc = "Include file for engraver example." -\version "2.7.39" -topVoice = \relative c' { - \key d\major - es8([ g] a[ fis]) - b4 - b16[-. b-. b-. cis-.] - d4-> -} - -botVoice = \relative c' { - \key d\major - c8[( f] b[ a)] - es4 - es16[-. es-. es-. fis-.] - b4-> -} - -hoom = \relative c { - \key d \major - \clef bass - g8-. r - r4 - fis8-. - r8 - r4 - b'4-> -} - -pah = \relative c' { - r8 b-. - r4 - r8 g8-. - r16 g-. r8 - \clef treble - fis'4-> -} diff --git a/input/test/font-table.ly b/input/test/font-table.ly deleted file mode 100644 index b665ed3d21..0000000000 --- a/input/test/font-table.ly +++ /dev/null @@ -1,72 +0,0 @@ - -#(set-global-staff-size 16) - -\paper { - %% ugh. text on toplevel is a bit broken... . - - oddHeaderMarkup = \markup {} - evenHeaderMarkup = \markup {} - oddFooterMarkup = \markup {} - evenFooterMarkup = \markup {} - } - -\version "2.7.39" - -#(define (doc-char name) - (make-line-markup - (list - (make-pad-to-box-markup - '(0 . 30) - '(-2 . 2) - (make-typewriter-markup (make-small-markup name))) - (make-pad-to-box-markup - '(-2 . 2) - '(-2 . 2) - (make-musicglyph-markup name))))) - -#(define (min-length lst n) - "(min (length lst) n)" - - (if (or (null? lst) (<= n 0)) - 0 - (1+ (min-length (cdr lst) (1- n)) ))) - -#(define (doc-chars names acc) - (let* - ((n (min-length names 2)) - (head (take names n)) - (tail (drop names n)) - ) - - (if (null? head) - acc - (doc-chars tail - (cons (make-line-markup (map doc-char head)) acc))) - )) - -#(define (group-lines lines) - (let* - ((n (min-length lines 25)) - (head (take lines n)) - (tail (drop lines n)) - ) - - (cons - (make-column-markup head) - (if (null? tail) - '() - (group-lines tail))))) - -#(let* - ((lines (doc-chars - (ly:otf-glyph-list (ly:font-load "emmentaler-20")) - '())) - (pages (group-lines (reverse lines)))) - - (for-each - (lambda (x) - (collect-scores-for-book parser - (make-override-markup '(word-space . 8) x))) - pages)) - - diff --git a/input/test/ossia.ly b/input/test/ossia.ly deleted file mode 100644 index fb9ec79690..0000000000 --- a/input/test/ossia.ly +++ /dev/null @@ -1,36 +0,0 @@ - -\header { texidoc = "Ossia fragments can be done with starting and -stopping staves. " } - -\version "2.7.39" -\paper { ragged-right = ##t } - -<< - \new Staff \with - { - \remove "Time_signature_engraver" - fontSize = #-2 - \override StaffSymbol #'staff-space = #(magstep -2) - firstClef = ##f - } - \relative c'' { - \stopStaff - \skip 2 - - \startStaff - \clef treble - bes8[^"ossia" g bes g] - \stopStaff - - s2 - - \startStaff - f8 d g4 - } - \new Staff \relative - { - \time 2/4 - c4 c g' g a a g2 - } - ->> diff --git a/input/test/script-abbreviations.ly b/input/test/script-abbreviations.ly deleted file mode 100644 index 02c3715591..0000000000 --- a/input/test/script-abbreviations.ly +++ /dev/null @@ -1,26 +0,0 @@ - -% this chart is used in the manual too. - -\version "2.7.39" -\header { texidoc = "@cindex Script Abbreviations - -Some articulations may be entered using an abbreviation. - -" - -} - -\score { - \context Voice { - \override TextScript #'font-family = #'typewriter - \override TextScript #'font-shape = #'upright - c''4-._"c-." s4 - c''4--_"c--" s4 - c''4-+_"c-+" s4 - c''4-|_"c-|" s4 - c''4->_"c->" s4 - c''4-^_"c-^" s4 - c''4-__"c-_" s4 - } - } - diff --git a/input/test/script-chart.ly b/input/test/script-chart.ly deleted file mode 100644 index 7b374c914a..0000000000 --- a/input/test/script-chart.ly +++ /dev/null @@ -1,58 +0,0 @@ -\version "2.7.39" - -% this chart is used in the manual too. - -\header { - texidoc ="@cindex Feta scripts - -This chart shows all articulations, or scripts, that feta font contains. - -" -} - -\score { - << - \override Score.LyricText #'font-family = #'typewriter - \override Score.LyricText #'font-shape = #'upright - \context Staff { - \set Score.timing = ##f - \set Score.barAlways = ##t - \override Score.SeparationItem #'padding = #2.5 - \override Staff.BarLine #'transparent = ##t - c''\accent c''\marcato c''\staccatissimo c''\espressivo - c''\staccato c''\tenuto c''\portato - c''\upbow c''\downbow c''\flageolet - c''\thumb c''^\lheel c''\rheel - c''^\ltoe c''\rtoe c''\open - c''\stopped c''\turn c''\reverseturn - c''\trill c''\prall c''\mordent - c''\prallprall c''\prallmordent c''\upprall - c''\downprall c''\upmordent c''\downmordent - c''\pralldown c''\prallup c''\lineprall - c''\signumcongruentiae c''\shortfermata c''\fermata - c''\longfermata c''\verylongfermata c''\segno - c''\coda c''\varcoda - } - \context Lyrics \lyricmode { - accent__ marcato__ staccatissimo__ espressivo__ - staccato__ tenuto__ portato__ - upbow__ downbow__ flageolet__ - thumb__ lheel__ rheel__ - ltoe__ rtoe__ open__ - stopped__ turn__ reverseturn__ - trill__ prall__ mordent__ - prallprall__ prallmordent__ upprall__ - downprall__ upmordent__ downmordent__ - pralldown__ prallup__ lineprall__ - signumcongruentiae__ shortfermata__ fermata__ - longfermata__ verylongfermata__ segno__ - coda__ varcoda__ - } - >> - \layout { - line-width = 5.1\in - indent = 0.0\mm - } - } - - -- 2.39.5