ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/Deliantra-Client/Client.xs
(Generate patch)

Comparing deliantra/Deliantra-Client/Client.xs (file contents):
Revision 1.82 by root, Mon May 15 00:15:08 2006 UTC vs.
Revision 1.128 by root, Wed Jul 5 03:01:01 2006 UTC

10#include "XSUB.h" 10#include "XSUB.h"
11 11
12#include <math.h> 12#include <math.h>
13#include <string.h> 13#include <string.h>
14#include <stdio.h> 14#include <stdio.h>
15#include <stdlib.h>
15 16
16#include <SDL.h> 17#include <SDL.h>
17#include <SDL_endian.h> 18#include <SDL_endian.h>
18#include <SDL_image.h> 19#include <SDL_image.h>
19#include <SDL_mixer.h> 20#include <SDL_mixer.h>
20#include <SDL_opengl.h> 21#include <SDL_opengl.h>
21 22
23#define PANGO_ENABLE_BACKEND
24#define G_DISABLE_CAST_CHECKS
25
22#include <glib/gmacros.h> 26#include <glib/gmacros.h>
23 27
24#include <pango/pango.h> 28#include <pango/pango.h>
25#include <pango/pangofc-fontmap.h>
26#include <pango/pangoft2.h>
27#include <pango/pangocairo.h>
28 29
29#ifndef _WIN32 30#ifndef _WIN32
30# include <sys/types.h> 31# include <sys/types.h>
31# include <sys/socket.h> 32# include <sys/socket.h>
32# include <netinet/in.h> 33# include <netinet/in.h>
41 typedef signed int int32_t; 42 typedef signed int int32_t;
42#endif 43#endif
43 44
44#include "glext.h" 45#include "glext.h"
45 46
47#define OBJ_STR "\xef\xbf\xbc" /* U+FFFC, objetc replacement character */
48
46#define FOW_DARKNESS 32 49#define FOW_DARKNESS 32
47 50
48#define MAP_EXTEND_X 32 51#define MAP_EXTEND_X 32
49#define MAP_EXTEND_Y 512 52#define MAP_EXTEND_Y 512
50 53
51#define MIN_FONT_HEIGHT 10 54#define MIN_FONT_HEIGHT 10
52 55
53#define GL_CALL(type,func,args) \ 56#if 0
54 { \ 57# define PARACHUTE SDL_INIT_NOPARACHUTE
55 static int init_; \ 58#else
56 static type fptr_; \ 59# define PARACHUTE 0
57 \ 60#endif
58 if (!init_) \ 61
59 { \ 62static struct
60 init_ = 1; \ 63{
61 fptr_ = (type)SDL_GL_GetProcAddress (# func); \ 64#define GL_FUNC(ptr,name) ptr name;
62 } \ 65#include "glfunc.h"
63 \ 66#undef GL_FUNC
64 if (fptr_) \ 67} gl;
65 fptr_ args; \ 68
66 } 69static void gl_BlendFuncSeparate (GLenum sa, GLenum da, GLenum saa, GLenum daa)
70{
71 if (gl.BlendFuncSeparate)
72 gl.BlendFuncSeparate (sa, da, saa, daa);
73 else if (gl.BlendFuncSeparateEXT)
74 gl.BlendFuncSeparateEXT (sa, da, saa, daa);
75 else
76 glBlendFunc (sa, da);
77}
78
79#include "texcache.c"
80
81#include "pango-font.c"
82#include "pango-fontmap.c"
83#include "pango-render.c"
67 84
68typedef Mix_Chunk *CFClient__MixChunk; 85typedef Mix_Chunk *CFClient__MixChunk;
69typedef Mix_Music *CFClient__MixMusic; 86typedef Mix_Music *CFClient__MixMusic;
70 87
71typedef PangoFontDescription *CFClient__Font; 88typedef PangoFontDescription *CFClient__Font;
72 89
90static int
91shape_attr_p (PangoLayoutRun *run)
92{
93 GSList *attrs = run->item->analysis.extra_attrs;
94
95 while (attrs)
96 {
97 PangoAttribute *attr = attrs->data;
98
99 if (attr->klass->type == PANGO_ATTR_SHAPE)
100 return 1;
101
102 attrs = attrs->next;
103 }
104
105 return 0;
106}
107
73typedef struct cf_layout { 108typedef struct cf_layout {
74 PangoLayout *pl; // either derived from a cairo or ft2 context 109 PangoLayout *pl;
75 int rgba; // wether we use rgba (cairo) or grayscale (ft2)
76 float r, g, b, a; // default color for rgba mode 110 float r, g, b, a; // default color for rgba mode
77 int base_height; 111 int base_height;
78 CFClient__Font font; 112 CFClient__Font font;
79} *CFClient__Layout; 113} *CFClient__Layout;
80 114
81static CFClient__Font default_font; 115static CFClient__Font default_font;
82static PangoContext *ft2_context, *cairo_context; 116static PangoContext *opengl_context;
83static PangoFontMap *ft2_fontmap, *cairo_fontmap; 117static PangoFontMap *opengl_fontmap;
84 118
85static void 119static void
86substitute_func (FcPattern *pattern, gpointer data) 120substitute_func (FcPattern *pattern, gpointer data)
87{ 121{
88 FcPatternAddBool (pattern, FC_HINTING , 1); 122 FcPatternAddBool (pattern, FC_HINTING, 1);
89#ifndef _WIN32 123#ifdef FC_HINT_STYLE
124 FcPatternAddBool (pattern, FC_HINT_STYLE, FC_HINT_FULL);
125#endif
90 FcPatternAddBool (pattern, FC_AUTOHINT, 0); 126 FcPatternAddBool (pattern, FC_AUTOHINT, 0);
91#endif
92} 127}
93 128
94static void 129static void
95layout_update_font (CFClient__Layout self) 130layout_update_font (CFClient__Layout self)
96{ 131{
292 ev.code = 1; 327 ev.code = 1;
293 ev.data1 = (void *)(long)channel; 328 ev.data1 = (void *)(long)channel;
294 ev.data2 = 0; 329 ev.data2 = 0;
295 330
296 SDL_PushEvent ((SDL_Event *)&ev); 331 SDL_PushEvent ((SDL_Event *)&ev);
332}
333
334static unsigned int
335minpot (unsigned int n)
336{
337 if (!n)
338 return 0;
339
340 --n;
341
342 n |= n >> 1;
343 n |= n >> 2;
344 n |= n >> 4;
345 n |= n >> 8;
346 n |= n >> 16;
347
348 return n + 1;
297} 349}
298 350
299MODULE = CFClient PACKAGE = CFClient 351MODULE = CFClient PACKAGE = CFClient
300 352
301PROTOTYPES: ENABLE 353PROTOTYPES: ENABLE
411 463
412 for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ-- > const_iv; ) 464 for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ-- > const_iv; )
413 newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv)); 465 newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv));
414} 466}
415 467
468NV floor (NV x)
469
470NV ceil (NV x)
471
416void 472void
417pango_init () 473pango_init ()
418 CODE: 474 CODE:
419{ 475{
420 // delayed, so it can pick up new fonts added by AddFontResourceEx
421 ft2_fontmap = pango_ft2_font_map_new (); 476 opengl_fontmap = pango_opengl_font_map_new ();
422 pango_ft2_font_map_set_default_substitute ((PangoFT2FontMap *)ft2_fontmap, substitute_func, 0, 0); 477 pango_opengl_font_map_set_default_substitute ((PangoOpenGLFontMap *)opengl_fontmap, substitute_func, 0, 0);
423 ft2_context = pango_ft2_font_map_create_context ((PangoFT2FontMap *)ft2_fontmap); 478 opengl_context = pango_opengl_font_map_create_context ((PangoOpenGLFontMap *)opengl_fontmap);
424
425 cairo_fontmap = pango_cairo_font_map_get_default ();
426 cairo_context = pango_cairo_font_map_create_context ((PangoCairoFontMap *)cairo_fontmap);
427} 479}
428 480
429int 481int
430SDL_Init (U32 flags = SDL_INIT_VIDEO | SDL_INIT_AUDIO) 482SDL_Init (U32 flags = SDL_INIT_VIDEO | SDL_INIT_AUDIO | PARACHUTE)
431 483
432void 484void
433SDL_Quit () 485SDL_Quit ()
434 486
435void 487void
441 SDL_GL_SetAttribute (SDL_GL_RED_SIZE, 5); 493 SDL_GL_SetAttribute (SDL_GL_RED_SIZE, 5);
442 SDL_GL_SetAttribute (SDL_GL_GREEN_SIZE, 5); 494 SDL_GL_SetAttribute (SDL_GL_GREEN_SIZE, 5);
443 SDL_GL_SetAttribute (SDL_GL_BLUE_SIZE, 5); 495 SDL_GL_SetAttribute (SDL_GL_BLUE_SIZE, 5);
444 SDL_GL_SetAttribute (SDL_GL_ALPHA_SIZE, 1); 496 SDL_GL_SetAttribute (SDL_GL_ALPHA_SIZE, 1);
445 497
498 SDL_GL_SetAttribute (SDL_GL_BUFFER_SIZE, 15);
499 SDL_GL_SetAttribute (SDL_GL_DEPTH_SIZE, 0);
500
446 SDL_GL_SetAttribute (SDL_GL_ACCUM_RED_SIZE, 0); 501 SDL_GL_SetAttribute (SDL_GL_ACCUM_RED_SIZE, 0);
447 SDL_GL_SetAttribute (SDL_GL_ACCUM_GREEN_SIZE, 0); 502 SDL_GL_SetAttribute (SDL_GL_ACCUM_GREEN_SIZE, 0);
448 SDL_GL_SetAttribute (SDL_GL_ACCUM_BLUE_SIZE, 0); 503 SDL_GL_SetAttribute (SDL_GL_ACCUM_BLUE_SIZE, 0);
449 SDL_GL_SetAttribute (SDL_GL_ACCUM_ALPHA_SIZE, 0); 504 SDL_GL_SetAttribute (SDL_GL_ACCUM_ALPHA_SIZE, 0);
450 505
451 SDL_GL_SetAttribute (SDL_GL_DOUBLEBUFFER, 1); 506 SDL_GL_SetAttribute (SDL_GL_DOUBLEBUFFER, 1);
452 SDL_GL_SetAttribute (SDL_GL_BUFFER_SIZE, 15);
453 SDL_GL_SetAttribute (SDL_GL_DEPTH_SIZE, 0);
454 507
455 SDL_EnableUNICODE (1); 508 SDL_EnableUNICODE (1);
456 SDL_EnableKeyRepeat (SDL_DEFAULT_REPEAT_DELAY, SDL_DEFAULT_REPEAT_INTERVAL); 509 SDL_EnableKeyRepeat (SDL_DEFAULT_REPEAT_DELAY, SDL_DEFAULT_REPEAT_INTERVAL);
457 510
458 m = SDL_ListModes (0, SDL_FULLSCREEN | SDL_OPENGL); 511 m = SDL_ListModes (0, SDL_FULLSCREEN | SDL_OPENGL);
467 520
468 ++m; 521 ++m;
469 } 522 }
470} 523}
471 524
525char *
526SDL_GetError ()
527
472int 528int
473SDL_SetVideoMode (int w, int h, int fullscreen) 529SDL_SetVideoMode (int w, int h, int fullscreen)
474 CODE: 530 CODE:
475 RETVAL = !!SDL_SetVideoMode ( 531 RETVAL = !!SDL_SetVideoMode (
476 w, h, 0, SDL_OPENGL | (fullscreen ? SDL_FULLSCREEN : 0) 532 w, h, 0, SDL_OPENGL | (fullscreen ? SDL_FULLSCREEN : 0)
477 ); 533 );
534 if (RETVAL)
535 {
478 SDL_WM_SetCaption ("Crossfire+ Client " VERSION, "Crossfire+"); 536 SDL_WM_SetCaption ("Crossfire+ Client " VERSION, "Crossfire+");
537# define GL_FUNC(ptr,name) gl.name = (ptr)SDL_GL_GetProcAddress ("gl" # name);
538# include "glfunc.h"
539# undef GL_FUNC
540 }
479 OUTPUT: 541 OUTPUT:
480 RETVAL 542 RETVAL
481 543
482void 544void
483SDL_GL_SwapBuffers () 545SDL_GL_SwapBuffers ()
546
547char *
548SDL_GetKeyName (int sym)
484 549
485void 550void
486SDL_PollEvent () 551SDL_PollEvent ()
487 PPCODE: 552 PPCODE:
488{ 553{
507 hv_store (hv, "gain", 4, newSViv (ev.active.gain), 0); 572 hv_store (hv, "gain", 4, newSViv (ev.active.gain), 0);
508 hv_store (hv, "state", 5, newSViv (ev.active.state), 0); 573 hv_store (hv, "state", 5, newSViv (ev.active.state), 0);
509 break; 574 break;
510 575
511 case SDL_MOUSEMOTION: 576 case SDL_MOUSEMOTION:
577 hv_store (hv, "mod", 3, newSViv (SDL_GetModState ()), 0);
578
512 hv_store (hv, "state", 5, newSViv (ev.motion.state), 0); 579 hv_store (hv, "state", 5, newSViv (ev.motion.state), 0);
513 hv_store (hv, "x", 1, newSViv (ev.motion.x), 0); 580 hv_store (hv, "x", 1, newSViv (ev.motion.x), 0);
514 hv_store (hv, "y", 1, newSViv (ev.motion.y), 0); 581 hv_store (hv, "y", 1, newSViv (ev.motion.y), 0);
515 hv_store (hv, "xrel", 4, newSViv (ev.motion.xrel), 0); 582 hv_store (hv, "xrel", 4, newSViv (ev.motion.xrel), 0);
516 hv_store (hv, "yrel", 4, newSViv (ev.motion.yrel), 0); 583 hv_store (hv, "yrel", 4, newSViv (ev.motion.yrel), 0);
517 break; 584 break;
518 585
519 case SDL_MOUSEBUTTONDOWN: 586 case SDL_MOUSEBUTTONDOWN:
520 case SDL_MOUSEBUTTONUP: 587 case SDL_MOUSEBUTTONUP:
588 hv_store (hv, "mod", 3, newSViv (SDL_GetModState ()), 0);
589
521 hv_store (hv, "button", 6, newSViv (ev.button.button), 0); 590 hv_store (hv, "button", 6, newSViv (ev.button.button), 0);
522 hv_store (hv, "state", 5, newSViv (ev.button.state), 0); 591 hv_store (hv, "state", 5, newSViv (ev.button.state), 0);
523 hv_store (hv, "x", 1, newSViv (ev.button.x), 0); 592 hv_store (hv, "x", 1, newSViv (ev.button.x), 0);
524 hv_store (hv, "y", 1, newSViv (ev.button.y), 0); 593 hv_store (hv, "y", 1, newSViv (ev.button.y), 0);
525 break; 594 break;
552 CODE: 621 CODE:
553#ifndef _WIN32 622#ifndef _WIN32
554 setsockopt (fd, IPPROTO_TCP, TCP_NODELAY, &val, sizeof (val)); 623 setsockopt (fd, IPPROTO_TCP, TCP_NODELAY, &val, sizeof (val));
555#endif 624#endif
556 625
557char *
558gl_version ()
559 CODE:
560 RETVAL = (char *)glGetString (GL_VERSION);
561 OUTPUT:
562 RETVAL
563
564char *
565gl_extensions ()
566 CODE:
567 RETVAL = (char *)glGetString (GL_EXTENSIONS);
568 OUTPUT:
569 RETVAL
570
571void 626void
572add_font (char *file) 627add_font (char *file)
573 CODE: 628 CODE:
574 FcConfigAppFontAddFile (0, (const FcChar8 *)file); /* no idea wether this is required */ 629 FcConfigAppFontAddFile (0, (const FcChar8 *)file); /* no idea wether this is required */
575#ifdef _WIN32
576 // cairo... sigh... requires win2000
577 AddFontResourceEx (file, FR_PRIVATE, 0);
578#endif
579 630
580void 631void
581load_image_inline (SV *image_) 632load_image_inline (SV *image_)
582 ALIAS: 633 ALIAS:
583 load_image_file = 1 634 load_image_file = 1
667} 718}
668 719
669void 720void
670error (char *message) 721error (char *message)
671 CODE: 722 CODE:
723 fprintf (stderr, "ERROR: %s\n", message);
672#ifdef _WIN32 724#ifdef _WIN32
673 MessageBox (0, message, "Crossfire+ Error", MB_OK | MB_ICONERROR | MB_SETFOREGROUND); 725 MessageBox (0, message, "Crossfire+ Error", MB_OK | MB_ICONERROR);
674#else
675 fprintf (stderr, "ERROR: %s\n", message);
676#endif 726#endif
677 727
678void 728void
679fatal (char *message) 729fatal (char *message)
680 CODE: 730 CODE:
731 fprintf (stderr, "FATAL: %s\n", message);
681#ifdef _WIN32 732#ifdef _WIN32
682 MessageBox (0, message, "Crossfire+ Fatal Error", MB_OK | MB_ICONERROR | MB_SETFOREGROUND); 733 MessageBox (0, message, "Crossfire+ Fatal Error", MB_OK | MB_ICONERROR);
683#else
684 fprintf (stderr, "FATAL: %s\n", message);
685#endif 734#endif
686 exit (1); 735 _exit (1);
736
737void
738_exit (int retval)
739 CODE:
740 _exit (retval);
687 741
688MODULE = CFClient PACKAGE = CFClient::Font 742MODULE = CFClient PACKAGE = CFClient::Font
689 743
690CFClient::Font 744CFClient::Font
691new_from_file (SV *class, char *path, int id = 0) 745new_from_file (SV *class, char *path, int id = 0)
709 CODE: 763 CODE:
710 default_font = self; 764 default_font = self;
711 765
712MODULE = CFClient PACKAGE = CFClient::Layout 766MODULE = CFClient PACKAGE = CFClient::Layout
713 767
768void
769clear_font_cache ()
770 CODE:
771 tc_clear ();
772
714CFClient::Layout 773CFClient::Layout
715new (SV *class, int rgba = 0) 774new (SV *class)
716 CODE: 775 CODE:
717 New (0, RETVAL, 1, struct cf_layout); 776 New (0, RETVAL, 1, struct cf_layout);
718 777
719 RETVAL->pl = pango_layout_new (rgba ? cairo_context : ft2_context); 778 RETVAL->pl = pango_layout_new (opengl_context);
720 RETVAL->rgba = rgba;
721 RETVAL->r = 1.; 779 RETVAL->r = 1.;
722 RETVAL->g = 1.; 780 RETVAL->g = 1.;
723 RETVAL->b = 1.; 781 RETVAL->b = 1.;
724 RETVAL->a = 1.; 782 RETVAL->a = 1.;
725 RETVAL->base_height = MIN_FONT_HEIGHT; 783 RETVAL->base_height = MIN_FONT_HEIGHT;
734DESTROY (CFClient::Layout self) 792DESTROY (CFClient::Layout self)
735 CODE: 793 CODE:
736 g_object_unref (self->pl); 794 g_object_unref (self->pl);
737 Safefree (self); 795 Safefree (self);
738 796
739int
740is_rgba (CFClient::Layout self)
741 CODE:
742 RETVAL = self->rgba;
743 OUTPUT:
744 RETVAL
745
746void 797void
747set_text (CFClient::Layout self, SV *text_) 798set_text (CFClient::Layout self, SV *text_)
748 CODE: 799 CODE:
749{ 800{
750 STRLEN textlen; 801 STRLEN textlen;
761 char *text = SvPVutf8 (text_, textlen); 812 char *text = SvPVutf8 (text_, textlen);
762 813
763 pango_layout_set_markup (self->pl, text, textlen); 814 pango_layout_set_markup (self->pl, text, textlen);
764} 815}
765 816
817void
818set_shapes (CFClient::Layout self, ...)
819 CODE:
820{
821 PangoAttrList *attrs = 0;
822 const char *text = pango_layout_get_text (self->pl);
823 const char *pos = text;
824 int arg = 4;
825
826 while (arg < items && (pos = strstr (pos, OBJ_STR)))
827 {
828 PangoRectangle inkrect, rect;
829 PangoAttribute *attr;
830
831 int x = SvIV (ST (arg - 3));
832 int y = SvIV (ST (arg - 2));
833 int w = SvIV (ST (arg - 1));
834 int h = SvIV (ST (arg ));
835
836 inkrect.x = 0;
837 inkrect.y = 0;
838 inkrect.width = 0;
839 inkrect.height = 0;
840
841 rect.x = x * PANGO_SCALE;
842 rect.y = y * PANGO_SCALE;
843 rect.width = w * PANGO_SCALE;
844 rect.height = h * PANGO_SCALE;
845
846 if (!attrs)
847 attrs = pango_layout_get_attributes (self->pl);
848
849 attr = pango_attr_shape_new (&inkrect, &rect);
850 attr->start_index = pos - text;
851 attr->end_index = attr->start_index + sizeof (OBJ_STR) - 1;
852 pango_attr_list_insert (attrs, attr);
853
854 arg += 4;
855 pos += sizeof (OBJ_STR) - 1;
856 }
857
858 if (attrs)
859 pango_layout_set_attributes (self->pl, attrs);
860}
861
862void
863get_shapes (CFClient::Layout self)
864 PPCODE:
865{
866 PangoLayoutIter *iter = pango_layout_get_iter (self->pl);
867
868 do
869 {
870 PangoLayoutRun *run = pango_layout_iter_get_run (iter);
871
872 if (run && shape_attr_p (run))
873 {
874 PangoRectangle extents;
875 pango_layout_iter_get_run_extents (iter, 0, &extents);
876
877 PUSHs (sv_2mortal (newSViv (PANGO_PIXELS (extents.x))));
878 PUSHs (sv_2mortal (newSViv (PANGO_PIXELS (extents.y))));
879 }
880 }
881 while (pango_layout_iter_next_run (iter));
882
883 pango_layout_iter_free (iter);
884}
885
886int
887has_wrapped (CFClient::Layout self)
888 CODE:
889{
890 int lines = 1;
891 const char *text = pango_layout_get_text (self->pl);
892
893 while (*text)
894 lines += *text++ == '\n';
895
896 RETVAL = lines < pango_layout_get_line_count (self->pl);
897}
898 OUTPUT:
899 RETVAL
900
766SV * 901SV *
767get_text (CFClient::Layout self) 902get_text (CFClient::Layout self)
768 CODE: 903 CODE:
769 RETVAL = newSVpv (pango_layout_get_text (self->pl), 0); 904 RETVAL = newSVpv (pango_layout_get_text (self->pl), 0);
770 SvUTF8_on (RETVAL); 905 sv_utf8_decode (RETVAL);
771 OUTPUT: 906 OUTPUT:
772 RETVAL 907 RETVAL
773 908
774void 909void
775set_foreground (CFClient::Layout self, float r, float g, float b, float a = 1.) 910set_foreground (CFClient::Layout self, float r, float g, float b, float a = 1.)
801set_width (CFClient::Layout self, int max_width = -1) 936set_width (CFClient::Layout self, int max_width = -1)
802 CODE: 937 CODE:
803 pango_layout_set_width (self->pl, max_width < 0 ? max_width : max_width * PANGO_SCALE); 938 pango_layout_set_width (self->pl, max_width < 0 ? max_width : max_width * PANGO_SCALE);
804 939
805void 940void
941set_indent (CFClient::Layout self, int indent)
942 CODE:
943 pango_layout_set_indent (self->pl, indent * PANGO_SCALE);
944
945void
946set_spacing (CFClient::Layout self, int spacing)
947 CODE:
948 pango_layout_set_spacing (self->pl, spacing * PANGO_SCALE);
949
950void
951set_ellipsise (CFClient::Layout self, int ellipsise)
952 CODE:
953 pango_layout_set_ellipsize (self->pl,
954 ellipsise == 1 ? PANGO_ELLIPSIZE_START
955 : ellipsise == 2 ? PANGO_ELLIPSIZE_MIDDLE
956 : ellipsise == 3 ? PANGO_ELLIPSIZE_END
957 : PANGO_ELLIPSIZE_NONE
958 );
959
960void
961set_single_paragraph_mode (CFClient::Layout self, int spm)
962 CODE:
963 pango_layout_set_single_paragraph_mode (self->pl, !!spm);
964
965void
806size (CFClient::Layout self) 966size (CFClient::Layout self)
807 PPCODE: 967 PPCODE:
808{ 968{
809 int w, h; 969 int w, h;
810 970
812 972
813 EXTEND (SP, 2); 973 EXTEND (SP, 2);
814 PUSHs (sv_2mortal (newSViv (w))); 974 PUSHs (sv_2mortal (newSViv (w)));
815 PUSHs (sv_2mortal (newSViv (h))); 975 PUSHs (sv_2mortal (newSViv (h)));
816} 976}
977
978int
979descent (CFClient::Layout self)
980 CODE:
981{
982 PangoRectangle rect;
983 PangoLayoutLine *line = pango_layout_get_line (self->pl, 0);
984 pango_layout_line_get_pixel_extents (line, 0, &rect);
985 RETVAL = PANGO_DESCENT (rect);
986}
987 OUTPUT:
988 RETVAL
817 989
818int 990int
819xy_to_index (CFClient::Layout self, int x, int y) 991xy_to_index (CFClient::Layout self, int x, int y)
820 CODE: 992 CODE:
821{ 993{
838 PUSHs (sv_2mortal (newSViv (strong_pos.y / PANGO_SCALE))); 1010 PUSHs (sv_2mortal (newSViv (strong_pos.y / PANGO_SCALE)));
839 PUSHs (sv_2mortal (newSViv (strong_pos.height / PANGO_SCALE))); 1011 PUSHs (sv_2mortal (newSViv (strong_pos.height / PANGO_SCALE)));
840} 1012}
841 1013
842void 1014void
843render (CFClient::Layout self) 1015render (CFClient::Layout self, float x, float y)
844 PPCODE: 1016 PPCODE:
845{ 1017 pango_opengl_render_layout_subpixel (
846 SV *retval; 1018 self->pl,
847 int w, h; 1019 x * PANGO_SCALE, y * PANGO_SCALE,
1020 self->r, self->g, self->b, self->a
1021 );
848 1022
849 layout_get_pixel_size (self, &w, &h); 1023MODULE = CFClient PACKAGE = CFClient::Texture
850 1024
851 if (self->rgba) 1025void
1026pad2pot (SV *data_, SV *w_, SV *h_)
1027 CODE:
1028{
1029 int ow = SvIV (w_);
1030 int oh = SvIV (h_);
1031
1032 if (ow && oh)
852 { 1033 {
853 cairo_surface_t *surface; 1034 int nw = minpot (ow);
854 cairo_t *cairo; 1035 int nh = minpot (oh);
855 1036
856 retval = newSV (w * h * 4); 1037 if (nw != ow || nh != oh)
857 SvPOK_only (retval);
858 SvCUR_set (retval, w * h * 4);
859
860 memset (SvPVX (retval), 0, w * h * 4);
861
862 surface = cairo_image_surface_create_for_data (
863 (void*)SvPVX (retval), CAIRO_FORMAT_ARGB32, w, h, w * 4);
864 cairo = cairo_create (surface);
865 cairo_set_source_rgba (cairo, self->r, self->g, self->b, self->a);
866
867 pango_cairo_show_layout (cairo, self->pl);
868
869 cairo_destroy (cairo);
870 cairo_surface_destroy (surface);
871
872 // what a mess, and its premultiplied, too :(
873 { 1038 {
874 uint32_t *p = (uint32_t *)SvPVX (retval); 1039 if (SvOK (data_))
875 uint32_t *e = p + w * h;
876
877 while (p < e)
878 { 1040 {
879 uint32_t rgba = *p; 1041 STRLEN datalen;
880 rgba = (rgba >> 24) | (rgba << 8); 1042 char *data = SvPVbyte (data_, datalen);
881 rgba = SDL_SwapBE32 (rgba); 1043 int bpp = datalen / (ow * oh);
882 *p++ = rgba; 1044 SV *result_ = sv_2mortal (newSV (nw * nh * bpp));
1045
1046 SvPOK_only (result_);
1047 SvCUR_set (result_, nw * nh * bpp);
1048
1049 memset (SvPVX (result_), 0, nw * nh * bpp);
1050 while (oh--)
1051 memcpy (SvPVX (result_) + oh * nw * bpp, data + oh * ow * bpp, ow * bpp);
1052
1053 sv_setsv (data_, result_);
883 } 1054 }
1055
1056 sv_setiv (w_, nw);
1057 sv_setiv (h_, nh);
884 } 1058 }
885
886 EXTEND (SP, 5);
887 PUSHs (sv_2mortal (newSViv (w)));
888 PUSHs (sv_2mortal (newSViv (h)));
889 PUSHs (sv_2mortal (retval));
890 PUSHs (sv_2mortal (newSViv (GL_RGBA)));
891 PUSHs (sv_2mortal (newSViv (GL_RGBA)));
892 } 1059 }
893 else
894 {
895 FT_Bitmap bitmap;
896
897 retval = newSV (w * h);
898 SvPOK_only (retval);
899 SvCUR_set (retval, w * h);
900
901 bitmap.rows = h;
902 bitmap.width = w;
903 bitmap.pitch = w;
904 bitmap.buffer = (unsigned char*)SvPVX (retval);
905 bitmap.num_grays = 256;
906 bitmap.pixel_mode = FT_PIXEL_MODE_GRAY;
907
908 memset (bitmap.buffer, 0, w * h);
909
910 pango_ft2_render_layout (&bitmap, self->pl, 0 * PANGO_SCALE, 0 * PANGO_SCALE);
911
912 EXTEND (SP, 5);
913 PUSHs (sv_2mortal (newSViv (w)));
914 PUSHs (sv_2mortal (newSViv (h)));
915 PUSHs (sv_2mortal (retval));
916 PUSHs (sv_2mortal (newSViv (GL_ALPHA)));
917 PUSHs (sv_2mortal (newSViv (GL_ALPHA)));
918 }
919} 1060}
920 1061
921MODULE = CFClient PACKAGE = CFClient::Texture
922
923void 1062void
924draw_quad (SV *self, float x, float y, float w = 0, float h = 0) 1063draw_quad (SV *self, float x, float y, float w = 0., float h = 0.)
925 PROTOTYPE: $$$;$$ 1064 PROTOTYPE: $$$;$$
926 ALIAS: 1065 ALIAS:
927 draw_quad_alpha = 1 1066 draw_quad_alpha = 1
928 draw_quad_alpha_premultiplied = 2 1067 draw_quad_alpha_premultiplied = 2
929 CODE: 1068 CODE:
930{ 1069{
931 HV *hv = (HV *)SvRV (self); 1070 HV *hv = (HV *)SvRV (self);
932 float s = SvNV (*hv_fetch (hv, "s", 1, 1)); 1071 float s = SvNV (*hv_fetch (hv, "s", 1, 1));
933 float t = SvNV (*hv_fetch (hv, "t", 1, 1)); 1072 float t = SvNV (*hv_fetch (hv, "t", 1, 1));
934 int name = SvIV (*hv_fetch (hv, "name", 4, 1)); 1073 int name = SvIV (*hv_fetch (hv, "name", 4, 1));
935 int wrap_mode = SvIV (*hv_fetch (hv, "wrap_mode", 9, 1));
936 1074
937 if (items < 5) 1075 if (items < 5)
938 { 1076 {
939 w = SvNV (*hv_fetch (hv, "w", 1, 1)); 1077 w = SvNV (*hv_fetch (hv, "w", 1, 1));
940 h = SvNV (*hv_fetch (hv, "h", 1, 1)); 1078 h = SvNV (*hv_fetch (hv, "h", 1, 1));
941 } 1079 }
942 1080
943 if (ix) 1081 if (ix)
944 { 1082 {
945 glEnable (GL_BLEND); 1083 glEnable (GL_BLEND);
1084
1085 if (ix == 2)
946 glBlendFunc (ix == 1 ? GL_SRC_ALPHA : GL_ONE, GL_ONE_MINUS_SRC_ALPHA); 1086 glBlendFunc (GL_ONE, GL_ONE_MINUS_SRC_ALPHA);
1087 else
1088 gl_BlendFuncSeparate (GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA,
1089 GL_ONE , GL_ONE_MINUS_SRC_ALPHA);
1090
1091 glEnable (GL_ALPHA_TEST);
1092 glAlphaFunc (GL_GREATER, 0.01f);
947 } 1093 }
948 1094
949 glBindTexture (GL_TEXTURE_2D, name); 1095 glBindTexture (GL_TEXTURE_2D, name);
950
951 if (wrap_mode)
952 {
953 glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_WRAP_S, GL_REPEAT);
954 glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, GL_REPEAT);
955 }
956 1096
957 glBegin (GL_QUADS); 1097 glBegin (GL_QUADS);
958 glTexCoord2f (0, 0); glVertex2f (x , y ); 1098 glTexCoord2f (0, 0); glVertex2f (x , y );
959 glTexCoord2f (0, t); glVertex2f (x , y + h); 1099 glTexCoord2f (0, t); glVertex2f (x , y + h);
960 glTexCoord2f (s, t); glVertex2f (x + w, y + h); 1100 glTexCoord2f (s, t); glVertex2f (x + w, y + h);
961 glTexCoord2f (s, 0); glVertex2f (x + w, y ); 1101 glTexCoord2f (s, 0); glVertex2f (x + w, y );
962 glEnd (); 1102 glEnd ();
963 1103
964 if (ix) 1104 if (ix)
1105 {
1106 glDisable (GL_ALPHA_TEST);
965 glDisable (GL_BLEND); 1107 glDisable (GL_BLEND);
1108 }
966} 1109}
967 1110
968MODULE = CFClient PACKAGE = CFClient::Map 1111MODULE = CFClient PACKAGE = CFClient::Map
969 1112
970CFClient::Map 1113CFClient::Map
990DESTROY (CFClient::Map self) 1133DESTROY (CFClient::Map self)
991 CODE: 1134 CODE:
992{ 1135{
993 map_clear (self); 1136 map_clear (self);
994 Safefree (self->face); 1137 Safefree (self->face);
1138 Safefree (self->tex);
995 Safefree (self); 1139 Safefree (self);
996} 1140}
997 1141
998void 1142void
999clear (CFClient::Map self) 1143clear (CFClient::Map self)
1034 tex->r = r; 1178 tex->r = r;
1035 tex->g = g; 1179 tex->g = g;
1036 tex->b = b; 1180 tex->b = b;
1037 tex->a = a; 1181 tex->a = a;
1038 } 1182 }
1183
1184 // somewhat hackish, but for textures that require it, it really
1185 // improves the look, and most others don't suffer.
1186 glBindTexture (GL_TEXTURE_2D, name);
1187 //glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_WRAP_S, GL_CLAMP_TO_EDGE);
1188 //glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, GL_CLAMP_TO_EDGE);
1189 // use uglier nearest interpolation because linear suffers
1190 // from transparent color bleeding and ugly wrapping effects.
1191 glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_NEAREST);
1039} 1192}
1040 1193
1041int 1194int
1042ox (CFClient::Map self) 1195ox (CFClient::Map self)
1043 ALIAS: 1196 ALIAS:
1044 oy = 1 1197 oy = 1
1198 x = 2
1199 y = 3
1200 w = 4
1201 h = 5
1045 CODE: 1202 CODE:
1046 switch (ix) 1203 switch (ix)
1047 { 1204 {
1048 case 0: RETVAL = self->ox; break; 1205 case 0: RETVAL = self->ox; break;
1049 case 1: RETVAL = self->oy; break; 1206 case 1: RETVAL = self->oy; break;
1207 case 2: RETVAL = self->x; break;
1208 case 3: RETVAL = self->y; break;
1209 case 4: RETVAL = self->w; break;
1210 case 5: RETVAL = self->h; break;
1050 } 1211 }
1051 OUTPUT: 1212 OUTPUT:
1052 RETVAL 1213 RETVAL
1053 1214
1054void 1215void
1088 1249
1089 while (data < data_end) 1250 while (data < data_end)
1090 { 1251 {
1091 flags = (data [0] << 8) + data [1]; data += 2; 1252 flags = (data [0] << 8) + data [1]; data += 2;
1092 1253
1093 x = ((flags >> 10) & 63) + self->x; 1254 x = self->x + ((flags >> 10) & 63);
1094 y = ((flags >> 4) & 63) + self->y; 1255 y = self->y + ((flags >> 4) & 63);
1095 1256
1096 cell = map_get_cell (self, x, y); 1257 cell = map_get_cell (self, x, y);
1097 1258
1098 if (flags & 15) 1259 if (flags & 15)
1099 { 1260 {
1189 OUTPUT: 1350 OUTPUT:
1190 RETVAL 1351 RETVAL
1191 1352
1192void 1353void
1193draw (CFClient::Map self, int shift_x, int shift_y, int x0, int y0, int sw, int sh) 1354draw (CFClient::Map self, int shift_x, int shift_y, int x0, int y0, int sw, int sh)
1194 PPCODE: 1355 CODE:
1195{ 1356{
1196 int vx, vy; 1357 int vx, vy;
1197 int x, y, z; 1358 int x, y, z;
1198 int last_name; 1359 int last_name;
1199 mapface face; 1360 mapface face;
1200 int sw4 = (sw + 3) & ~3;
1201 SV *darkness_sv = sv_2mortal (newSV (sw4 * sh));
1202 uint8_t *darkness = (uint8_t *)SvPVX (darkness_sv);
1203 1361
1204 memset (darkness, 255, sw4 * sh);
1205 SvPOK_only (darkness_sv);
1206 SvCUR_set (darkness_sv, sw4 * sh);
1207
1208 vx = self->x + (self->w - sw) / 2 - shift_x; 1362 vx = self->x + self->w / 2 - sw / 2 - shift_x;
1209 vy = self->y + (self->h - sh) / 2 - shift_y; 1363 vy = self->y + self->h / 2 - sh / 2 - shift_y;
1210 1364
1211 /* 1365 /*
1212 int vx = self->vx = self->w >= sw 1366 int vx = self->vx = self->w >= sw
1213 ? self->x + (self->w - sw) / 2 1367 ? self->x + (self->w - sw) / 2
1214 : MIN (self->x, MAX (self->x + self->w - sw + 1, self->vx)); 1368 : MIN (self->x, MAX (self->x + self->w - sw + 1, self->vx));
1218 : MIN (self->y, MAX (self->y + self->h - sh + 1, self->vy)); 1372 : MIN (self->y, MAX (self->y + self->h - sh + 1, self->vy));
1219 */ 1373 */
1220 1374
1221 glColor4ub (255, 255, 255, 255); 1375 glColor4ub (255, 255, 255, 255);
1222 1376
1377 glEnable (GL_BLEND);
1223 glBlendFunc (GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA); 1378 glBlendFunc (GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
1224 glEnable (GL_BLEND);
1225 glEnable (GL_TEXTURE_2D); 1379 glEnable (GL_TEXTURE_2D);
1226 glTexEnvi (GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_REPLACE); 1380 glTexEnvi (GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_REPLACE);
1227 1381
1228 glBegin (GL_QUADS); 1382 glBegin (GL_QUADS);
1229 1383
1237 1391
1238 for (x = 0; x < sw; x++) 1392 for (x = 0; x < sw; x++)
1239 if (row->c0 <= x + vx && x + vx < row->c1) 1393 if (row->c0 <= x + vx && x + vx < row->c1)
1240 { 1394 {
1241 mapcell *cell = row->col + (x + vx - row->c0); 1395 mapcell *cell = row->col + (x + vx - row->c0);
1242
1243 darkness[y * sw4 + x] = cell->darkness < 0
1244 ? 255 - FOW_DARKNESS
1245 : 255 - cell->darkness;
1246 1396
1247 face = cell->face [z]; 1397 face = cell->face [z];
1248 1398
1249 if (face) 1399 if (face)
1250 { 1400 {
1271 1421
1272 glEnd (); 1422 glEnd ();
1273 1423
1274 glDisable (GL_TEXTURE_2D); 1424 glDisable (GL_TEXTURE_2D);
1275 glDisable (GL_BLEND); 1425 glDisable (GL_BLEND);
1426}
1427
1428void
1429draw_magicmap (CFClient::Map self, int dx, int dy, int w, int h, unsigned char *data)
1430 CODE:
1431{
1432 static float color[16][3] = {
1433 { 0.00F, 0.00F, 0.00F },
1434 { 1.00F, 1.00F, 1.00F },
1435 { 0.00F, 0.00F, 0.55F },
1436 { 1.00F, 0.00F, 0.00F },
1437
1438 { 1.00F, 0.54F, 0.00F },
1439 { 0.11F, 0.56F, 1.00F },
1440 { 0.93F, 0.46F, 0.00F },
1441 { 0.18F, 0.54F, 0.34F },
1442
1443 { 0.56F, 0.73F, 0.56F },
1444 { 0.80F, 0.80F, 0.80F },
1445 { 0.55F, 0.41F, 0.13F },
1446 { 0.99F, 0.77F, 0.26F },
1447
1448 { 0.74F, 0.65F, 0.41F },
1449
1450 { 0.00F, 1.00F, 1.00F },
1451 { 1.00F, 0.00F, 1.00F },
1452 { 1.00F, 1.00F, 0.00F },
1453 };
1454
1455 int x, y;
1456
1457 glEnable (GL_TEXTURE_2D);
1458 glTexEnvi (GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_REPLACE);
1459 glEnable (GL_BLEND);
1460 glBlendFunc (GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
1461 glBegin (GL_QUADS);
1462
1463 for (y = 0; y < h; y++)
1464 for (x = 0; x < w; x++)
1465 {
1466 unsigned char m = data [x + y * w];
1467
1468 if (m)
1469 {
1470 float *c = color [m & 15];
1471
1472 float tx1 = m & 0x40 ? 0.5 : 0.;
1473 float tx2 = tx1 + 0.5;
1474
1475 glColor4f (c[0], c[1], c[2], 0.75);
1476 glTexCoord2f (tx1, 0.); glVertex2i (x , y );
1477 glTexCoord2f (tx1, 1.); glVertex2i (x , y + 1);
1478 glTexCoord2f (tx2, 1.); glVertex2i (x + 1, y + 1);
1479 glTexCoord2f (tx2, 0.); glVertex2i (x + 1, y );
1480 }
1481 }
1482
1483 glEnd ();
1484 glDisable (GL_BLEND);
1485 glDisable (GL_TEXTURE_2D);
1486}
1487
1488void
1489fow_texture (CFClient::Map self, int shift_x, int shift_y, int x0, int y0, int sw, int sh)
1490 PPCODE:
1491{
1492 int vx, vy;
1493 int x, y;
1494 int sw4 = (sw + 3) & ~3;
1495 SV *darkness_sv = sv_2mortal (newSV (sw4 * sh));
1496 uint8_t *darkness = (uint8_t *)SvPVX (darkness_sv);
1497
1498 memset (darkness, 255, sw4 * sh);
1499 SvPOK_only (darkness_sv);
1500 SvCUR_set (darkness_sv, sw4 * sh);
1501
1502 vx = self->x + (self->w - sw + 1) / 2 - shift_x;
1503 vy = self->y + (self->h - sh + 1) / 2 - shift_y;
1504
1505 for (y = 0; y < sh; y++)
1506 if (0 <= y + vy && y + vy < self->rows)
1507 {
1508 maprow *row = self->row + (y + vy);
1509
1510 for (x = 0; x < sw; x++)
1511 if (row->c0 <= x + vx && x + vx < row->c1)
1512 {
1513 mapcell *cell = row->col + (x + vx - row->c0);
1514
1515 darkness[y * sw4 + x] = cell->darkness < 0
1516 ? 255 - FOW_DARKNESS
1517 : 255 - cell->darkness;
1518 }
1519 }
1276 1520
1277 EXTEND (SP, 3); 1521 EXTEND (SP, 3);
1278 PUSHs (sv_2mortal (newSViv (sw4))); 1522 PUSHs (sv_2mortal (newSViv (sw4)));
1279 PUSHs (sv_2mortal (newSViv (sh))); 1523 PUSHs (sv_2mortal (newSViv (sh)));
1280 PUSHs (darkness_sv); 1524 PUSHs (darkness_sv);
1481 const_iv (GL_COLOR_MATERIAL), 1725 const_iv (GL_COLOR_MATERIAL),
1482 const_iv (GL_SMOOTH), 1726 const_iv (GL_SMOOTH),
1483 const_iv (GL_FLAT), 1727 const_iv (GL_FLAT),
1484 const_iv (GL_DITHER), 1728 const_iv (GL_DITHER),
1485 const_iv (GL_BLEND), 1729 const_iv (GL_BLEND),
1730 const_iv (GL_CULL_FACE),
1486 const_iv (GL_SCISSOR_TEST), 1731 const_iv (GL_SCISSOR_TEST),
1732 const_iv (GL_DEPTH_TEST),
1733 const_iv (GL_ALPHA_TEST),
1734 const_iv (GL_NORMALIZE),
1735 const_iv (GL_RESCALE_NORMAL),
1736 const_iv (GL_FRONT),
1737 const_iv (GL_BACK),
1487 const_iv (GL_AND), 1738 const_iv (GL_AND),
1488 const_iv (GL_ONE), 1739 const_iv (GL_ONE),
1489 const_iv (GL_ZERO), 1740 const_iv (GL_ZERO),
1490 const_iv (GL_SRC_ALPHA), 1741 const_iv (GL_SRC_ALPHA),
1491 const_iv (GL_SRC_ALPHA_SATURATE), 1742 const_iv (GL_DST_ALPHA),
1492 const_iv (GL_ONE_MINUS_SRC_ALPHA), 1743 const_iv (GL_ONE_MINUS_SRC_ALPHA),
1493 const_iv (GL_ONE_MINUS_DST_ALPHA), 1744 const_iv (GL_ONE_MINUS_DST_ALPHA),
1745 const_iv (GL_SRC_ALPHA_SATURATE),
1494 const_iv (GL_RGB), 1746 const_iv (GL_RGB),
1495 const_iv (GL_RGBA), 1747 const_iv (GL_RGBA),
1748 const_iv (GL_RGBA4),
1749 const_iv (GL_RGBA8),
1750 const_iv (GL_RGB5_A1),
1496 const_iv (GL_UNSIGNED_BYTE), 1751 const_iv (GL_UNSIGNED_BYTE),
1752 const_iv (GL_UNSIGNED_SHORT),
1753 const_iv (GL_UNSIGNED_INT),
1497 const_iv (GL_ALPHA), 1754 const_iv (GL_ALPHA),
1755 const_iv (GL_INTENSITY),
1498 const_iv (GL_LUMINANCE), 1756 const_iv (GL_LUMINANCE),
1757 const_iv (GL_LUMINANCE_ALPHA),
1499 const_iv (GL_FLOAT), 1758 const_iv (GL_FLOAT),
1500 const_iv (GL_UNSIGNED_INT_8_8_8_8_REV), 1759 const_iv (GL_UNSIGNED_INT_8_8_8_8_REV),
1501 const_iv (GL_COMPILE), 1760 const_iv (GL_COMPILE),
1502 const_iv (GL_TEXTURE_1D), 1761 const_iv (GL_TEXTURE_1D),
1503 const_iv (GL_TEXTURE_2D), 1762 const_iv (GL_TEXTURE_2D),
1505 const_iv (GL_TEXTURE_MAG_FILTER), 1764 const_iv (GL_TEXTURE_MAG_FILTER),
1506 const_iv (GL_TEXTURE_MIN_FILTER), 1765 const_iv (GL_TEXTURE_MIN_FILTER),
1507 const_iv (GL_TEXTURE_ENV_MODE), 1766 const_iv (GL_TEXTURE_ENV_MODE),
1508 const_iv (GL_TEXTURE_WRAP_S), 1767 const_iv (GL_TEXTURE_WRAP_S),
1509 const_iv (GL_TEXTURE_WRAP_T), 1768 const_iv (GL_TEXTURE_WRAP_T),
1769 const_iv (GL_REPEAT),
1510 const_iv (GL_CLAMP), 1770 const_iv (GL_CLAMP),
1511 const_iv (GL_REPEAT), 1771 const_iv (GL_CLAMP_TO_EDGE),
1512 const_iv (GL_NEAREST), 1772 const_iv (GL_NEAREST),
1513 const_iv (GL_LINEAR), 1773 const_iv (GL_LINEAR),
1514 const_iv (GL_NEAREST_MIPMAP_NEAREST), 1774 const_iv (GL_NEAREST_MIPMAP_NEAREST),
1515 const_iv (GL_LINEAR_MIPMAP_NEAREST), 1775 const_iv (GL_LINEAR_MIPMAP_NEAREST),
1516 const_iv (GL_NEAREST_MIPMAP_LINEAR), 1776 const_iv (GL_NEAREST_MIPMAP_LINEAR),
1517 const_iv (GL_LINEAR_MIPMAP_LINEAR), 1777 const_iv (GL_LINEAR_MIPMAP_LINEAR),
1518 const_iv (GL_GENERATE_MIPMAP), 1778 const_iv (GL_GENERATE_MIPMAP),
1519 const_iv (GL_MODULATE), 1779 const_iv (GL_MODULATE),
1520 const_iv (GL_DECAL), 1780 const_iv (GL_DECAL),
1521 const_iv (GL_REPLACE), 1781 const_iv (GL_REPLACE),
1782 const_iv (GL_DEPTH_BUFFER_BIT),
1522 const_iv (GL_COLOR_BUFFER_BIT), 1783 const_iv (GL_COLOR_BUFFER_BIT),
1523 const_iv (GL_PROJECTION), 1784 const_iv (GL_PROJECTION),
1524 const_iv (GL_MODELVIEW), 1785 const_iv (GL_MODELVIEW),
1525 const_iv (GL_COLOR_LOGIC_OP), 1786 const_iv (GL_COLOR_LOGIC_OP),
1526 const_iv (GL_SEPARABLE_2D), 1787 const_iv (GL_SEPARABLE_2D),
1527 const_iv (GL_CONVOLUTION_2D), 1788 const_iv (GL_CONVOLUTION_2D),
1528 const_iv (GL_CONVOLUTION_BORDER_MODE), 1789 const_iv (GL_CONVOLUTION_BORDER_MODE),
1529 const_iv (GL_CONSTANT_BORDER), 1790 const_iv (GL_CONSTANT_BORDER),
1530 const_iv (GL_LINES), 1791 const_iv (GL_LINES),
1792 const_iv (GL_LINE_LOOP),
1531 const_iv (GL_QUADS), 1793 const_iv (GL_QUADS),
1532 const_iv (GL_LINE_LOOP), 1794 const_iv (GL_QUAD_STRIP),
1795 const_iv (GL_TRIANGLES),
1796 const_iv (GL_TRIANGLE_STRIP),
1797 const_iv (GL_TRIANGLE_FAN),
1533 const_iv (GL_PERSPECTIVE_CORRECTION_HINT), 1798 const_iv (GL_PERSPECTIVE_CORRECTION_HINT),
1534 const_iv (GL_FASTEST), 1799 const_iv (GL_FASTEST),
1800 const_iv (GL_V2F),
1801 const_iv (GL_V3F),
1802 const_iv (GL_T2F_V3F),
1803 const_iv (GL_T2F_N3F_V3F),
1535# undef const_iv 1804# undef const_iv
1536 }; 1805 };
1537 1806
1538 for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ-- > const_iv; ) 1807 for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ-- > const_iv; )
1539 newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv)); 1808 newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv));
1540} 1809}
1541 1810
1811char *
1812gl_vendor ()
1813 CODE:
1814 RETVAL = (char *)glGetString (GL_VENDOR);
1815 OUTPUT:
1816 RETVAL
1817
1818char *
1819gl_version ()
1820 CODE:
1821 RETVAL = (char *)glGetString (GL_VERSION);
1822 OUTPUT:
1823 RETVAL
1824
1825char *
1826gl_extensions ()
1827 CODE:
1828 RETVAL = (char *)glGetString (GL_EXTENSIONS);
1829 OUTPUT:
1830 RETVAL
1831
1542int glGetError () 1832int glGetError ()
1833
1834void glFinish ()
1543 1835
1544void glClear (int mask) 1836void glClear (int mask)
1545 1837
1546void glClearColor (float r, float g, float b, float a = 1.0) 1838void glClearColor (float r, float g, float b, float a = 1.0)
1547 PROTOTYPE: @ 1839 PROTOTYPE: @
1554 1846
1555void glHint (int target, int mode) 1847void glHint (int target, int mode)
1556 1848
1557void glBlendFunc (int sfactor, int dfactor) 1849void glBlendFunc (int sfactor, int dfactor)
1558 1850
1851void glBlendFuncSeparate (int sa, int da, int saa, int daa)
1852 CODE:
1853 gl_BlendFuncSeparate (sa, da, saa, daa);
1854
1855void glDepthMask (int flag)
1856
1559void glLogicOp (int opcode) 1857void glLogicOp (int opcode)
1560 1858
1561void glColorMask (int red, int green, int blue, int alpha) 1859void glColorMask (int red, int green, int blue, int alpha)
1562 1860
1563void glMatrixMode (int mode) 1861void glMatrixMode (int mode)
1566 1864
1567void glPopMatrix () 1865void glPopMatrix ()
1568 1866
1569void glLoadIdentity () 1867void glLoadIdentity ()
1570 1868
1869void glDrawBuffer (int buffer)
1870
1871void glReadBuffer (int buffer)
1872
1571# near and far are due to microsofts buggy c compiler 1873# near_ and far_ are due to microsofts buggy "c" compiler
1874void glFrustum (double left, double right, double bottom, double top, double near_, double far_)
1875
1876# near_ and far_ are due to microsofts buggy "c" compiler
1572void glOrtho (double left, double right, double bottom, double top, double near_, double far_) 1877void glOrtho (double left, double right, double bottom, double top, double near_, double far_)
1573 1878
1574void glViewport (int x, int y, int width, int height) 1879void glViewport (int x, int y, int width, int height)
1575 1880
1576void glScissor (int x, int y, int width, int height) 1881void glScissor (int x, int y, int width, int height)
1591 1896
1592void glEnd () 1897void glEnd ()
1593 1898
1594void glColor (float r, float g, float b, float a = 1.0) 1899void glColor (float r, float g, float b, float a = 1.0)
1595 PROTOTYPE: @ 1900 PROTOTYPE: @
1901 ALIAS:
1902 glColor_premultiply = 1
1596 CODE: 1903 CODE:
1904 if (ix)
1905 {
1906 r *= a;
1907 g *= a;
1908 b *= a;
1909 }
1910 // microsoft visual "c" rounds instead of truncating...
1597 glColor4ub (MIN ((int)(r * 255.f), 255), 1911 glColor4ub (MIN ((int)(r * 256.f), 255),
1598 MIN ((int)(g * 255.f), 255), 1912 MIN ((int)(g * 256.f), 255),
1599 MIN ((int)(b * 255.f), 255), 1913 MIN ((int)(b * 256.f), 255),
1600 MIN ((int)(a * 255.f), 255)); 1914 MIN ((int)(a * 256.f), 255));
1915
1916void glInterleavedArrays (int format, int stride, char *data)
1917
1918void glDrawElements (int mode, int count, int type, char *indices)
1919
1920# 1.2 void glDrawRangeElements (int mode, int start, int end
1921
1922void glRasterPos (float x, float y, float z = 0.)
1923 CODE:
1924 glRasterPos3f (0, 0, z);
1925 glBitmap (0, 0, 0, 0, x, y, 0);
1601 1926
1602void glVertex (float x, float y, float z = 0.) 1927void glVertex (float x, float y, float z = 0.)
1603 CODE: 1928 CODE:
1604 glVertex3f (x, y, z); 1929 glVertex3f (x, y, z);
1605 1930
1617 1942
1618void glBindTexture (int target, int name) 1943void glBindTexture (int target, int name)
1619 1944
1620void glConvolutionParameter (int target, int pname, float params) 1945void glConvolutionParameter (int target, int pname, float params)
1621 CODE: 1946 CODE:
1622 GL_CALL (PFNGLCONVOLUTIONPARAMETERFEXTPROC, glConvolutionParameterf, (target, pname, params)); 1947 if (gl.ConvolutionParameterf)
1948 gl.ConvolutionParameterf (target, pname, params);
1623 1949
1624void glConvolutionFilter2D (int target, int internalformat, int width, int height, int format, int type, char *data) 1950void glConvolutionFilter2D (int target, int internalformat, int width, int height, int format, int type, char *data)
1625 CODE: 1951 CODE:
1626 GL_CALL (PFNGLCONVOLUTIONFILTER2DEXTPROC, glConvolutionFilter2D, 1952 if (gl.ConvolutionFilter2D)
1627 (target, internalformat, width, height, format, type, data)); 1953 gl.ConvolutionFilter2D (target, internalformat, width, height, format, type, data);
1628 1954
1629void glSeparableFilter2D (int target, int internalformat, int width, int height, int format, int type, char *row, char *column) 1955void glSeparableFilter2D (int target, int internalformat, int width, int height, int format, int type, char *row, char *column)
1630 CODE: 1956 CODE:
1631 GL_CALL (PFNGLSEPARABLEFILTER2DEXTPROC, glSeparableFilter2D, 1957 if (gl.SeparableFilter2D)
1632 (target, internalformat, width, height, format, type, row, column)); 1958 gl.SeparableFilter2D (target, internalformat, width, height, format, type, row, column);
1633 1959
1634void glTexImage2D (int target, int level, int internalformat, int width, int height, int border, int format, int type, char *data) 1960void glTexImage2D (int target, int level, int internalformat, int width, int height, int border, int format, int type, char *data)
1635 1961
1636void glCopyTexImage2D (int target, int level, int internalformat, int x, int y, int width, int height, int border) 1962void glCopyTexImage2D (int target, int level, int internalformat, int x, int y, int width, int height, int border)
1637 1963
1638void glRasterPos (int x, int y) 1964void glDrawPixels (int width, int height, int format, int type, char *pixels)
1639 CODE:
1640 glRasterPos2i (x, y);
1641 1965
1642void glCopyPixels (int x, int y, int width, int height, int type = GL_COLOR) 1966void glCopyPixels (int x, int y, int width, int height, int type = GL_COLOR)
1643 1967
1644int glGenTexture () 1968int glGenTexture ()
1645 CODE: 1969 CODE:
1672 1996
1673void glEndList () 1997void glEndList ()
1674 1998
1675void glCallList (int list) 1999void glCallList (int list)
1676 2000
2001

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines