ly/german-chords.ly

   1 BABYL OPTIONS: -*- rmail -*-
   2 Version: 5
   3 Labels:
   4 Note:   This is the header of an rmail file.
   5 Note:   If you are seeing it in rmail,
   6 Note:    it means the file has no messages in it.
   7 \1f\f
   8 1,,
   9 Return-Path: rz@daimi.au.dk
  10 Delivery-Date: Fri, 13 Apr 2001 13:33:44 +0200
  11 Received: from localhost (localhost [127.0.0.1])
  12         by appel.lilypond.org (8.9.3/8.9.3/Debian 8.9.3-21) with ESMTP id NAA02351
  13         for <fred@localhost>; Fri, 13 Apr 2001 13:33:43 +0200
  14 X-XS4ALL-To: <jantien@xs4all.nl>
  15 Received: from pop.xs4all.nl
  16         by localhost with POP3 (fetchmail-5.1.2)
  17         for fred@localhost (single-drop); Fri, 13 Apr 2001 13:33:44 +0200 (CEST)
  18 Received: from smtp5.xs4all.nl (smtp5.xs4all.nl [194.109.6.49])
  19         by maildrop7.xs4all.nl (8.11.1/8.11.1) with ESMTP id f3DBWCd93235
  20         for <jantien@xs4all.nl>; Fri, 13 Apr 2001 13:32:12 +0200 (CEST)
  21         (envelope-from rz@daimi.au.dk)
  22 Received: from fencepost.gnu.org (fencepost.gnu.org [199.232.76.164])
  23         by smtp5.xs4all.nl (8.9.3/8.9.3) with ESMTP id NAA10302
  24         for <jantien@xs4all.nl>; Fri, 13 Apr 2001 13:31:04 +0200 (CEST)
  25 Received: from nightcrawler.daimi.au.dk ([130.225.18.95])
  26         by fencepost.gnu.org with esmtp (Exim 3.16 #1 (Debian))
  27         id 14o1n2-0008Pp-00
  28         for <janneke@gnu.org>; Fri, 13 Apr 2001 07:31:00 -0400
  29 Received: from daimi.au.dk (localhost [127.0.0.1])
  30         by nightcrawler.daimi.au.dk (8.11.2/8.11.2) with ESMTP id f3DBUwX31324
  31         for <janneke@gnu.org>; Fri, 13 Apr 2001 13:30:58 +0200
  32 Sender: rz@daimi.au.dk
  33 Message-ID: <3AD6E372.640DEE61@daimi.au.dk>
  34 Date: Fri, 13 Apr 2001 13:30:58 +0200
  35 From: Rune Zedeler <rz@daimi.au.dk>
  36 X-Mailer: Mozilla 4.76 [en] (X11; U; Linux 2.2.16-3 i686)
  37 X-Accept-Language: en
  38 MIME-Version: 1.0
  39 To: Jan Nieuwenhuizen <janneke@gnu.org>
  40 Subject: german-chords
  41 Content-Type: multipart/mixed;
  42  boundary="------------69CC07F348020448DD291CA8"
  43 X-UIDL: 987161532.maildrop7.93237
  44
  45 *** EOOH ***
  46 \version "1.3.148"
  47
  48 %  german-chords.ly:
  49 % german/norwegian/danish?
  50
  51 % To get Bb instead of B, use
  52 % \include "german-chords.ly"
  53 % #(set! german-Bb #t)
  54
  55 #(define german-Bb #f)
  56
  57 #(define (pitch->chord-name-text-banter pitch steps)
  58    (let ((dopitch (if (member (cdr pitch) '((6 -1) (6 -2)))
  59                       (list 7 (+ (if german-Bb 0 1) (caddr pitch)))
  60                       (cdr pitch)
  61                  )))
  62      (cons
  63        (list-ref '("C" "D" "E" "F" "G" "A" "H" "B") (car dopitch))
  64        (accidental->text-super (cadr dopitch))
  65      )
  66    )
  67  )
  68
  69
  70
  71 #(define (pitch->note-name-text-banter pitch)
  72    (let ((dopitch (if (member (cdr pitch) '((6 -1) (6 -2)))
  73                      (list 7 (+ 1 (caddr pitch)))
  74                      (cdr pitch)
  75                  )))
  76      (list
  77        (string-append
  78           (list-ref '("c" "d" "e" "f" "g" "a" "h" "b") (car dopitch))
  79           (if (or (equal? (car dopitch) 2) (equal? (car dopitch) 5))
  80             (list-ref '( "ses"  "s" "" "is" "isis") (+ 2 (cadr dopitch)))
  81             (list-ref '("eses" "es" "" "is" "isis") (+ 2 (cadr dopitch)))
  82           )
  83        )
  84      )
  85    )
  86  )
  87
  88 \1f