Artifact 815dc2ca4c500d380bc3c9a720e9f0bc24a98b7f:

• File sdl2/mix-types.ss — part of check-in [242c211156] at 2018-01-08 17:10:50 on branch trunk — Initial SDL_Mixer support (user: ovenpasta@users.noreply.github.com size: 369)

0000: 28 64 65 66 69 6e 65 2d 66 74 79 70 65 20 6d 69  (define-ftype mi
0010: 78 2d 63 68 75 6e 6b 0a 20 20 28 73 74 72 75 63  x-chunk.  (struc
0020: 74 0a 0a 20 20 20 20 20 20 28 61 6c 6c 6f 63 61  t..      (alloca
0030: 74 65 64 20 69 6e 74 29 0a 20 20 20 20 28 61 62  ted int).    (ab
0040: 75 66 20 75 69 6e 74 38 29 0a 20 20 20 20 28 61  uf uint8).    (a
0050: 6c 65 6e 20 75 69 6e 74 33 32 29 0a 20 20 20 20  len uint32).    
0060: 28 76 6f 6c 75 6d 65 20 75 69 6e 74 38 29 29 29  (volume uint8)))
0070: 0a 0a 28 64 65 66 69 6e 65 2d 66 74 79 70 65 20  ..(define-ftype 
0080: 6d 69 78 2d 6d 75 73 69 63 0a 20 20 28 73 74 72  mix-music.  (str
0090: 75 63 74 29 29 0a 0a 28 64 65 66 69 6e 65 2d 66  uct))..(define-f
00a0: 74 79 70 65 20 6d 69 78 2d 6d 75 73 69 63 2d 74  type mix-music-t
00b0: 79 70 65 20 75 69 6e 74 38 29 0a 0a 28 64 65 66  ype uint8)..(def
00c0: 69 6e 65 2d 66 74 79 70 65 20 6d 69 78 2d 66 61  ine-ftype mix-fa
00d0: 64 69 6e 67 20 75 69 6e 74 38 29 0a 3b 3b 3b 46  ding uint8).;;;F
00e0: 69 78 6d 65 20 65 6e 75 6d 20 5e 0a 0a 28 64 65  ixme enum ^..(de
00f0: 66 69 6e 65 2d 66 74 79 70 65 20 6d 69 78 2d 65  fine-ftype mix-e
0100: 66 66 65 63 74 2d 66 75 6e 63 2d 74 20 28 66 75  ffect-func-t (fu
0110: 6e 63 74 69 6f 6e 20 28 69 6e 74 20 76 6f 69 64  nction (int void
0120: 2a 20 69 6e 74 20 76 6f 69 64 2a 29 20 76 6f 69  * int void*) voi
0130: 64 29 29 0a 28 64 65 66 69 6e 65 2d 66 74 79 70  d)).(define-ftyp
0140: 65 20 6d 69 78 2d 65 66 66 65 63 74 2d 64 6f 6e  e mix-effect-don
0150: 65 2d 74 20 28 66 75 6e 63 74 69 6f 6e 20 28 69  e-t (function (i
0160: 6e 74 20 76 6f 69 64 2a 29 20 76 6f 69 64 29 29  nt void*) void))
0170: 0a                                               .