more flexible aftertouch

InOut/midirecv.c

@@ -192,9 +192,9 @@ void midi_ctl_reset(CSOUND *csound, int16 chan)
     chn->pbensens = FL(2.0);                    /*   pitch bend range */
     chn->datenabl = 0;
     /* reset aftertouch to max value - added by Istvan Varga, May 2002 */
-    chn->aftouch = FL(127.0);
+    chn->aftouch = csound->aftouch;
     for (i = 0; i < 128; i++)
-      chn->polyaft[i] = FL(127.0);
+      chn->polyaft[i] = csound->aftouch;
     /* controller 64 has just been set to zero: terminate any held notes */
     if (chn->ksuscnt && !MGLOB(rawControllerMode))
       sustsoff(csound, chn);

Top/argdecode.c

@@ -305,6 +305,7 @@ static const char *longUsageList[] = {
   Str_noop("--fftlib=N              actual FFT lib to use (FFTLIB=0, "
                                    "PFFFT = 1, vDSP =2)"),
   Str_noop("--udp-echo              echo UDP commands on terminal"),
+  Str_noop("--aft-zero              set atftertouch to zero, not 127 (default)"),
   " ",
   Str_noop("--help                  long help"),
   NULL
@@ -1179,7 +1180,11 @@ static int decode_long(CSOUND *csound, char *s, int argc, char **argv)
       csound->info_message_request = 1;
       return 1;
     }
-
+    else if (!(strcmp(s, "aft-zero"))){
+      csound->aftouch = 0;
+      return 1;
+    }
+
     csoundErrorMsg(csound, Str("unknown long option: '--%s'"), s);
     return 0;
 }

Top/csound.c

@@ -909,6 +909,7 @@ static const CSOUND cenviron_ = {
     0,              /* msg_queue_rstart */
     0,              /* msg_queue_items */
     NULL,           /* directory for corfiles */
+    127,            /* aftouch */
     /*, NULL */           /* self-reference */
 };
 

include/csoundCore.h

@@ -1765,6 +1765,7 @@ typedef struct NAME__ {
     volatile long msg_queue_rstart; /* Reader - start index */
     volatile long msg_queue_items;
     void     *directory;
+    int      aftouch;
     /*struct CSOUND_ **self;*/
     /**@}*/
 #endif  /* __BUILDING_LIBCSOUND */