Additional debug statement.
This commit is contained in:
@@ -312,8 +312,8 @@ proc toHtml*(
|
|||||||
numberChart: numberChart,
|
numberChart: numberChart,
|
||||||
transposeSteps: transpose)
|
transposeSteps: transpose)
|
||||||
|
|
||||||
debug "Formatting:\p\tsource key: " & $ctx.sourceKey & "\p\ttransposing: " &
|
debug "Formatting:\p\tsource key: $#\p\ttransposing: $#\p\ttarget key: $#" %
|
||||||
$transpose & "\p\ttarget key: " & $ctx.currentKey
|
[$ctx.sourceKey, $transpose, $ctx.currentKey]
|
||||||
|
|
||||||
result = """<!doctype html>
|
result = """<!doctype html>
|
||||||
<html>
|
<html>
|
||||||
|
|||||||
@@ -326,6 +326,10 @@ func parseSpelledPitchOrScaleDegree*(key: Key, str: string): ScaleDegree =
|
|||||||
|
|
||||||
|
|
||||||
func transpose*(k: Key, steps: int): Key =
|
func transpose*(k: Key, steps: int): Key =
|
||||||
|
#[
|
||||||
|
debugEcho "transpose: $# by $# steps, resulting in $# ($#)" %
|
||||||
|
[$k, $steps, $(k.tonic.toPitch + steps), $toSpelledPitch(k.tonic.toPitch + steps)]
|
||||||
|
]#
|
||||||
Key(
|
Key(
|
||||||
tonic: toSpelledPitch(k.tonic.toPitch + steps),
|
tonic: toSpelledPitch(k.tonic.toPitch + steps),
|
||||||
mode: k.mode)
|
mode: k.mode)
|
||||||
|
|||||||
Reference in New Issue
Block a user