1 | #ifdef _WIN32 |
1 | #ifdef _WIN32 |
2 | # include <malloc.h> |
2 | # include <malloc.h> |
|
|
3 | # pragma warning(disable:4244) |
3 | #endif |
4 | #endif |
4 | |
5 | |
5 | #include "EXTERN.h" |
6 | #include "EXTERN.h" |
6 | #include "perl.h" |
7 | #include "perl.h" |
7 | #include "XSUB.h" |
8 | #include "XSUB.h" |
… | |
… | |
258 | } |
259 | } |
259 | } |
260 | } |
260 | } |
261 | } |
261 | |
262 | |
262 | static void |
263 | static void |
263 | music_finished () |
264 | music_finished (void) |
264 | { |
265 | { |
265 | SDL_UserEvent ev; |
266 | SDL_UserEvent ev; |
266 | |
267 | |
267 | ev.type = SDL_USEREVENT; |
268 | ev.type = SDL_USEREVENT; |
268 | ev.code = 0; |
269 | ev.code = 0; |
269 | ev.data1 = 0; |
270 | ev.data1 = 0; |
|
|
271 | ev.data2 = 0; |
|
|
272 | |
|
|
273 | SDL_PushEvent ((SDL_Event *)&ev); |
|
|
274 | } |
|
|
275 | |
|
|
276 | static void |
|
|
277 | channel_finished (int channel) |
|
|
278 | { |
|
|
279 | SDL_UserEvent ev; |
|
|
280 | |
|
|
281 | ev.type = SDL_USEREVENT; |
|
|
282 | ev.code = 1; |
|
|
283 | ev.data1 = (void *)(long)channel; |
270 | ev.data2 = 0; |
284 | ev.data2 = 0; |
271 | |
285 | |
272 | SDL_PushEvent ((SDL_Event *)&ev); |
286 | SDL_PushEvent ((SDL_Event *)&ev); |
273 | } |
287 | } |
274 | |
288 | |
… | |
… | |
457 | |
471 | |
458 | while (SDL_PollEvent (&ev)) |
472 | while (SDL_PollEvent (&ev)) |
459 | { |
473 | { |
460 | HV *hv = newHV (); |
474 | HV *hv = newHV (); |
461 | hv_store (hv, "type", 4, newSViv (ev.type), 0); |
475 | hv_store (hv, "type", 4, newSViv (ev.type), 0); |
|
|
476 | |
462 | switch (ev.type) |
477 | switch (ev.type) |
463 | { |
478 | { |
464 | case SDL_KEYDOWN: |
479 | case SDL_KEYDOWN: |
465 | case SDL_KEYUP: |
480 | case SDL_KEYUP: |
466 | hv_store (hv, "state", 5, newSViv (ev.key.state), 0); |
481 | hv_store (hv, "state", 5, newSViv (ev.key.state), 0); |
… | |
… | |
486 | case SDL_MOUSEBUTTONUP: |
501 | case SDL_MOUSEBUTTONUP: |
487 | hv_store (hv, "button", 6, newSViv (ev.button.button), 0); |
502 | hv_store (hv, "button", 6, newSViv (ev.button.button), 0); |
488 | hv_store (hv, "state", 5, newSViv (ev.button.state), 0); |
503 | hv_store (hv, "state", 5, newSViv (ev.button.state), 0); |
489 | hv_store (hv, "x", 1, newSViv (ev.button.x), 0); |
504 | hv_store (hv, "x", 1, newSViv (ev.button.x), 0); |
490 | hv_store (hv, "y", 1, newSViv (ev.button.y), 0); |
505 | hv_store (hv, "y", 1, newSViv (ev.button.y), 0); |
|
|
506 | break; |
|
|
507 | |
|
|
508 | case SDL_USEREVENT: |
|
|
509 | hv_store (hv, "code", 4, newSViv (ev.user.code), 0); |
|
|
510 | hv_store (hv, "data1", 5, newSViv ((IV)ev.user.data1), 0); |
|
|
511 | hv_store (hv, "data2", 5, newSViv ((IV)ev.user.data2), 0); |
|
|
512 | break; |
491 | } |
513 | } |
492 | |
514 | |
493 | XPUSHs (sv_2mortal (newRV_noinc ((SV *)hv))); |
515 | XPUSHs (sv_2mortal (newRV_noinc ((SV *)hv))); |
494 | } |
516 | } |
495 | } |
517 | } |
496 | |
518 | |
497 | int |
519 | int |
498 | Mix_OpenAudio (int frequency = 22050, int format = MIX_DEFAULT_FORMAT, int channels = 1, int chunksize = 512) |
520 | Mix_OpenAudio (int frequency = 48000, int format = MIX_DEFAULT_FORMAT, int channels = 1, int chunksize = 2048) |
499 | POSTCALL: |
521 | POSTCALL: |
500 | Mix_HookMusicFinished (music_finished); |
522 | Mix_HookMusicFinished (music_finished); |
|
|
523 | Mix_ChannelFinished (channel_finished); |
501 | |
524 | |
502 | void |
525 | void |
503 | Mix_CloseAudio () |
526 | Mix_CloseAudio () |
504 | |
527 | |
505 | int |
528 | int |
… | |
… | |
640 | exit (1); |
663 | exit (1); |
641 | |
664 | |
642 | MODULE = CFClient PACKAGE = CFClient::Font |
665 | MODULE = CFClient PACKAGE = CFClient::Font |
643 | |
666 | |
644 | CFClient::Font |
667 | CFClient::Font |
645 | new_from_file (SV *class, char *path) |
668 | new_from_file (SV *class, char *path, int id = 0) |
646 | CODE: |
669 | CODE: |
647 | { |
670 | { |
648 | int count; |
671 | int count; |
649 | FcPattern *pattern = FcFreeTypeQuery ((const FcChar8 *)path, 0, 0, &count); |
672 | FcPattern *pattern = FcFreeTypeQuery ((const FcChar8 *)path, id, 0, &count); |
650 | RETVAL = pango_fc_font_description_from_pattern (pattern, 0); |
673 | RETVAL = pango_fc_font_description_from_pattern (pattern, 0); |
651 | FcPatternDestroy (pattern); |
674 | FcPatternDestroy (pattern); |
652 | } |
675 | } |
653 | OUTPUT: |
676 | OUTPUT: |
654 | RETVAL |
677 | RETVAL |
… | |
… | |
1348 | } *civ, const_iv[] = { |
1371 | } *civ, const_iv[] = { |
1349 | # define const_iv(name) { # name, (IV)name } |
1372 | # define const_iv(name) { # name, (IV)name } |
1350 | const_iv (GL_COLOR_MATERIAL), |
1373 | const_iv (GL_COLOR_MATERIAL), |
1351 | const_iv (GL_SMOOTH), |
1374 | const_iv (GL_SMOOTH), |
1352 | const_iv (GL_FLAT), |
1375 | const_iv (GL_FLAT), |
|
|
1376 | const_iv (GL_DITHER), |
1353 | const_iv (GL_BLEND), |
1377 | const_iv (GL_BLEND), |
|
|
1378 | const_iv (GL_SCISSOR_TEST), |
1354 | const_iv (GL_AND), |
1379 | const_iv (GL_AND), |
1355 | const_iv (GL_ONE), |
1380 | const_iv (GL_ONE), |
1356 | const_iv (GL_ZERO), |
1381 | const_iv (GL_ZERO), |
1357 | const_iv (GL_SRC_ALPHA), |
1382 | const_iv (GL_SRC_ALPHA), |
1358 | const_iv (GL_SRC_ALPHA_SATURATE), |
1383 | const_iv (GL_SRC_ALPHA_SATURATE), |
… | |
… | |
1381 | const_iv (GL_LINEAR_MIPMAP_NEAREST), |
1406 | const_iv (GL_LINEAR_MIPMAP_NEAREST), |
1382 | const_iv (GL_NEAREST_MIPMAP_LINEAR), |
1407 | const_iv (GL_NEAREST_MIPMAP_LINEAR), |
1383 | const_iv (GL_LINEAR_MIPMAP_LINEAR), |
1408 | const_iv (GL_LINEAR_MIPMAP_LINEAR), |
1384 | const_iv (GL_GENERATE_MIPMAP), |
1409 | const_iv (GL_GENERATE_MIPMAP), |
1385 | const_iv (GL_MODULATE), |
1410 | const_iv (GL_MODULATE), |
|
|
1411 | const_iv (GL_DECAL), |
1386 | const_iv (GL_REPLACE), |
1412 | const_iv (GL_REPLACE), |
1387 | const_iv (GL_COLOR_BUFFER_BIT), |
1413 | const_iv (GL_COLOR_BUFFER_BIT), |
1388 | const_iv (GL_PROJECTION), |
1414 | const_iv (GL_PROJECTION), |
1389 | const_iv (GL_MODELVIEW), |
1415 | const_iv (GL_MODELVIEW), |
1390 | const_iv (GL_COLOR_LOGIC_OP), |
1416 | const_iv (GL_COLOR_LOGIC_OP), |
|
|
1417 | const_iv (GL_SEPARABLE_2D), |
1391 | const_iv (GL_CONVOLUTION_2D), |
1418 | const_iv (GL_CONVOLUTION_2D), |
1392 | const_iv (GL_CONVOLUTION_BORDER_MODE), |
1419 | const_iv (GL_CONVOLUTION_BORDER_MODE), |
1393 | const_iv (GL_CONSTANT_BORDER), |
1420 | const_iv (GL_CONSTANT_BORDER), |
1394 | const_iv (GL_LINES), |
1421 | const_iv (GL_LINES), |
1395 | const_iv (GL_QUADS), |
1422 | const_iv (GL_QUADS), |
… | |
… | |
1435 | # near and far are due to microsofts buggy c compiler |
1462 | # near and far are due to microsofts buggy c compiler |
1436 | void glOrtho (double left, double right, double bottom, double top, double near_, double far_) |
1463 | void glOrtho (double left, double right, double bottom, double top, double near_, double far_) |
1437 | |
1464 | |
1438 | void glViewport (int x, int y, int width, int height) |
1465 | void glViewport (int x, int y, int width, int height) |
1439 | |
1466 | |
|
|
1467 | void glScissor (int x, int y, int width, int height) |
|
|
1468 | |
1440 | void glTranslate (float x, float y, float z = 0.) |
1469 | void glTranslate (float x, float y, float z = 0.) |
1441 | CODE: |
1470 | CODE: |
1442 | glTranslatef (x, y, z); |
1471 | glTranslatef (x, y, z); |
1443 | |
1472 | |
1444 | void glScale (float x, float y, float z = 1.) |
1473 | void glScale (float x, float y, float z = 1.) |
… | |
… | |
1454 | void glEnd () |
1483 | void glEnd () |
1455 | |
1484 | |
1456 | void glColor (float r, float g, float b, float a = 1.0) |
1485 | void glColor (float r, float g, float b, float a = 1.0) |
1457 | PROTOTYPE: @ |
1486 | PROTOTYPE: @ |
1458 | CODE: |
1487 | CODE: |
1459 | glColor4f (r, g, b, a); |
1488 | glColor4ub (r * 255., g * 255., b * 255., a * 255.); |
1460 | |
1489 | |
1461 | void glVertex (float x, float y, float z = 0.) |
1490 | void glVertex (float x, float y, float z = 0.) |
1462 | CODE: |
1491 | CODE: |
1463 | glVertex3f (x, y, z); |
1492 | glVertex3f (x, y, z); |
1464 | |
1493 | |
… | |
… | |
1483 | void glConvolutionFilter2D (int target, int internalformat, int width, int height, int format, int type, char *data) |
1512 | void glConvolutionFilter2D (int target, int internalformat, int width, int height, int format, int type, char *data) |
1484 | CODE: |
1513 | CODE: |
1485 | GL_CALL (PFNGLCONVOLUTIONFILTER2DEXTPROC, glConvolutionFilter2D, |
1514 | GL_CALL (PFNGLCONVOLUTIONFILTER2DEXTPROC, glConvolutionFilter2D, |
1486 | (target, internalformat, width, height, format, type, data)); |
1515 | (target, internalformat, width, height, format, type, data)); |
1487 | |
1516 | |
|
|
1517 | void glSeparableFilter2D (int target, int internalformat, int width, int height, int format, int type, char *row, char *column) |
|
|
1518 | CODE: |
|
|
1519 | GL_CALL (PFNGLSEPARABLEFILTER2DEXTPROC, glSeparableFilter2D, |
|
|
1520 | (target, internalformat, width, height, format, type, row, column)); |
|
|
1521 | |
1488 | void glTexImage2D (int target, int level, int internalformat, int width, int height, int border, int format, int type, char *data) |
1522 | void glTexImage2D (int target, int level, int internalformat, int width, int height, int border, int format, int type, char *data) |
1489 | |
1523 | |
1490 | void glCopyTexImage2D (int target, int level, int internalformat, int x, int y, int width, int height, int border) |
1524 | void glCopyTexImage2D (int target, int level, int internalformat, int x, int y, int width, int height, int border) |
1491 | |
1525 | |
1492 | void glRasterPos (int x, int y) |
1526 | void glRasterPos (int x, int y) |