Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Substitute regular expressions to detect pianos and fortes, so that a…

…rbitrarily soft and loud expressions can be used.
  • Loading branch information...
commit db5ceece2713a7660753956332fc7cf0a852d715 1 parent 2ea4347
@colomon authored
Showing with 2 additions and 2 deletions.
  1. +1 −1  bin/abc2ly.pl
  2. +1 −1  r-star.abc
View
2  bin/abc2ly.pl
@@ -191,7 +191,7 @@ (ABC::Header $header)
given $element.value {
when "~" { $suffix ~= "\\turn"; }
when "." { $suffix ~= "\\staccato"; }
- when "ppp" | "pp" | "p" | "mp" | "mf" | "f" | "ff" | "fff"
+ when /^p+$/ | "mp" | "mf" | /^f+$/
{ $suffix ~= "\\" ~ $element.value; }
}
}
View
2  r-star.abc
@@ -8,7 +8,7 @@ R:Jig
K:G major
D|:+mp+ ~G3 DGB|ded cAF|~B3 DGB|ABG FED|
~G3 DGB|ded cAF|d>ed cAF|[1 AGF G2D:|[2 AGF GBd|
-|:+f+ ~g3 dgg|efg edB|~a3 ef^g|afe ^cBA|
+|:+ff+ ~g3 dgg|efg edB|~a3 ef^g|afe ^cBA|
~g3 dgg|egg dBG|d>ed cAF|[1 AGF GBd:|[2 AGF G3|]
X:25
Please sign in to comment.
Something went wrong with that request. Please try again.