… | |
… | |
51 | #ifndef PANGO_VERSION_CHECK |
51 | #ifndef PANGO_VERSION_CHECK |
52 | # define PANGO_VERSION_CHECK(a,b,c) 0 |
52 | # define PANGO_VERSION_CHECK(a,b,c) 0 |
53 | #endif |
53 | #endif |
54 | |
54 | |
55 | #if !PANGO_VERSION_CHECK (1, 15, 2) |
55 | #if !PANGO_VERSION_CHECK (1, 15, 2) |
56 | # define pango_layout_get_line_readonly pango_layout_get_line_readonly |
56 | # define pango_layout_get_line_readonly pango_layout_get_line |
57 | # define pango_layout_get_lines_readonly pango_layout_get_lines_readonly |
57 | # define pango_layout_get_lines_readonly pango_layout_get_lines |
58 | # define pango_layout_iter_get_line_readonly pango_layout_iter_get_line_readonly |
58 | # define pango_layout_iter_get_line_readonly pango_layout_iter_get_line |
59 | # define pango_layout_iter_get_run_readonly pango_layout_iter_get_run_readonly |
59 | # define pango_layout_iter_get_run_readonly pango_layout_iter_get_run |
60 | #endif |
60 | #endif |
61 | |
61 | |
62 | #ifndef _WIN32 |
62 | #ifndef _WIN32 |
63 | # include <sys/types.h> |
63 | # include <sys/types.h> |
64 | # include <sys/socket.h> |
64 | # include <sys/socket.h> |
… | |
… | |
185 | |
185 | |
186 | static void |
186 | static void |
187 | layout_update_font (DC__Layout self) |
187 | layout_update_font (DC__Layout self) |
188 | { |
188 | { |
189 | /* use a random scale factor to account for unknown descenders, 0.8 works |
189 | /* use a random scale factor to account for unknown descenders, 0.8 works |
190 | * reasonably well with bitstream vera |
190 | * reasonably well with dejavu/bistream fonts |
191 | */ |
191 | */ |
192 | PangoFontDescription *font = self->font ? self->font : default_font; |
192 | PangoFontDescription *font = self->font ? self->font : default_font; |
193 | |
193 | |
194 | pango_font_description_set_absolute_size (font, |
194 | pango_font_description_set_absolute_size (font, |
195 | MAX (MIN_FONT_HEIGHT, self->base_height) * (PANGO_SCALE * 8 / 10)); |
195 | MAX (MIN_FONT_HEIGHT, self->base_height) * (PANGO_SCALE * 8 / 10)); |
… | |
… | |
673 | CODE: |
673 | CODE: |
674 | { |
674 | { |
675 | opengl_fontmap = pango_opengl_font_map_new (); |
675 | opengl_fontmap = pango_opengl_font_map_new (); |
676 | pango_opengl_font_map_set_default_substitute ((PangoOpenGLFontMap *)opengl_fontmap, substitute_func, 0, 0); |
676 | pango_opengl_font_map_set_default_substitute ((PangoOpenGLFontMap *)opengl_fontmap, substitute_func, 0, 0); |
677 | opengl_context = pango_opengl_font_map_create_context ((PangoOpenGLFontMap *)opengl_fontmap); |
677 | opengl_context = pango_opengl_font_map_create_context ((PangoOpenGLFontMap *)opengl_fontmap); |
|
|
678 | /*pango_context_set_font_description (opengl_context, default_font);*/ |
678 | #if PANGO_VERSION_CHECK (1, 15, 2) |
679 | #if PANGO_VERSION_CHECK (1, 15, 2) |
679 | pango_context_set_language (opengl_context, pango_language_from_string ("en")); |
680 | pango_context_set_language (opengl_context, pango_language_from_string ("en")); |
680 | /*pango_context_set_base_dir (opengl_context, PANGO_DIRECTION_WEAK_LTR);*/ |
681 | /*pango_context_set_base_dir (opengl_context, PANGO_DIRECTION_WEAK_LTR);*/ |
681 | #endif |
682 | #endif |
682 | } |
683 | } |
… | |
… | |
770 | SDL_GetKeyName (int sym) |
771 | SDL_GetKeyName (int sym) |
771 | |
772 | |
772 | int |
773 | int |
773 | SDL_GetAppState () |
774 | SDL_GetAppState () |
774 | |
775 | |
|
|
776 | int |
|
|
777 | SDL_GetModState () |
|
|
778 | |
775 | void |
779 | void |
776 | poll_events () |
780 | poll_events () |
777 | PPCODE: |
781 | PPCODE: |
778 | { |
782 | { |
779 | SDL_Event ev; |
783 | SDL_Event ev; |
… | |
… | |
912 | } |
916 | } |
913 | } |
917 | } |
914 | #endif |
918 | #endif |
915 | } |
919 | } |
916 | |
920 | |
917 | void |
921 | int |
918 | add_font (char *file) |
922 | add_font (char *file) |
919 | CODE: |
923 | CODE: |
920 | FcConfigAppFontAddFile (0, (const FcChar8 *)file); |
924 | RETVAL = FcConfigAppFontAddFile (0, (const FcChar8 *)file); |
|
|
925 | OUTPUT: |
|
|
926 | RETVAL |
921 | |
927 | |
922 | void |
928 | void |
923 | load_image_inline (SV *image_) |
929 | load_image_inline (SV *image_) |
924 | ALIAS: |
930 | ALIAS: |
925 | load_image_file = 1 |
931 | load_image_file = 1 |
… | |
… | |
2286 | else |
2292 | else |
2287 | *data++ = 0; |
2293 | *data++ = 0; |
2288 | } |
2294 | } |
2289 | } |
2295 | } |
2290 | |
2296 | |
|
|
2297 | /* if size is w*h + 5 then no data has been found */ |
|
|
2298 | if (data - (uint8_t *)SvPVX (data_sv) != w * h + 5) |
|
|
2299 | { |
2291 | SvPOK_only (data_sv); |
2300 | SvPOK_only (data_sv); |
2292 | SvCUR_set (data_sv, data - (uint8_t *)SvPVX (data_sv)); |
2301 | SvCUR_set (data_sv, data - (uint8_t *)SvPVX (data_sv)); |
|
|
2302 | } |
|
|
2303 | |
2293 | RETVAL = data_sv; |
2304 | RETVAL = data_sv; |
2294 | } |
2305 | } |
2295 | OUTPUT: |
2306 | OUTPUT: |
2296 | RETVAL |
2307 | RETVAL |
2297 | |
2308 | |
2298 | void |
2309 | void |
2299 | set_rect (DC::Map self, int x0, int y0, uint8_t *data) |
2310 | set_rect (DC::Map self, int x0, int y0, SV *data_sv) |
2300 | PPCODE: |
2311 | PPCODE: |
2301 | { |
2312 | { |
2302 | int x, y, z; |
2313 | int x, y, z; |
2303 | int w, h; |
2314 | int w, h; |
2304 | int x1, y1; |
2315 | int x1, y1; |
|
|
2316 | STRLEN len; |
|
|
2317 | uint8_t *data, *end; |
|
|
2318 | |
|
|
2319 | len = SvLEN (data_sv); |
|
|
2320 | SvGROW (data_sv, len + 8); // reserve at least 7+ bytes more |
|
|
2321 | data = SvPVbyte_nolen (data_sv); |
|
|
2322 | end = data + len + 8; |
|
|
2323 | |
|
|
2324 | if (len < 5) |
|
|
2325 | XSRETURN_EMPTY; |
2305 | |
2326 | |
2306 | if (*data++ != 0) |
2327 | if (*data++ != 0) |
2307 | XSRETURN_EMPTY; /* version mismatch */ |
2328 | XSRETURN_EMPTY; /* version mismatch */ |
2308 | |
2329 | |
2309 | w = *data++ << 8; w |= *data++; |
2330 | w = *data++ << 8; w |= *data++; |
… | |
… | |
2324 | { |
2345 | { |
2325 | maprow *row = map_get_row (self, y); |
2346 | maprow *row = map_get_row (self, y); |
2326 | |
2347 | |
2327 | for (x = x0; x < x1; x++) |
2348 | for (x = x0; x < x1; x++) |
2328 | { |
2349 | { |
|
|
2350 | uint8_t flags; |
|
|
2351 | |
|
|
2352 | if (data + 7 >= end) |
|
|
2353 | XSRETURN_EMPTY; |
|
|
2354 | |
2329 | uint8_t flags = *data++; |
2355 | flags = *data++; |
2330 | |
2356 | |
2331 | if (flags) |
2357 | if (flags) |
2332 | { |
2358 | { |
2333 | mapcell *cell = row_get_cell (row, x); |
2359 | mapcell *cell = row_get_cell (row, x); |
2334 | tileid tile[3] = { 0, 0, 0 }; |
2360 | tileid tile[3] = { 0, 0, 0 }; |
… | |
… | |
2337 | if (flags & 2) { tile[1] = *data++ << 8; tile[1] |= *data++; } |
2363 | if (flags & 2) { tile[1] = *data++ << 8; tile[1] |= *data++; } |
2338 | if (flags & 4) { tile[2] = *data++ << 8; tile[2] |= *data++; } |
2364 | if (flags & 4) { tile[2] = *data++ << 8; tile[2] |= *data++; } |
2339 | |
2365 | |
2340 | if (cell->darkness == 0) |
2366 | if (cell->darkness == 0) |
2341 | { |
2367 | { |
2342 | cell->darkness = 0; |
2368 | /*cell->darkness = 0;*/ |
|
|
2369 | EXTEND (SP, 3); |
2343 | |
2370 | |
2344 | for (z = 0; z <= 2; z++) |
2371 | for (z = 0; z <= 2; z++) |
2345 | { |
2372 | { |
2346 | tileid t = tile [z]; |
2373 | tileid t = tile [z]; |
2347 | |
2374 | |
2348 | if (t >= self->texs || (t && !self->tex [t].name)) |
2375 | if (t >= self->texs || (t && !self->tex [t].name)) |
2349 | { |
2376 | { |
2350 | XPUSHs (sv_2mortal (newSViv (t))); |
2377 | PUSHs (sv_2mortal (newSViv (t))); |
2351 | need_texid (self, t); |
2378 | need_texid (self, t); |
2352 | } |
2379 | } |
2353 | |
2380 | |
2354 | cell->tile [z] = t; |
2381 | cell->tile [z] = t; |
2355 | } |
2382 | } |