From 084f0c41a2a6b6a1b9e44e02fb7e5fb3e8c0b8cd Mon Sep 17 00:00:00 2001 From: hanwen Date: Sat, 22 Feb 2003 21:00:47 +0000 Subject: [PATCH] *** empty log message *** --- input/test/chord-banter.ly | 55 ------------------- input/test/chord-names-banter.ly | 91 -------------------------------- input/test/chord-names-dpnj.ly | 4 ++ input/test/chords.ly | 6 ++- 4 files changed, 9 insertions(+), 147 deletions(-) delete mode 100644 input/test/chord-banter.ly delete mode 100644 input/test/chord-names-banter.ly diff --git a/input/test/chord-banter.ly b/input/test/chord-banter.ly deleted file mode 100644 index 6d86215572..0000000000 --- a/input/test/chord-banter.ly +++ /dev/null @@ -1,55 +0,0 @@ -\version "1.7.10" -\header{ -filename = "chord-table.ly" -copyright = "public domain" -enteredby = "jcn" -} - -tab = \notes\transpose c c''\chords{ - c1 c:m c:4 c:m4 c:5+ \break - c:5- c:dim c:5-.5+ c:6 c:m6\break - c:4.6 c:7 c:m7 c:4.7 c:m4.7\break - c:5+.7 c:5-.7 c:m5-.7 c:maj c:m.maj\break - c:4.maj c:m4.maj c:5+.maj c:m4+.maj c:5-.maj\break - c1:m5-.maj c:dim7 c:5-.5+.7 c:6.maj c:m6.maj\break - c:4.6.maj c:9 c:m9 c:4.9 c:m.4.9\break -} - -\score{ -% \context StaffGroup < - < - \context Staff=c \notes\transpose c' c\tab - \context ChordNames=c \notes\transpose c' c\tab -%{ - \context Staff=cis \notes\transpose c' cis\tab - \context ChordNames=cis \notes\transpose c' cis\tab - \context Staff=des \notes\transpose c' des\tab - \context ChordNames=des \notes\transpose c' des\tab - \context Staff=d \notes\transpose c' d\tab - \context ChordNames=d \notes\transpose c' d\tab - \context Staff=es \notes\transpose c' es\tab - \context ChordNames=es \notes\transpose c' es\tab - \context Staff=e \notes\transpose c' e\tab - \context ChordNames=e \notes\transpose c' e\tab - \context Staff=fis \notes\transpose c' fis\tab - \context ChordNames=fis \notes\transpose c' fis\tab - \context Staff=g \notes\transpose c' g\tab - \context ChordNames=g \notes\transpose c' g\tab - \context Staff=as \notes\transpose c' as\tab - \context ChordNames=as \notes\transpose c' as\tab - \context Staff=a \notes\transpose c' a\tab - \context ChordNames=a \notes\transpose c' a\tab - \context Staff=bes \notes\transpose c' bes,\tab - \context ChordNames=bes \notes\transpose c' bes,\tab - \context Staff=b \notes\transpose c' b,\tab - \context ChordNames=b \notes\transpose c' b,\tab -%} - > - \paper{ - textheight = \vsize - 4.0 * \staffheight - } - -} - - -%% new-chords-done %% diff --git a/input/test/chord-names-banter.ly b/input/test/chord-names-banter.ly deleted file mode 100644 index 464fe04552..0000000000 --- a/input/test/chord-names-banter.ly +++ /dev/null @@ -1,91 +0,0 @@ -\version "1.7.10" - - -\header{ -texidoc = "banter chords - - -FIXME - -" -} - -% test German (Banter) naming -% for more conventional naming, comment scm stuff out - -% urg, -% this shows a serious shortcoming with our guile approach: -% we can't (easily) display banter/non banter chords alongside -% eachother. These guile lists are fixed in the guile environment -% when this file has been parsed... - -%{ - - -%% FIXME: - -#;(define chord::names-alist-banter '()) -#(set! chord::names-alist-banter - (append - '( - (((0 . 0) (2 . -1) (4 . -1)) . (("m" ("5-" . (type . "super"))))) - Co iso Cm5-7- - (((0 . 0) (2 . -1) (4 . -1) (6 . -2)) . ("o" (type "super"))) - ))) - -% German note names: -% Urg, this will break again, in time -% Is this correct, anyway? - -#(define (pitch->text pitch) - (if (and (= (modulo (cadr pitch) 7) 6) - (= (caddr pitch) -1)) - (cons (make-string 1 (integer->char 66)) '()) - (cons - (if (= (modulo (cadr pitch) 7) 6) - (make-string 1 (integer->char 72)) - (make-string 1 (integer->char (+ (modulo (+ (cadr pitch) 2) 7) 65)))) - (if (= (caddr pitch) 0) - '() - (list (list (string-append "accidentals-" - (number->string (caddr pitch))) - '(font . "feta"))))))) - -%} - -chord = \notes\transpose c' c''\chords{ - % dim modifier means: lower all implicit additions - c:dim9 - c:dim - c:dim7 - % explicit additions are taken as entered: - c:m5-.7- - % note that 7 is a special case: it's always lowered by 1... - c:dim7-.9 - c:dim9-.11 - - % test German names - b:dim7 - bes:m5- - - \break - - c:sus2 %? - c:sus4 - c^3 - c^3.5 - c:2.6^5 - c:dim^5- - c:dim7^5- - cis:m5- -} - -\score{ - < \context ChordNames { - #(set-chord-name-style 'banter) - \chord } - \context Staff \chord - > -} - -%% new-chords-done %% diff --git a/input/test/chord-names-dpnj.ly b/input/test/chord-names-dpnj.ly index e22b2846cc..67b475a03a 100644 --- a/input/test/chord-names-dpnj.ly +++ b/input/test/chord-names-dpnj.ly @@ -16,6 +16,8 @@ % cp $(locate msam9.tfm) $LILYPONDPREFIX/fonts/tfm % +%{ + scheme = \chords { % major chords c @@ -105,3 +107,5 @@ epartial = \chordnames { > } %% new-chords-done %% + +%} diff --git a/input/test/chords.ly b/input/test/chords.ly index b6bb57f314..6cb12486cb 100644 --- a/input/test/chords.ly +++ b/input/test/chords.ly @@ -1,3 +1,4 @@ + \version "1.7.10" @@ -17,12 +18,14 @@ Would this be acceptable/good enough/convenient for entry? %} +%{ + % used to be quarter notes here. Why? --hwn scales = \notes \transpose c c' \chords{ %<>1 c1:m c:min c:dim c:aug c:sus c:maj c1:6 c:7 c:9 c:11 c:13 - c:m7 c:m.sus c:m7.sus + c:m7 c:m sus c:m7.sus c:dim7 c:dim9 c2:7^5 c:13^5.7.9.11 % c1:7^5 c:13^5 @@ -69,3 +72,4 @@ keys = \notes{ } } %% new-chords-done %% +%} -- 2.39.2