Artifact 6b68443559d29c8cf693b4bd28871756ece3121b:

• File sdl2/touch-functions.ss — part of check-in [c9770d8f7f] at 2016-08-17 07:47:19 on branch trunk — added sdl2 (user: ovenpasta@pizzahack.eu size: 381)

0000: 28 64 65 66 69 6e 65 2d 73 64 6c 2d 66 75 6e 63  (define-sdl-func
0010: 20 69 6e 74 20 73 64 6c 2d 67 65 74 2d 6e 75 6d   int sdl-get-num
0020: 2d 74 6f 75 63 68 2d 64 65 76 69 63 65 73 20 28  -touch-devices (
0030: 29 20 22 53 44 4c 5f 47 65 74 4e 75 6d 54 6f 75  ) "SDL_GetNumTou
0040: 63 68 44 65 76 69 63 65 73 22 29 0a 28 64 65 66  chDevices").(def
0050: 69 6e 65 2d 73 64 6c 2d 66 75 6e 63 20 73 64 6c  ine-sdl-func sdl
0060: 2d 74 6f 75 63 68 2d 69 64 2d 74 20 73 64 6c 2d  -touch-id-t sdl-
0070: 67 65 74 2d 74 6f 75 63 68 2d 64 65 76 69 63 65  get-touch-device
0080: 20 28 28 69 6e 64 65 78 20 69 6e 74 29 29 20 22   ((index int)) "
0090: 53 44 4c 5f 47 65 74 54 6f 75 63 68 44 65 76 69  SDL_GetTouchDevi
00a0: 63 65 22 29 0a 28 64 65 66 69 6e 65 2d 73 64 6c  ce").(define-sdl
00b0: 2d 66 75 6e 63 20 69 6e 74 20 73 64 6c 2d 67 65  -func int sdl-ge
00c0: 74 2d 6e 75 6d 2d 74 6f 75 63 68 2d 66 69 6e 67  t-num-touch-fing
00d0: 65 72 73 20 28 28 74 6f 75 63 68 49 44 20 73 64  ers ((touchID sd
00e0: 6c 2d 74 6f 75 63 68 2d 69 64 2d 74 29 29 20 22  l-touch-id-t)) "
00f0: 53 44 4c 5f 47 65 74 4e 75 6d 54 6f 75 63 68 46  SDL_GetNumTouchF
0100: 69 6e 67 65 72 73 22 29 0a 28 64 65 66 69 6e 65  ingers").(define
0110: 2d 73 64 6c 2d 66 75 6e 63 20 28 2a 20 73 64 6c  -sdl-func (* sdl
0120: 2d 66 69 6e 67 65 72 2d 74 29 20 73 64 6c 2d 67  -finger-t) sdl-g
0130: 65 74 2d 74 6f 75 63 68 2d 66 69 6e 67 65 72 20  et-touch-finger 
0140: 28 28 74 6f 75 63 68 49 44 20 73 64 6c 2d 74 6f  ((touchID sdl-to
0150: 75 63 68 2d 69 64 2d 74 29 20 28 69 6e 64 65 78  uch-id-t) (index
0160: 20 69 6e 74 29 29 20 22 53 44 4c 5f 47 65 74 54   int)) "SDL_GetT
0170: 6f 75 63 68 46 69 6e 67 65 72 22 29 0a           ouchFinger").