High-Rez

GFA_BASIC 

*****Sysex-utility for Korg M1 ************

this is some simple-example-code to send sysex-messages to an Korg M1 synth

beta version 0000 0001.a   ;-0


only the upper-left slider is sendig sysex message so far...
M1 should be in "single" mode.


I've used an Interface-creator(Autozest) to create the Interface,
and well, I like buttons...

so if you want to see where the data is created/sent scroll or search for

'
    ' *******************************************
    '
    ' ************ SLIDER ***************
    '    Parameters: (page,position,valueLSB,valueMSB)
    ' ********************************************

here we go, that's where troubles should be expected:

IF mx%>120 AND mx%<156 AND my%>158 AND my%<279 AND MOUSEK=1 AND pos_y1%<>MOUSEY-10 AND MOUSEY-10>159 AND MOUSEY+10<280 THEN   !nevermind
      pos_y1%=MOUSEY-10                  
      wert%=(pos_y1%-259)*(-1)                         !reflects slider-value from 0-99 (dec) .. so 00-63 (HEX)
      PUT 120,155,coverup1$
      PUT 120,pos_y1%-2,slider1$,6
      PRINT AT(30,4),wert%
      GOSUB send_ex(1,10,0,wert%)                      ! send it
                                                       ' sends osc multisound(waveform) in single mode
endif


...

PROCEDURE send_ex(page%,pos%,wertl%,wert%)
  '
  OUT 3,&HF0
  OUT 3,&H42
  OUT 3,&H30
  OUT 3,&H19
  OUT 3,&H41    !parameter change
  OUT 3,page%   
  OUT 3,pos%
  OUT 3,wertl%
  OUT 3,wert%
  OUT 3,&HF7
  '  PRINT AT(1,7),page%
  '  PRINT AT(1,8),pos%
  '  PRINT AT(1,9),wertl%
  '  PRINT AT(1,10),wert%
  '
RETURN


-----------

well, only sound 00 Piano or 99 Dwgs.Sine  can be set. that's because i don't understand MSB and LSB i guess ( and that's why i'm tryin' to write that .prg)


if you can help, contact me trough the atari.midi-mailing list. please help!

? How do i have to treat the values(LSB and MSB) to get access to all the waveforms (00-99) ???

best regards,
feel free and listen to radio Helsinki

http://www.helsinki.at/live-stream.php

-Lobo_prod_2010-
