diff options
author | Nils Gey <denemo@nilsgey.de> | 2011-02-17 19:00:41 +0100 |
---|---|---|
committer | Nils Gey <denemo@nilsgey.de> | 2011-02-17 19:00:41 +0100 |
commit | 204843b9964ac652030c021b33ee5b2a79bdc287 (patch) | |
tree | 920891908db6a7e343ac49cc2de6775a42abb671 | |
parent | 6e20e952c30acc592532b340e93c1675979f0347 (diff) |
Minor code layout changes
-rw-r--r-- | actions/menus/MainMenu/EditMenu/Shift/init.scm | 25 |
1 files changed, 8 insertions, 17 deletions
diff --git a/actions/menus/MainMenu/EditMenu/Shift/init.scm b/actions/menus/MainMenu/EditMenu/Shift/init.scm index f26846b3..fca21271 100644 --- a/actions/menus/MainMenu/EditMenu/Shift/init.scm +++ b/actions/menus/MainMenu/EditMenu/Shift/init.scm @@ -1,26 +1,17 @@ -(define (ShiftProto method) ; Get all notes on cursor position and create a list with new values which then exchanges the current notes on cursor position - -(if (Note?) - (ANS::ChangeChordNotes - (map method (ANS::GetChordNotes)) - ) - #f ; not a note/chord - ) -) +(define (ShiftProto method) + (if (Note?) + (ANS::ChangeChordNotes (map method (ANS::GetChordNotes))) + #f)) ; not a note/chord (define (ShiftUp) - (ShiftProto ANS::CalculateDiatonicStepUp) -) + (ShiftProto ANS::CalculateDiatonicStepUp)) (define (ShiftDown) - (ShiftProto ANS::CalculateDiatonicStepDown) -) + (ShiftProto ANS::CalculateDiatonicStepDown)) (define (ShiftRealOctaveUp) ;in reality this is not shift but transpose. But there are too many functions with the name transpose already... - (ShiftProto ANS::CalculateRealOctaveUp) -) + (ShiftProto ANS::CalculateRealOctaveUp)) (define (ShiftRealOctaveDown) ;in reality this is not shift but transpose. But there are too many functions with the name transpose already... - (ShiftProto ANS::CalculateRealOctaveDown) -) + (ShiftProto ANS::CalculateRealOctaveDown)) |