108 lines
4.3 KiB
AutoHotkey
108 lines
4.3 KiB
AutoHotkey
|
|
||
|
|
go_joystuff:
|
||
|
|
|
||
|
|
gosub,joydisplay
|
||
|
|
|
||
|
|
;*************************************************
|
||
|
|
;* add this to autoexec section of main generic midi program this section all about joystick
|
||
|
|
;*************************************************
|
||
|
|
;gosub,joydisplay ; only if you want the joydisplay to show.
|
||
|
|
SetTimer, stick, 75 ; run the loop every 50 ms - much smoother than 100
|
||
|
|
joyX_last := -1 ; initialize
|
||
|
|
joyY_last := -1
|
||
|
|
joyZ_last := -1
|
||
|
|
joyR_last := -1
|
||
|
|
IniRead, joyXnum, %version%io.ini, joystick, xaxis , %xaxis% ; read the midi In port from ini file
|
||
|
|
IniRead, joyYnum, %version%io.ini, joystick, yaxis , %yaxis% ; read the midi out port from ini file
|
||
|
|
IniRead, joyZnum, %version%io.ini, joystick, zaxis , %zaxis% ; read the midi In port from ini file
|
||
|
|
IniRead, joyRnum, %version%io.ini, joystick, raxis , %raxis% ; read the midi out port from ini file
|
||
|
|
guicontrol,2:,joyXnum, %JoyXnum%
|
||
|
|
;joyXnum := 7 ; midi output CC number for this axis
|
||
|
|
;JoyYnum := 1
|
||
|
|
;joyZnum := 10
|
||
|
|
;joyRnum := 11
|
||
|
|
;*************************************************
|
||
|
|
;* end section to add to autoexec
|
||
|
|
;*************************************************
|
||
|
|
;*************************************************
|
||
|
|
;* add #include joystuff.ahk to generic midi program file
|
||
|
|
;*************************************************
|
||
|
|
;*************************************************
|
||
|
|
;* save below as joystuff.ahk put it in the same folder as generic midi
|
||
|
|
;*************************************************
|
||
|
|
return
|
||
|
|
joydisplay: ; for testging only.
|
||
|
|
Gui,2: +LastFound +AlwaysOnTop +Caption +ToolWindow ; +ToolWindow avoids a taskbar button and an alt-tab menu item.
|
||
|
|
Gui,2: Color, %CustomColor%
|
||
|
|
Gui,2: Font, s9 ; Set a large font size (32-point).
|
||
|
|
Gui,2: Add, Text, vMyText w300, ; XX & YY serve to auto-size the window.
|
||
|
|
gui,2:add,edit, vjoyXnum
|
||
|
|
Gui,2: Show, AutoSize xcenter ycenter NoActivate ; NoActivate avoids deactivating the currently active window.
|
||
|
|
|
||
|
|
return
|
||
|
|
|
||
|
|
stick: ; label for running joystick detection
|
||
|
|
{
|
||
|
|
GetKeyState, JoyX, JoyX ; Get position of X axis.
|
||
|
|
GetKeyState, JoyY, JoyY ; Get position of Y axis.
|
||
|
|
getkeystate, joyz, joyz ; lever 3rd axis on my joystick - ms force feedback2 (picked it up at a yardsale for $1.
|
||
|
|
getkeystate, joyr, joyr ; twist stick rotation axis on my stick
|
||
|
|
|
||
|
|
joyXval := round(joyx*1.27) ; assumes Joyx 0-100 conversion to 0 -127
|
||
|
|
joyYval := round((joyy/(-100)+1)*127) ; inverted output joyY 100 - 0 conversion to 127 - 0 (thanks skylord5816 ahk chat)
|
||
|
|
joyZval := round((joyZ/(-100)+1)*127) ;
|
||
|
|
joyrval := round(joyr*1.27) ;joy rotation
|
||
|
|
|
||
|
|
GuiControl,2:, MyText, X%joyX% = ccX%joyXval% | Y%joyY% = ccY%joyYval% | R%joyR% = ccR%joyRval% | Z%joyz% = ccZ%joyzval% ; updates the joydisplay, active.
|
||
|
|
|
||
|
|
If (joyXVal != joyx_last) ; if it has moved then send another message.
|
||
|
|
{
|
||
|
|
stb = CC
|
||
|
|
statusbyte = 176 ; chan 1 + 175
|
||
|
|
byte1 = %joyXnum%
|
||
|
|
byte2 = %joyXval%
|
||
|
|
midiOutShortMsg(h_midiout, statusbyte, byte1, byte2) ; commented out just to run stand alone - showing the settimer is working.
|
||
|
|
gosub, ShowMidiOutMessage
|
||
|
|
joyx_last := joyXval
|
||
|
|
;MsgBox joylast
|
||
|
|
|
||
|
|
}
|
||
|
|
if (joyYval != joyY_last)
|
||
|
|
{
|
||
|
|
stb = CC
|
||
|
|
statusbyte = 176 ; chan 1 + 175
|
||
|
|
byte1 = %joyYnum%
|
||
|
|
byte2 = %joyYval%
|
||
|
|
midiOutShortMsg(h_midiout, statusbyte, byte1, byte2)
|
||
|
|
gosub, ShowMidiOutMessage
|
||
|
|
joyY_last := joyYval
|
||
|
|
|
||
|
|
}
|
||
|
|
If (joyRVal != joyR_last)
|
||
|
|
{
|
||
|
|
stb = CC
|
||
|
|
statusbyte = 176 ; chan 1 + 175
|
||
|
|
byte1 = %joyRnum%
|
||
|
|
byte2 = %joyRval%
|
||
|
|
midiOutShortMsg(h_midiout, statusbyte, byte1, byte2) ; commented out just to run stand alone - showing the settimer is working.
|
||
|
|
gosub, ShowMidiOutMessage
|
||
|
|
joyR_last := joyRval
|
||
|
|
;MsgBox joylast
|
||
|
|
|
||
|
|
}
|
||
|
|
if (joyzval != joyZ_last)
|
||
|
|
{
|
||
|
|
stb = CC
|
||
|
|
statusbyte = 176 ; chan 1 + 175
|
||
|
|
byte1 = %joyZnum%
|
||
|
|
byte2 = %joyZval%
|
||
|
|
midiOutShortMsg(h_midiout, statusbyte, byte1, byte2) ; commented out just to run stand alone - showing the settimer is working.
|
||
|
|
gosub, ShowMidiOutMessage
|
||
|
|
joyZ_last := joyZval
|
||
|
|
|
||
|
|
}
|
||
|
|
Else
|
||
|
|
Return ; if none of them have moved, nothing to do.
|
||
|
|
}
|
||
|
|
return
|