blob: fca21271fb7c660f68453437da8c08d98f3b6ca3 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
; Get all notes on cursor position and create a list with new values which then exchanges the current notes on cursor position
(define (ShiftProto method)
(if (Note?)
(ANS::ChangeChordNotes (map method (ANS::GetChordNotes)))
#f)) ; not a note/chord
(define (ShiftUp)
(ShiftProto ANS::CalculateDiatonicStepUp))
(define (ShiftDown)
(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))
(define (ShiftRealOctaveDown) ;in reality this is not shift but transpose. But there are too many functions with the name transpose already...
(ShiftProto ANS::CalculateRealOctaveDown))
|
