Joystick position: Difference between revisions

Line 1,088:

First, joy.e:

<lang Phix>-- Joystick library for Euphoria (Windows)

without js

-- /Mic, 2002

-- Joystick library for Euphoria (Windows)

--

-- /Mic, 2002

-- integer joy_init()

--

-- returns the number of joysticks attached to the computer

-- integer joy_init()

--

-- returns the number of joysticks attached to the computer

-- sequence joy_get_state(integer joy_num)

--

-- returns the current state of joystick #joy_num (can be either 1 or 2).

-- sequence joy_get_state(integer joy_num)

-- the format of the return sequence is:

-- returns the current state of joystick #joy_num (can be either 1 or 2).

-- {X_direction, Y_direction, Z_direction, buttons}

-- the format of the return sequence is:

-- the X,Y and Z directions have 3 possible values; 0 (negative), 32768 (neutral) or 65535 (positive)

-- {X_direction, Y_direction, Z_direction, buttons}

-- the buttons' status are represented by a single bit (button up, button down). e.g. to get the status

-- the X,Y and Z directions have 3 possible values; 0 (negative), 32768 (neutral) or 65535 (positive)

-- of button #3 on joystick #1 you'd use:

-- the buttons' status are represented by a single bit (button up, button down). e.g. to get the status

-- sequence state

-- of button #3 on joystick #1 you'd use:

-- state = joy_get_state(1)

-- if ~~and_bits(~~state~~[4],4) then ... end if~~

-- sequence state

-- state = joy_get_state(1)

--

-- if and_bits(state[4],4) then ... end if

include dll.e

--

include machine.e

include dll.e

include machine.e

constant joyinfo = allocate(32)

atom winmm

constant joyinfo = allocate(32)

integer joyGetNumDevs,joyGetPos

atom winmm

integer joyGetNumDevs,joyGetPos

winmm = open_dll("winmm.dll")

if (winmm <= 0) then

winmm = open_dll("winmm.dll")

puts(1,"Unable to open winmm.dll")

if (winmm <= 0) then

abort(0)

puts(1,"Unable to open winmm.dll")

end if

abort(0)

end if

joyGetNumDevs = define_c_func(winmm,"joyGetNumDevs",{},C_UINT)

joyGetPos = define_c_func(winmm,"joyGetPos",{C_INT,C_POINTER},C_INT)

joyGetNumDevs = define_c_func(winmm,"joyGetNumDevs",{},C_UINT)

if (joyGetNumDevs<0) or (joyGetPos<0) then

joyGetPos = define_c_func(winmm,"joyGetPos",{C_INT,C_POINTER},C_INT)

puts(1,"Unable to link functions")

if (joyGetNumDevs<0) or (joyGetPos<0) then

abort(0)

puts(1,"Unable to link functions")

end if

abort(0)

end if

global function joy_init()

integer joy1Attached,joy2Attached

global function joy_init()

integer numDevs = c_func(joyGetNumDevs,{})

integer joy1Attached,joy2Attached

if numDevs=0 then

integer numDevs = c_func(joyGetNumDevs,{})

return 0

if numDevs=0 then

end if

return 0

end if

joy1Attached = (c_func(joyGetPos,{0,joyinfo}) != 167)

joy2Attached = (numDevs=2) and (c_func(joyGetPos,{1,joyinfo}) != 167)

joy1Attached = (c_func(joyGetPos,{0,joyinfo}) != 167)

joy2Attached = (numDevs=2) and (c_func(joyGetPos,{1,joyinfo}) != 167)

return joy1Attached + (joy2Attached*2)

end function

return joy1Attached + (joy2Attached*2)

end function

global function joy_get_state(integer joy_num)

if joy_num=1 or joy_num=2 then

global function joy_get_state(integer joy_num)

joy_num -= 1

if joy_num=1 or joy_num=2 then

if c_func(joyGetPos,{joy_num,joyinfo+(joy_num*16)}) then

joy_num -= 1

-- ERROR

if c_func(joyGetPos,{joy_num,joyinfo+(joy_num*16)}) then

return {}

-- ERROR

end if

return {}

return peek4u({joyinfo+(joy_num*16),4})

end if

end if

return peek4u({joyinfo+(joy_num*16),4})

return {}

end if

end function</lang>

return {}

end function

And a test program:

<lang Phix>~~include joy.ew~~

without js

include joy.ew

if joy_init()=0 then

puts(1,"No joystick(s) attached!")

if joy_init()=0 then

abort(0)

puts(1,"No joystick(s) attached!")

end if

abort(0)

end if

sequence joy_info = {}, s

integer button_mask

sequence joy_info = {}, s

integer button_mask

puts(1,"Joystick test\nEntering input loop. Press a key to exit..\n\n")

puts(1,"Joystick test\nEntering input loop. Press a key to exit..\n\n")

while get_key()=-1 do

-- Get the state of joystick #1

while get_key()=-1 do

s = joy_get_state(1)

-- Get the state of joystick #1

s = joy_get_state(1)

-- Do not print info unless the state has changed

if not equal(s,joy_info) then

-- Do not print info unless the state has changed

joy_info = s

if not equal(s,joy_info) then

joy_info = s

printf(1,"X = %d, Y= %d ",{floor((s[1]-32767)/32768),floor((s[2]-32767)/32768)})

printf(1,"X = %d, Y= %d ",{floor((s[1]-32767)/32768),floor((s[2]-32767)/32768)})

button_mask = 1

for i=1 to 8 do

button_mask = 1

if and_bits(s[4],button_mask) then

for i=1 to 8 do

printf(1,"BTN%d ",i)

if and_bits(s[4],button_mask) then

else

printf(1,"BTN%d ",i)

puts(1," ")

~~end~~ if

else

puts(1," ")

button_mask *= 2

end if

end for

button_mask *= 2

puts(1,"\n")

end for

end if

puts(1,"\n")

end while</lang>

end if

end while

=={{header|PicoLisp}}==