Additional debug statement.

2026-01-10 10:29:01 -06:00
parent 2f561e5047
commit 4abc299ae9
2 changed files with 6 additions and 2 deletions
--- a/src/pco_chordspkg/html.nim
+++ b/src/pco_chordspkg/html.nim
@@ -312,8 +312,8 @@ proc toHtml*(
    numberChart: numberChart,
    transposeSteps: transpose)

-  debug "Formatting:\p\tsource key: " & $ctx.sourceKey & "\p\ttransposing: " &
-    $transpose & "\p\ttarget key: " & $ctx.currentKey
+  debug "Formatting:\p\tsource key: $#\p\ttransposing: $#\p\ttarget key: $#" %
+    [$ctx.sourceKey, $transpose, $ctx.currentKey]

  result = """<!doctype html>
 <html>
--- a/src/pco_chordspkg/notation.nim
+++ b/src/pco_chordspkg/notation.nim
@@ -326,6 +326,10 @@ func parseSpelledPitchOrScaleDegree*(key: Key, str: string): ScaleDegree =


 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(
    tonic: toSpelledPitch(k.tonic.toPitch + steps),
    mode: k.mode)