From 8713aa8930776a06e0cedb77539e22db1e148553 Mon Sep 17 00:00:00 2001
From: Dennis Ranke <dennis.ranke@gmail.com>
Date: Sat, 19 Mar 2022 22:55:40 +0100
Subject: [PATCH] adjust tim_ges to new soundchip version

---
 examples/curlywas/tim_ges.cwa | 18 +++++++++---------
 1 file changed, 9 insertions(+), 9 deletions(-)

diff --git a/examples/curlywas/tim_ges.cwa b/examples/curlywas/tim_ges.cwa
index 5d276c6..5d3c647 100644
--- a/examples/curlywas/tim_ges.cwa
+++ b/examples/curlywas/tim_ges.cwa
@@ -9,7 +9,7 @@ fn melody(ch: i32, t: i32, T: i32) {
     let inline riff_note = 5514 >> (riff_pos % note_count * 4) & 15;
     let inline melody_note = shift + octave - riff_note;
 
-    ch?1 = riff_pos * 10 + 63;
+    ch?1 = 248 - riff_pos * 15;
     ch?3 = melody_note + 64;
 
     let inline arp_note = shift + ((0x85>>((t/2)%3*4)) & 15) - 1;
@@ -22,13 +22,13 @@ export fn upd() {
     melody(98, t, T - 3);
     melody(92, t, T);
 
-    80?0 = ((T >= 256) & (T/12+(T-3)/12)) * 2 | 0x4; // arp trigger
+    80?0 = ((T >= 256) & (T/12+(T-3)/12)) * 2 | 0x44; // arp trigger
 
     if T >= 128 {
         let inline bass_step = T % 8;
         86?3 = if bass_step / 2 == 2 {
             86?0 = 0xc2;
-            90
+            80
         } else {
             86?0 = ((197 >> bass_step) & 1) | 0x48;
             ((T & 4) * ((T & 7) - 1)) / 2 + 28
@@ -38,12 +38,12 @@ export fn upd() {
 
 data 80 {
     i8(
-        0, 80, 0, 128, 0, 0x90,
-        0, 80, 0, 128, 0, 0x4c,
-        5, 128, 0, 128, 0, 0x4c,
-        5, 128, 0, 128, 0, 0x4c,
-        0xf8, 0x85,
-        0x81, 0x81, 0, 110, 0, 80
+        0, 0x81, 0, 0, 0, 0x90,
+        0, 0x4c, 0, 0, 0, 0x5c,
+        5, 0, 0, 0, 0, 0x4c,
+        5, 0, 0, 0, 0, 0x4c,
+        0xfa, 0x85,
+        0x81, 0x81, 0, 110, 0, 90
     )
 }