← Back to branch summary

~ubuntu-branches/ubuntu/precise/lilypond/precise

« back to all changes in this revision

Viewing changes to input/regression/fret-diagrams.ly

  • Committer: Bazaar Package Importer
  • Author(s): Thomas Bushnell, BSG
  • Date: 2006-12-19 10:18:12 UTC
  • mfrom: (3.1.4 feisty)
  • Revision ID: james.westby@ubuntu.com-20061219101812-7awtjkp0i393wxty
Tags: 2.8.7-3
http://bugs.debian.org/400550
scripts/midi2ly.py: When setting DATADIR, find Lilypond python files
in the @TOPLEVEL_VERSION@ directory, not 'current'.  Patch thanks to
Chris Lamb (chris@chris-lamb.co.uk).  (Closes: #400550)

Show diffs side-by-side

added added

removed removed

Lines of Context:
input/regression/fret-diagrams.ly
 
1
%% regression test for fret diagram markups
 
2
 
 
3
 
 
4
\version "2.7.39"
 
5
 
 
6
\paper {
 
7
 
 
8
  %% stretch to prevent diagrams from colliding.
 
9
  line-width = 18.0 \cm
 
10
}
 
11
 
 
12
 
 
13
<<
 
14
  \chords {s2 c c c d}
 
15
  
 
16
  \new Voice =mel {
 
17
 
 
18
    %% A chord for ukelele
 
19
    a'2 ^\markup
 
20
    \override #'(string-count . 4) {
 
21
      \override #'(dot-color . white) {
 
22
        \fret-diagram #"4-2-2;3-1-1;2-o;1-o;"}}
 
23
 
 
24
    %% C major for guitar, barred on third fret
 
25
    c' ^\markup 
 
26
    \override #'(number-type . roman-lower) {  % lower-case roman numeral fret label
 
27
      \override #'(size . 1.1) {                  % 110% of default size
 
28
        \override #'(finger-code . below-string) {  % string labels below strings
 
29
          \override #'(barre-type . straight) {       % straight barre
 
30
            \fret-diagram-verbose #'((mute 6) (place-fret 5 3 1) (place-fret 4 5 2) (place-fret 3 5 3) (place-fret 2 5 4) (place-fret 1 3 1) (barre 5 1 3)) }}}}
 
31
    %% C major for guitar, barred on third fret
 
32
    c' ^\markup 
 
33
    \override #'(number-type . arabic) {  % lower-case roman numeral fret label
 
34
      \override #'(dot-color . white) {     % white dots
 
35
        \override #'(finger-code . in-dot) {  % string labels in dots
 
36
          \override #'(barre-type . curved) {       % straight barre
 
37
            \fret-diagram-verbose #'((mute 6) (place-fret 5 3 1) (place-fret 4 5 2) (place-fret 3 5 3) (place-fret 2 5 4) (place-fret 1 3 1) (barre 5 1 3)) }}}}
 
38
    %% C major for guitar, barred on third fret
 
39
    c' ^\markup 
 
40
    \override #'(number-type . roman-upper) {  % upper-case roman numeral fret label
 
41
      \override #'(label-dir . -1) {            % label fret at left side of diagram
 
42
        \override #'(finger-code . in-dot) {        % string labels in dots
 
43
          \override #'(barre-type . curved) {         % curved barre
 
44
            \fret-diagram-verbose #'((mute 6) (place-fret 5 3 1) (place-fret 4 5 2) (place-fret 3 5 3) (place-fret 2 5 4) (place-fret 1 3 1) (barre 5 1 3)) }}}}
 
45
 
 
46
    %% simple D chord
 
47
 
 
48
    d' ^\markup 
 
49
    \override #'(finger-code . below-string) {
 
50
      \override #'(dot-radius . 0.35) {
 
51
        \override #'(dot-position . 0.5) {
 
52
          \override #'(fret-count . 5) {
 
53
            \fret-diagram-terse #"x;x;o;2-1;3-2;2-3;" }}}}
 
54
 
 
55
  }
 
56
>>