Add files via upload

Author: ThibaultDucray

GP8-controler.tosc

@@ -4,7 +4,8 @@ function checksum(t)
   do
     cs = cs + t[i]
   end
-  return 0x80 - (cs % 0x80)
+  cs = cs % 0x80
+  return (0x80 - cs) % 0x80
 end
 
 -- read effects MSB
@@ -49,9 +50,15 @@ function effectsAllParams(t)
   t[#t + 1] = effectsLSB()
 end
 
-function effectsParams()
-  t = { 0x0, 0x0 }
-  effectsAllParams(t)
+function effectsParams(v)
+  t = { 0x0 }
+  if v < 5 then
+    t[#t + 1] = 0x1
+    t[#t + 1] = effectsLSB()
+  else
+    t[#t + 1] = 0x0
+    t[#t + 1] = effectsMSB()
+  end
   return t
 end
 
@@ -351,7 +358,7 @@ end
 -- notif of changed values
 function onReceiveNotify(key, value)
   if key == "EFF" then
-    sendOneParam(effectsParams())
+    sendOneParam(effectsParams(value))
   elseif key == "DF" then
     sendOneParam(dfParams(value))
   elseif key == "COMP" then

main-midiaction.lua

@@ -6,7 +6,8 @@ function checksum(t)
     do
       cs = cs + t[i]
     end
-    return 0x80 - (cs % 0x80)
+    cs = cs % 0x80
+    return (0x80 - cs) % 0x80
   end
 
 function wait40ms()
@@ -31,7 +32,7 @@ function onValueChanged(x)
     if x == "x" and self.values.x == 0 then
         local gbn = 0
         if self.parent.children.group.values.text == "B" then
-        gbn = 64
+            gbn = 64
         end
         gbn = gbn + (tonumber(self.parent.children.bank.values.text) - 1) * 8 + (tonumber(self.parent.children.number.values.text) - 1)
         self.parent.children.label4.values.text = tostring(gbn)