| Joystick.GetInfo | Part of Joystick module |
| Syntax | Joystick.GetInfo (joystick : int, var xPos, yPos : int, btn1Pressed, btn2Pressed : boolean)
|
| Description | Reads the position and button status of the joystick specified by the joystack parameter. The x and y parameter are returned in the xPos and yPos parameters. If button 1 or button 2 on the joystick are currently pressed, btn1Pressed and btn2Pressed will be set to true. The joystick parameter can be either joystick1 or joystick2. The x and y positions vary from joyMin to joyMax. To use them with respect to a screen, the coordinates returned from Joystick.GetInfo must be translated into screen coordinates. The following formula can be used:
screenX = round (maxx * (xPos joyMin) / (joyMax joyMin))
screenY = round (maxy * (yPos joyMin) / (joyMax joyMin))
|
| Details | The Joystick module contains undocumented subprograms for those who need to access more than two buttons or axes on a joystick. Contact Holt Software if you need more information.
|
| Example | The following program outputs the current location of joystick #1 and draws a cursor on the screen to point out where it is showing.
var jx, jy, x, y, ox, oy : int := 1
var b1, b2, oB1, oB2 : boolean := false
loop
Joystick.GetInfo (joystick1, jx, jy, b1, b2)
% Convert joystick coordinates into screen coordinates.
x = round (maxx * (jx joyMin) / (joyMax joyMin))
y = round (maxy * (jy joyMin) / (joyMax joyMin))
if x not= ox or y not= oy or b1 not= oB1 or b2 not= oB2 then
Text.Locate (1, 1)
put "x = ", x, " y = ", y, " b1 = ", b1, " b2 = ", b2
View.Set ("xor")
Draw.Line (ox 10, oy, ox + 10, oy, brightred)
Draw.Line (ox , oy 10, ox , oy + 10, brightred)
Draw.Line (x 10, y, x + 10, y, brightred)
Draw.Line (x, y 10, x, y + 10, brightred)
ox := x
oy := y
oB1 := b1
oB2 := b2
end if
end loop
|
| Status | Exported qualified. This means that you can only call the function by calling Joystick.GetInfo, not by calling GetInfo.
|