[Win32forth-cvs] win32forth/src/lib Joystick.f,NONE,1.1

[Jos v.d.V. <jo...@us...>]

Update of /cvsroot/win32forth/win32forth/src/lib
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv16558/src/lib

Added Files:
	Joystick.f 
Log Message:
Jos: Added joystick support.

--- NEW FILE: Joystick.f ---
Anew -joystick.f

INTERNAL WinLibrary WINMM.DLL EXTERNAL

Needs ExtStruct.f

:struct joycapsa
     WORD    wMid;                               /* manufacturer ID */
     WORD    wPid;                               /* product ID */
     MAXPNAMELEN                Field:  szPname  /* product name (NULL terminated string) */
     UINT    wXmin;                              /* minimum x position value */
     UINT    wXmax;                              /* maximum x position value */
     UINT    wYmin;                              /* minimum y position value */
     UINT    wYmax;                              /* maximum y position value */
     UINT    wZmin;                              /* minimum z position value */
     UINT    wZmax;                              /* maximum z position value */
     UINT    wNumButtons;                        /* number of buttons */
     UINT    wPeriodMin;                         /* minimum message period when captured */
     UINT    wPeriodMax;                         /* maximum message period when captured */
     UINT    wRmin;                              /* minimum r position value */
     UINT    wRmax;                              /* maximum r position value */
     UINT    wUmin;                              /* minimum u (5th axis) position value */
     UINT    wUmax;                              /* maximum u (5th axis) position value */
     UINT    wVmin;                              /* minimum v (6th axis) position value */
     UINT    wVmax;                              /* maximum v (6th axis) position value */
     UINT    wCaps;                              /* joystick capabilites */
     UINT    wMaxAxes;                           /* maximum number of axes supported */
     UINT    wNumAxes;                           /* number of axes in use */
     UINT    wMaxButtons;                        /* maximum number of buttons supported */
     maxpnamelen                Field: szRegKey   /* registry key */
     max_joystickoemvxdname     Field: szOEMVxD   /* OEM VxD in use */
;struct

sizeof joycapsa         mkstruct: *lpjoycapsa


:struct joyinfo
     UINT wXpos                 /* x position */
     UINT wYpos                 /* y position */
     UINT wZpos                 /* z position */
     UINT wButtons              /* button states */
;struct

sizeof joyinfo         mkstruct: *lpjoyinfo


:struct joyinfoex
     DWORD dwSize;           /* size of structure */
     DWORD dwFlags;          /* flags to indicate what to return */
     DWORD dwXpos;           /* x position */
     DWORD dwYpos;           /* y position */
     DWORD dwZpos;           /* z position */
     DWORD dwRpos;           /* rudder/4th axis position */
     DWORD dwUpos;           /* 5th axis position */
     DWORD dwVpos;           /* 6th axis position */
     DWORD dwButtons;        /* button states */
     DWORD dwButtonNumber;   /* current button number pressed */
     DWORD dwPOV;            /* point of view state */
     DWORD dwReserved1;      /* reserved for communication between winmm & driver */
     DWORD dwReserved2;      /* reserved for future expansion */
;struct

sizeof joyinfoex         mkstruct: *lpjoyinfoex

: GetJoystickInfo                       ( id -- x y z buttons )
    *lpjoyinfo [ sizeof joyinfo ] literal erase
    *lpjoyinfo swap  Call joyGetPos  drop
    struct, *lpjoyinfo joyinfo  wXpos    @
    struct, *lpjoyinfo joyinfo  wYpos    @
    struct, *lpjoyinfo joyinfo  wZpos    @
    struct, *lpjoyinfo joyinfo  wButtons @
;

4 constant MaxJoysticks

: FindFirstJoyStick ( -  *lpjoycapsa ID  )  \ ID should be <= MaxJoysticks
  *lpjoycapsa [ sizeof JOYCAPSA ] literal 2dup erase swap MaxJoysticks 0
        do     2dup  i Call joyGetDevCaps 0=
                  if   nip  I leave
                  then
        loop
   ;


\s Test and demo:

: JoystickTest ( - ) \ Move the joystick and press some buttons
    FindFirstJoyStick nip dup MaxJoysticks <
        if      begin   cr dup GetJoystickInfo  dup>r . . . . 20 ms
                        r> 1 =
                until   \  the fire button has been pressed
        drop ." The fire button has been pressed."
        else    cr ." No joystick found."
        then
 ;

JoystickTest

\s