annotate src/image.c @ 54341:80dfe07a1d65

New file (image.c) for Image consolidation: (COLOR_TABLE_SUPPORT): New define to control whether color table support is available (X only). (Bitmap_Record): Common name for x_bitmap_record, w32_bitmap_record, and mac_bitmap_record. (XImagePtr): Common name for pointer to XImage or equivalent. (XImagePtr_or_DC): New type to simplify code sharing; equivalent to XImagePtr on X+MAC, and to HDC on W32. (GET_PIXEL): Wrapper for XGetPixel or equivalent. (NO_PIXMAP): Common name for "None" or equivalent. (PNG_BG_COLOR_SHIFT): Bits to shift PNG background colors. (RGB_PIXEL_COLOR): Common type for an integer "pixel color" value. (PIX_MASK_RETAIN, PIX_MASK_DRAW): Portability macros (from macfns.c). (FRAME_X_VISUAL, x_defined_color, DefaultDepthOfScreen): Define with suitable equivalents on W32 and MAC for code sharing. (XDrawLine): Define on MAC for code sharing. (Destroy_Image, Free_Pixmap): Wrappers for code sharing. (IF_LIB_AVAILABLE): Macro to simplify code sharing. (Vx_bitmap_file_path, Vimage_cache_eviction_delay) (x_bitmap_height, x_bitmap_width, x_bitmap_pixmap) (x_reference_bitmap, x_create_bitmap_from_data) (x_create_bitmap_from_file, x_destroy_bitmap) (x_destroy_all_bitmaps, x_create_bitmap_mask) (XGetImage, XPutPixel, XGetPixel, XDestroyImage) (QCascent, QCmargin, QCrelief, QCconversion, QCcolor_symbols) (QCheuristic_mask, QCindex, QCmatrix, QCcolor_adjustment, QCmask) (Qlaplace, Qemboss, Qedge_detection, Qheuristic, Qcenter) (define_image_type, lookup_image_type, valid_image_p) (image_error, enum image_value_type, struct image_keyword) (parse_image_spec, image_spec_value, Fimage_size, Fimage_mask_p) (make_image, free_image, prepare_image_for_display, image_ascent) (four_corners_best, image_background, image_background_transparent) (x_clear_image_1, x_clear_image, x_alloc_image_color) (make_image_cache, free_image_cache, clear_image_cache) (Fclear_image_cache, postprocess_image, lookup_image, cache_image) (forall_images_in_image_cache, x_create_x_image_and_pixmap) (x_destroy_x_image, x_put_x_image, x_find_image_file, slurp_file) (find_image_fsspec, image_load_qt_1, image_load_quicktime) (init_image_func_pointer, image_load_quartz2d) (struct ct_color, init_color_table, free_color_table) (lookup_rgb_color, lookup_pixel_color, colors_in_color_table) (cross_disabled_images, x_to_xcolors, x_from_xcolors) (x_detect_edges, x_emboss, x_laplace, x_edge_detection) (x_disable_image, x_build_heuristic_mask) (XBM support, XPM support, PBM support, PNG support, JPEG support) (TIFF support, GIF support, Ghostscript support): Consolidate image code from xfns.c, w32fns.c, and macfns.c. (syms_of_image): Consolidate image related symbol setup here. (init_image): Consolidate image related initializations here.
author Kim F. Storm <storm@cua.dk>
date Thu, 11 Mar 2004 00:28:24 +0000
parents
children c0422921b537
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1 /* Functions for image support on window system.
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2 Copyright (C) 1989, 92, 93, 94, 95, 96, 97, 98, 99, 2000,01,02,03,04
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3 Free Software Foundation.
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5 This file is part of GNU Emacs.
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7 GNU Emacs is free software; you can redistribute it and/or modify
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8 it under the terms of the GNU General Public License as published by
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
9 the Free Software Foundation; either version 2, or (at your option)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
10 any later version.
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
11
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
12 GNU Emacs is distributed in the hope that it will be useful,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
15 GNU General Public License for more details.
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
16
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
17 You should have received a copy of the GNU General Public License
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
18 along with GNU Emacs; see the file COPYING. If not, write to
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
19 the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
20 Boston, MA 02111-1307, USA. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
21
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
22 #include <config.h>
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
23 #include <signal.h>
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
24 #include <stdio.h>
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
25 #include <math.h>
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
26
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
27 #ifdef HAVE_UNISTD_H
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
28 #include <unistd.h>
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
29 #endif
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
30
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
31 /* This makes the fields of a Display accessible, in Xlib header files. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
32
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
33 #define XLIB_ILLEGAL_ACCESS
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
34
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
35 #include "lisp.h"
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
36 #include "frame.h"
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
37 #include "window.h"
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
38 #include "dispextern.h"
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
39 #include "blockinput.h"
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
40 #include "systime.h"
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
41 #include <epaths.h>
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
42
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
43
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
44 #ifdef HAVE_X_WINDOWS
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
45 #include "xterm.h"
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
46 #include <sys/types.h>
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
47 #include <sys/stat.h>
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
48
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
49 #define COLOR_TABLE_SUPPORT 1
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
50
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
51 typedef struct x_bitmap_record Bitmap_Record;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
52 typedef XImage * XImagePtr;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
53 typedef XImagePtr XImagePtr_or_DC;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
54 #define GET_PIXEL(ximg, x, y) XGetPixel(ximg, x, y)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
55 #define NO_PIXMAP None
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
56 #define PNG_BG_COLOR_SHIFT 0
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
57
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
58 #define RGB_PIXEL_COLOR unsigned long
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
59
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
60 #define PIX_MASK_RETAIN(f) 0
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
61 #define PIX_MASK_DRAW(f) 1
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
62 #endif /* HAVE_X_WINDOWS */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
63
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
64
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
65 #ifdef HAVE_NTGUI
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
66 #include "w32term.h"
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
67
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
68 /* W32_TODO : Color tables on W32. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
69 #undef COLOR_TABLE_SUPPORT
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
70
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
71 typedef struct w32_bitmap_record Bitmap_Record;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
72 typedef XImage *XImagePtr;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
73 typedef HDC XImagePtr_or_DC;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
74 #define GET_PIXEL(ximg, x, y) GetPixel(ximg, x, y)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
75 #define NO_PIXMAP 0
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
76 #define PNG_BG_COLOR_SHIFT 0
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
77
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
78 #define RGB_PIXEL_COLOR COLORREF
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
79
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
80 #define PIX_MASK_RETAIN(f) 0
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
81 #define PIX_MASK_DRAW(f) 1
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
82
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
83 #define FRAME_X_VISUAL(f) FRAME_X_DISPLAY_INFO (f)->visual
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
84 #define x_defined_color w32_defined_color
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
85 #define DefaultDepthOfScreen(screen) (one_w32_display_info.n_cbits)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
86 #endif /* HAVE_NTGUI */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
87
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
88
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
89 #ifdef MAC_OS
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
90 #include "macterm.h"
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
91 #ifndef MAC_OSX
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
92 #include <alloca.h>
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
93 #endif
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
94 #ifdef MAC_OSX
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
95 #include <QuickTime/QuickTime.h>
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
96 #else /* not MAC_OSX */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
97 #include <Windows.h>
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
98 #include <Gestalt.h>
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
99 #include <TextUtils.h>
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
100 #endif /* not MAC_OSX */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
101
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
102 /* MAC_TODO : Color tables on Mac. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
103 #undef COLOR_TABLE_SUPPORT
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
104
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
105 /* Mac equivalent of XImage. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
106 typedef Pixmap XImagePtr;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
107 #define ZPixmap 0 /* arbitrary */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
108 typedef struct mac_bitmap_record Bitmap_Record;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
109
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
110 typedef XImagePtr XImagePtr_or_DC;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
111 #define GET_PIXEL(ximg, x, y) XGetPixel(ximg, x, y)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
112 #define NO_PIXMAP 0
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
113 #define PNG_BG_COLOR_SHIFT 8
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
114
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
115 #define RGB_PIXEL_COLOR unsigned long
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
116
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
117 #define FRAME_X_VISUAL(f) FRAME_X_DISPLAY_INFO (f)->visual
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
118 #define x_defined_color mac_defined_color
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
119 #define DefaultDepthOfScreen(screen) (one_mac_display_info.n_planes)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
120 #define XDrawLine(display, w, gc, x1, y1, x2, y2) \
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
121 mac_draw_line_to_pixmap(display, w, gc, x1, y1, x2, y2)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
122
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
123 #endif /* MAC_OS */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
124
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
125
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
126 /* Search path for bitmap files. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
127
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
128 Lisp_Object Vx_bitmap_file_path;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
129
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
130
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
131 static void x_disable_image P_ ((struct frame *, struct image *));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
132 static void x_edge_detection P_ ((struct frame *, struct image *, Lisp_Object,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
133 Lisp_Object));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
134
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
135 static void init_color_table P_ ((void));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
136 static unsigned long lookup_rgb_color P_ ((struct frame *f, int r, int g, int b));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
137 #ifdef COLOR_TABLE_SUPPORT
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
138 static void free_color_table P_ ((void));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
139 static unsigned long *colors_in_color_table P_ ((int *n));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
140 static unsigned long lookup_pixel_color P_ ((struct frame *f, unsigned long p));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
141 #endif
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
142
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
143 /* Code to deal with bitmaps. Bitmaps are referenced by their bitmap
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
144 id, which is just an int that this section returns. Bitmaps are
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
145 reference counted so they can be shared among frames.
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
146
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
147 Bitmap indices are guaranteed to be > 0, so a negative number can
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
148 be used to indicate no bitmap.
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
149
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
150 If you use x_create_bitmap_from_data, then you must keep track of
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
151 the bitmaps yourself. That is, creating a bitmap from the same
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
152 data more than once will not be caught. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
153
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
154 #ifdef MAC_OS
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
155
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
156 static XImagePtr
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
157 XGetImage (display, pixmap, x, y, width, height, plane_mask, format)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
158 Display *display; /* not used */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
159 Pixmap pixmap;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
160 int x, y; /* not used */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
161 unsigned int width, height; /* not used */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
162 unsigned long plane_mask; /* not used */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
163 int format; /* not used */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
164 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
165 #if GLYPH_DEBUG
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
166 xassert (x == 0 && y == 0);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
167 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
168 Rect ri, rp;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
169 SetRect (&ri, 0, 0, width, height);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
170 xassert (EqualRect (&ri, GetPixBounds (GetGWorldPixMap (pixmap), &rp)));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
171 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
172 xassert (! (pixelsLocked & GetPixelsState (GetGWorldPixMap (pixmap))));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
173 #endif
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
174
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
175 LockPixels (GetGWorldPixMap (pixmap));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
176
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
177 return pixmap;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
178 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
179
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
180 static void
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
181 XPutPixel (ximage, x, y, pixel)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
182 XImagePtr ximage;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
183 int x, y;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
184 unsigned long pixel;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
185 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
186 RGBColor color;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
187
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
188 SetGWorld (ximage, NULL);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
189
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
190 color.red = RED16_FROM_ULONG (pixel);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
191 color.green = GREEN16_FROM_ULONG (pixel);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
192 color.blue = BLUE16_FROM_ULONG (pixel);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
193 SetCPixel (x, y, &color);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
194 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
195
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
196 static unsigned long
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
197 XGetPixel (ximage, x, y)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
198 XImagePtr ximage;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
199 int x, y;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
200 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
201 RGBColor color;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
202
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
203 SetGWorld (ximage, NULL);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
204
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
205 GetCPixel (x, y, &color);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
206 return RGB_TO_ULONG (color.red >> 8, color.green >> 8, color.blue >> 8);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
207 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
208
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
209 static void
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
210 XDestroyImage (ximg)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
211 XImagePtr ximg;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
212 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
213 UnlockPixels (GetGWorldPixMap (ximg));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
214 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
215 #endif
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
216
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
217
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
218 /* Functions to access the contents of a bitmap, given an id. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
219
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
220 int
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
221 x_bitmap_height (f, id)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
222 FRAME_PTR f;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
223 int id;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
224 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
225 return FRAME_X_DISPLAY_INFO (f)->bitmaps[id - 1].height;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
226 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
227
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
228 int
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
229 x_bitmap_width (f, id)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
230 FRAME_PTR f;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
231 int id;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
232 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
233 return FRAME_X_DISPLAY_INFO (f)->bitmaps[id - 1].width;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
234 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
235
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
236 #if defined (HAVE_X_WINDOWS) || defined (HAVE_NTGUI)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
237 int
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
238 x_bitmap_pixmap (f, id)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
239 FRAME_PTR f;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
240 int id;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
241 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
242 return (int) FRAME_X_DISPLAY_INFO (f)->bitmaps[id - 1].pixmap;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
243 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
244 #endif
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
245
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
246 #ifdef HAVE_X_WINDOWS
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
247 int
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
248 x_bitmap_mask (f, id)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
249 FRAME_PTR f;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
250 int id;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
251 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
252 return FRAME_X_DISPLAY_INFO (f)->bitmaps[id - 1].mask;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
253 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
254 #endif
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
255
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
256 /* Allocate a new bitmap record. Returns index of new record. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
257
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
258 static int
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
259 x_allocate_bitmap_record (f)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
260 FRAME_PTR f;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
261 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
262 Display_Info *dpyinfo = FRAME_X_DISPLAY_INFO (f);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
263 int i;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
264
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
265 if (dpyinfo->bitmaps == NULL)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
266 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
267 dpyinfo->bitmaps_size = 10;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
268 dpyinfo->bitmaps
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
269 = (Bitmap_Record *) xmalloc (dpyinfo->bitmaps_size * sizeof (Bitmap_Record));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
270 dpyinfo->bitmaps_last = 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
271 return 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
272 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
273
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
274 if (dpyinfo->bitmaps_last < dpyinfo->bitmaps_size)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
275 return ++dpyinfo->bitmaps_last;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
276
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
277 for (i = 0; i < dpyinfo->bitmaps_size; ++i)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
278 if (dpyinfo->bitmaps[i].refcount == 0)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
279 return i + 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
280
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
281 dpyinfo->bitmaps_size *= 2;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
282 dpyinfo->bitmaps
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
283 = (Bitmap_Record *) xrealloc (dpyinfo->bitmaps,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
284 dpyinfo->bitmaps_size * sizeof (Bitmap_Record));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
285 return ++dpyinfo->bitmaps_last;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
286 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
287
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
288 /* Add one reference to the reference count of the bitmap with id ID. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
289
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
290 void
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
291 x_reference_bitmap (f, id)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
292 FRAME_PTR f;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
293 int id;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
294 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
295 ++FRAME_X_DISPLAY_INFO (f)->bitmaps[id - 1].refcount;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
296 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
297
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
298 /* Create a bitmap for frame F from a HEIGHT x WIDTH array of bits at BITS. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
299
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
300 int
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
301 x_create_bitmap_from_data (f, bits, width, height)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
302 struct frame *f;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
303 char *bits;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
304 unsigned int width, height;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
305 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
306 Display_Info *dpyinfo = FRAME_X_DISPLAY_INFO (f);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
307 int id;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
308
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
309 #ifdef HAVE_X_WINDOWS
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
310 Pixmap bitmap;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
311 bitmap = XCreateBitmapFromData (FRAME_X_DISPLAY (f), FRAME_X_WINDOW (f),
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
312 bits, width, height);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
313 if (! bitmap)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
314 return -1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
315 #endif /* HAVE_X_WINDOWS */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
316
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
317 #ifdef HAVE_NTGUI
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
318 Pixmap bitmap;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
319 bitmap = CreateBitmap (width, height,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
320 FRAME_X_DISPLAY_INFO (XFRAME (frame))->n_planes,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
321 FRAME_X_DISPLAY_INFO (XFRAME (frame))->n_cbits,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
322 bits);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
323 if (! bitmap)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
324 return -1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
325 #endif /* HAVE_NTGUI */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
326
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
327 #ifdef MAC_OS
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
328 /* MAC_TODO: for now fail if width is not mod 16 (toolbox requires it) */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
329 if (width % 16 != 0)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
330 return -1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
331 #endif
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
332
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
333 id = x_allocate_bitmap_record (f);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
334 #ifdef MAC_OS
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
335 dpyinfo->bitmaps[id - 1].bitmap_data = (char *) xmalloc (height * width);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
336 if (! dpyinfo->bitmaps[id - 1].bitmap_data)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
337 return -1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
338 bcopy (bits, dpyinfo->bitmaps[id - 1].bitmap_data, height * width);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
339 #endif /* MAC_OS */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
340
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
341 dpyinfo->bitmaps[id - 1].file = NULL;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
342 dpyinfo->bitmaps[id - 1].height = height;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
343 dpyinfo->bitmaps[id - 1].width = width;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
344 dpyinfo->bitmaps[id - 1].refcount = 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
345
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
346 #ifdef HAVE_X_WINDOWS
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
347 dpyinfo->bitmaps[id - 1].pixmap = bitmap;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
348 dpyinfo->bitmaps[id - 1].have_mask = 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
349 dpyinfo->bitmaps[id - 1].depth = 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
350 #endif /* HAVE_X_WINDOWS */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
351
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
352 #ifdef HAVE_NTGUI
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
353 dpyinfo->bitmaps[id - 1].pixmap = bitmap;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
354 dpyinfo->bitmaps[id - 1].hinst = NULL;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
355 dpyinfo->bitmaps[id - 1].depth = 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
356 #endif /* HAVE_NTGUI */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
357
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
358 return id;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
359 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
360
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
361 /* Create bitmap from file FILE for frame F. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
362
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
363 int
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
364 x_create_bitmap_from_file (f, file)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
365 struct frame *f;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
366 Lisp_Object file;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
367 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
368 #ifdef MAC_OS
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
369 return -1; /* MAC_TODO : bitmap support */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
370 #endif /* MAC_OS */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
371
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
372 #ifdef HAVE_NTGUI
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
373 return -1; /* W32_TODO : bitmap support */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
374 #endif /* HAVE_NTGUI */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
375
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
376 #ifdef HAVE_X_WINDOWS
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
377 Display_Info *dpyinfo = FRAME_X_DISPLAY_INFO (f);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
378 unsigned int width, height;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
379 Pixmap bitmap;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
380 int xhot, yhot, result, id;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
381 Lisp_Object found;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
382 int fd;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
383 char *filename;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
384
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
385 /* Look for an existing bitmap with the same name. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
386 for (id = 0; id < dpyinfo->bitmaps_last; ++id)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
387 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
388 if (dpyinfo->bitmaps[id].refcount
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
389 && dpyinfo->bitmaps[id].file
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
390 && !strcmp (dpyinfo->bitmaps[id].file, (char *) SDATA (file)))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
391 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
392 ++dpyinfo->bitmaps[id].refcount;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
393 return id + 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
394 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
395 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
396
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
397 /* Search bitmap-file-path for the file, if appropriate. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
398 fd = openp (Vx_bitmap_file_path, file, Qnil, &found, Qnil);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
399 if (fd < 0)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
400 return -1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
401 emacs_close (fd);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
402
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
403 filename = (char *) SDATA (found);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
404
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
405 result = XReadBitmapFile (FRAME_X_DISPLAY (f), FRAME_X_WINDOW (f),
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
406 filename, &width, &height, &bitmap, &xhot, &yhot);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
407 if (result != BitmapSuccess)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
408 return -1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
409
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
410 id = x_allocate_bitmap_record (f);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
411 dpyinfo->bitmaps[id - 1].pixmap = bitmap;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
412 dpyinfo->bitmaps[id - 1].have_mask = 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
413 dpyinfo->bitmaps[id - 1].refcount = 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
414 dpyinfo->bitmaps[id - 1].file = (char *) xmalloc (SBYTES (file) + 1);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
415 dpyinfo->bitmaps[id - 1].depth = 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
416 dpyinfo->bitmaps[id - 1].height = height;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
417 dpyinfo->bitmaps[id - 1].width = width;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
418 strcpy (dpyinfo->bitmaps[id - 1].file, SDATA (file));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
419
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
420 return id;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
421 #endif /* HAVE_X_WINDOWS */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
422 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
423
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
424 /* Free bitmap B. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
425
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
426 static void
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
427 Free_Bitmap_Record (dpyinfo, bm)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
428 Display_Info *dpyinfo;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
429 Bitmap_Record *bm;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
430 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
431 #ifdef HAVE_X_WINDOWS
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
432 XFreePixmap (dpyinfo->display, bm->pixmap);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
433 if (bm->have_mask)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
434 XFreePixmap (dpyinfo->display, bm->mask);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
435 #endif /* HAVE_X_WINDOWS */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
436
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
437 #ifdef HAVE_NTGUI
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
438 DeleteObject (bm->pixmap);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
439 #endif /* HAVE_NTGUI */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
440
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
441 #ifdef MAC_OS
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
442 xfree (bm->bitmap_data); /* Added ++kfs */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
443 bm->bitmap_data = NULL;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
444 #endif /* MAC_OS */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
445
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
446 if (bm->file)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
447 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
448 xfree (bm->file);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
449 bm->file = NULL;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
450 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
451 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
452
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
453 /* Remove reference to bitmap with id number ID. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
454
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
455 void
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
456 x_destroy_bitmap (f, id)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
457 FRAME_PTR f;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
458 int id;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
459 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
460 Display_Info *dpyinfo = FRAME_X_DISPLAY_INFO (f);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
461
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
462 if (id > 0)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
463 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
464 Bitmap_Record *bm = &dpyinfo->bitmaps[id - 1];
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
465
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
466 if (--bm->refcount == 0)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
467 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
468 BLOCK_INPUT;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
469 Free_Bitmap_Record (dpyinfo, bm);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
470 UNBLOCK_INPUT;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
471 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
472 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
473 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
474
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
475 /* Free all the bitmaps for the display specified by DPYINFO. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
476
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
477 void
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
478 x_destroy_all_bitmaps (dpyinfo)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
479 Display_Info *dpyinfo;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
480 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
481 int i;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
482 Bitmap_Record *bm = dpyinfo->bitmaps;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
483
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
484 for (i = 0; i < dpyinfo->bitmaps_last; i++, bm++)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
485 if (bm->refcount > 0)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
486 Free_Bitmap_Record (dpyinfo, bm);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
487
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
488 dpyinfo->bitmaps_last = 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
489 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
490
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
491
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
492 #ifdef HAVE_X_WINDOWS
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
493
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
494 /* Useful functions defined in the section
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
495 `Image type independent image structures' below. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
496
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
497 static unsigned long four_corners_best P_ ((XImagePtr ximg, unsigned long width,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
498 unsigned long height));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
499
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
500 static int x_create_x_image_and_pixmap P_ ((struct frame *f, int width, int height,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
501 int depth, XImagePtr *ximg,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
502 Pixmap *pixmap));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
503
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
504 static void x_destroy_x_image P_ ((XImagePtr ximg));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
505
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
506
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
507 /* Create a mask of a bitmap. Note is this not a perfect mask.
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
508 It's nicer with some borders in this context */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
509
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
510 int
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
511 x_create_bitmap_mask (f, id)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
512 struct frame *f;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
513 int id;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
514 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
515 Pixmap pixmap, mask;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
516 XImagePtr ximg, mask_img;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
517 unsigned long width, height;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
518 int result;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
519 unsigned long bg;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
520 unsigned long x, y, xp, xm, yp, ym;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
521 GC gc;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
522
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
523 Display_Info *dpyinfo = FRAME_X_DISPLAY_INFO (f);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
524
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
525 if (!(id > 0))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
526 return -1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
527
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
528 pixmap = x_bitmap_pixmap (f, id);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
529 width = x_bitmap_width (f, id);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
530 height = x_bitmap_height (f, id);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
531
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
532 BLOCK_INPUT;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
533 ximg = XGetImage (FRAME_X_DISPLAY (f), pixmap, 0, 0, width, height,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
534 ~0, ZPixmap);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
535
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
536 if (!ximg)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
537 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
538 UNBLOCK_INPUT;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
539 return -1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
540 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
541
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
542 result = x_create_x_image_and_pixmap (f, width, height, 1, &mask_img, &mask);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
543
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
544 UNBLOCK_INPUT;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
545 if (!result)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
546 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
547 XDestroyImage (ximg);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
548 return -1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
549 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
550
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
551 bg = four_corners_best (ximg, width, height);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
552
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
553 for (y = 0; y < ximg->height; ++y)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
554 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
555 for (x = 0; x < ximg->width; ++x)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
556 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
557 xp = x != ximg->width - 1 ? x + 1 : 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
558 xm = x != 0 ? x - 1 : ximg->width - 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
559 yp = y != ximg->height - 1 ? y + 1 : 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
560 ym = y != 0 ? y - 1 : ximg->height - 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
561 if (XGetPixel (ximg, x, y) == bg
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
562 && XGetPixel (ximg, x, yp) == bg
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
563 && XGetPixel (ximg, x, ym) == bg
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
564 && XGetPixel (ximg, xp, y) == bg
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
565 && XGetPixel (ximg, xp, yp) == bg
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
566 && XGetPixel (ximg, xp, ym) == bg
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
567 && XGetPixel (ximg, xm, y) == bg
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
568 && XGetPixel (ximg, xm, yp) == bg
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
569 && XGetPixel (ximg, xm, ym) == bg)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
570 XPutPixel (mask_img, x, y, 0);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
571 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
572 XPutPixel (mask_img, x, y, 1);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
573 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
574 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
575
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
576 xassert (interrupt_input_blocked);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
577 gc = XCreateGC (FRAME_X_DISPLAY (f), mask, 0, NULL);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
578 XPutImage (FRAME_X_DISPLAY (f), mask, gc, mask_img, 0, 0, 0, 0,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
579 width, height);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
580 XFreeGC (FRAME_X_DISPLAY (f), gc);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
581
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
582 dpyinfo->bitmaps[id - 1].have_mask = 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
583 dpyinfo->bitmaps[id - 1].mask = mask;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
584
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
585 XDestroyImage (ximg);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
586 x_destroy_x_image (mask_img);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
587
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
588 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
589 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
590
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
591 #endif /* HAVE_X_WINDOWS */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
592
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
593
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
594 /***********************************************************************
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
595 Image types
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
596 ***********************************************************************/
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
597
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
598 /* Value is the number of elements of vector VECTOR. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
599
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
600 #define DIM(VECTOR) (sizeof (VECTOR) / sizeof *(VECTOR))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
601
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
602 /* List of supported image types. Use define_image_type to add new
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
603 types. Use lookup_image_type to find a type for a given symbol. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
604
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
605 static struct image_type *image_types;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
606
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
607 /* The symbol `xbm' which is used as the type symbol for XBM images. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
608
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
609 Lisp_Object Qxbm;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
610
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
611 /* Keywords. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
612
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
613 extern Lisp_Object QCwidth, QCheight, QCforeground, QCbackground, QCfile;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
614 extern Lisp_Object QCdata, QCtype;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
615 Lisp_Object QCascent, QCmargin, QCrelief;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
616 Lisp_Object QCconversion, QCcolor_symbols, QCheuristic_mask;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
617 Lisp_Object QCindex, QCmatrix, QCcolor_adjustment, QCmask;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
618
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
619 /* Other symbols. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
620
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
621 Lisp_Object Qlaplace, Qemboss, Qedge_detection, Qheuristic;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
622 Lisp_Object Qcenter;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
623
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
624 /* Time in seconds after which images should be removed from the cache
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
625 if not displayed. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
626
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
627 Lisp_Object Vimage_cache_eviction_delay;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
628
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
629 /* Function prototypes. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
630
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
631 static void define_image_type P_ ((struct image_type *type));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
632 static struct image_type *lookup_image_type P_ ((Lisp_Object symbol));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
633 static void image_error P_ ((char *format, Lisp_Object, Lisp_Object));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
634 static void x_laplace P_ ((struct frame *, struct image *));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
635 static void x_emboss P_ ((struct frame *, struct image *));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
636 static int x_build_heuristic_mask P_ ((struct frame *, struct image *,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
637 Lisp_Object));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
638
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
639
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
640 /* Define a new image type from TYPE. This adds a copy of TYPE to
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
641 image_types and adds the symbol *TYPE->type to Vimage_types. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
642
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
643 static void
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
644 define_image_type (type)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
645 struct image_type *type;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
646 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
647 /* Make a copy of TYPE to avoid a bus error in a dumped Emacs.
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
648 The initialized data segment is read-only. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
649 struct image_type *p = (struct image_type *) xmalloc (sizeof *p);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
650 bcopy (type, p, sizeof *p);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
651 p->next = image_types;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
652 image_types = p;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
653 Vimage_types = Fcons (*p->type, Vimage_types);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
654 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
655
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
656
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
657 /* Look up image type SYMBOL, and return a pointer to its image_type
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
658 structure. Value is null if SYMBOL is not a known image type. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
659
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
660 static INLINE struct image_type *
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
661 lookup_image_type (symbol)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
662 Lisp_Object symbol;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
663 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
664 struct image_type *type;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
665
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
666 for (type = image_types; type; type = type->next)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
667 if (EQ (symbol, *type->type))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
668 break;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
669
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
670 return type;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
671 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
672
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
673
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
674 /* Value is non-zero if OBJECT is a valid Lisp image specification. A
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
675 valid image specification is a list whose car is the symbol
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
676 `image', and whose rest is a property list. The property list must
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
677 contain a value for key `:type'. That value must be the name of a
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
678 supported image type. The rest of the property list depends on the
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
679 image type. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
680
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
681 int
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
682 valid_image_p (object)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
683 Lisp_Object object;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
684 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
685 int valid_p = 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
686
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
687 if (IMAGEP (object))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
688 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
689 Lisp_Object tem;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
690
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
691 for (tem = XCDR (object); CONSP (tem); tem = XCDR (tem))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
692 if (EQ (XCAR (tem), QCtype))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
693 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
694 tem = XCDR (tem);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
695 if (CONSP (tem) && SYMBOLP (XCAR (tem)))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
696 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
697 struct image_type *type;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
698 type = lookup_image_type (XCAR (tem));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
699 if (type)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
700 valid_p = type->valid_p (object);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
701 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
702
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
703 break;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
704 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
705 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
706
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
707 return valid_p;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
708 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
709
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
710
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
711 /* Log error message with format string FORMAT and argument ARG.
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
712 Signaling an error, e.g. when an image cannot be loaded, is not a
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
713 good idea because this would interrupt redisplay, and the error
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
714 message display would lead to another redisplay. This function
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
715 therefore simply displays a message. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
716
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
717 static void
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
718 image_error (format, arg1, arg2)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
719 char *format;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
720 Lisp_Object arg1, arg2;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
721 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
722 add_to_log (format, arg1, arg2);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
723 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
724
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
725
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
726
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
727 /***********************************************************************
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
728 Image specifications
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
729 ***********************************************************************/
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
730
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
731 enum image_value_type
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
732 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
733 IMAGE_DONT_CHECK_VALUE_TYPE,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
734 IMAGE_STRING_VALUE,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
735 IMAGE_STRING_OR_NIL_VALUE,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
736 IMAGE_SYMBOL_VALUE,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
737 IMAGE_POSITIVE_INTEGER_VALUE,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
738 IMAGE_POSITIVE_INTEGER_VALUE_OR_PAIR,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
739 IMAGE_NON_NEGATIVE_INTEGER_VALUE,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
740 IMAGE_ASCENT_VALUE,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
741 IMAGE_INTEGER_VALUE,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
742 IMAGE_FUNCTION_VALUE,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
743 IMAGE_NUMBER_VALUE,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
744 IMAGE_BOOL_VALUE
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
745 };
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
746
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
747 /* Structure used when parsing image specifications. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
748
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
749 struct image_keyword
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
750 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
751 /* Name of keyword. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
752 char *name;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
753
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
754 /* The type of value allowed. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
755 enum image_value_type type;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
756
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
757 /* Non-zero means key must be present. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
758 int mandatory_p;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
759
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
760 /* Used to recognize duplicate keywords in a property list. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
761 int count;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
762
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
763 /* The value that was found. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
764 Lisp_Object value;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
765 };
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
766
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
767
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
768 static int parse_image_spec P_ ((Lisp_Object, struct image_keyword *,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
769 int, Lisp_Object));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
770 static Lisp_Object image_spec_value P_ ((Lisp_Object, Lisp_Object, int *));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
771
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
772
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
773 /* Parse image spec SPEC according to KEYWORDS. A valid image spec
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
774 has the format (image KEYWORD VALUE ...). One of the keyword/
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
775 value pairs must be `:type TYPE'. KEYWORDS is a vector of
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
776 image_keywords structures of size NKEYWORDS describing other
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
777 allowed keyword/value pairs. Value is non-zero if SPEC is valid. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
778
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
779 static int
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
780 parse_image_spec (spec, keywords, nkeywords, type)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
781 Lisp_Object spec;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
782 struct image_keyword *keywords;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
783 int nkeywords;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
784 Lisp_Object type;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
785 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
786 int i;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
787 Lisp_Object plist;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
788
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
789 if (!IMAGEP (spec))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
790 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
791
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
792 plist = XCDR (spec);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
793 while (CONSP (plist))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
794 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
795 Lisp_Object key, value;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
796
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
797 /* First element of a pair must be a symbol. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
798 key = XCAR (plist);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
799 plist = XCDR (plist);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
800 if (!SYMBOLP (key))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
801 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
802
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
803 /* There must follow a value. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
804 if (!CONSP (plist))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
805 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
806 value = XCAR (plist);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
807 plist = XCDR (plist);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
808
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
809 /* Find key in KEYWORDS. Error if not found. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
810 for (i = 0; i < nkeywords; ++i)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
811 if (strcmp (keywords[i].name, SDATA (SYMBOL_NAME (key))) == 0)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
812 break;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
813
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
814 if (i == nkeywords)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
815 continue;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
816
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
817 /* Record that we recognized the keyword. If a keywords
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
818 was found more than once, it's an error. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
819 keywords[i].value = value;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
820 ++keywords[i].count;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
821
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
822 if (keywords[i].count > 1)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
823 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
824
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
825 /* Check type of value against allowed type. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
826 switch (keywords[i].type)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
827 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
828 case IMAGE_STRING_VALUE:
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
829 if (!STRINGP (value))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
830 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
831 break;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
832
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
833 case IMAGE_STRING_OR_NIL_VALUE:
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
834 if (!STRINGP (value) && !NILP (value))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
835 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
836 break;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
837
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
838 case IMAGE_SYMBOL_VALUE:
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
839 if (!SYMBOLP (value))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
840 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
841 break;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
842
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
843 case IMAGE_POSITIVE_INTEGER_VALUE:
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
844 if (!INTEGERP (value) || XINT (value) <= 0)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
845 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
846 break;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
847
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
848 case IMAGE_POSITIVE_INTEGER_VALUE_OR_PAIR:
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
849 if (INTEGERP (value) && XINT (value) >= 0)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
850 break;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
851 if (CONSP (value)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
852 && INTEGERP (XCAR (value)) && INTEGERP (XCDR (value))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
853 && XINT (XCAR (value)) >= 0 && XINT (XCDR (value)) >= 0)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
854 break;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
855 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
856
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
857 case IMAGE_ASCENT_VALUE:
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
858 if (SYMBOLP (value) && EQ (value, Qcenter))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
859 break;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
860 else if (INTEGERP (value)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
861 && XINT (value) >= 0
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
862 && XINT (value) <= 100)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
863 break;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
864 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
865
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
866 case IMAGE_NON_NEGATIVE_INTEGER_VALUE:
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
867 if (!INTEGERP (value) || XINT (value) < 0)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
868 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
869 break;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
870
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
871 case IMAGE_DONT_CHECK_VALUE_TYPE:
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
872 break;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
873
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
874 case IMAGE_FUNCTION_VALUE:
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
875 value = indirect_function (value);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
876 if (SUBRP (value)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
877 || COMPILEDP (value)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
878 || (CONSP (value) && EQ (XCAR (value), Qlambda)))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
879 break;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
880 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
881
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
882 case IMAGE_NUMBER_VALUE:
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
883 if (!INTEGERP (value) && !FLOATP (value))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
884 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
885 break;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
886
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
887 case IMAGE_INTEGER_VALUE:
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
888 if (!INTEGERP (value))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
889 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
890 break;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
891
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
892 case IMAGE_BOOL_VALUE:
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
893 if (!NILP (value) && !EQ (value, Qt))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
894 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
895 break;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
896
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
897 default:
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
898 abort ();
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
899 break;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
900 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
901
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
902 if (EQ (key, QCtype) && !EQ (type, value))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
903 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
904 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
905
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
906 /* Check that all mandatory fields are present. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
907 for (i = 0; i < nkeywords; ++i)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
908 if (keywords[i].mandatory_p && keywords[i].count == 0)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
909 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
910
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
911 return NILP (plist);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
912 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
913
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
914
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
915 /* Return the value of KEY in image specification SPEC. Value is nil
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
916 if KEY is not present in SPEC. if FOUND is not null, set *FOUND
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
917 to 1 if KEY was found in SPEC, set it to 0 otherwise. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
918
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
919 static Lisp_Object
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
920 image_spec_value (spec, key, found)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
921 Lisp_Object spec, key;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
922 int *found;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
923 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
924 Lisp_Object tail;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
925
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
926 xassert (valid_image_p (spec));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
927
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
928 for (tail = XCDR (spec);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
929 CONSP (tail) && CONSP (XCDR (tail));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
930 tail = XCDR (XCDR (tail)))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
931 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
932 if (EQ (XCAR (tail), key))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
933 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
934 if (found)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
935 *found = 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
936 return XCAR (XCDR (tail));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
937 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
938 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
939
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
940 if (found)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
941 *found = 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
942 return Qnil;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
943 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
944
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
945
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
946 DEFUN ("image-size", Fimage_size, Simage_size, 1, 3, 0,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
947 doc: /* Return the size of image SPEC as pair (WIDTH . HEIGHT).
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
948 PIXELS non-nil means return the size in pixels, otherwise return the
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
949 size in canonical character units.
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
950 FRAME is the frame on which the image will be displayed. FRAME nil
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
951 or omitted means use the selected frame. */)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
952 (spec, pixels, frame)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
953 Lisp_Object spec, pixels, frame;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
954 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
955 Lisp_Object size;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
956
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
957 size = Qnil;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
958 if (valid_image_p (spec))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
959 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
960 struct frame *f = check_x_frame (frame);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
961 int id = lookup_image (f, spec);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
962 struct image *img = IMAGE_FROM_ID (f, id);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
963 int width = img->width + 2 * img->hmargin;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
964 int height = img->height + 2 * img->vmargin;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
965
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
966 if (NILP (pixels))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
967 size = Fcons (make_float ((double) width / FRAME_COLUMN_WIDTH (f)),
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
968 make_float ((double) height / FRAME_LINE_HEIGHT (f)));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
969 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
970 size = Fcons (make_number (width), make_number (height));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
971 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
972 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
973 error ("Invalid image specification");
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
974
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
975 return size;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
976 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
977
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
978
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
979 DEFUN ("image-mask-p", Fimage_mask_p, Simage_mask_p, 1, 2, 0,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
980 doc: /* Return t if image SPEC has a mask bitmap.
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
981 FRAME is the frame on which the image will be displayed. FRAME nil
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
982 or omitted means use the selected frame. */)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
983 (spec, frame)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
984 Lisp_Object spec, frame;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
985 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
986 Lisp_Object mask;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
987
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
988 mask = Qnil;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
989 if (valid_image_p (spec))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
990 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
991 struct frame *f = check_x_frame (frame);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
992 int id = lookup_image (f, spec);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
993 struct image *img = IMAGE_FROM_ID (f, id);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
994 if (img->mask)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
995 mask = Qt;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
996 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
997 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
998 error ("Invalid image specification");
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
999
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1000 return mask;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1001 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1002
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1003
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1004 /***********************************************************************
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1005 Image type independent image structures
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1006 ***********************************************************************/
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1007
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1008 static struct image *make_image P_ ((Lisp_Object spec, unsigned hash));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1009 static void free_image P_ ((struct frame *f, struct image *img));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1010
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1011
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1012 /* Allocate and return a new image structure for image specification
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1013 SPEC. SPEC has a hash value of HASH. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1014
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1015 static struct image *
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1016 make_image (spec, hash)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1017 Lisp_Object spec;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1018 unsigned hash;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1019 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1020 struct image *img = (struct image *) xmalloc (sizeof *img);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1021
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1022 xassert (valid_image_p (spec));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1023 bzero (img, sizeof *img);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1024 img->type = lookup_image_type (image_spec_value (spec, QCtype, NULL));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1025 xassert (img->type != NULL);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1026 img->spec = spec;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1027 img->data.lisp_val = Qnil;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1028 img->ascent = DEFAULT_IMAGE_ASCENT;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1029 img->hash = hash;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1030 return img;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1031 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1032
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1033
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1034 /* Free image IMG which was used on frame F, including its resources. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1035
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1036 static void
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1037 free_image (f, img)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1038 struct frame *f;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1039 struct image *img;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1040 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1041 if (img)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1042 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1043 struct image_cache *c = FRAME_X_IMAGE_CACHE (f);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1044
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1045 /* Remove IMG from the hash table of its cache. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1046 if (img->prev)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1047 img->prev->next = img->next;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1048 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1049 c->buckets[img->hash % IMAGE_CACHE_BUCKETS_SIZE] = img->next;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1050
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1051 if (img->next)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1052 img->next->prev = img->prev;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1053
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1054 c->images[img->id] = NULL;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1055
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1056 /* Free resources, then free IMG. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1057 img->type->free (f, img);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1058 xfree (img);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1059 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1060 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1061
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1062
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1063 /* Prepare image IMG for display on frame F. Must be called before
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1064 drawing an image. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1065
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1066 void
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1067 prepare_image_for_display (f, img)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1068 struct frame *f;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1069 struct image *img;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1070 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1071 EMACS_TIME t;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1072
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1073 /* We're about to display IMG, so set its timestamp to `now'. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1074 EMACS_GET_TIME (t);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1075 img->timestamp = EMACS_SECS (t);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1076
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1077 /* If IMG doesn't have a pixmap yet, load it now, using the image
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1078 type dependent loader function. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1079 if (img->pixmap == NO_PIXMAP && !img->load_failed_p)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1080 img->load_failed_p = img->type->load (f, img) == 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1081 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1082
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1083
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1084 /* Value is the number of pixels for the ascent of image IMG when
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1085 drawn in face FACE. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1086
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1087 int
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1088 image_ascent (img, face)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1089 struct image *img;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1090 struct face *face;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1091 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1092 int height = img->height + img->vmargin;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1093 int ascent;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1094
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1095 if (img->ascent == CENTERED_IMAGE_ASCENT)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1096 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1097 if (face->font)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1098 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1099 #ifdef HAVE_NTGUI
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1100 /* W32 specific version. Why?. ++kfs */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1101 ascent = height / 2 - (FONT_DESCENT(face->font)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1102 - FONT_BASE(face->font)) / 2;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1103 #else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1104 /* This expression is arranged so that if the image can't be
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1105 exactly centered, it will be moved slightly up. This is
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1106 because a typical font is `top-heavy' (due to the presence
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1107 uppercase letters), so the image placement should err towards
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1108 being top-heavy too. It also just generally looks better. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1109 ascent = (height + face->font->ascent - face->font->descent + 1) / 2;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1110 #endif /* HAVE_NTGUI */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1111 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1112 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1113 ascent = height / 2;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1114 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1115 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1116 ascent = (int) (height * img->ascent / 100.0);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1117
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1118 return ascent;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1119 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1120
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1121
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1122 /* Image background colors. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1123
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1124 /* Find the "best" corner color of a bitmap.
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1125 On W32, XIMG is assumed to a device context with the bitmap selected. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1126
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1127 static RGB_PIXEL_COLOR
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1128 four_corners_best (ximg, width, height)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1129 XImagePtr_or_DC ximg;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1130 unsigned long width, height;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1131 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1132 RGB_PIXEL_COLOR corners[4], best;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1133 int i, best_count;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1134
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1135 /* Get the colors at the corners of ximg. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1136 corners[0] = GET_PIXEL (ximg, 0, 0);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1137 corners[1] = GET_PIXEL (ximg, width - 1, 0);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1138 corners[2] = GET_PIXEL (ximg, width - 1, height - 1);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1139 corners[3] = GET_PIXEL (ximg, 0, height - 1);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1140
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1141 /* Choose the most frequently found color as background. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1142 for (i = best_count = 0; i < 4; ++i)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1143 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1144 int j, n;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1145
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1146 for (j = n = 0; j < 4; ++j)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1147 if (corners[i] == corners[j])
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1148 ++n;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1149
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1150 if (n > best_count)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1151 best = corners[i], best_count = n;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1152 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1153
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1154 return best;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1155 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1156
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1157 /* Portability macros */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1158
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1159 #ifdef HAVE_NTGUI
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1160
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1161 #define Destroy_Image(img_dc, prev) \
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1162 do { SelectObject (img_dc, prev); DeleteDC (img_dc); } while (0)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1163
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1164 #define Free_Pixmap(display, pixmap) \
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1165 DeleteObject (pixmap)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1166
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1167 #else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1168
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1169 #define Destroy_Image(ximg, dummy) \
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1170 XDestroyImage (ximg)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1171
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1172 #define Free_Pixmap(display, pixmap) \
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1173 XFreePixmap (display, pixmap)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1174
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1175 #endif /* HAVE_NTGUI */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1176
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1177
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1178 /* Return the `background' field of IMG. If IMG doesn't have one yet,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1179 it is guessed heuristically. If non-zero, XIMG is an existing
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1180 XImage object (or device context with the image selected on W32) to
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1181 use for the heuristic. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1182
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1183 RGB_PIXEL_COLOR
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1184 image_background (img, f, ximg)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1185 struct image *img;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1186 struct frame *f;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1187 XImagePtr_or_DC ximg;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1188 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1189 if (! img->background_valid)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1190 /* IMG doesn't have a background yet, try to guess a reasonable value. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1191 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1192 int free_ximg = !ximg;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1193 #ifdef HAVE_NTGUI
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1194 HGDIOBJ prev;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1195 #endif /* HAVE_NTGUI */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1196
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1197 if (free_ximg)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1198 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1199 #ifndef HAVE_NTGUI
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1200 ximg = XGetImage (FRAME_X_DISPLAY (f), img->pixmap,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1201 0, 0, img->width, img->height, ~0, ZPixmap);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1202 #else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1203 HDC frame_dc = get_frame_dc (f);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1204 ximg = CreateCompatibleDC (frame_dc);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1205 release_frame_dc (f, frame_dc);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1206 prev = SelectObject (ximg, img->pixmap);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1207 #endif /* !HAVE_NTGUI */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1208 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1209
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1210 img->background = four_corners_best (ximg, img->width, img->height);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1211
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1212 if (free_ximg)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1213 Destroy_Image (ximg, prev);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1214
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1215 img->background_valid = 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1216 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1217
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1218 return img->background;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1219 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1220
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1221 /* Return the `background_transparent' field of IMG. If IMG doesn't
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1222 have one yet, it is guessed heuristically. If non-zero, MASK is an
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1223 existing XImage object to use for the heuristic. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1224
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1225 int
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1226 image_background_transparent (img, f, mask)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1227 struct image *img;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1228 struct frame *f;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1229 XImagePtr_or_DC mask;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1230 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1231 if (! img->background_transparent_valid)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1232 /* IMG doesn't have a background yet, try to guess a reasonable value. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1233 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1234 if (img->mask)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1235 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1236 int free_mask = !mask;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1237 #ifdef HAVE_NTGUI
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1238 HGDIOBJ prev;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1239 #endif /* HAVE_NTGUI */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1240
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1241 if (free_mask)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1242 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1243 #ifndef HAVE_NTGUI
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1244 mask = XGetImage (FRAME_X_DISPLAY (f), img->mask,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1245 0, 0, img->width, img->height, ~0, ZPixmap);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1246 #else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1247 HDC frame_dc = get_frame_dc (f);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1248 mask = CreateCompatibleDC (frame_dc);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1249 release_frame_dc (f, frame_dc);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1250 prev = SelectObject (mask, img->mask);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1251 #endif /* HAVE_NTGUI */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1252 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1253
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1254 img->background_transparent
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1255 = (four_corners_best (mask, img->width, img->height) == PIX_MASK_RETAIN (f));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1256
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1257 if (free_mask)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1258 Destroy_Image (mask, prev);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1259 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1260 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1261 img->background_transparent = 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1262
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1263 img->background_transparent_valid = 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1264 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1265
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1266 return img->background_transparent;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1267 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1268
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1269
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1270 /***********************************************************************
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1271 Helper functions for X image types
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1272 ***********************************************************************/
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1273
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1274 static void x_clear_image_1 P_ ((struct frame *, struct image *, int,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1275 int, int));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1276 static void x_clear_image P_ ((struct frame *f, struct image *img));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1277 static unsigned long x_alloc_image_color P_ ((struct frame *f,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1278 struct image *img,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1279 Lisp_Object color_name,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1280 unsigned long dflt));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1281
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1282
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1283 /* Clear X resources of image IMG on frame F. PIXMAP_P non-zero means
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1284 free the pixmap if any. MASK_P non-zero means clear the mask
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1285 pixmap if any. COLORS_P non-zero means free colors allocated for
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1286 the image, if any. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1287
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1288 static void
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1289 x_clear_image_1 (f, img, pixmap_p, mask_p, colors_p)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1290 struct frame *f;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1291 struct image *img;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1292 int pixmap_p, mask_p, colors_p;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1293 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1294 if (pixmap_p && img->pixmap)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1295 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1296 Free_Pixmap (FRAME_X_DISPLAY (f), img->pixmap);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1297 img->pixmap = NO_PIXMAP;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1298 img->background_valid = 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1299 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1300
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1301 if (mask_p && img->mask)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1302 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1303 Free_Pixmap (FRAME_X_DISPLAY (f), img->mask);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1304 img->mask = NO_PIXMAP;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1305 img->background_transparent_valid = 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1306 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1307
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1308 if (colors_p && img->ncolors)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1309 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1310 /* MAC_TODO: color table support. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1311 /* W32_TODO: color table support. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1312 #ifdef HAVE_X_WINDOWS
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1313 x_free_colors (f, img->colors, img->ncolors);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1314 #endif /* HAVE_X_WINDOWS */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1315 xfree (img->colors);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1316 img->colors = NULL;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1317 img->ncolors = 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1318 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1319 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1320
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1321 /* Free X resources of image IMG which is used on frame F. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1322
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1323 static void
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1324 x_clear_image (f, img)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1325 struct frame *f;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1326 struct image *img;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1327 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1328 BLOCK_INPUT;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1329 x_clear_image_1 (f, img, 1, 1, 1);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1330 UNBLOCK_INPUT;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1331 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1332
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1333
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1334 /* Allocate color COLOR_NAME for image IMG on frame F. If color
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1335 cannot be allocated, use DFLT. Add a newly allocated color to
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1336 IMG->colors, so that it can be freed again. Value is the pixel
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1337 color. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1338
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1339 static unsigned long
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1340 x_alloc_image_color (f, img, color_name, dflt)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1341 struct frame *f;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1342 struct image *img;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1343 Lisp_Object color_name;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1344 unsigned long dflt;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1345 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1346 XColor color;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1347 unsigned long result;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1348
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1349 xassert (STRINGP (color_name));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1350
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1351 if (x_defined_color (f, SDATA (color_name), &color, 1))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1352 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1353 /* This isn't called frequently so we get away with simply
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1354 reallocating the color vector to the needed size, here. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1355 ++img->ncolors;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1356 img->colors =
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1357 (unsigned long *) xrealloc (img->colors,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1358 img->ncolors * sizeof *img->colors);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1359 img->colors[img->ncolors - 1] = color.pixel;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1360 result = color.pixel;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1361 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1362 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1363 result = dflt;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1364
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1365 return result;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1366 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1367
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1368
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1369
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1370 /***********************************************************************
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1371 Image Cache
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1372 ***********************************************************************/
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1373
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1374 static void cache_image P_ ((struct frame *f, struct image *img));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1375 static void postprocess_image P_ ((struct frame *, struct image *));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1376
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1377 /* Return a new, initialized image cache that is allocated from the
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1378 heap. Call free_image_cache to free an image cache. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1379
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1380 struct image_cache *
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1381 make_image_cache ()
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1382 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1383 struct image_cache *c = (struct image_cache *) xmalloc (sizeof *c);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1384 int size;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1385
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1386 bzero (c, sizeof *c);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1387 c->size = 50;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1388 c->images = (struct image **) xmalloc (c->size * sizeof *c->images);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1389 size = IMAGE_CACHE_BUCKETS_SIZE * sizeof *c->buckets;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1390 c->buckets = (struct image **) xmalloc (size);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1391 bzero (c->buckets, size);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1392 return c;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1393 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1394
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1395
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1396 /* Free image cache of frame F. Be aware that X frames share images
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1397 caches. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1398
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1399 void
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1400 free_image_cache (f)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1401 struct frame *f;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1402 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1403 struct image_cache *c = FRAME_X_IMAGE_CACHE (f);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1404 if (c)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1405 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1406 int i;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1407
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1408 /* Cache should not be referenced by any frame when freed. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1409 xassert (c->refcount == 0);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1410
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1411 for (i = 0; i < c->used; ++i)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1412 free_image (f, c->images[i]);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1413 xfree (c->images);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1414 xfree (c->buckets);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1415 xfree (c);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1416 FRAME_X_IMAGE_CACHE (f) = NULL;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1417 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1418 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1419
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1420
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1421 /* Clear image cache of frame F. FORCE_P non-zero means free all
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1422 images. FORCE_P zero means clear only images that haven't been
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1423 displayed for some time. Should be called from time to time to
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1424 reduce the number of loaded images. If image-eviction-seconds is
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1425 non-nil, this frees images in the cache which weren't displayed for
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1426 at least that many seconds. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1427
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1428 void
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1429 clear_image_cache (f, force_p)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1430 struct frame *f;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1431 int force_p;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1432 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1433 struct image_cache *c = FRAME_X_IMAGE_CACHE (f);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1434
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1435 if (c && INTEGERP (Vimage_cache_eviction_delay))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1436 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1437 EMACS_TIME t;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1438 unsigned long old;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1439 int i, nfreed;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1440
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1441 EMACS_GET_TIME (t);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1442 old = EMACS_SECS (t) - XFASTINT (Vimage_cache_eviction_delay);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1443
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1444 /* Block input so that we won't be interrupted by a SIGIO
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1445 while being in an inconsistent state. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1446 BLOCK_INPUT;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1447
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1448 for (i = nfreed = 0; i < c->used; ++i)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1449 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1450 struct image *img = c->images[i];
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1451 if (img != NULL
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1452 && (force_p || img->timestamp < old))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1453 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1454 free_image (f, img);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1455 ++nfreed;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1456 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1457 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1458
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1459 /* We may be clearing the image cache because, for example,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1460 Emacs was iconified for a longer period of time. In that
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1461 case, current matrices may still contain references to
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1462 images freed above. So, clear these matrices. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1463 if (nfreed)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1464 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1465 Lisp_Object tail, frame;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1466
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1467 FOR_EACH_FRAME (tail, frame)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1468 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1469 struct frame *f = XFRAME (frame);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1470 if (FRAME_WINDOW_P (f)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1471 && FRAME_X_IMAGE_CACHE (f) == c)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1472 clear_current_matrices (f);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1473 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1474
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1475 ++windows_or_buffers_changed;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1476 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1477
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1478 UNBLOCK_INPUT;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1479 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1480 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1481
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1482
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1483 DEFUN ("clear-image-cache", Fclear_image_cache, Sclear_image_cache,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1484 0, 1, 0,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1485 doc: /* Clear the image cache of FRAME.
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1486 FRAME nil or omitted means use the selected frame.
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1487 FRAME t means clear the image caches of all frames. */)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1488 (frame)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1489 Lisp_Object frame;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1490 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1491 if (EQ (frame, Qt))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1492 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1493 Lisp_Object tail;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1494
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1495 FOR_EACH_FRAME (tail, frame)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1496 if (FRAME_WINDOW_P (XFRAME (frame)))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1497 clear_image_cache (XFRAME (frame), 1);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1498 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1499 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1500 clear_image_cache (check_x_frame (frame), 1);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1501
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1502 return Qnil;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1503 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1504
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1505
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1506 /* Compute masks and transform image IMG on frame F, as specified
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1507 by the image's specification, */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1508
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1509 static void
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1510 postprocess_image (f, img)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1511 struct frame *f;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1512 struct image *img;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1513 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1514 /* Manipulation of the image's mask. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1515 if (img->pixmap)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1516 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1517 Lisp_Object conversion, spec;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1518 Lisp_Object mask;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1519
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1520 spec = img->spec;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1521
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1522 /* `:heuristic-mask t'
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1523 `:mask heuristic'
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1524 means build a mask heuristically.
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1525 `:heuristic-mask (R G B)'
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1526 `:mask (heuristic (R G B))'
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1527 means build a mask from color (R G B) in the
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1528 image.
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1529 `:mask nil'
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1530 means remove a mask, if any. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1531
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1532 mask = image_spec_value (spec, QCheuristic_mask, NULL);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1533 if (!NILP (mask))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1534 x_build_heuristic_mask (f, img, mask);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1535 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1536 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1537 int found_p;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1538
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1539 mask = image_spec_value (spec, QCmask, &found_p);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1540
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1541 if (EQ (mask, Qheuristic))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1542 x_build_heuristic_mask (f, img, Qt);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1543 else if (CONSP (mask)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1544 && EQ (XCAR (mask), Qheuristic))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1545 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1546 if (CONSP (XCDR (mask)))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1547 x_build_heuristic_mask (f, img, XCAR (XCDR (mask)));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1548 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1549 x_build_heuristic_mask (f, img, XCDR (mask));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1550 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1551 else if (NILP (mask) && found_p && img->mask)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1552 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1553 Free_Pixmap (FRAME_X_DISPLAY (f), img->mask);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1554 img->mask = NO_PIXMAP;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1555 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1556 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1557
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1558
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1559 /* Should we apply an image transformation algorithm? */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1560 conversion = image_spec_value (spec, QCconversion, NULL);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1561 if (EQ (conversion, Qdisabled))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1562 x_disable_image (f, img);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1563 else if (EQ (conversion, Qlaplace))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1564 x_laplace (f, img);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1565 else if (EQ (conversion, Qemboss))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1566 x_emboss (f, img);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1567 else if (CONSP (conversion)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1568 && EQ (XCAR (conversion), Qedge_detection))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1569 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1570 Lisp_Object tem;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1571 tem = XCDR (conversion);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1572 if (CONSP (tem))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1573 x_edge_detection (f, img,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1574 Fplist_get (tem, QCmatrix),
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1575 Fplist_get (tem, QCcolor_adjustment));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1576 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1577 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1578 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1579
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1580
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1581 /* Return the id of image with Lisp specification SPEC on frame F.
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1582 SPEC must be a valid Lisp image specification (see valid_image_p). */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1583
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1584 int
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1585 lookup_image (f, spec)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1586 struct frame *f;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1587 Lisp_Object spec;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1588 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1589 struct image_cache *c = FRAME_X_IMAGE_CACHE (f);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1590 struct image *img;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1591 int i;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1592 unsigned hash;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1593 struct gcpro gcpro1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1594 EMACS_TIME now;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1595
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1596 /* F must be a window-system frame, and SPEC must be a valid image
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1597 specification. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1598 xassert (FRAME_WINDOW_P (f));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1599 xassert (valid_image_p (spec));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1600
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1601 GCPRO1 (spec);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1602
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1603 /* Look up SPEC in the hash table of the image cache. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1604 hash = sxhash (spec, 0);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1605 i = hash % IMAGE_CACHE_BUCKETS_SIZE;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1606
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1607 for (img = c->buckets[i]; img; img = img->next)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1608 if (img->hash == hash && !NILP (Fequal (img->spec, spec)))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1609 break;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1610
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1611 /* If not found, create a new image and cache it. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1612 if (img == NULL)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1613 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1614 extern Lisp_Object Qpostscript;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1615
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1616 BLOCK_INPUT;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1617 img = make_image (spec, hash);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1618 cache_image (f, img);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1619 img->load_failed_p = img->type->load (f, img) == 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1620
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1621 /* If we can't load the image, and we don't have a width and
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1622 height, use some arbitrary width and height so that we can
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1623 draw a rectangle for it. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1624 if (img->load_failed_p)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1625 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1626 Lisp_Object value;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1627
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1628 value = image_spec_value (spec, QCwidth, NULL);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1629 img->width = (INTEGERP (value)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1630 ? XFASTINT (value) : DEFAULT_IMAGE_WIDTH);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1631 value = image_spec_value (spec, QCheight, NULL);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1632 img->height = (INTEGERP (value)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1633 ? XFASTINT (value) : DEFAULT_IMAGE_HEIGHT);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1634 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1635 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1636 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1637 /* Handle image type independent image attributes
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1638 `:ascent ASCENT', `:margin MARGIN', `:relief RELIEF',
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1639 `:background COLOR'. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1640 Lisp_Object ascent, margin, relief, bg;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1641
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1642 ascent = image_spec_value (spec, QCascent, NULL);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1643 if (INTEGERP (ascent))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1644 img->ascent = XFASTINT (ascent);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1645 else if (EQ (ascent, Qcenter))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1646 img->ascent = CENTERED_IMAGE_ASCENT;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1647
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1648 margin = image_spec_value (spec, QCmargin, NULL);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1649 if (INTEGERP (margin) && XINT (margin) >= 0)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1650 img->vmargin = img->hmargin = XFASTINT (margin);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1651 else if (CONSP (margin) && INTEGERP (XCAR (margin))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1652 && INTEGERP (XCDR (margin)))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1653 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1654 if (XINT (XCAR (margin)) > 0)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1655 img->hmargin = XFASTINT (XCAR (margin));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1656 if (XINT (XCDR (margin)) > 0)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1657 img->vmargin = XFASTINT (XCDR (margin));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1658 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1659
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1660 relief = image_spec_value (spec, QCrelief, NULL);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1661 if (INTEGERP (relief))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1662 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1663 img->relief = XINT (relief);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1664 img->hmargin += abs (img->relief);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1665 img->vmargin += abs (img->relief);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1666 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1667
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1668 if (! img->background_valid)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1669 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1670 bg = image_spec_value (img->spec, QCbackground, NULL);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1671 if (!NILP (bg))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1672 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1673 img->background
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1674 = x_alloc_image_color (f, img, bg,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1675 FRAME_BACKGROUND_PIXEL (f));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1676 img->background_valid = 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1677 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1678 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1679
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1680 /* Do image transformations and compute masks, unless we
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1681 don't have the image yet. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1682 if (!EQ (*img->type->type, Qpostscript))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1683 postprocess_image (f, img);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1684 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1685
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1686 UNBLOCK_INPUT;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1687 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1688
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1689 /* We're using IMG, so set its timestamp to `now'. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1690 EMACS_GET_TIME (now);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1691 img->timestamp = EMACS_SECS (now);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1692
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1693 UNGCPRO;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1694
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1695 /* Value is the image id. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1696 return img->id;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1697 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1698
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1699
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1700 /* Cache image IMG in the image cache of frame F. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1701
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1702 static void
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1703 cache_image (f, img)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1704 struct frame *f;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1705 struct image *img;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1706 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1707 struct image_cache *c = FRAME_X_IMAGE_CACHE (f);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1708 int i;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1709
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1710 /* Find a free slot in c->images. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1711 for (i = 0; i < c->used; ++i)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1712 if (c->images[i] == NULL)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1713 break;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1714
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1715 /* If no free slot found, maybe enlarge c->images. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1716 if (i == c->used && c->used == c->size)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1717 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1718 c->size *= 2;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1719 c->images = (struct image **) xrealloc (c->images,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1720 c->size * sizeof *c->images);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1721 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1722
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1723 /* Add IMG to c->images, and assign IMG an id. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1724 c->images[i] = img;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1725 img->id = i;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1726 if (i == c->used)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1727 ++c->used;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1728
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1729 /* Add IMG to the cache's hash table. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1730 i = img->hash % IMAGE_CACHE_BUCKETS_SIZE;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1731 img->next = c->buckets[i];
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1732 if (img->next)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1733 img->next->prev = img;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1734 img->prev = NULL;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1735 c->buckets[i] = img;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1736 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1737
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1738
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1739 /* Call FN on every image in the image cache of frame F. Used to mark
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1740 Lisp Objects in the image cache. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1741
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1742 void
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1743 forall_images_in_image_cache (f, fn)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1744 struct frame *f;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1745 void (*fn) P_ ((struct image *img));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1746 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1747 if (FRAME_LIVE_P (f) && FRAME_WINDOW_P (f))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1748 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1749 struct image_cache *c = FRAME_X_IMAGE_CACHE (f);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1750 if (c)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1751 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1752 int i;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1753 for (i = 0; i < c->used; ++i)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1754 if (c->images[i])
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1755 fn (c->images[i]);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1756 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1757 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1758 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1759
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1760
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1761
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1762 /***********************************************************************
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1763 X / MAC / W32 support code
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1764 ***********************************************************************/
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1765
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1766 #ifdef HAVE_NTGUI
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1767
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1768 /* Macro for defining functions that will be loaded from image DLLs. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1769 #define DEF_IMGLIB_FN(func) FARPROC fn_##func
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1770
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1771 /* Macro for loading those image functions from the library. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1772 #define LOAD_IMGLIB_FN(lib,func) { \
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1773 fn_##func = (void *) GetProcAddress (lib, #func); \
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1774 if (!fn_##func) return 0; \
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1775 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1776
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1777 #endif /* HAVE_NTGUI */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1778
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1779 static int x_create_x_image_and_pixmap P_ ((struct frame *, int, int, int,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1780 XImagePtr *, Pixmap *));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1781 static void x_destroy_x_image P_ ((XImagePtr));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1782 static void x_put_x_image P_ ((struct frame *, XImagePtr, Pixmap, int, int));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1783
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1784
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1785 /* Create an XImage and a pixmap of size WIDTH x HEIGHT for use on
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1786 frame F. Set *XIMG and *PIXMAP to the XImage and Pixmap created.
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1787 Set (*XIMG)->data to a raster of WIDTH x HEIGHT pixels allocated
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1788 via xmalloc. Print error messages via image_error if an error
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1789 occurs. Value is non-zero if successful.
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1790
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1791 On W32, a DEPTH of zero signifies a 24 bit image, otherwise DEPTH
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1792 should indicate the bit depth of the image. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1793
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1794 static int
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1795 x_create_x_image_and_pixmap (f, width, height, depth, ximg, pixmap)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1796 struct frame *f;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1797 int width, height, depth;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1798 XImagePtr *ximg;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1799 Pixmap *pixmap;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1800 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1801 #ifdef HAVE_X_WINDOWS
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1802 Display *display = FRAME_X_DISPLAY (f);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1803 Window window = FRAME_X_WINDOW (f);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1804 Screen *screen = FRAME_X_SCREEN (f);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1805
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1806 xassert (interrupt_input_blocked);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1807
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1808 if (depth <= 0)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1809 depth = DefaultDepthOfScreen (screen);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1810 *ximg = XCreateImage (display, DefaultVisualOfScreen (screen),
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1811 depth, ZPixmap, 0, NULL, width, height,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1812 depth > 16 ? 32 : depth > 8 ? 16 : 8, 0);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1813 if (*ximg == NULL)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1814 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1815 image_error ("Unable to allocate X image", Qnil, Qnil);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1816 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1817 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1818
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1819 /* Allocate image raster. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1820 (*ximg)->data = (char *) xmalloc ((*ximg)->bytes_per_line * height);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1821
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1822 /* Allocate a pixmap of the same size. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1823 *pixmap = XCreatePixmap (display, window, width, height, depth);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1824 if (*pixmap == NO_PIXMAP)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1825 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1826 x_destroy_x_image (*ximg);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1827 *ximg = NULL;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1828 image_error ("Unable to create X pixmap", Qnil, Qnil);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1829 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1830 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1831
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1832 return 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1833 #endif /* HAVE_X_WINDOWS */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1834
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1835 #ifdef HAVE_NTGUI
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1836
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1837 BITMAPINFOHEADER *header;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1838 HDC hdc;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1839 int scanline_width_bits;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1840 int remainder;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1841 int palette_colors = 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1842
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1843 if (depth == 0)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1844 depth = 24;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1845
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1846 if (depth != 1 && depth != 4 && depth != 8
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1847 && depth != 16 && depth != 24 && depth != 32)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1848 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1849 image_error ("Invalid image bit depth specified", Qnil, Qnil);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1850 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1851 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1852
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1853 scanline_width_bits = width * depth;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1854 remainder = scanline_width_bits % 32;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1855
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1856 if (remainder)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1857 scanline_width_bits += 32 - remainder;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1858
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1859 /* Bitmaps with a depth less than 16 need a palette. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1860 /* BITMAPINFO structure already contains the first RGBQUAD. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1861 if (depth < 16)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1862 palette_colors = 1 << depth - 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1863
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1864 *ximg = xmalloc (sizeof (XImage) + palette_colors * sizeof (RGBQUAD));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1865 if (*ximg == NULL)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1866 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1867 image_error ("Unable to allocate memory for XImage", Qnil, Qnil);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1868 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1869 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1870
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1871 header = &((*ximg)->info.bmiHeader);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1872 bzero (&((*ximg)->info), sizeof (BITMAPINFO));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1873 header->biSize = sizeof (*header);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1874 header->biWidth = width;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1875 header->biHeight = -height; /* negative indicates a top-down bitmap. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1876 header->biPlanes = 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1877 header->biBitCount = depth;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1878 header->biCompression = BI_RGB;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1879 header->biClrUsed = palette_colors;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1880
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1881 /* TODO: fill in palette. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1882 if (depth == 1)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1883 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1884 (*ximg)->info.bmiColors[0].rgbBlue = 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1885 (*ximg)->info.bmiColors[0].rgbGreen = 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1886 (*ximg)->info.bmiColors[0].rgbRed = 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1887 (*ximg)->info.bmiColors[0].rgbReserved = 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1888 (*ximg)->info.bmiColors[1].rgbBlue = 255;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1889 (*ximg)->info.bmiColors[1].rgbGreen = 255;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1890 (*ximg)->info.bmiColors[1].rgbRed = 255;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1891 (*ximg)->info.bmiColors[1].rgbReserved = 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1892 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1893
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1894 hdc = get_frame_dc (f);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1895
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1896 /* Create a DIBSection and raster array for the bitmap,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1897 and store its handle in *pixmap. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1898 *pixmap = CreateDIBSection (hdc, &((*ximg)->info),
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1899 (depth < 16) ? DIB_PAL_COLORS : DIB_RGB_COLORS,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1900 &((*ximg)->data), NULL, 0);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1901
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1902 /* Realize display palette and garbage all frames. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1903 release_frame_dc (f, hdc);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1904
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1905 if (*pixmap == NULL)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1906 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1907 DWORD err = GetLastError();
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1908 Lisp_Object errcode;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1909 /* All system errors are < 10000, so the following is safe. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1910 XSETINT (errcode, (int) err);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1911 image_error ("Unable to create bitmap, error code %d", errcode, Qnil);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1912 x_destroy_x_image (*ximg);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1913 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1914 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1915
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1916 return 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1917
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1918 #endif /* HAVE_NTGUI */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1919
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1920 #ifdef MAC_OS
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1921 Display *display = FRAME_X_DISPLAY (f);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1922 Window window = FRAME_X_WINDOW (f);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1923
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1924 xassert (interrupt_input_blocked);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1925
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1926 /* Allocate a pixmap of the same size. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1927 *pixmap = XCreatePixmap (display, window, width, height, depth);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1928 if (*pixmap == NO_PIXMAP)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1929 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1930 x_destroy_x_image (*ximg);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1931 *ximg = NULL;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1932 image_error ("Unable to create X pixmap", Qnil, Qnil);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1933 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1934 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1935
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1936 LockPixels (GetGWorldPixMap (*pixmap));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1937 *ximg = *pixmap;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1938 return 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1939
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1940 #endif /* MAC_OS */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1941 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1942
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1943
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1944 /* Destroy XImage XIMG. Free XIMG->data. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1945
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1946 static void
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1947 x_destroy_x_image (ximg)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1948 XImagePtr ximg;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1949 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1950 xassert (interrupt_input_blocked);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1951 if (ximg)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1952 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1953 #ifdef HAVE_X_WINDOWS
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1954 xfree (ximg->data);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1955 ximg->data = NULL;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1956 XDestroyImage (ximg);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1957 #endif /* HAVE_X_WINDOWS */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1958 #ifdef HAVE_NTGUI
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1959 /* Data will be freed by DestroyObject. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1960 ximg->data = NULL;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1961 xfree (ximg);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1962 #endif /* HAVE_NTGUI */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1963 #ifdef MAC_OS
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1964 XDestroyImage (ximg);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1965 #endif /* MAC_OS */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1966 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1967 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1968
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1969
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1970 /* Put XImage XIMG into pixmap PIXMAP on frame F. WIDTH and HEIGHT
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1971 are width and height of both the image and pixmap. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1972
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1973 static void
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1974 x_put_x_image (f, ximg, pixmap, width, height)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1975 struct frame *f;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1976 XImagePtr ximg;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1977 Pixmap pixmap;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1978 int width, height;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1979 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1980 #ifdef HAVE_X_WINDOWS
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1981 GC gc;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1982
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1983 xassert (interrupt_input_blocked);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1984 gc = XCreateGC (FRAME_X_DISPLAY (f), pixmap, 0, NULL);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1985 XPutImage (FRAME_X_DISPLAY (f), pixmap, gc, ximg, 0, 0, 0, 0, width, height);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1986 XFreeGC (FRAME_X_DISPLAY (f), gc);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1987 #endif /* HAVE_X_WINDOWS */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1988
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1989 #ifdef HAVE_NTGUI
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1990 #if 0 /* I don't think this is necessary looking at where it is used. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1991 HDC hdc = get_frame_dc (f);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1992 SetDIBits (hdc, pixmap, 0, height, ximg->data, &(ximg->info), DIB_RGB_COLORS);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1993 release_frame_dc (f, hdc);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1994 #endif
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1995 #endif /* HAVE_NTGUI */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1996
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1997 #ifdef MAC_OS
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1998 xassert (ximg == pixmap);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1999 #endif /* MAC_OS */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2000 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2001
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2002
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2003 /***********************************************************************
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2004 File Handling
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2005 ***********************************************************************/
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2006
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2007 static Lisp_Object x_find_image_file P_ ((Lisp_Object));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2008 static unsigned char *slurp_file P_ ((char *, int *));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2009
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2010
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2011 /* Find image file FILE. Look in data-directory, then
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2012 x-bitmap-file-path. Value is the full name of the file found, or
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2013 nil if not found. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2014
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2015 static Lisp_Object
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2016 x_find_image_file (file)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2017 Lisp_Object file;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2018 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2019 Lisp_Object file_found, search_path;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2020 struct gcpro gcpro1, gcpro2;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2021 int fd;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2022
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2023 file_found = Qnil;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2024 search_path = Fcons (Vdata_directory, Vx_bitmap_file_path);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2025 GCPRO2 (file_found, search_path);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2026
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2027 /* Try to find FILE in data-directory, then x-bitmap-file-path. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2028 fd = openp (search_path, file, Qnil, &file_found, Qnil);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2029
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2030 if (fd == -1)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2031 file_found = Qnil;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2032 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2033 close (fd);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2034
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2035 UNGCPRO;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2036 return file_found;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2037 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2038
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2039
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2040 /* Read FILE into memory. Value is a pointer to a buffer allocated
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2041 with xmalloc holding FILE's contents. Value is null if an error
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2042 occurred. *SIZE is set to the size of the file. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2043
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2044 static unsigned char *
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2045 slurp_file (file, size)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2046 char *file;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2047 int *size;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2048 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2049 FILE *fp = NULL;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2050 unsigned char *buf = NULL;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2051 struct stat st;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2052
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2053 if (stat (file, &st) == 0
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2054 && (fp = fopen (file, "rb")) != NULL
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2055 && (buf = (char *) xmalloc (st.st_size),
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2056 fread (buf, 1, st.st_size, fp) == st.st_size))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2057 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2058 *size = st.st_size;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2059 fclose (fp);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2060 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2061 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2062 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2063 if (fp)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2064 fclose (fp);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2065 if (buf)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2066 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2067 xfree (buf);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2068 buf = NULL;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2069 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2070 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2071
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2072 return buf;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2073 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2074
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2075
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2076
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2077 #ifdef MAC_OS
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2078
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2079 /***********************************************************************
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2080 MAC Image Load Functions
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2081 ***********************************************************************/
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2082
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2083 static int image_load_quicktime P_ ((struct frame *, struct image *img,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2084 OSType));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2085 #ifdef MAC_OSX
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2086 static int image_load_quartz2d P_ ((struct frame *, struct image *img, int));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2087 #endif
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2088
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2089 static OSErr
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2090 find_image_fsspec (specified_file, file, fss)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2091 Lisp_Object specified_file, *file;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2092 FSSpec *fss;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2093 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2094 #if TARGET_API_MAC_CARBON
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2095 FSRef fsr;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2096 #else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2097 Str255 mac_pathname;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2098 #endif
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2099 OSErr err;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2100
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2101 *file = x_find_image_file (specified_file);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2102 if (!STRINGP (*file))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2103 return fnfErr; /* file or directory not found;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2104 incomplete pathname */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2105 /* Try to open the image file. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2106 #if TARGET_API_MAC_CARBON
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2107 err = FSPathMakeRef (SDATA (*file), &fsr, NULL);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2108 if (err == noErr)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2109 err = FSGetCatalogInfo (&fsr, kFSCatInfoNone, NULL, NULL, fss, NULL);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2110 #else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2111 if (posix_to_mac_pathname (SDATA (*file), mac_pathname, MAXPATHLEN+1) == 0)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2112 return fnfErr;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2113 c2pstr (mac_pathname);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2114 err = FSMakeFSSpec (0, 0, mac_pathname, fss);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2115 #endif
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2116 return err;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2117 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2118
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2119 static int
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2120 image_load_qt_1 (f, img, type, fss, dh)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2121 struct frame *f;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2122 struct image *img;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2123 OSType type;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2124 FSSpec *fss;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2125 Handle dh;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2126 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2127 OSErr err;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2128 GraphicsImportComponent gi;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2129 Rect rect;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2130 int width, height;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2131 short draw_all_pixels;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2132 Lisp_Object specified_bg;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2133 XColor color;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2134 XImagePtr ximg;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2135 RGBColor bg_color;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2136
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2137 err = OpenADefaultComponent (GraphicsImporterComponentType,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2138 type, &gi);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2139 if (err != noErr)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2140 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2141 image_error ("Cannot get importer component for `%s'", img->spec, Qnil);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2142 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2143 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2144 if (dh == NULL)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2145 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2146 /* read from file system spec */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2147 err = GraphicsImportSetDataFile (gi, fss);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2148 if (err != noErr)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2149 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2150 image_error ("Cannot set fsspec to graphics importer for '%s'",
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2151 img->spec, Qnil);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2152 goto error;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2153 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2154 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2155 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2156 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2157 /* read from data handle */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2158 err = GraphicsImportSetDataHandle (gi, dh);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2159 if (err != noErr)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2160 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2161 image_error ("Cannot set data handle to graphics importer for `%s'",
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2162 img->spec, Qnil);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2163 goto error;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2164 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2165 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2166 err = GraphicsImportGetNaturalBounds (gi, &rect);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2167 if (err != noErr)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2168 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2169 image_error ("Error reading `%s'", img->spec, Qnil);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2170 goto error;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2171 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2172 width = img->width = rect.right - rect.left;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2173 height = img->height = rect.bottom - rect.top;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2174 err = GraphicsImportDoesDrawAllPixels (gi, &draw_all_pixels);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2175 #if 0
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2176 /* Don't check the error code here. It may have an undocumented
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2177 value -32766. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2178 if (err != noErr)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2179 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2180 image_error ("Error reading `%s'", img->spec, Qnil);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2181 goto error;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2182 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2183 #endif
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2184 if (draw_all_pixels != graphicsImporterDrawsAllPixels)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2185 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2186 specified_bg = image_spec_value (img->spec, QCbackground, NULL);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2187 if (!STRINGP (specified_bg) ||
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2188 !mac_defined_color (f, SDATA (specified_bg), &color, 0))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2189 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2190 color.pixel = FRAME_BACKGROUND_PIXEL (f);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2191 color.red = RED16_FROM_ULONG (color.pixel);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2192 color.green = GREEN16_FROM_ULONG (color.pixel);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2193 color.blue = BLUE16_FROM_ULONG (color.pixel);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2194 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2195 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2196
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2197 if (!x_create_x_image_and_pixmap (f, width, height, 0, &ximg, &img->pixmap))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2198 goto error;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2199 if (draw_all_pixels != graphicsImporterDrawsAllPixels)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2200 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2201 SetGWorld (ximg, NULL);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2202 bg_color.red = color.red;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2203 bg_color.green = color.green;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2204 bg_color.blue = color.blue;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2205 RGBBackColor (&bg_color);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2206 #if TARGET_API_MAC_CARBON
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2207 GetPortBounds (ximg, &rect);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2208 EraseRect (&rect);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2209 #else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2210 EraseRect (&(ximg->portRect));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2211 #endif
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2212 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2213 GraphicsImportSetGWorld (gi, ximg, NULL);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2214 GraphicsImportDraw (gi);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2215 CloseComponent (gi);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2216
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2217 /* Maybe fill in the background field while we have ximg handy. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2218 if (NILP (image_spec_value (img->spec, QCbackground, NULL)))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2219 IMAGE_BACKGROUND (img, f, ximg);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2220
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2221 /* Put the image into the pixmap. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2222 x_put_x_image (f, ximg, img->pixmap, width, height);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2223 x_destroy_x_image (ximg);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2224 return 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2225
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2226 error:
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2227 CloseComponent (gi);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2228 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2229 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2230
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2231
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2232 /* Load an image using the QuickTime Graphics Importer.
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2233 Note: The alpha channel does not work for PNG images. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2234 static int
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2235 image_load_quicktime (f, img, type)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2236 struct frame *f;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2237 struct image *img;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2238 OSType type;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2239 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2240 Lisp_Object specified_file;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2241 Lisp_Object specified_data;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2242 OSErr err;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2243
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2244 specified_file = image_spec_value (img->spec, QCfile, NULL);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2245 specified_data = image_spec_value (img->spec, QCdata, NULL);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2246
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2247 if (NILP (specified_data))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2248 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2249 /* Read from a file */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2250 Lisp_Object file;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2251 FSSpec fss;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2252
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2253 err = find_image_fsspec (specified_file, &file, &fss);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2254 if (err != noErr)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2255 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2256 if (err == fnfErr)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2257 image_error ("Cannot find image file `%s'", specified_file, Qnil);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2258 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2259 image_error ("Cannot open `%s'", file, Qnil);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2260 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2261 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2262 return image_load_qt_1 (f, img, type, &fss, NULL);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2263 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2264 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2265 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2266 /* Memory source! */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2267 int success_p;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2268 Handle dh;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2269
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2270 err = PtrToHand (SDATA (specified_data), &dh, SBYTES (specified_data));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2271 if (err != noErr)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2272 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2273 image_error ("Cannot allocate data handle for `%s'",
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2274 img->spec, Qnil);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2275 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2276 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2277 success_p = image_load_qt_1 (f, img, type, NULL, dh);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2278 DisposeHandle (dh);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2279 return success_p;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2280 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2281 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2282
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2283
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2284 #ifdef MAC_OSX
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2285 /* Load a PNG/JPEG image using Quartz 2D decoding routines.
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2286 CGImageCreateWithPNGDataProvider is provided after Mac OS X 10.2.
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2287 So don't use this function directly but determine at runtime
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2288 whether it exists. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2289 typedef CGImageRef (*CGImageCreateWithPNGDataProviderProcType)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2290 (CGDataProviderRef, const float [], bool, CGColorRenderingIntent);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2291 static CGImageCreateWithPNGDataProviderProcType MyCGImageCreateWithPNGDataProvider;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2292
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2293
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2294 static void
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2295 init_image_func_pointer ()
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2296 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2297 if (NSIsSymbolNameDefined ("_CGImageCreateWithPNGDataProvider"))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2298 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2299 MyCGImageCreateWithPNGDataProvider
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2300 = (CGImageCreateWithPNGDataProviderProcType)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2301 NSAddressOfSymbol (NSLookupAndBindSymbol
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2302 ("_CGImageCreateWithPNGDataProvider"));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2303 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2304 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2305 MyCGImageCreateWithPNGDataProvider = NULL;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2306 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2307
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2308
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2309 static int
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2310 image_load_quartz2d (f, img, png_p)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2311 struct frame *f;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2312 struct image *img;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2313 int png_p;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2314 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2315 Lisp_Object file, specified_file;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2316 Lisp_Object specified_data, specified_bg;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2317 struct gcpro gcpro1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2318 CGDataProviderRef source;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2319 CGImageRef image;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2320 int width, height;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2321 XColor color;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2322 XImagePtr ximg = NULL;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2323 CGContextRef context;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2324 CGRect rectangle;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2325
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2326 /* Open the file. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2327 specified_file = image_spec_value (img->spec, QCfile, NULL);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2328 specified_data = image_spec_value (img->spec, QCdata, NULL);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2329
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2330 file = Qnil;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2331 GCPRO1 (file);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2332
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2333 if (NILP (specified_data))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2334 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2335 CFStringRef path;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2336 CFURLRef url;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2337
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2338 file = x_find_image_file (specified_file);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2339 if (!STRINGP (file))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2340 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2341 image_error ("Cannot find image file `%s'", specified_file, Qnil);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2342 UNGCPRO;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2343 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2344 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2345 path = CFStringCreateWithCString (NULL, SDATA (file),
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2346 kCFStringEncodingUTF8);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2347 url = CFURLCreateWithFileSystemPath (NULL, path,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2348 kCFURLPOSIXPathStyle, 0);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2349 CFRelease (path);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2350 source = CGDataProviderCreateWithURL (url);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2351 CFRelease (url);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2352 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2353 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2354 source = CGDataProviderCreateWithData (NULL, SDATA (specified_data),
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2355 SBYTES (specified_data), NULL);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2356
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2357 if (png_p)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2358 image = (*MyCGImageCreateWithPNGDataProvider) (source, NULL, FALSE,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2359 kCGRenderingIntentDefault);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2360 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2361 image = CGImageCreateWithJPEGDataProvider (source, NULL, FALSE,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2362 kCGRenderingIntentDefault);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2363
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2364 CGDataProviderRelease (source);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2365 if (image == NULL)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2366 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2367 UNGCPRO;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2368 image_error ("Error reading image `%s'", img->spec, Qnil);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2369 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2370 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2371
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2372 if (png_p)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2373 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2374 specified_bg = image_spec_value (img->spec, QCbackground, NULL);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2375 if (!STRINGP (specified_bg) ||
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2376 !mac_defined_color (f, SDATA (specified_bg), &color, 0))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2377 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2378 color.pixel = FRAME_BACKGROUND_PIXEL (f);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2379 color.red = RED16_FROM_ULONG (color.pixel);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2380 color.green = GREEN16_FROM_ULONG (color.pixel);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2381 color.blue = BLUE16_FROM_ULONG (color.pixel);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2382 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2383 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2384 width = img->width = CGImageGetWidth (image);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2385 height = img->height = CGImageGetHeight (image);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2386 if (!x_create_x_image_and_pixmap (f, width, height, 0, &ximg, &img->pixmap))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2387 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2388 CGImageRelease (image);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2389 UNGCPRO;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2390 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2391 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2392 rectangle = CGRectMake (0, 0, width, height);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2393 QDBeginCGContext (ximg, &context);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2394 if (png_p)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2395 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2396 CGContextSetRGBFillColor (context, color.red / 65535.0,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2397 color.green / 65535.0,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2398 color.blue / 65535.0, 1.0);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2399 CGContextFillRect (context, rectangle);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2400 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2401 CGContextDrawImage (context, rectangle, image);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2402 QDEndCGContext (ximg, &context);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2403 CGImageRelease (image);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2404
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2405 /* Maybe fill in the background field while we have ximg handy. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2406 if (NILP (image_spec_value (img->spec, QCbackground, NULL)))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2407 IMAGE_BACKGROUND (img, f, ximg);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2408
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2409 /* Put the image into the pixmap. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2410 x_put_x_image (f, ximg, img->pixmap, width, height);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2411 x_destroy_x_image (ximg);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2412 UNGCPRO;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2413 return 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2414 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2415 #endif
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2416
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2417 #endif /* MAC_OS */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2418
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2419
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2420 /***********************************************************************
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2421 XBM images
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2422 ***********************************************************************/
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2423
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2424 static int xbm_scan P_ ((unsigned char **, unsigned char *, char *, int *));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2425 static int xbm_load P_ ((struct frame *f, struct image *img));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2426 static int xbm_load_image P_ ((struct frame *f, struct image *img,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2427 unsigned char *, unsigned char *));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2428 static int xbm_image_p P_ ((Lisp_Object object));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2429 static int xbm_read_bitmap_data P_ ((unsigned char *, unsigned char *,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2430 int *, int *, unsigned char **));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2431 static int xbm_file_p P_ ((Lisp_Object));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2432
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2433
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2434 /* Indices of image specification fields in xbm_format, below. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2435
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2436 enum xbm_keyword_index
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2437 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2438 XBM_TYPE,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2439 XBM_FILE,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2440 XBM_WIDTH,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2441 XBM_HEIGHT,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2442 XBM_DATA,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2443 XBM_FOREGROUND,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2444 XBM_BACKGROUND,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2445 XBM_ASCENT,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2446 XBM_MARGIN,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2447 XBM_RELIEF,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2448 XBM_ALGORITHM,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2449 XBM_HEURISTIC_MASK,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2450 XBM_MASK,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2451 XBM_LAST
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2452 };
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2453
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2454 /* Vector of image_keyword structures describing the format
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2455 of valid XBM image specifications. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2456
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2457 static struct image_keyword xbm_format[XBM_LAST] =
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2458 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2459 {":type", IMAGE_SYMBOL_VALUE, 1},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2460 {":file", IMAGE_STRING_VALUE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2461 {":width", IMAGE_POSITIVE_INTEGER_VALUE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2462 {":height", IMAGE_POSITIVE_INTEGER_VALUE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2463 {":data", IMAGE_DONT_CHECK_VALUE_TYPE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2464 {":foreground", IMAGE_STRING_OR_NIL_VALUE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2465 {":background", IMAGE_STRING_OR_NIL_VALUE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2466 {":ascent", IMAGE_ASCENT_VALUE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2467 {":margin", IMAGE_POSITIVE_INTEGER_VALUE_OR_PAIR, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2468 {":relief", IMAGE_INTEGER_VALUE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2469 {":conversion", IMAGE_DONT_CHECK_VALUE_TYPE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2470 {":heuristic-mask", IMAGE_DONT_CHECK_VALUE_TYPE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2471 {":mask", IMAGE_DONT_CHECK_VALUE_TYPE, 0}
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2472 };
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2473
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2474 /* Structure describing the image type XBM. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2475
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2476 static struct image_type xbm_type =
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2477 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2478 &Qxbm,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2479 xbm_image_p,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2480 xbm_load,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2481 x_clear_image,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2482 NULL
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2483 };
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2484
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2485 /* Tokens returned from xbm_scan. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2486
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2487 enum xbm_token
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2488 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2489 XBM_TK_IDENT = 256,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2490 XBM_TK_NUMBER
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2491 };
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2492
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2493
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2494 /* Return non-zero if OBJECT is a valid XBM-type image specification.
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2495 A valid specification is a list starting with the symbol `image'
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2496 The rest of the list is a property list which must contain an
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2497 entry `:type xbm..
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2498
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2499 If the specification specifies a file to load, it must contain
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2500 an entry `:file FILENAME' where FILENAME is a string.
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2501
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2502 If the specification is for a bitmap loaded from memory it must
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2503 contain `:width WIDTH', `:height HEIGHT', and `:data DATA', where
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2504 WIDTH and HEIGHT are integers > 0. DATA may be:
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2505
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2506 1. a string large enough to hold the bitmap data, i.e. it must
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2507 have a size >= (WIDTH + 7) / 8 * HEIGHT
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2508
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2509 2. a bool-vector of size >= WIDTH * HEIGHT
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2510
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2511 3. a vector of strings or bool-vectors, one for each line of the
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2512 bitmap.
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2513
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2514 4. A string containing an in-memory XBM file. WIDTH and HEIGHT
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2515 may not be specified in this case because they are defined in the
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2516 XBM file.
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2517
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2518 Both the file and data forms may contain the additional entries
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2519 `:background COLOR' and `:foreground COLOR'. If not present,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2520 foreground and background of the frame on which the image is
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2521 displayed is used. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2522
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2523 static int
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2524 xbm_image_p (object)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2525 Lisp_Object object;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2526 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2527 struct image_keyword kw[XBM_LAST];
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2528
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2529 bcopy (xbm_format, kw, sizeof kw);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2530 if (!parse_image_spec (object, kw, XBM_LAST, Qxbm))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2531 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2532
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2533 xassert (EQ (kw[XBM_TYPE].value, Qxbm));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2534
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2535 if (kw[XBM_FILE].count)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2536 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2537 if (kw[XBM_WIDTH].count || kw[XBM_HEIGHT].count || kw[XBM_DATA].count)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2538 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2539 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2540 else if (kw[XBM_DATA].count && xbm_file_p (kw[XBM_DATA].value))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2541 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2542 /* In-memory XBM file. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2543 if (kw[XBM_WIDTH].count || kw[XBM_HEIGHT].count || kw[XBM_FILE].count)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2544 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2545 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2546 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2547 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2548 Lisp_Object data;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2549 int width, height;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2550
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2551 /* Entries for `:width', `:height' and `:data' must be present. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2552 if (!kw[XBM_WIDTH].count
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2553 || !kw[XBM_HEIGHT].count
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2554 || !kw[XBM_DATA].count)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2555 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2556
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2557 data = kw[XBM_DATA].value;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2558 width = XFASTINT (kw[XBM_WIDTH].value);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2559 height = XFASTINT (kw[XBM_HEIGHT].value);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2560
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2561 /* Check type of data, and width and height against contents of
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2562 data. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2563 if (VECTORP (data))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2564 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2565 int i;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2566
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2567 /* Number of elements of the vector must be >= height. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2568 if (XVECTOR (data)->size < height)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2569 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2570
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2571 /* Each string or bool-vector in data must be large enough
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2572 for one line of the image. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2573 for (i = 0; i < height; ++i)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2574 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2575 Lisp_Object elt = XVECTOR (data)->contents[i];
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2576
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2577 if (STRINGP (elt))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2578 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2579 if (SCHARS (elt)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2580 < (width + BITS_PER_CHAR - 1) / BITS_PER_CHAR)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2581 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2582 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2583 else if (BOOL_VECTOR_P (elt))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2584 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2585 if (XBOOL_VECTOR (elt)->size < width)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2586 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2587 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2588 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2589 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2590 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2591 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2592 else if (STRINGP (data))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2593 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2594 if (SCHARS (data)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2595 < (width + BITS_PER_CHAR - 1) / BITS_PER_CHAR * height)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2596 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2597 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2598 else if (BOOL_VECTOR_P (data))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2599 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2600 if (XBOOL_VECTOR (data)->size < width * height)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2601 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2602 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2603 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2604 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2605 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2606
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2607 return 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2608 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2609
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2610
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2611 /* Scan a bitmap file. FP is the stream to read from. Value is
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2612 either an enumerator from enum xbm_token, or a character for a
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2613 single-character token, or 0 at end of file. If scanning an
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2614 identifier, store the lexeme of the identifier in SVAL. If
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2615 scanning a number, store its value in *IVAL. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2616
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2617 static int
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2618 xbm_scan (s, end, sval, ival)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2619 unsigned char **s, *end;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2620 char *sval;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2621 int *ival;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2622 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2623 unsigned int c;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2624
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2625 loop:
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2626
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2627 /* Skip white space. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2628 while (*s < end && (c = *(*s)++, isspace (c)))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2629 ;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2630
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2631 if (*s >= end)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2632 c = 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2633 else if (isdigit (c))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2634 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2635 int value = 0, digit;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2636
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2637 if (c == '0' && *s < end)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2638 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2639 c = *(*s)++;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2640 if (c == 'x' || c == 'X')
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2641 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2642 while (*s < end)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2643 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2644 c = *(*s)++;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2645 if (isdigit (c))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2646 digit = c - '0';
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2647 else if (c >= 'a' && c <= 'f')
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2648 digit = c - 'a' + 10;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2649 else if (c >= 'A' && c <= 'F')
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2650 digit = c - 'A' + 10;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2651 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2652 break;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2653 value = 16 * value + digit;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2654 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2655 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2656 else if (isdigit (c))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2657 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2658 value = c - '0';
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2659 while (*s < end
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2660 && (c = *(*s)++, isdigit (c)))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2661 value = 8 * value + c - '0';
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2662 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2663 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2664 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2665 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2666 value = c - '0';
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2667 while (*s < end
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2668 && (c = *(*s)++, isdigit (c)))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2669 value = 10 * value + c - '0';
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2670 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2671
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2672 if (*s < end)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2673 *s = *s - 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2674 *ival = value;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2675 c = XBM_TK_NUMBER;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2676 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2677 else if (isalpha (c) || c == '_')
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2678 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2679 *sval++ = c;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2680 while (*s < end
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2681 && (c = *(*s)++, (isalnum (c) || c == '_')))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2682 *sval++ = c;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2683 *sval = 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2684 if (*s < end)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2685 *s = *s - 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2686 c = XBM_TK_IDENT;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2687 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2688 else if (c == '/' && **s == '*')
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2689 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2690 /* C-style comment. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2691 ++*s;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2692 while (**s && (**s != '*' || *(*s + 1) != '/'))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2693 ++*s;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2694 if (**s)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2695 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2696 *s += 2;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2697 goto loop;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2698 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2699 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2700
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2701 return c;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2702 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2703
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2704 #ifdef HAVE_NTGUI
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2705
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2706 /* Create a Windows bitmap from X bitmap data. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2707 static HBITMAP
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2708 w32_create_pixmap_from_bitmap_data (int width, int height, char *data)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2709 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2710 static unsigned char swap_nibble[16]
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2711 = { 0x0, 0x8, 0x4, 0xc, /* 0000 1000 0100 1100 */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2712 0x2, 0xa, 0x6, 0xe, /* 0010 1010 0110 1110 */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2713 0x1, 0x9, 0x5, 0xd, /* 0001 1001 0101 1101 */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2714 0x3, 0xb, 0x7, 0xf }; /* 0011 1011 0111 1111 */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2715 int i, j, w1, w2;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2716 unsigned char *bits, *p;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2717 HBITMAP bmp;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2718
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2719 w1 = (width + 7) / 8; /* nb of 8bits elt in X bitmap */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2720 w2 = ((width + 15) / 16) * 2; /* nb of 16bits elt in W32 bitmap */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2721 bits = (unsigned char *) alloca (height * w2);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2722 bzero (bits, height * w2);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2723 for (i = 0; i < height; i++)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2724 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2725 p = bits + i*w2;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2726 for (j = 0; j < w1; j++)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2727 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2728 /* Bitswap XBM bytes to match how Windows does things. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2729 unsigned char c = *data++;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2730 *p++ = (unsigned char)((swap_nibble[c & 0xf] << 4)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2731 | (swap_nibble[(c>>4) & 0xf]));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2732 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2733 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2734 bmp = CreateBitmap (width, height, 1, 1, (char *) bits);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2735
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2736 return bmp;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2737 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2738
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2739 static void convert_mono_to_color_image (f, img, foreground, background)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2740 struct frame *f;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2741 struct image *img;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2742 COLORREF foreground, background;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2743 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2744 HDC hdc, old_img_dc, new_img_dc;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2745 HGDIOBJ old_prev, new_prev;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2746 HBITMAP new_pixmap;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2747
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2748 hdc = get_frame_dc (f);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2749 old_img_dc = CreateCompatibleDC (hdc);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2750 new_img_dc = CreateCompatibleDC (hdc);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2751 new_pixmap = CreateCompatibleBitmap (hdc, img->width, img->height);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2752 release_frame_dc (f, hdc);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2753 old_prev = SelectObject (old_img_dc, img->pixmap);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2754 new_prev = SelectObject (new_img_dc, new_pixmap);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2755 SetTextColor (new_img_dc, foreground);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2756 SetBkColor (new_img_dc, background);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2757
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2758 BitBlt (new_img_dc, 0, 0, img->width, img->height, old_img_dc,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2759 0, 0, SRCCOPY);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2760
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2761 SelectObject (old_img_dc, old_prev);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2762 SelectObject (new_img_dc, new_prev);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2763 DeleteDC (old_img_dc);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2764 DeleteDC (new_img_dc);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2765 DeleteObject (img->pixmap);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2766 if (new_pixmap == 0)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2767 fprintf (stderr, "Failed to convert image to color.\n");
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2768 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2769 img->pixmap = new_pixmap;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2770 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2771
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2772 #define XBM_BIT_SHUFFLE(b) (~(b))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2773
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2774 #else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2775
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2776 #define XBM_BIT_SHUFFLE(b) (b)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2777
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2778 #endif /* HAVE_NTGUI */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2779
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2780
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2781 static void
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2782 Create_Pixmap_From_Bitmap_Data(f, img, data, fg, bg, non_default_colors)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2783 struct frame *f;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2784 struct image *img;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2785 char *data;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2786 RGB_PIXEL_COLOR fg, bg;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2787 int non_default_colors;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2788 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2789 #ifdef HAVE_NTGUI
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2790 img->pixmap
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2791 = w32_create_pixmap_from_bitmap_data (img->width, img->height, data);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2792
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2793 /* If colors were specified, transfer the bitmap to a color one. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2794 if (non_default_colors)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2795 convert_mono_to_color_image (f, img, fg, bg);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2796 #else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2797 img->pixmap
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2798 = XCreatePixmapFromBitmapData (FRAME_X_DISPLAY (f),
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2799 FRAME_X_WINDOW (f),
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2800 data,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2801 img->width, img->height,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2802 fg, bg,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2803 DefaultDepthOfScreen (FRAME_X_SCREEN (f)));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2804 #endif /* HAVE_NTGUI */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2805 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2806
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2807
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2808
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2809 /* Replacement for XReadBitmapFileData which isn't available under old
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2810 X versions. CONTENTS is a pointer to a buffer to parse; END is the
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2811 buffer's end. Set *WIDTH and *HEIGHT to the width and height of
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2812 the image. Return in *DATA the bitmap data allocated with xmalloc.
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2813 Value is non-zero if successful. DATA null means just test if
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2814 CONTENTS looks like an in-memory XBM file. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2815
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2816 static int
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2817 xbm_read_bitmap_data (contents, end, width, height, data)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2818 unsigned char *contents, *end;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2819 int *width, *height;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2820 unsigned char **data;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2821 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2822 unsigned char *s = contents;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2823 char buffer[BUFSIZ];
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2824 int padding_p = 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2825 int v10 = 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2826 int bytes_per_line, i, nbytes;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2827 unsigned char *p;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2828 int value;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2829 int LA1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2830
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2831 #define match() \
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2832 LA1 = xbm_scan (&s, end, buffer, &value)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2833
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2834 #define expect(TOKEN) \
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2835 if (LA1 != (TOKEN)) \
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2836 goto failure; \
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2837 else \
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2838 match ()
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2839
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2840 #define expect_ident(IDENT) \
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2841 if (LA1 == XBM_TK_IDENT && strcmp (buffer, (IDENT)) == 0) \
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2842 match (); \
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2843 else \
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2844 goto failure
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2845
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2846 *width = *height = -1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2847 if (data)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2848 *data = NULL;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2849 LA1 = xbm_scan (&s, end, buffer, &value);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2850
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2851 /* Parse defines for width, height and hot-spots. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2852 while (LA1 == '#')
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2853 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2854 match ();
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2855 expect_ident ("define");
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2856 expect (XBM_TK_IDENT);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2857
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2858 if (LA1 == XBM_TK_NUMBER);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2859 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2860 char *p = strrchr (buffer, '_');
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2861 p = p ? p + 1 : buffer;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2862 if (strcmp (p, "width") == 0)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2863 *width = value;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2864 else if (strcmp (p, "height") == 0)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2865 *height = value;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2866 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2867 expect (XBM_TK_NUMBER);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2868 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2869
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2870 if (*width < 0 || *height < 0)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2871 goto failure;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2872 else if (data == NULL)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2873 goto success;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2874
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2875 /* Parse bits. Must start with `static'. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2876 expect_ident ("static");
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2877 if (LA1 == XBM_TK_IDENT)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2878 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2879 if (strcmp (buffer, "unsigned") == 0)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2880 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2881 match ();
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2882 expect_ident ("char");
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2883 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2884 else if (strcmp (buffer, "short") == 0)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2885 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2886 match ();
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2887 v10 = 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2888 if (*width % 16 && *width % 16 < 9)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2889 padding_p = 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2890 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2891 else if (strcmp (buffer, "char") == 0)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2892 match ();
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2893 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2894 goto failure;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2895 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2896 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2897 goto failure;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2898
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2899 expect (XBM_TK_IDENT);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2900 expect ('[');
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2901 expect (']');
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2902 expect ('=');
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2903 expect ('{');
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2904
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2905 bytes_per_line = (*width + 7) / 8 + padding_p;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2906 nbytes = bytes_per_line * *height;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2907 p = *data = (char *) xmalloc (nbytes);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2908
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2909 if (v10)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2910 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2911 for (i = 0; i < nbytes; i += 2)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2912 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2913 int val = value;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2914 expect (XBM_TK_NUMBER);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2915
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2916 *p++ = XBM_BIT_SHUFFLE (val);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2917 if (!padding_p || ((i + 2) % bytes_per_line))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2918 *p++ = XBM_BIT_SHUFFLE (value >> 8);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2919
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2920 if (LA1 == ',' || LA1 == '}')
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2921 match ();
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2922 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2923 goto failure;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2924 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2925 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2926 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2927 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2928 for (i = 0; i < nbytes; ++i)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2929 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2930 int val = value;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2931 expect (XBM_TK_NUMBER);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2932
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2933 *p++ = XBM_BIT_SHUFFLE (val);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2934
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2935 if (LA1 == ',' || LA1 == '}')
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2936 match ();
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2937 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2938 goto failure;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2939 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2940 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2941
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2942 success:
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2943 return 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2944
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2945 failure:
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2946
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2947 if (data && *data)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2948 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2949 xfree (*data);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2950 *data = NULL;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2951 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2952 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2953
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2954 #undef match
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2955 #undef expect
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2956 #undef expect_ident
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2957 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2958
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2959
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2960 /* Load XBM image IMG which will be displayed on frame F from buffer
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2961 CONTENTS. END is the end of the buffer. Value is non-zero if
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2962 successful. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2963
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2964 static int
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2965 xbm_load_image (f, img, contents, end)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2966 struct frame *f;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2967 struct image *img;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2968 unsigned char *contents, *end;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2969 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2970 int rc;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2971 unsigned char *data;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2972 int success_p = 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2973
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2974 rc = xbm_read_bitmap_data (contents, end, &img->width, &img->height, &data);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2975 if (rc)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2976 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2977 unsigned long foreground = FRAME_FOREGROUND_PIXEL (f);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2978 unsigned long background = FRAME_BACKGROUND_PIXEL (f);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2979 int non_default_colors = 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2980 Lisp_Object value;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2981
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2982 xassert (img->width > 0 && img->height > 0);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2983
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2984 /* Get foreground and background colors, maybe allocate colors. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2985 value = image_spec_value (img->spec, QCforeground, NULL);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2986 if (!NILP (value))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2987 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2988 foreground = x_alloc_image_color (f, img, value, foreground);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2989 non_default_colors = 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2990 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2991 value = image_spec_value (img->spec, QCbackground, NULL);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2992 if (!NILP (value))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2993 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2994 background = x_alloc_image_color (f, img, value, background);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2995 img->background = background;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2996 img->background_valid = 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2997 non_default_colors = 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2998 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2999
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3000 Create_Pixmap_From_Bitmap_Data (f, img, data,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3001 foreground, background,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3002 non_default_colors);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3003 xfree (data);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3004
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3005 if (img->pixmap == NO_PIXMAP)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3006 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3007 x_clear_image (f, img);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3008 image_error ("Unable to create X pixmap for `%s'", img->spec, Qnil);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3009 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3010 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3011 success_p = 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3012 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3013 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3014 image_error ("Error loading XBM image `%s'", img->spec, Qnil);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3015
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3016 return success_p;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3017 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3018
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3019
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3020 /* Value is non-zero if DATA looks like an in-memory XBM file. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3021
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3022 static int
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3023 xbm_file_p (data)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3024 Lisp_Object data;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3025 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3026 int w, h;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3027 return (STRINGP (data)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3028 && xbm_read_bitmap_data (SDATA (data),
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3029 (SDATA (data)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3030 + SBYTES (data)),
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3031 &w, &h, NULL));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3032 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3033
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3034
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3035 /* Fill image IMG which is used on frame F with pixmap data. Value is
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3036 non-zero if successful. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3037
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3038 static int
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3039 xbm_load (f, img)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3040 struct frame *f;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3041 struct image *img;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3042 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3043 int success_p = 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3044 Lisp_Object file_name;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3045
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3046 xassert (xbm_image_p (img->spec));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3047
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3048 /* If IMG->spec specifies a file name, create a non-file spec from it. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3049 file_name = image_spec_value (img->spec, QCfile, NULL);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3050 if (STRINGP (file_name))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3051 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3052 Lisp_Object file;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3053 unsigned char *contents;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3054 int size;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3055 struct gcpro gcpro1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3056
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3057 file = x_find_image_file (file_name);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3058 GCPRO1 (file);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3059 if (!STRINGP (file))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3060 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3061 image_error ("Cannot find image file `%s'", file_name, Qnil);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3062 UNGCPRO;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3063 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3064 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3065
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3066 contents = slurp_file (SDATA (file), &size);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3067 if (contents == NULL)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3068 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3069 image_error ("Error loading XBM image `%s'", img->spec, Qnil);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3070 UNGCPRO;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3071 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3072 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3073
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3074 success_p = xbm_load_image (f, img, contents, contents + size);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3075 UNGCPRO;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3076 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3077 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3078 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3079 struct image_keyword fmt[XBM_LAST];
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3080 Lisp_Object data;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3081 unsigned long foreground = FRAME_FOREGROUND_PIXEL (f);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3082 unsigned long background = FRAME_BACKGROUND_PIXEL (f);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3083 int non_default_colors = 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3084 char *bits;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3085 int parsed_p;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3086 int in_memory_file_p = 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3087
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3088 /* See if data looks like an in-memory XBM file. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3089 data = image_spec_value (img->spec, QCdata, NULL);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3090 in_memory_file_p = xbm_file_p (data);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3091
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3092 /* Parse the image specification. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3093 bcopy (xbm_format, fmt, sizeof fmt);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3094 parsed_p = parse_image_spec (img->spec, fmt, XBM_LAST, Qxbm);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3095 xassert (parsed_p);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3096
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3097 /* Get specified width, and height. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3098 if (!in_memory_file_p)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3099 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3100 img->width = XFASTINT (fmt[XBM_WIDTH].value);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3101 img->height = XFASTINT (fmt[XBM_HEIGHT].value);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3102 xassert (img->width > 0 && img->height > 0);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3103 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3104
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3105 /* Get foreground and background colors, maybe allocate colors. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3106 if (fmt[XBM_FOREGROUND].count
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3107 && STRINGP (fmt[XBM_FOREGROUND].value))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3108 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3109 foreground = x_alloc_image_color (f, img, fmt[XBM_FOREGROUND].value,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3110 foreground);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3111 non_default_colors = 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3112 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3113
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3114 if (fmt[XBM_BACKGROUND].count
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3115 && STRINGP (fmt[XBM_BACKGROUND].value))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3116 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3117 background = x_alloc_image_color (f, img, fmt[XBM_BACKGROUND].value,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3118 background);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3119 non_default_colors = 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3120 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3121
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3122 if (in_memory_file_p)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3123 success_p = xbm_load_image (f, img, SDATA (data),
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3124 (SDATA (data)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3125 + SBYTES (data)));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3126 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3127 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3128 if (VECTORP (data))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3129 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3130 int i;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3131 char *p;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3132 int nbytes = (img->width + BITS_PER_CHAR - 1) / BITS_PER_CHAR;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3133
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3134 p = bits = (char *) alloca (nbytes * img->height);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3135 for (i = 0; i < img->height; ++i, p += nbytes)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3136 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3137 Lisp_Object line = XVECTOR (data)->contents[i];
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3138 if (STRINGP (line))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3139 bcopy (SDATA (line), p, nbytes);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3140 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3141 bcopy (XBOOL_VECTOR (line)->data, p, nbytes);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3142 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3143 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3144 else if (STRINGP (data))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3145 bits = SDATA (data);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3146 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3147 bits = XBOOL_VECTOR (data)->data;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3148
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3149 /* Create the pixmap. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3150
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3151 Create_Pixmap_From_Bitmap_Data (f, img, bits,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3152 foreground, background,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3153 non_default_colors);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3154 if (img->pixmap)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3155 success_p = 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3156 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3157 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3158 image_error ("Unable to create pixmap for XBM image `%s'",
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3159 img->spec, Qnil);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3160 x_clear_image (f, img);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3161 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3162 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3163 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3164
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3165 return success_p;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3166 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3167
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3168
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3169
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3170 /***********************************************************************
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3171 XPM images
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3172 ***********************************************************************/
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3173
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3174 #ifdef HAVE_XPM
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3175
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3176 static int xpm_image_p P_ ((Lisp_Object object));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3177 static int xpm_load P_ ((struct frame *f, struct image *img));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3178 static int xpm_valid_color_symbols_p P_ ((Lisp_Object));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3179
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3180 #ifdef HAVE_NTGUI
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3181 /* Indicate to xpm.h that we don't have Xlib. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3182 #define FOR_MSW
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3183 /* simx.h in xpm defines XColor and XImage differently than Emacs. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3184 #define XColor xpm_XColor
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3185 #define XImage xpm_XImage
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3186 #define PIXEL_ALREADY_TYPEDEFED
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3187 #include "X11/xpm.h"
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3188 #undef FOR_MSW
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3189 #undef XColor
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3190 #undef XImage
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3191 #undef PIXEL_ALREADY_TYPEDEFED
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3192 #else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3193 #include "X11/xpm.h"
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3194 #endif /* HAVE_NTGUI */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3195
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3196 /* The symbol `xpm' identifying XPM-format images. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3197
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3198 Lisp_Object Qxpm;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3199
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3200 /* Indices of image specification fields in xpm_format, below. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3201
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3202 enum xpm_keyword_index
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3203 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3204 XPM_TYPE,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3205 XPM_FILE,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3206 XPM_DATA,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3207 XPM_ASCENT,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3208 XPM_MARGIN,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3209 XPM_RELIEF,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3210 XPM_ALGORITHM,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3211 XPM_HEURISTIC_MASK,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3212 XPM_MASK,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3213 XPM_COLOR_SYMBOLS,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3214 XPM_BACKGROUND,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3215 XPM_LAST
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3216 };
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3217
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3218 /* Vector of image_keyword structures describing the format
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3219 of valid XPM image specifications. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3220
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3221 static struct image_keyword xpm_format[XPM_LAST] =
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3222 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3223 {":type", IMAGE_SYMBOL_VALUE, 1},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3224 {":file", IMAGE_STRING_VALUE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3225 {":data", IMAGE_STRING_VALUE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3226 {":ascent", IMAGE_ASCENT_VALUE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3227 {":margin", IMAGE_POSITIVE_INTEGER_VALUE_OR_PAIR, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3228 {":relief", IMAGE_INTEGER_VALUE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3229 {":conversion", IMAGE_DONT_CHECK_VALUE_TYPE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3230 {":heuristic-mask", IMAGE_DONT_CHECK_VALUE_TYPE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3231 {":mask", IMAGE_DONT_CHECK_VALUE_TYPE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3232 {":color-symbols", IMAGE_DONT_CHECK_VALUE_TYPE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3233 {":background", IMAGE_STRING_OR_NIL_VALUE, 0}
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3234 };
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3235
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3236 /* Structure describing the image type XPM. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3237
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3238 static struct image_type xpm_type =
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3239 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3240 &Qxpm,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3241 xpm_image_p,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3242 xpm_load,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3243 x_clear_image,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3244 NULL
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3245 };
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3246
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3247 #ifdef HAVE_X_WINDOWS
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3248
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3249 /* Define ALLOC_XPM_COLORS if we can use Emacs' own color allocation
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3250 functions for allocating image colors. Our own functions handle
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3251 color allocation failures more gracefully than the ones on the XPM
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3252 lib. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3253
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3254 #if defined XpmAllocColor && defined XpmFreeColors && defined XpmColorClosure
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3255 #define ALLOC_XPM_COLORS
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3256 #endif
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3257 #endif /* HAVE_X_WINDOWS */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3258
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3259 #ifdef ALLOC_XPM_COLORS
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3260
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3261 static void xpm_init_color_cache P_ ((struct frame *, XpmAttributes *));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3262 static void xpm_free_color_cache P_ ((void));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3263 static int xpm_lookup_color P_ ((struct frame *, char *, XColor *));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3264 static int xpm_color_bucket P_ ((char *));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3265 static struct xpm_cached_color *xpm_cache_color P_ ((struct frame *, char *,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3266 XColor *, int));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3267
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3268 /* An entry in a hash table used to cache color definitions of named
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3269 colors. This cache is necessary to speed up XPM image loading in
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3270 case we do color allocations ourselves. Without it, we would need
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3271 a call to XParseColor per pixel in the image. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3272
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3273 struct xpm_cached_color
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3274 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3275 /* Next in collision chain. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3276 struct xpm_cached_color *next;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3277
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3278 /* Color definition (RGB and pixel color). */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3279 XColor color;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3280
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3281 /* Color name. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3282 char name[1];
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3283 };
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3284
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3285 /* The hash table used for the color cache, and its bucket vector
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3286 size. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3287
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3288 #define XPM_COLOR_CACHE_BUCKETS 1001
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3289 struct xpm_cached_color **xpm_color_cache;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3290
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3291 /* Initialize the color cache. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3292
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3293 static void
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3294 xpm_init_color_cache (f, attrs)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3295 struct frame *f;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3296 XpmAttributes *attrs;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3297 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3298 size_t nbytes = XPM_COLOR_CACHE_BUCKETS * sizeof *xpm_color_cache;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3299 xpm_color_cache = (struct xpm_cached_color **) xmalloc (nbytes);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3300 memset (xpm_color_cache, 0, nbytes);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3301 init_color_table ();
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3302
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3303 if (attrs->valuemask & XpmColorSymbols)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3304 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3305 int i;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3306 XColor color;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3307
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3308 for (i = 0; i < attrs->numsymbols; ++i)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3309 if (XParseColor (FRAME_X_DISPLAY (f), FRAME_X_COLORMAP (f),
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3310 attrs->colorsymbols[i].value, &color))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3311 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3312 color.pixel = lookup_rgb_color (f, color.red, color.green,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3313 color.blue);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3314 xpm_cache_color (f, attrs->colorsymbols[i].name, &color, -1);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3315 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3316 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3317 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3318
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3319 /* Free the color cache. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3320
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3321 static void
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3322 xpm_free_color_cache ()
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3323 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3324 struct xpm_cached_color *p, *next;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3325 int i;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3326
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3327 for (i = 0; i < XPM_COLOR_CACHE_BUCKETS; ++i)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3328 for (p = xpm_color_cache[i]; p; p = next)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3329 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3330 next = p->next;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3331 xfree (p);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3332 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3333
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3334 xfree (xpm_color_cache);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3335 xpm_color_cache = NULL;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3336 free_color_table ();
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3337 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3338
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3339 /* Return the bucket index for color named COLOR_NAME in the color
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3340 cache. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3342 static int
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3343 xpm_color_bucket (color_name)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3344 char *color_name;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3345 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3346 unsigned h = 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3347 char *s;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3348
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3349 for (s = color_name; *s; ++s)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3350 h = (h << 2) ^ *s;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3351 return h %= XPM_COLOR_CACHE_BUCKETS;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3352 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3353
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3354
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3355 /* On frame F, cache values COLOR for color with name COLOR_NAME.
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3356 BUCKET, if >= 0, is a precomputed bucket index. Value is the cache
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3357 entry added. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3358
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3359 static struct xpm_cached_color *
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3360 xpm_cache_color (f, color_name, color, bucket)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3361 struct frame *f;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3362 char *color_name;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3363 XColor *color;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3364 int bucket;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3365 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3366 size_t nbytes;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3367 struct xpm_cached_color *p;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3368
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3369 if (bucket < 0)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3370 bucket = xpm_color_bucket (color_name);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3371
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3372 nbytes = sizeof *p + strlen (color_name);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3373 p = (struct xpm_cached_color *) xmalloc (nbytes);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3374 strcpy (p->name, color_name);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3375 p->color = *color;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3376 p->next = xpm_color_cache[bucket];
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3377 xpm_color_cache[bucket] = p;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3378 return p;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3379 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3380
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3381 /* Look up color COLOR_NAME for frame F in the color cache. If found,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3382 return the cached definition in *COLOR. Otherwise, make a new
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3383 entry in the cache and allocate the color. Value is zero if color
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3384 allocation failed. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3385
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3386 static int
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3387 xpm_lookup_color (f, color_name, color)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3388 struct frame *f;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3389 char *color_name;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3390 XColor *color;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3391 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3392 struct xpm_cached_color *p;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3393 int h = xpm_color_bucket (color_name);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3394
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3395 for (p = xpm_color_cache[h]; p; p = p->next)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3396 if (strcmp (p->name, color_name) == 0)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3397 break;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3398
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3399 if (p != NULL)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3400 *color = p->color;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3401 else if (XParseColor (FRAME_X_DISPLAY (f), FRAME_X_COLORMAP (f),
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3402 color_name, color))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3403 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3404 color->pixel = lookup_rgb_color (f, color->red, color->green,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3405 color->blue);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3406 p = xpm_cache_color (f, color_name, color, h);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3407 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3408 /* You get `opaque' at least from ImageMagick converting pbm to xpm
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3409 with transparency, and it's useful. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3410 else if (strcmp ("opaque", color_name) == 0)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3411 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3412 bzero (color, sizeof (XColor)); /* Is this necessary/correct? */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3413 color->pixel = FRAME_FOREGROUND_PIXEL (f);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3414 p = xpm_cache_color (f, color_name, color, h);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3415 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3416
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3417 return p != NULL;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3418 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3419
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3420
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3421 /* Callback for allocating color COLOR_NAME. Called from the XPM lib.
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3422 CLOSURE is a pointer to the frame on which we allocate the
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3423 color. Return in *COLOR the allocated color. Value is non-zero
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3424 if successful. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3425
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3426 static int
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3427 xpm_alloc_color (dpy, cmap, color_name, color, closure)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3428 Display *dpy;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3429 Colormap cmap;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3430 char *color_name;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3431 XColor *color;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3432 void *closure;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3433 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3434 return xpm_lookup_color ((struct frame *) closure, color_name, color);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3435 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3436
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3437
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3438 /* Callback for freeing NPIXELS colors contained in PIXELS. CLOSURE
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3439 is a pointer to the frame on which we allocate the color. Value is
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3440 non-zero if successful. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3441
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3442 static int
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3443 xpm_free_colors (dpy, cmap, pixels, npixels, closure)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3444 Display *dpy;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3445 Colormap cmap;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3446 Pixel *pixels;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3447 int npixels;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3448 void *closure;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3449 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3450 return 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3451 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3452
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3453 #endif /* ALLOC_XPM_COLORS */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3454
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3455
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3456 #ifdef HAVE_NTGUI
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3457
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3458 /* XPM library details. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3459
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3460 DEF_IMGLIB_FN (XpmFreeAttributes);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3461 DEF_IMGLIB_FN (XpmCreateImageFromBuffer);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3462 DEF_IMGLIB_FN (XpmReadFileToImage);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3463 DEF_IMGLIB_FN (XImageFree);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3464
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3465
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3466 static int
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3467 init_xpm_functions (void)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3468 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3469 HMODULE library;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3470
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3471 if (!(library = LoadLibrary ("libXpm.dll")))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3472 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3473
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3474 LOAD_IMGLIB_FN (library, XpmFreeAttributes);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3475 LOAD_IMGLIB_FN (library, XpmCreateImageFromBuffer);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3476 LOAD_IMGLIB_FN (library, XpmReadFileToImage);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3477 LOAD_IMGLIB_FN (library, XImageFree);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3478 return 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3479 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3480
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3481 #endif /* HAVE_NTGUI */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3482
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3483
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3484 /* Value is non-zero if COLOR_SYMBOLS is a valid color symbols list
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3485 for XPM images. Such a list must consist of conses whose car and
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3486 cdr are strings. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3487
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3488 static int
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3489 xpm_valid_color_symbols_p (color_symbols)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3490 Lisp_Object color_symbols;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3491 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3492 while (CONSP (color_symbols))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3493 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3494 Lisp_Object sym = XCAR (color_symbols);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3495 if (!CONSP (sym)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3496 || !STRINGP (XCAR (sym))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3497 || !STRINGP (XCDR (sym)))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3498 break;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3499 color_symbols = XCDR (color_symbols);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3500 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3501
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3502 return NILP (color_symbols);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3503 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3504
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3505
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3506 /* Value is non-zero if OBJECT is a valid XPM image specification. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3507
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3508 static int
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3509 xpm_image_p (object)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3510 Lisp_Object object;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3511 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3512 struct image_keyword fmt[XPM_LAST];
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3513 bcopy (xpm_format, fmt, sizeof fmt);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3514 return (parse_image_spec (object, fmt, XPM_LAST, Qxpm)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3515 /* Either `:file' or `:data' must be present. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3516 && fmt[XPM_FILE].count + fmt[XPM_DATA].count == 1
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3517 /* Either no `:color-symbols' or it's a list of conses
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3518 whose car and cdr are strings. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3519 && (fmt[XPM_COLOR_SYMBOLS].count == 0
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3520 || xpm_valid_color_symbols_p (fmt[XPM_COLOR_SYMBOLS].value)));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3521 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3522
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3523
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3524 /* Load image IMG which will be displayed on frame F. Value is
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3525 non-zero if successful. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3526
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3527 static int
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3528 xpm_load (f, img)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3529 struct frame *f;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3530 struct image *img;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3531 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3532 int rc;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3533 XpmAttributes attrs;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3534 Lisp_Object specified_file, color_symbols;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3535 #ifdef HAVE_NTGUI
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3536 HDC hdc;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3537 xpm_XImage * xpm_image = NULL, * xpm_mask = NULL;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3538 #endif /* HAVE_NTGUI */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3539
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3540 /* Configure the XPM lib. Use the visual of frame F. Allocate
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3541 close colors. Return colors allocated. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3542 bzero (&attrs, sizeof attrs);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3543
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3544 #ifndef HAVE_NTGUI
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3545 attrs.visual = FRAME_X_VISUAL (f);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3546 attrs.colormap = FRAME_X_COLORMAP (f);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3547 attrs.valuemask |= XpmVisual;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3548 attrs.valuemask |= XpmColormap;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3549 #endif /* HAVE_NTGUI */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3550
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3551 #ifdef ALLOC_XPM_COLORS
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3552 /* Allocate colors with our own functions which handle
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3553 failing color allocation more gracefully. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3554 attrs.color_closure = f;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3555 attrs.alloc_color = xpm_alloc_color;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3556 attrs.free_colors = xpm_free_colors;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3557 attrs.valuemask |= XpmAllocColor | XpmFreeColors | XpmColorClosure;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3558 #else /* not ALLOC_XPM_COLORS */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3559 /* Let the XPM lib allocate colors. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3560 attrs.valuemask |= XpmReturnAllocPixels;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3561 #ifdef XpmAllocCloseColors
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3562 attrs.alloc_close_colors = 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3563 attrs.valuemask |= XpmAllocCloseColors;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3564 #else /* not XpmAllocCloseColors */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3565 attrs.closeness = 600;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3566 attrs.valuemask |= XpmCloseness;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3567 #endif /* not XpmAllocCloseColors */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3568 #endif /* ALLOC_XPM_COLORS */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3569
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3570 /* If image specification contains symbolic color definitions, add
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3571 these to `attrs'. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3572 color_symbols = image_spec_value (img->spec, QCcolor_symbols, NULL);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3573 if (CONSP (color_symbols))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3574 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3575 Lisp_Object tail;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3576 XpmColorSymbol *xpm_syms;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3577 int i, size;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3578
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3579 attrs.valuemask |= XpmColorSymbols;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3580
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3581 /* Count number of symbols. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3582 attrs.numsymbols = 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3583 for (tail = color_symbols; CONSP (tail); tail = XCDR (tail))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3584 ++attrs.numsymbols;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3585
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3586 /* Allocate an XpmColorSymbol array. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3587 size = attrs.numsymbols * sizeof *xpm_syms;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3588 xpm_syms = (XpmColorSymbol *) alloca (size);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3589 bzero (xpm_syms, size);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3590 attrs.colorsymbols = xpm_syms;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3591
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3592 /* Fill the color symbol array. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3593 for (tail = color_symbols, i = 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3594 CONSP (tail);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3595 ++i, tail = XCDR (tail))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3596 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3597 Lisp_Object name = XCAR (XCAR (tail));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3598 Lisp_Object color = XCDR (XCAR (tail));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3599 xpm_syms[i].name = (char *) alloca (SCHARS (name) + 1);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3600 strcpy (xpm_syms[i].name, SDATA (name));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3601 xpm_syms[i].value = (char *) alloca (SCHARS (color) + 1);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3602 strcpy (xpm_syms[i].value, SDATA (color));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3603 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3604 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3605
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3606 /* Create a pixmap for the image, either from a file, or from a
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3607 string buffer containing data in the same format as an XPM file. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3608 #ifdef ALLOC_XPM_COLORS
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3609 xpm_init_color_cache (f, &attrs);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3610 #endif
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3611
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3612 specified_file = image_spec_value (img->spec, QCfile, NULL);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3613
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3614 #ifdef HAVE_NTGUI
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3615 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3616 HDC frame_dc = get_frame_dc (f);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3617 hdc = CreateCompatibleDC (frame_dc);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3618 release_frame_dc (f, frame_dc);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3619 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3620 #endif /* HAVE_NTGUI */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3621
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3622 if (STRINGP (specified_file))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3623 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3624 Lisp_Object file = x_find_image_file (specified_file);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3625 if (!STRINGP (file))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3626 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3627 image_error ("Cannot find image file `%s'", specified_file, Qnil);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3628 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3629 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3630
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3631 #ifdef HAVE_NTGUI
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3632 /* XpmReadFileToPixmap is not available in the Windows port of
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3633 libxpm. But XpmReadFileToImage almost does what we want. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3634 rc = fn_XpmReadFileToImage (&hdc, SDATA (file),
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3635 &xpm_image, &xpm_mask,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3636 &attrs);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3637 #else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3638 rc = XpmReadFileToPixmap (FRAME_X_DISPLAY (f), FRAME_X_WINDOW (f),
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3639 SDATA (file), &img->pixmap, &img->mask,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3640 &attrs);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3641 #endif /* HAVE_NTGUI */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3642 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3643 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3644 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3645 Lisp_Object buffer = image_spec_value (img->spec, QCdata, NULL);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3646 #ifdef HAVE_NTGUI
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3647 /* XpmCreatePixmapFromBuffer is not available in the Windows port
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3648 of libxpm. But XpmCreateImageFromBuffer almost does what we want. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3649 rc = fn_XpmCreateImageFromBuffer (&hdc, SDATA (buffer),
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3650 &xpm_image, &xpm_mask,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3651 &attrs);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3652 #else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3653 rc = XpmCreatePixmapFromBuffer (FRAME_X_DISPLAY (f), FRAME_X_WINDOW (f),
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3654 SDATA (buffer),
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3655 &img->pixmap, &img->mask,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3656 &attrs);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3657 #endif /* HAVE_NTGUI */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3658 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3659
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3660 if (rc == XpmSuccess)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3661 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3662 #if defined (COLOR_TABLE_SUPPORT) && defined (ALLOC_XPM_COLORS)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3663 img->colors = colors_in_color_table (&img->ncolors);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3664 #else /* not ALLOC_XPM_COLORS */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3665 int i;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3666
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3667 #ifdef HAVE_NTGUI
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3668 /* W32 XPM uses XImage to wrap what W32 Emacs calls a Pixmap,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3669 plus some duplicate attributes. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3670 if (xpm_image && xpm_image->bitmap)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3671 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3672 img->pixmap = xpm_image->bitmap;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3673 /* XImageFree in libXpm frees XImage struct without destroying
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3674 the bitmap, which is what we want. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3675 fn_XImageFree (xpm_image);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3676 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3677 if (xpm_mask && xpm_mask->bitmap)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3678 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3679 /* The mask appears to be inverted compared with what we expect.
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3680 TODO: invert our expectations. See other places where we
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3681 have to invert bits because our idea of masks is backwards. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3682 HGDIOBJ old_obj;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3683 old_obj = SelectObject (hdc, xpm_mask->bitmap);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3684
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3685 PatBlt (hdc, 0, 0, xpm_mask->width, xpm_mask->height, DSTINVERT);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3686 SelectObject (hdc, old_obj);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3687
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3688 img->mask = xpm_mask->bitmap;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3689 fn_XImageFree (xpm_mask);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3690 DeleteDC (hdc);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3691 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3692
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3693 DeleteDC (hdc);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3694 #endif /* HAVE_NTGUI */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3695
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3696 /* Remember allocated colors. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3697 img->ncolors = attrs.nalloc_pixels;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3698 img->colors = (unsigned long *) xmalloc (img->ncolors
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3699 * sizeof *img->colors);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3700 for (i = 0; i < attrs.nalloc_pixels; ++i)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3701 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3702 img->colors[i] = attrs.alloc_pixels[i];
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3703 #ifdef DEBUG_X_COLORS
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3704 register_color (img->colors[i]);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3705 #endif
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3706 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3707 #endif /* not ALLOC_XPM_COLORS */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3708
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3709 img->width = attrs.width;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3710 img->height = attrs.height;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3711 xassert (img->width > 0 && img->height > 0);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3712
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3713 /* The call to XpmFreeAttributes below frees attrs.alloc_pixels. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3714 #ifdef HAVE_NTGUI
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3715 fn_XpmFreeAttributes (&attrs);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3716 #else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3717 XpmFreeAttributes (&attrs);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3718 #endif /* HAVE_NTGUI */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3719 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3720 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3721 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3722 #ifdef HAVE_NTGUI
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3723 DeleteDC (hdc);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3724 #endif /* HAVE_NTGUI */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3725
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3726 switch (rc)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3727 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3728 case XpmOpenFailed:
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3729 image_error ("Error opening XPM file (%s)", img->spec, Qnil);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3730 break;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3731
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3732 case XpmFileInvalid:
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3733 image_error ("Invalid XPM file (%s)", img->spec, Qnil);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3734 break;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3735
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3736 case XpmNoMemory:
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3737 image_error ("Out of memory (%s)", img->spec, Qnil);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3738 break;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3739
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3740 case XpmColorFailed:
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3741 image_error ("Color allocation error (%s)", img->spec, Qnil);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3742 break;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3743
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3744 default:
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3745 image_error ("Unknown error (%s)", img->spec, Qnil);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3746 break;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3747 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3748 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3749
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3750 #ifdef ALLOC_XPM_COLORS
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3751 xpm_free_color_cache ();
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3752 #endif
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3753 return rc == XpmSuccess;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3754 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3755
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3756 #endif /* HAVE_XPM */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3757
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3758
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3759 /***********************************************************************
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3760 Color table
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3761 ***********************************************************************/
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3762
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3763 #ifdef COLOR_TABLE_SUPPORT
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3764
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3765 /* An entry in the color table mapping an RGB color to a pixel color. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3766
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3767 struct ct_color
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3768 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3769 int r, g, b;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3770 unsigned long pixel;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3771
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3772 /* Next in color table collision list. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3773 struct ct_color *next;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3774 };
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3775
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3776 /* The bucket vector size to use. Must be prime. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3777
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3778 #define CT_SIZE 101
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3779
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3780 /* Value is a hash of the RGB color given by R, G, and B. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3781
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3782 #define CT_HASH_RGB(R, G, B) (((R) << 16) ^ ((G) << 8) ^ (B))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3783
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3784 /* The color hash table. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3785
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3786 struct ct_color **ct_table;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3787
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3788 /* Number of entries in the color table. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3789
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3790 int ct_colors_allocated;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3791
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3792 /* Initialize the color table. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3793
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3794 static void
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3795 init_color_table ()
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3796 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3797 int size = CT_SIZE * sizeof (*ct_table);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3798 ct_table = (struct ct_color **) xmalloc (size);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3799 bzero (ct_table, size);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3800 ct_colors_allocated = 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3801 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3802
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3803
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3804 /* Free memory associated with the color table. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3805
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3806 static void
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3807 free_color_table ()
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3808 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3809 int i;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3810 struct ct_color *p, *next;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3811
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3812 for (i = 0; i < CT_SIZE; ++i)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3813 for (p = ct_table[i]; p; p = next)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3814 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3815 next = p->next;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3816 xfree (p);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3817 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3818
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3819 xfree (ct_table);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3820 ct_table = NULL;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3821 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3822
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3823
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3824 /* Value is a pixel color for RGB color R, G, B on frame F. If an
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3825 entry for that color already is in the color table, return the
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3826 pixel color of that entry. Otherwise, allocate a new color for R,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3827 G, B, and make an entry in the color table. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3828
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3829 static unsigned long
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3830 lookup_rgb_color (f, r, g, b)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3831 struct frame *f;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3832 int r, g, b;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3833 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3834 unsigned hash = CT_HASH_RGB (r, g, b);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3835 int i = hash % CT_SIZE;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3836 struct ct_color *p;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3837 Display_Info *dpyinfo;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3838
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3839 /* Handle TrueColor visuals specially, which improves performance by
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3840 two orders of magnitude. Freeing colors on TrueColor visuals is
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3841 a nop, and pixel colors specify RGB values directly. See also
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3842 the Xlib spec, chapter 3.1. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3843 dpyinfo = FRAME_X_DISPLAY_INFO (f);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3844 if (dpyinfo->red_bits > 0)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3845 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3846 unsigned long pr, pg, pb;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3847
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3848 /* Apply gamma-correction like normal color allocation does. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3849 if (f->gamma)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3850 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3851 XColor color;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3852 color.red = r, color.green = g, color.blue = b;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3853 gamma_correct (f, &color);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3854 r = color.red, g = color.green, b = color.blue;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3855 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3856
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3857 /* Scale down RGB values to the visual's bits per RGB, and shift
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3858 them to the right position in the pixel color. Note that the
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3859 original RGB values are 16-bit values, as usual in X. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3860 pr = (r >> (16 - dpyinfo->red_bits)) << dpyinfo->red_offset;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3861 pg = (g >> (16 - dpyinfo->green_bits)) << dpyinfo->green_offset;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3862 pb = (b >> (16 - dpyinfo->blue_bits)) << dpyinfo->blue_offset;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3863
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3864 /* Assemble the pixel color. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3865 return pr | pg | pb;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3866 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3867
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3868 for (p = ct_table[i]; p; p = p->next)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3869 if (p->r == r && p->g == g && p->b == b)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3870 break;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3871
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3872 if (p == NULL)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3873 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3874
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3875 #ifdef HAVE_X_WINDOWS
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3876 XColor color;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3877 Colormap cmap;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3878 int rc;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3879
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3880 color.red = r;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3881 color.green = g;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3882 color.blue = b;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3883
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3884 cmap = FRAME_X_COLORMAP (f);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3885 rc = x_alloc_nearest_color (f, cmap, &color);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3886 if (rc)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3887 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3888 ++ct_colors_allocated;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3889 p = (struct ct_color *) xmalloc (sizeof *p);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3890 p->r = r;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3891 p->g = g;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3892 p->b = b;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3893 p->pixel = color.pixel;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3894 p->next = ct_table[i];
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3895 ct_table[i] = p;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3896 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3897 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3898 return FRAME_FOREGROUND_PIXEL (f);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3899
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3900 #else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3901 COLORREF color;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3902 #ifdef HAVE_NTGUI
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3903 color = PALETTERGB (r, g, b);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3904 #else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3905 color = RGB_TO_ULONG (r, g, b);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3906 #endif /* HAVE_NTGUI */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3907 ++ct_colors_allocated;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3908 p = (struct ct_color *) xmalloc (sizeof *p);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3909 p->r = r;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3910 p->g = g;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3911 p->b = b;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3912 p->pixel = color;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3913 p->next = ct_table[i];
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3914 ct_table[i] = p;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3915 #endif /* HAVE_X_WINDOWS */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3916
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3917 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3918
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3919 return p->pixel;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3920 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3921
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3922
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3923 /* Look up pixel color PIXEL which is used on frame F in the color
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3924 table. If not already present, allocate it. Value is PIXEL. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3925
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3926 static unsigned long
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3927 lookup_pixel_color (f, pixel)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3928 struct frame *f;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3929 unsigned long pixel;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3930 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3931 int i = pixel % CT_SIZE;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3932 struct ct_color *p;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3933
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3934 for (p = ct_table[i]; p; p = p->next)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3935 if (p->pixel == pixel)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3936 break;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3937
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3938 if (p == NULL)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3939 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3940 XColor color;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3941 Colormap cmap;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3942 int rc;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3943
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3944 #ifdef HAVE_X_WINDOWS
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3945 cmap = FRAME_X_COLORMAP (f);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3946 color.pixel = pixel;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3947 x_query_color (f, &color);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3948 rc = x_alloc_nearest_color (f, cmap, &color);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3949 #else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3950 BLOCK_INPUT;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3951 cmap = DefaultColormapOfScreen (FRAME_X_SCREEN (f));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3952 color.pixel = pixel;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3953 XQueryColor (NULL, cmap, &color);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3954 rc = x_alloc_nearest_color (f, cmap, &color);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3955 UNBLOCK_INPUT;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3956 #endif /* HAVE_X_WINDOWS */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3957
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3958 if (rc)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3959 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3960 ++ct_colors_allocated;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3961
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3962 p = (struct ct_color *) xmalloc (sizeof *p);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3963 p->r = color.red;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3964 p->g = color.green;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3965 p->b = color.blue;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3966 p->pixel = pixel;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3967 p->next = ct_table[i];
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3968 ct_table[i] = p;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3969 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3970 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3971 return FRAME_FOREGROUND_PIXEL (f);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3972 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3973 return p->pixel;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3974 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3975
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3976
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3977 /* Value is a vector of all pixel colors contained in the color table,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3978 allocated via xmalloc. Set *N to the number of colors. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3979
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3980 static unsigned long *
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3981 colors_in_color_table (n)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3982 int *n;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3983 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3984 int i, j;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3985 struct ct_color *p;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3986 unsigned long *colors;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3987
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3988 if (ct_colors_allocated == 0)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3989 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3990 *n = 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3991 colors = NULL;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3992 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3993 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3994 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3995 colors = (unsigned long *) xmalloc (ct_colors_allocated
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3996 * sizeof *colors);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3997 *n = ct_colors_allocated;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3998
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3999 for (i = j = 0; i < CT_SIZE; ++i)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4000 for (p = ct_table[i]; p; p = p->next)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4001 colors[j++] = p->pixel;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4002 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4003
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4004 return colors;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4005 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4006
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4007 #else /* COLOR_TABLE_SUPPORT */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4008
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4009 static unsigned long
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4010 lookup_rgb_color (f, r, g, b)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4011 struct frame *f;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4012 int r, g, b;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4013 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4014 unsigned long pixel;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4015
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4016 #ifdef MAC_OS
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4017 pixel = RGB_TO_ULONG (r >> 8, g >> 8, b >> 8);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4018 gamma_correct (f, &pixel);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4019 #endif /* MAC_OS */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4020
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4021 #ifdef HAVE_NTGUI
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4022 pixel = PALETTERGB (r >> 8, g >> 8, b >> 8);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4023 #endif /* HAVE_NTGUI */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4024
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4025 return pixel;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4026 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4027
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4028 static void
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4029 init_color_table ()
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4030 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4031 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4032 #endif /* COLOR_TABLE_SUPPORT */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4033
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4034
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4035 /***********************************************************************
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4036 Algorithms
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4037 ***********************************************************************/
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4038
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4039 static XColor *x_to_xcolors P_ ((struct frame *, struct image *, int));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4040 static void x_from_xcolors P_ ((struct frame *, struct image *, XColor *));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4041 static void x_detect_edges P_ ((struct frame *, struct image *, int[9], int));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4042
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4043 #ifdef HAVE_NTGUI
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4044 static void XPutPixel (XImagePtr , int, int, COLORREF);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4045 #endif /* HAVE_NTGUI */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4046
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4047 /* Non-zero means draw a cross on images having `:conversion
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4048 disabled'. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4049
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4050 int cross_disabled_images;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4051
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4052 /* Edge detection matrices for different edge-detection
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4053 strategies. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4054
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4055 static int emboss_matrix[9] = {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4056 /* x - 1 x x + 1 */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4057 2, -1, 0, /* y - 1 */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4058 -1, 0, 1, /* y */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4059 0, 1, -2 /* y + 1 */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4060 };
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4061
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4062 static int laplace_matrix[9] = {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4063 /* x - 1 x x + 1 */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4064 1, 0, 0, /* y - 1 */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4065 0, 0, 0, /* y */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4066 0, 0, -1 /* y + 1 */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4067 };
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4068
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4069 /* Value is the intensity of the color whose red/green/blue values
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4070 are R, G, and B. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4071
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4072 #define COLOR_INTENSITY(R, G, B) ((2 * (R) + 3 * (G) + (B)) / 6)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4073
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4074
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4075 /* On frame F, return an array of XColor structures describing image
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4076 IMG->pixmap. Each XColor structure has its pixel color set. RGB_P
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4077 non-zero means also fill the red/green/blue members of the XColor
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4078 structures. Value is a pointer to the array of XColors structures,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4079 allocated with xmalloc; it must be freed by the caller. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4080
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4081 static XColor *
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4082 x_to_xcolors (f, img, rgb_p)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4083 struct frame *f;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4084 struct image *img;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4085 int rgb_p;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4086 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4087 int x, y;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4088 XColor *colors, *p;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4089 XImagePtr_or_DC ximg;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4090 #ifdef HAVE_NTGUI
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4091 HDC hdc;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4092 HGDIOBJ prev;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4093 #endif /* HAVE_NTGUI */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4094
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4095 colors = (XColor *) xmalloc (img->width * img->height * sizeof *colors);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4096
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4097 #ifndef HAVE_NTGUI
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4098 /* Get the X image IMG->pixmap. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4099 ximg = XGetImage (FRAME_X_DISPLAY (f), img->pixmap,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4100 0, 0, img->width, img->height, ~0, ZPixmap);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4101 #else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4102 /* Load the image into a memory device context. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4103 hdc = get_frame_dc (f);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4104 ximg = CreateCompatibleDC (hdc);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4105 release_frame_dc (f, hdc);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4106 prev = SelectObject (ximg, img->pixmap);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4107 #endif /* HAVE_NTGUI */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4108
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4109 /* Fill the `pixel' members of the XColor array. I wished there
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4110 were an easy and portable way to circumvent XGetPixel. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4111 p = colors;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4112 for (y = 0; y < img->height; ++y)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4113 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4114 XColor *row = p;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4115
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4116 #ifdef HAVE_X_WINDOWS
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4117 for (x = 0; x < img->width; ++x, ++p)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4118 p->pixel = XGetPixel (ximg, x, y);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4119 if (rgb_p)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4120 x_query_colors (f, row, img->width);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4121
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4122 #else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4123
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4124 for (x = 0; x < img->width; ++x, ++p)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4125 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4126 /* W32_TODO: palette support needed here? */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4127 p->pixel = GET_PIXEL (ximg, x, y);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4128 if (rgb_p)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4129 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4130 #ifdef MAC_OS
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4131 p->red = RED16_FROM_ULONG (p->pixel);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4132 p->green = GREEN16_FROM_ULONG (p->pixel);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4133 p->blue = BLUE16_FROM_ULONG (p->pixel);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4134 #endif /* MAC_OS */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4135 #ifdef HAVE_NTGUI
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4136 p->red = 256 * GetRValue (p->pixel);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4137 p->green = 256 * GetGValue (p->pixel);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4138 p->blue = 256 * GetBValue (p->pixel);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4139 #endif /* HAVE_NTGUI */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4140 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4141 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4142 #endif /* HAVE_X_WINDOWS */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4143 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4144
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4145 Destroy_Image (ximg, prev);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4146
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4147 return colors;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4148 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4149
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4150 #ifdef HAVE_NTGUI
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4151
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4152 /* Put a pixel of COLOR at position X, Y in XIMG. XIMG must have been
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4153 created with CreateDIBSection, with the pointer to the bit values
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4154 stored in ximg->data. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4155
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4156 static void XPutPixel (ximg, x, y, color)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4157 XImagePtr ximg;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4158 int x, y;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4159 COLORREF color;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4160 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4161 int width = ximg->info.bmiHeader.biWidth;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4162 int height = ximg->info.bmiHeader.biHeight;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4163 unsigned char * pixel;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4164
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4165 /* True color images. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4166 if (ximg->info.bmiHeader.biBitCount == 24)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4167 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4168 int rowbytes = width * 3;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4169 /* Ensure scanlines are aligned on 4 byte boundaries. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4170 if (rowbytes % 4)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4171 rowbytes += 4 - (rowbytes % 4);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4172
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4173 pixel = ximg->data + y * rowbytes + x * 3;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4174 /* Windows bitmaps are in BGR order. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4175 *pixel = GetBValue (color);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4176 *(pixel + 1) = GetGValue (color);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4177 *(pixel + 2) = GetRValue (color);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4178 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4179 /* Monochrome images. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4180 else if (ximg->info.bmiHeader.biBitCount == 1)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4181 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4182 int rowbytes = width / 8;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4183 /* Ensure scanlines are aligned on 4 byte boundaries. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4184 if (rowbytes % 4)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4185 rowbytes += 4 - (rowbytes % 4);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4186 pixel = ximg->data + y * rowbytes + x / 8;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4187 /* Filter out palette info. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4188 if (color & 0x00ffffff)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4189 *pixel = *pixel | (1 << x % 8);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4190 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4191 *pixel = *pixel & ~(1 << x % 8);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4192 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4193 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4194 image_error ("XPutPixel: palette image not supported", Qnil, Qnil);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4195 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4196
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4197 #endif /* HAVE_NTGUI */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4198
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4199 /* Create IMG->pixmap from an array COLORS of XColor structures, whose
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4200 RGB members are set. F is the frame on which this all happens.
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4201 COLORS will be freed; an existing IMG->pixmap will be freed, too. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4202
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4203 static void
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4204 x_from_xcolors (f, img, colors)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4205 struct frame *f;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4206 struct image *img;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4207 XColor *colors;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4208 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4209 int x, y;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4210 XImagePtr oimg;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4211 Pixmap pixmap;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4212 XColor *p;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4213
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4214 init_color_table ();
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4215
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4216 x_create_x_image_and_pixmap (f, img->width, img->height, 0,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4217 &oimg, &pixmap);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4218 p = colors;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4219 for (y = 0; y < img->height; ++y)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4220 for (x = 0; x < img->width; ++x, ++p)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4221 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4222 unsigned long pixel;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4223 pixel = lookup_rgb_color (f, p->red, p->green, p->blue);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4224 XPutPixel (oimg, x, y, pixel);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4225 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4226
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4227 xfree (colors);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4228 x_clear_image_1 (f, img, 1, 0, 1);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4229
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4230 x_put_x_image (f, oimg, pixmap, img->width, img->height);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4231 x_destroy_x_image (oimg);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4232 img->pixmap = pixmap;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4233 #ifdef COLOR_TABLE_SUPPORT
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4234 img->colors = colors_in_color_table (&img->ncolors);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4235 free_color_table ();
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4236 #endif /* COLOR_TABLE_SUPPORT */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4237 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4238
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4239
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4240 /* On frame F, perform edge-detection on image IMG.
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4241
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4242 MATRIX is a nine-element array specifying the transformation
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4243 matrix. See emboss_matrix for an example.
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4244
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4245 COLOR_ADJUST is a color adjustment added to each pixel of the
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4246 outgoing image. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4247
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4248 static void
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4249 x_detect_edges (f, img, matrix, color_adjust)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4250 struct frame *f;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4251 struct image *img;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4252 int matrix[9], color_adjust;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4253 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4254 XColor *colors = x_to_xcolors (f, img, 1);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4255 XColor *new, *p;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4256 int x, y, i, sum;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4257
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4258 for (i = sum = 0; i < 9; ++i)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4259 sum += abs (matrix[i]);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4260
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4261 #define COLOR(A, X, Y) ((A) + (Y) * img->width + (X))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4262
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4263 new = (XColor *) xmalloc (img->width * img->height * sizeof *new);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4264
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4265 for (y = 0; y < img->height; ++y)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4266 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4267 p = COLOR (new, 0, y);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4268 p->red = p->green = p->blue = 0xffff/2;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4269 p = COLOR (new, img->width - 1, y);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4270 p->red = p->green = p->blue = 0xffff/2;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4271 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4272
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4273 for (x = 1; x < img->width - 1; ++x)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4274 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4275 p = COLOR (new, x, 0);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4276 p->red = p->green = p->blue = 0xffff/2;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4277 p = COLOR (new, x, img->height - 1);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4278 p->red = p->green = p->blue = 0xffff/2;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4279 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4280
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4281 for (y = 1; y < img->height - 1; ++y)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4282 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4283 p = COLOR (new, 1, y);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4284
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4285 for (x = 1; x < img->width - 1; ++x, ++p)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4286 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4287 int r, g, b, y1, x1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4288
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4289 r = g = b = i = 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4290 for (y1 = y - 1; y1 < y + 2; ++y1)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4291 for (x1 = x - 1; x1 < x + 2; ++x1, ++i)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4292 if (matrix[i])
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4293 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4294 XColor *t = COLOR (colors, x1, y1);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4295 r += matrix[i] * t->red;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4296 g += matrix[i] * t->green;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4297 b += matrix[i] * t->blue;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4298 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4299
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4300 r = (r / sum + color_adjust) & 0xffff;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4301 g = (g / sum + color_adjust) & 0xffff;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4302 b = (b / sum + color_adjust) & 0xffff;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4303 p->red = p->green = p->blue = COLOR_INTENSITY (r, g, b);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4304 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4305 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4306
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4307 xfree (colors);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4308 x_from_xcolors (f, img, new);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4309
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4310 #undef COLOR
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4311 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4312
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4313
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4314 /* Perform the pre-defined `emboss' edge-detection on image IMG
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4315 on frame F. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4316
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4317 static void
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4318 x_emboss (f, img)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4319 struct frame *f;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4320 struct image *img;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4321 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4322 x_detect_edges (f, img, emboss_matrix, 0xffff / 2);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4323 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4324
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4325
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4326 /* Transform image IMG which is used on frame F with a Laplace
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4327 edge-detection algorithm. The result is an image that can be used
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4328 to draw disabled buttons, for example. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4329
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4330 static void
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4331 x_laplace (f, img)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4332 struct frame *f;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4333 struct image *img;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4334 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4335 x_detect_edges (f, img, laplace_matrix, 45000);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4336 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4337
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4338
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4339 /* Perform edge-detection on image IMG on frame F, with specified
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4340 transformation matrix MATRIX and color-adjustment COLOR_ADJUST.
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4342 MATRIX must be either
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4343
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4344 - a list of at least 9 numbers in row-major form
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4345 - a vector of at least 9 numbers
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4346
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4347 COLOR_ADJUST nil means use a default; otherwise it must be a
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4348 number. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4349
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4350 static void
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4351 x_edge_detection (f, img, matrix, color_adjust)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4352 struct frame *f;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4353 struct image *img;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4354 Lisp_Object matrix, color_adjust;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4355 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4356 int i = 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4357 int trans[9];
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4358
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4359 if (CONSP (matrix))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4360 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4361 for (i = 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4362 i < 9 && CONSP (matrix) && NUMBERP (XCAR (matrix));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4363 ++i, matrix = XCDR (matrix))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4364 trans[i] = XFLOATINT (XCAR (matrix));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4365 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4366 else if (VECTORP (matrix) && ASIZE (matrix) >= 9)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4367 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4368 for (i = 0; i < 9 && NUMBERP (AREF (matrix, i)); ++i)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4369 trans[i] = XFLOATINT (AREF (matrix, i));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4370 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4371
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4372 if (NILP (color_adjust))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4373 color_adjust = make_number (0xffff / 2);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4374
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4375 if (i == 9 && NUMBERP (color_adjust))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4376 x_detect_edges (f, img, trans, (int) XFLOATINT (color_adjust));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4377 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4378
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4379
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4380 /* Transform image IMG on frame F so that it looks disabled. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4381
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4382 static void
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4383 x_disable_image (f, img)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4384 struct frame *f;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4385 struct image *img;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4386 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4387 Display_Info *dpyinfo = FRAME_X_DISPLAY_INFO (f);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4388 #ifdef HAVE_NTGUI
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4389 int n_planes = dpyinfo->n_planes * dpyinfo->n_cbits;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4390 #else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4391 int n_planes = dpyinfo->n_planes;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4392 #endif /* HAVE_NTGUI */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4393
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4394 if (n_planes >= 2)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4395 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4396 /* Color (or grayscale). Convert to gray, and equalize. Just
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4397 drawing such images with a stipple can look very odd, so
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4398 we're using this method instead. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4399 XColor *colors = x_to_xcolors (f, img, 1);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4400 XColor *p, *end;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4401 const int h = 15000;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4402 const int l = 30000;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4403
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4404 for (p = colors, end = colors + img->width * img->height;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4405 p < end;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4406 ++p)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4407 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4408 int i = COLOR_INTENSITY (p->red, p->green, p->blue);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4409 int i2 = (0xffff - h - l) * i / 0xffff + l;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4410 p->red = p->green = p->blue = i2;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4411 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4412
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4413 x_from_xcolors (f, img, colors);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4414 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4415
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4416 /* Draw a cross over the disabled image, if we must or if we
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4417 should. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4418 if (n_planes < 2 || cross_disabled_images)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4419 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4420 #ifndef HAVE_NTGUI
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4421 Display *dpy = FRAME_X_DISPLAY (f);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4422 GC gc;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4423
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4424 #ifdef MAC_OS
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4425 #define XCreateGC_pixmap(dpy, pixmap) XCreateGC (dpy, NULL, 0, NULL)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4426 #define MaskForeground(f) PIX_MASK_DRAW (f)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4427 #else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4428 #define XCreateGC_pixmap(dpy, pixmap) XCreateGC (dpy, pixmap, 0, NULL)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4429 #define MaskForeground(f) WHITE_PIX_DEFAULT (f)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4430 #endif
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4431
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4432 gc = XCreateGC_pixmap (dpy, img->pixmap);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4433 XSetForeground (dpy, gc, BLACK_PIX_DEFAULT (f));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4434 XDrawLine (dpy, img->pixmap, gc, 0, 0,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4435 img->width - 1, img->height - 1);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4436 XDrawLine (dpy, img->pixmap, gc, 0, img->height - 1,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4437 img->width - 1, 0);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4438 XFreeGC (dpy, gc);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4439
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4440 if (img->mask)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4441 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4442 gc = XCreateGC_pixmap (dpy, img->mask);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4443 XSetForeground (dpy, gc, MaskForeground (f));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4444 XDrawLine (dpy, img->mask, gc, 0, 0,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4445 img->width - 1, img->height - 1);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4446 XDrawLine (dpy, img->mask, gc, 0, img->height - 1,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4447 img->width - 1, 0);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4448 XFreeGC (dpy, gc);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4449 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4450 #else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4451 HDC hdc, bmpdc;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4452 HGDIOBJ prev;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4453
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4454 hdc = get_frame_dc (f);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4455 bmpdc = CreateCompatibleDC (hdc);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4456 release_frame_dc (f, hdc);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4457
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4458 prev = SelectObject (bmpdc, img->pixmap);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4459
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4460 SetTextColor (bmpdc, BLACK_PIX_DEFAULT (f));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4461 MoveToEx (bmpdc, 0, 0, NULL);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4462 LineTo (bmpdc, img->width - 1, img->height - 1);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4463 MoveToEx (bmpdc, 0, img->height - 1, NULL);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4464 LineTo (bmpdc, img->width - 1, 0);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4465
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4466 if (img->mask)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4467 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4468 SelectObject (bmpdc, img->mask);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4469 SetTextColor (bmpdc, WHITE_PIX_DEFAULT (f));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4470 MoveToEx (bmpdc, 0, 0, NULL);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4471 LineTo (bmpdc, img->width - 1, img->height - 1);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4472 MoveToEx (bmpdc, 0, img->height - 1, NULL);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4473 LineTo (bmpdc, img->width - 1, 0);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4474 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4475 SelectObject (bmpdc, prev);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4476 DeleteDC (bmpdc);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4477 #endif /* HAVE_NTGUI */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4478 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4479 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4480
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4481
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4482 /* Build a mask for image IMG which is used on frame F. FILE is the
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4483 name of an image file, for error messages. HOW determines how to
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4484 determine the background color of IMG. If it is a list '(R G B)',
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4485 with R, G, and B being integers >= 0, take that as the color of the
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4486 background. Otherwise, determine the background color of IMG
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4487 heuristically. Value is non-zero if successful. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4488
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4489 static int
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4490 x_build_heuristic_mask (f, img, how)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4491 struct frame *f;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4492 struct image *img;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4493 Lisp_Object how;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4494 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4495 XImagePtr_or_DC ximg;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4496 #ifndef HAVE_NTGUI
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4497 XImagePtr mask_img;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4498 #else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4499 HDC frame_dc;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4500 HGDIOBJ prev;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4501 char *mask_img;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4502 int row_width;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4503 #endif /* HAVE_NTGUI */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4504 int x, y, rc, use_img_background;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4505 unsigned long bg = 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4506
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4507 if (img->mask)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4508 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4509 Free_Pixmap (FRAME_X_DISPLAY (f), img->mask);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4510 img->mask = NO_PIXMAP;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4511 img->background_transparent_valid = 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4512 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4513
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4514 #ifndef HAVE_NTGUI
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4515 /* Create an image and pixmap serving as mask. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4516 rc = x_create_x_image_and_pixmap (f, img->width, img->height, 1,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4517 &mask_img, &img->mask);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4518 if (!rc)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4519 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4520
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4521 /* Get the X image of IMG->pixmap. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4522 ximg = XGetImage (FRAME_X_DISPLAY (f), img->pixmap, 0, 0,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4523 img->width, img->height,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4524 ~0, ZPixmap);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4525 #else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4526 /* Create the bit array serving as mask. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4527 row_width = (img->width + 7) / 8;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4528 mask_img = xmalloc (row_width * img->height);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4529 bzero (mask_img, row_width * img->height);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4530
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4531 /* Create a memory device context for IMG->pixmap. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4532 frame_dc = get_frame_dc (f);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4533 ximg = CreateCompatibleDC (frame_dc);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4534 release_frame_dc (f, frame_dc);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4535 prev = SelectObject (ximg, img->pixmap);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4536 #endif /* HAVE_NTGUI */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4537
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4538 /* Determine the background color of ximg. If HOW is `(R G B)'
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4539 take that as color. Otherwise, use the image's background color. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4540 use_img_background = 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4541
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4542 if (CONSP (how))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4543 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4544 int rgb[3], i;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4545
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4546 for (i = 0; i < 3 && CONSP (how) && NATNUMP (XCAR (how)); ++i)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4547 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4548 rgb[i] = XFASTINT (XCAR (how)) & 0xffff;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4549 how = XCDR (how);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4550 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4551
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4552 if (i == 3 && NILP (how))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4553 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4554 char color_name[30];
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4555 sprintf (color_name, "#%04x%04x%04x", rgb[0], rgb[1], rgb[2]);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4556 bg = (
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4557 #ifdef HAVE_NTGUI
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4558 0x00ffffff & /* Filter out palette info. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4559 #endif /* HAVE_NTGUI */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4560 x_alloc_image_color (f, img, build_string (color_name), 0));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4561 use_img_background = 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4562 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4563 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4564
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4565 if (use_img_background)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4566 bg = four_corners_best (ximg, img->width, img->height);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4567
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4568 /* Set all bits in mask_img to 1 whose color in ximg is different
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4569 from the background color bg. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4570 #ifndef HAVE_NTGUI
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4571 for (y = 0; y < img->height; ++y)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4572 for (x = 0; x < img->width; ++x)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4573 XPutPixel (mask_img, x, y, (XGetPixel (ximg, x, y) != bg
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4574 ? PIX_MASK_DRAW (f) : PIX_MASK_RETAIN (f)));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4575
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4576 /* Fill in the background_transparent field while we have the mask handy. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4577 image_background_transparent (img, f, mask_img);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4578
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4579 /* Put mask_img into img->mask. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4580 x_put_x_image (f, mask_img, img->mask, img->width, img->height);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4581 x_destroy_x_image (mask_img);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4582
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4583 #else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4584 for (y = 0; y < img->height; ++y)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4585 for (x = 0; x < img->width; ++x)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4586 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4587 COLORREF p = GetPixel (ximg, x, y);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4588 if (p != bg)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4589 mask_img[y * row_width + x / 8] |= 1 << (x % 8);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4590 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4591
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4592 /* Create the mask image. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4593 img->mask = w32_create_pixmap_from_bitmap_data (img->width, img->height,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4594 mask_img);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4595 /* Fill in the background_transparent field while we have the mask handy. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4596 SelectObject (ximg, img->mask);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4597 image_background_transparent (img, f, ximg);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4598
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4599 /* Was: x_destroy_x_image ((XImagePtr )mask_img); which seems bogus ++kfs */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4600 xfree (mask_img);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4601 #endif /* HAVE_NTGUI */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4602
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4603 Destroy_Image (ximg, prev);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4604
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4605 return 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4606 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4607
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4608
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4609 /***********************************************************************
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4610 PBM (mono, gray, color)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4611 ***********************************************************************/
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4612
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4613 static int pbm_image_p P_ ((Lisp_Object object));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4614 static int pbm_load P_ ((struct frame *f, struct image *img));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4615 static int pbm_scan_number P_ ((unsigned char **, unsigned char *));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4616
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4617 /* The symbol `pbm' identifying images of this type. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4618
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4619 Lisp_Object Qpbm;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4620
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4621 /* Indices of image specification fields in gs_format, below. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4622
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4623 enum pbm_keyword_index
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4624 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4625 PBM_TYPE,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4626 PBM_FILE,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4627 PBM_DATA,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4628 PBM_ASCENT,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4629 PBM_MARGIN,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4630 PBM_RELIEF,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4631 PBM_ALGORITHM,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4632 PBM_HEURISTIC_MASK,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4633 PBM_MASK,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4634 PBM_FOREGROUND,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4635 PBM_BACKGROUND,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4636 PBM_LAST
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4637 };
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4638
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4639 /* Vector of image_keyword structures describing the format
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4640 of valid user-defined image specifications. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4641
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4642 static struct image_keyword pbm_format[PBM_LAST] =
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4643 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4644 {":type", IMAGE_SYMBOL_VALUE, 1},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4645 {":file", IMAGE_STRING_VALUE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4646 {":data", IMAGE_STRING_VALUE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4647 {":ascent", IMAGE_ASCENT_VALUE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4648 {":margin", IMAGE_POSITIVE_INTEGER_VALUE_OR_PAIR, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4649 {":relief", IMAGE_INTEGER_VALUE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4650 {":conversion", IMAGE_DONT_CHECK_VALUE_TYPE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4651 {":heuristic-mask", IMAGE_DONT_CHECK_VALUE_TYPE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4652 {":mask", IMAGE_DONT_CHECK_VALUE_TYPE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4653 {":foreground", IMAGE_STRING_OR_NIL_VALUE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4654 {":background", IMAGE_STRING_OR_NIL_VALUE, 0}
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4655 };
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4656
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4657 /* Structure describing the image type `pbm'. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4658
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4659 static struct image_type pbm_type =
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4660 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4661 &Qpbm,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4662 pbm_image_p,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4663 pbm_load,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4664 x_clear_image,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4665 NULL
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4666 };
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4667
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4668
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4669 /* Return non-zero if OBJECT is a valid PBM image specification. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4670
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4671 static int
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4672 pbm_image_p (object)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4673 Lisp_Object object;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4674 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4675 struct image_keyword fmt[PBM_LAST];
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4676
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4677 bcopy (pbm_format, fmt, sizeof fmt);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4678
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4679 if (!parse_image_spec (object, fmt, PBM_LAST, Qpbm))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4680 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4681
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4682 /* Must specify either :data or :file. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4683 return fmt[PBM_DATA].count + fmt[PBM_FILE].count == 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4684 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4685
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4686
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4687 /* Scan a decimal number from *S and return it. Advance *S while
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4688 reading the number. END is the end of the string. Value is -1 at
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4689 end of input. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4690
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4691 static int
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4692 pbm_scan_number (s, end)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4693 unsigned char **s, *end;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4694 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4695 int c = 0, val = -1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4696
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4697 while (*s < end)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4698 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4699 /* Skip white-space. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4700 while (*s < end && (c = *(*s)++, isspace (c)))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4701 ;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4702
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4703 if (c == '#')
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4704 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4705 /* Skip comment to end of line. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4706 while (*s < end && (c = *(*s)++, c != '\n'))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4707 ;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4708 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4709 else if (isdigit (c))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4710 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4711 /* Read decimal number. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4712 val = c - '0';
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4713 while (*s < end && (c = *(*s)++, isdigit (c)))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4714 val = 10 * val + c - '0';
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4715 break;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4716 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4717 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4718 break;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4719 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4720
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4721 return val;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4722 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4723
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4724
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4725 #ifdef HAVE_NTGUI
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4726 #if 0 /* Unused. ++kfs */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4727
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4728 /* Read FILE into memory. Value is a pointer to a buffer allocated
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4729 with xmalloc holding FILE's contents. Value is null if an error
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4730 occurred. *SIZE is set to the size of the file. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4731
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4732 static char *
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4733 pbm_read_file (file, size)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4734 Lisp_Object file;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4735 int *size;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4736 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4737 FILE *fp = NULL;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4738 char *buf = NULL;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4739 struct stat st;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4740
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4741 if (stat (SDATA (file), &st) == 0
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4742 && (fp = fopen (SDATA (file), "rb")) != NULL
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4743 && (buf = (char *) xmalloc (st.st_size),
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4744 fread (buf, 1, st.st_size, fp) == st.st_size))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4745 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4746 *size = st.st_size;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4747 fclose (fp);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4748 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4749 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4750 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4751 if (fp)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4752 fclose (fp);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4753 if (buf)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4754 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4755 xfree (buf);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4756 buf = NULL;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4757 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4758 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4759
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4760 return buf;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4761 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4762 #endif
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4763 #endif /* HAVE_NTGUI */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4764
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4765 /* Load PBM image IMG for use on frame F. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4766
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4767 static int
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4768 pbm_load (f, img)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4769 struct frame *f;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4770 struct image *img;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4771 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4772 int raw_p, x, y;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4773 int width, height, max_color_idx = 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4774 XImagePtr ximg;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4775 Lisp_Object file, specified_file;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4776 enum {PBM_MONO, PBM_GRAY, PBM_COLOR} type;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4777 struct gcpro gcpro1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4778 unsigned char *contents = NULL;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4779 unsigned char *end, *p;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4780 int size;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4781
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4782 specified_file = image_spec_value (img->spec, QCfile, NULL);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4783 file = Qnil;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4784 GCPRO1 (file);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4785
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4786 if (STRINGP (specified_file))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4787 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4788 file = x_find_image_file (specified_file);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4789 if (!STRINGP (file))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4790 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4791 image_error ("Cannot find image file `%s'", specified_file, Qnil);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4792 UNGCPRO;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4793 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4794 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4795
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4796 contents = slurp_file (SDATA (file), &size);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4797 if (contents == NULL)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4798 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4799 image_error ("Error reading `%s'", file, Qnil);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4800 UNGCPRO;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4801 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4802 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4803
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4804 p = contents;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4805 end = contents + size;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4806 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4807 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4808 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4809 Lisp_Object data;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4810 data = image_spec_value (img->spec, QCdata, NULL);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4811 p = SDATA (data);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4812 end = p + SBYTES (data);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4813 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4814
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4815 /* Check magic number. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4816 if (end - p < 2 || *p++ != 'P')
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4817 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4818 image_error ("Not a PBM image: `%s'", img->spec, Qnil);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4819 error:
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4820 xfree (contents);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4821 UNGCPRO;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4822 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4823 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4824
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4825 switch (*p++)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4826 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4827 case '1':
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4828 raw_p = 0, type = PBM_MONO;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4829 break;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4830
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4831 case '2':
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4832 raw_p = 0, type = PBM_GRAY;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4833 break;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4834
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4835 case '3':
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4836 raw_p = 0, type = PBM_COLOR;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4837 break;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4838
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4839 case '4':
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4840 raw_p = 1, type = PBM_MONO;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4841 break;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4842
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4843 case '5':
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4844 raw_p = 1, type = PBM_GRAY;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4845 break;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4846
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4847 case '6':
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4848 raw_p = 1, type = PBM_COLOR;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4849 break;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4850
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4851 default:
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4852 image_error ("Not a PBM image: `%s'", img->spec, Qnil);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4853 goto error;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4854 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4855
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4856 /* Read width, height, maximum color-component. Characters
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4857 starting with `#' up to the end of a line are ignored. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4858 width = pbm_scan_number (&p, end);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4859 height = pbm_scan_number (&p, end);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4860
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4861 if (type != PBM_MONO)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4862 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4863 max_color_idx = pbm_scan_number (&p, end);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4864 if (raw_p && max_color_idx > 255)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4865 max_color_idx = 255;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4866 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4867
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4868 if (width < 0
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4869 || height < 0
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4870 || (type != PBM_MONO && max_color_idx < 0))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4871 goto error;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4872
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4873 if (!x_create_x_image_and_pixmap (f, width, height, 0,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4874 &ximg, &img->pixmap))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4875 goto error;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4876
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4877 /* Initialize the color hash table. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4878 init_color_table ();
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4879
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4880 if (type == PBM_MONO)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4881 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4882 int c = 0, g;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4883 struct image_keyword fmt[PBM_LAST];
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4884 unsigned long fg = FRAME_FOREGROUND_PIXEL (f);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4885 unsigned long bg = FRAME_BACKGROUND_PIXEL (f);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4886
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4887 /* Parse the image specification. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4888 bcopy (pbm_format, fmt, sizeof fmt);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4889 parse_image_spec (img->spec, fmt, PBM_LAST, Qpbm);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4890
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4891 /* Get foreground and background colors, maybe allocate colors. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4892 if (fmt[PBM_FOREGROUND].count
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4893 && STRINGP (fmt[PBM_FOREGROUND].value))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4894 fg = x_alloc_image_color (f, img, fmt[PBM_FOREGROUND].value, fg);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4895 if (fmt[PBM_BACKGROUND].count
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4896 && STRINGP (fmt[PBM_BACKGROUND].value))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4897 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4898 bg = x_alloc_image_color (f, img, fmt[PBM_BACKGROUND].value, bg);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4899 img->background = bg;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4900 img->background_valid = 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4901 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4902
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4903 for (y = 0; y < height; ++y)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4904 for (x = 0; x < width; ++x)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4905 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4906 if (raw_p)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4907 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4908 if ((x & 7) == 0)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4909 c = *p++;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4910 g = c & 0x80;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4911 c <<= 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4912 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4913 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4914 g = pbm_scan_number (&p, end);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4915
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4916 XPutPixel (ximg, x, y, g ? fg : bg);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4917 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4918 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4919 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4920 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4921 for (y = 0; y < height; ++y)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4922 for (x = 0; x < width; ++x)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4923 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4924 int r, g, b;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4925
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4926 if (type == PBM_GRAY)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4927 r = g = b = raw_p ? *p++ : pbm_scan_number (&p, end);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4928 else if (raw_p)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4929 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4930 r = *p++;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4931 g = *p++;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4932 b = *p++;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4933 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4934 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4935 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4936 r = pbm_scan_number (&p, end);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4937 g = pbm_scan_number (&p, end);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4938 b = pbm_scan_number (&p, end);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4939 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4940
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4941 if (r < 0 || g < 0 || b < 0)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4942 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4943 x_destroy_x_image (ximg);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4944 image_error ("Invalid pixel value in image `%s'",
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4945 img->spec, Qnil);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4946 goto error;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4947 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4948
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4949 /* RGB values are now in the range 0..max_color_idx.
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4950 Scale this to the range 0..0xffff supported by X. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4951 r = (double) r * 65535 / max_color_idx;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4952 g = (double) g * 65535 / max_color_idx;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4953 b = (double) b * 65535 / max_color_idx;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4954 XPutPixel (ximg, x, y, lookup_rgb_color (f, r, g, b));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4955 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4956 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4957
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4958 #ifdef COLOR_TABLE_SUPPORT
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4959 /* Store in IMG->colors the colors allocated for the image, and
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4960 free the color table. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4961 img->colors = colors_in_color_table (&img->ncolors);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4962 free_color_table ();
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4963 #endif /* COLOR_TABLE_SUPPORT */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4964
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4965 img->width = width;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4966 img->height = height;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4967
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4968 /* Maybe fill in the background field while we have ximg handy. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4969
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4970 if (NILP (image_spec_value (img->spec, QCbackground, NULL)))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4971 IMAGE_BACKGROUND (img, f, ximg);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4972
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4973 /* Put the image into a pixmap. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4974 x_put_x_image (f, ximg, img->pixmap, width, height);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4975 x_destroy_x_image (ximg);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4976
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4977 /* X and W32 versions did it here, MAC version above. ++kfs
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4978 img->width = width;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4979 img->height = height; */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4980
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4981 UNGCPRO;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4982 xfree (contents);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4983 return 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4984 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4985
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4986
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4987 /***********************************************************************
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4988 PNG
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4989 ***********************************************************************/
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4990
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4991 #if defined (HAVE_PNG) || defined (MAC_OS)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4992
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4993 /* Function prototypes. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4994
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4995 static int png_image_p P_ ((Lisp_Object object));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4996 static int png_load P_ ((struct frame *f, struct image *img));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4997
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4998 /* The symbol `png' identifying images of this type. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4999
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5000 Lisp_Object Qpng;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5001
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5002 /* Indices of image specification fields in png_format, below. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5003
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5004 enum png_keyword_index
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5005 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5006 PNG_TYPE,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5007 PNG_DATA,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5008 PNG_FILE,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5009 PNG_ASCENT,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5010 PNG_MARGIN,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5011 PNG_RELIEF,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5012 PNG_ALGORITHM,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5013 PNG_HEURISTIC_MASK,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5014 PNG_MASK,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5015 PNG_BACKGROUND,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5016 PNG_LAST
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5017 };
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5018
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5019 /* Vector of image_keyword structures describing the format
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5020 of valid user-defined image specifications. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5021
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5022 static struct image_keyword png_format[PNG_LAST] =
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5023 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5024 {":type", IMAGE_SYMBOL_VALUE, 1},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5025 {":data", IMAGE_STRING_VALUE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5026 {":file", IMAGE_STRING_VALUE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5027 {":ascent", IMAGE_ASCENT_VALUE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5028 {":margin", IMAGE_POSITIVE_INTEGER_VALUE_OR_PAIR, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5029 {":relief", IMAGE_INTEGER_VALUE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5030 {":conversion", IMAGE_DONT_CHECK_VALUE_TYPE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5031 {":heuristic-mask", IMAGE_DONT_CHECK_VALUE_TYPE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5032 {":mask", IMAGE_DONT_CHECK_VALUE_TYPE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5033 {":background", IMAGE_STRING_OR_NIL_VALUE, 0}
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5034 };
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5035
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5036 /* Structure describing the image type `png'. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5037
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5038 static struct image_type png_type =
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5039 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5040 &Qpng,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5041 png_image_p,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5042 png_load,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5043 x_clear_image,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5044 NULL
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5045 };
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5046
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5047 /* Return non-zero if OBJECT is a valid PNG image specification. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5048
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5049 static int
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5050 png_image_p (object)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5051 Lisp_Object object;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5052 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5053 struct image_keyword fmt[PNG_LAST];
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5054 bcopy (png_format, fmt, sizeof fmt);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5055
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5056 if (!parse_image_spec (object, fmt, PNG_LAST, Qpng))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5057 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5058
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5059 /* Must specify either the :data or :file keyword. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5060 return fmt[PNG_FILE].count + fmt[PNG_DATA].count == 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5061 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5062
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5063 #endif /* HAVE_PNG || MAC_OS */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5064
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5065
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5066 #ifdef HAVE_PNG
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5067
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5068 #if defined HAVE_LIBPNG_PNG_H
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5069 # include <libpng/png.h>
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5070 #else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5071 # include <png.h>
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5072 #endif
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5073
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5074 #ifdef HAVE_NTGUI
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5075 /* PNG library details. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5076
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5077 DEF_IMGLIB_FN (png_get_io_ptr);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5078 DEF_IMGLIB_FN (png_check_sig);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5079 DEF_IMGLIB_FN (png_create_read_struct);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5080 DEF_IMGLIB_FN (png_create_info_struct);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5081 DEF_IMGLIB_FN (png_destroy_read_struct);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5082 DEF_IMGLIB_FN (png_set_read_fn);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5083 DEF_IMGLIB_FN (png_init_io);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5084 DEF_IMGLIB_FN (png_set_sig_bytes);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5085 DEF_IMGLIB_FN (png_read_info);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5086 DEF_IMGLIB_FN (png_get_IHDR);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5087 DEF_IMGLIB_FN (png_get_valid);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5088 DEF_IMGLIB_FN (png_set_strip_16);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5089 DEF_IMGLIB_FN (png_set_expand);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5090 DEF_IMGLIB_FN (png_set_gray_to_rgb);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5091 DEF_IMGLIB_FN (png_set_background);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5092 DEF_IMGLIB_FN (png_get_bKGD);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5093 DEF_IMGLIB_FN (png_read_update_info);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5094 DEF_IMGLIB_FN (png_get_channels);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5095 DEF_IMGLIB_FN (png_get_rowbytes);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5096 DEF_IMGLIB_FN (png_read_image);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5097 DEF_IMGLIB_FN (png_read_end);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5098 DEF_IMGLIB_FN (png_error);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5099
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5100 static int
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5101 init_png_functions (void)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5102 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5103 HMODULE library;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5104
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5105 /* Ensure zlib is loaded. Try debug version first. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5106 if (!LoadLibrary ("zlibd.dll")
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5107 && !LoadLibrary ("zlib.dll"))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5108 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5109
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5110 /* Try loading libpng under probable names. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5111 if (!(library = LoadLibrary ("libpng13d.dll"))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5112 && !(library = LoadLibrary ("libpng13.dll"))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5113 && !(library = LoadLibrary ("libpng12d.dll"))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5114 && !(library = LoadLibrary ("libpng12.dll"))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5115 && !(library = LoadLibrary ("libpng.dll")))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5116 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5117
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5118 LOAD_IMGLIB_FN (library, png_get_io_ptr);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5119 LOAD_IMGLIB_FN (library, png_check_sig);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5120 LOAD_IMGLIB_FN (library, png_create_read_struct);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5121 LOAD_IMGLIB_FN (library, png_create_info_struct);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5122 LOAD_IMGLIB_FN (library, png_destroy_read_struct);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5123 LOAD_IMGLIB_FN (library, png_set_read_fn);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5124 LOAD_IMGLIB_FN (library, png_init_io);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5125 LOAD_IMGLIB_FN (library, png_set_sig_bytes);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5126 LOAD_IMGLIB_FN (library, png_read_info);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5127 LOAD_IMGLIB_FN (library, png_get_IHDR);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5128 LOAD_IMGLIB_FN (library, png_get_valid);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5129 LOAD_IMGLIB_FN (library, png_set_strip_16);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5130 LOAD_IMGLIB_FN (library, png_set_expand);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5131 LOAD_IMGLIB_FN (library, png_set_gray_to_rgb);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5132 LOAD_IMGLIB_FN (library, png_set_background);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5133 LOAD_IMGLIB_FN (library, png_get_bKGD);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5134 LOAD_IMGLIB_FN (library, png_read_update_info);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5135 LOAD_IMGLIB_FN (library, png_get_channels);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5136 LOAD_IMGLIB_FN (library, png_get_rowbytes);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5137 LOAD_IMGLIB_FN (library, png_read_image);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5138 LOAD_IMGLIB_FN (library, png_read_end);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5139 LOAD_IMGLIB_FN (library, png_error);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5140 return 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5141 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5142 #else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5143
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5144 #define fn_png_get_io_ptr png_get_io_ptr
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5145 #define fn_png_check_sig png_check_sig
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5146 #define fn_png_create_read_struct png_create_read_struct
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5147 #define fn_png_create_info_struct png_create_info_struct
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5148 #define fn_png_destroy_read_struct png_destroy_read_struct
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5149 #define fn_png_set_read_fn png_set_read_fn
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5150 #define fn_png_init_io png_init_io
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5151 #define fn_png_set_sig_bytes png_set_sig_bytes
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5152 #define fn_png_read_info png_read_info
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5153 #define fn_png_get_IHDR png_get_IHDR
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5154 #define fn_png_get_valid png_get_valid
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5155 #define fn_png_set_strip_16 png_set_strip_16
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5156 #define fn_png_set_expand png_set_expand
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5157 #define fn_png_set_gray_to_rgb png_set_gray_to_rgb
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5158 #define fn_png_set_background png_set_background
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5159 #define fn_png_get_bKGD png_get_bKGD
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5160 #define fn_png_read_update_info png_read_update_info
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5161 #define fn_png_get_channels png_get_channels
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5162 #define fn_png_get_rowbytes png_get_rowbytes
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5163 #define fn_png_read_image png_read_image
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5164 #define fn_png_read_end png_read_end
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5165 #define fn_png_error png_error
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5166
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5167 #endif /* HAVE_NTGUI */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5168
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5169 /* Error and warning handlers installed when the PNG library
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5170 is initialized. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5171
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5172 static void
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5173 my_png_error (png_ptr, msg)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5174 png_struct *png_ptr;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5175 char *msg;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5176 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5177 xassert (png_ptr != NULL);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5178 image_error ("PNG error: %s", build_string (msg), Qnil);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5179 longjmp (png_ptr->jmpbuf, 1);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5180 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5181
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5182
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5183 static void
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5184 my_png_warning (png_ptr, msg)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5185 png_struct *png_ptr;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5186 char *msg;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5187 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5188 xassert (png_ptr != NULL);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5189 image_error ("PNG warning: %s", build_string (msg), Qnil);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5190 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5191
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5192 /* Memory source for PNG decoding. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5193
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5194 struct png_memory_storage
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5195 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5196 unsigned char *bytes; /* The data */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5197 size_t len; /* How big is it? */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5198 int index; /* Where are we? */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5199 };
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5200
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5201
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5202 /* Function set as reader function when reading PNG image from memory.
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5203 PNG_PTR is a pointer to the PNG control structure. Copy LENGTH
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5204 bytes from the input to DATA. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5205
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5206 static void
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5207 png_read_from_memory (png_ptr, data, length)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5208 png_structp png_ptr;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5209 png_bytep data;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5210 png_size_t length;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5211 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5212 struct png_memory_storage *tbr
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5213 = (struct png_memory_storage *) fn_png_get_io_ptr (png_ptr);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5214
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5215 if (length > tbr->len - tbr->index)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5216 fn_png_error (png_ptr, "Read error");
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5217
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5218 bcopy (tbr->bytes + tbr->index, data, length);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5219 tbr->index = tbr->index + length;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5220 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5221
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5222 /* Load PNG image IMG for use on frame F. Value is non-zero if
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5223 successful. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5224
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5225 static int
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5226 png_load (f, img)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5227 struct frame *f;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5228 struct image *img;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5229 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5230 Lisp_Object file, specified_file;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5231 Lisp_Object specified_data;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5232 int x, y, i;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5233 XImagePtr ximg, mask_img = NULL;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5234 struct gcpro gcpro1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5235 png_struct *png_ptr = NULL;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5236 png_info *info_ptr = NULL, *end_info = NULL;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5237 FILE *volatile fp = NULL;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5238 png_byte sig[8];
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5239 png_byte * volatile pixels = NULL;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5240 png_byte ** volatile rows = NULL;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5241 png_uint_32 width, height;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5242 int bit_depth, color_type, interlace_type;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5243 png_byte channels;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5244 png_uint_32 row_bytes;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5245 int transparent_p;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5246 double screen_gamma;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5247 struct png_memory_storage tbr; /* Data to be read */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5248
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5249 /* Find out what file to load. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5250 specified_file = image_spec_value (img->spec, QCfile, NULL);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5251 specified_data = image_spec_value (img->spec, QCdata, NULL);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5252 file = Qnil;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5253 GCPRO1 (file);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5254
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5255 if (NILP (specified_data))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5256 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5257 file = x_find_image_file (specified_file);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5258 if (!STRINGP (file))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5259 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5260 image_error ("Cannot find image file `%s'", specified_file, Qnil);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5261 UNGCPRO;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5262 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5263 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5264
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5265 /* Open the image file. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5266 fp = fopen (SDATA (file), "rb");
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5267 if (!fp)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5268 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5269 image_error ("Cannot open image file `%s'", file, Qnil);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5270 UNGCPRO;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5271 fclose (fp);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5272 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5273 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5274
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5275 /* Check PNG signature. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5276 if (fread (sig, 1, sizeof sig, fp) != sizeof sig
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5277 || !fn_png_check_sig (sig, sizeof sig))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5278 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5279 image_error ("Not a PNG file: `%s'", file, Qnil);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5280 UNGCPRO;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5281 fclose (fp);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5282 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5283 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5284 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5285 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5286 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5287 /* Read from memory. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5288 tbr.bytes = SDATA (specified_data);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5289 tbr.len = SBYTES (specified_data);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5290 tbr.index = 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5291
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5292 /* Check PNG signature. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5293 if (tbr.len < sizeof sig
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5294 || !fn_png_check_sig (tbr.bytes, sizeof sig))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5295 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5296 image_error ("Not a PNG image: `%s'", img->spec, Qnil);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5297 UNGCPRO;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5298 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5299 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5300
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5301 /* Need to skip past the signature. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5302 tbr.bytes += sizeof (sig);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5303 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5304
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5305 /* Initialize read and info structs for PNG lib. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5306 png_ptr = fn_png_create_read_struct (PNG_LIBPNG_VER_STRING, NULL,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5307 my_png_error, my_png_warning);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5308 if (!png_ptr)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5309 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5310 if (fp) fclose (fp);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5311 UNGCPRO;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5312 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5313 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5314
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5315 info_ptr = fn_png_create_info_struct (png_ptr);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5316 if (!info_ptr)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5317 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5318 fn_png_destroy_read_struct (&png_ptr, NULL, NULL);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5319 if (fp) fclose (fp);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5320 UNGCPRO;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5321 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5322 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5323
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5324 end_info = fn_png_create_info_struct (png_ptr);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5325 if (!end_info)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5326 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5327 fn_png_destroy_read_struct (&png_ptr, &info_ptr, NULL);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5328 if (fp) fclose (fp);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5329 UNGCPRO;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5330 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5331 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5332
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5333 /* Set error jump-back. We come back here when the PNG library
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5334 detects an error. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5335 if (setjmp (png_ptr->jmpbuf))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5336 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5337 error:
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5338 if (png_ptr)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5339 fn_png_destroy_read_struct (&png_ptr, &info_ptr, &end_info);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5340 xfree (pixels);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5341 xfree (rows);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5342 if (fp) fclose (fp);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5343 UNGCPRO;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5344 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5345 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5346
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5347 /* Read image info. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5348 if (!NILP (specified_data))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5349 fn_png_set_read_fn (png_ptr, (void *) &tbr, png_read_from_memory);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5350 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5351 fn_png_init_io (png_ptr, fp);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5352
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5353 fn_png_set_sig_bytes (png_ptr, sizeof sig);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5354 fn_png_read_info (png_ptr, info_ptr);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5355 fn_png_get_IHDR (png_ptr, info_ptr, &width, &height, &bit_depth, &color_type,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5356 &interlace_type, NULL, NULL);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5357
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5358 /* If image contains simply transparency data, we prefer to
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5359 construct a clipping mask. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5360 if (fn_png_get_valid (png_ptr, info_ptr, PNG_INFO_tRNS))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5361 transparent_p = 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5362 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5363 transparent_p = 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5364
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5365 /* This function is easier to write if we only have to handle
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5366 one data format: RGB or RGBA with 8 bits per channel. Let's
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5367 transform other formats into that format. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5368
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5369 /* Strip more than 8 bits per channel. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5370 if (bit_depth == 16)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5371 fn_png_set_strip_16 (png_ptr);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5372
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5373 /* Expand data to 24 bit RGB, or 8 bit grayscale, with alpha channel
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5374 if available. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5375 fn_png_set_expand (png_ptr);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5376
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5377 /* Convert grayscale images to RGB. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5378 if (color_type == PNG_COLOR_TYPE_GRAY
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5379 || color_type == PNG_COLOR_TYPE_GRAY_ALPHA)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5380 fn_png_set_gray_to_rgb (png_ptr);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5381
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5382 screen_gamma = (f->gamma ? 1 / f->gamma / 0.45455 : 2.2);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5383
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5384 #if 0 /* Avoid double gamma correction for PNG images. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5385 { /* Tell the PNG lib to handle gamma correction for us. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5386 int intent;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5387 double image_gamma;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5388 #if defined(PNG_READ_sRGB_SUPPORTED) || defined(PNG_WRITE_sRGB_SUPPORTED)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5389 if (png_get_sRGB (png_ptr, info_ptr, &intent))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5390 /* The libpng documentation says this is right in this case. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5391 png_set_gamma (png_ptr, screen_gamma, 0.45455);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5392 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5393 #endif
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5394 if (png_get_gAMA (png_ptr, info_ptr, &image_gamma))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5395 /* Image contains gamma information. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5396 png_set_gamma (png_ptr, screen_gamma, image_gamma);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5397 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5398 /* Use the standard default for the image gamma. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5399 png_set_gamma (png_ptr, screen_gamma, 0.45455);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5400 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5401 #endif /* if 0 */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5402
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5403 /* Handle alpha channel by combining the image with a background
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5404 color. Do this only if a real alpha channel is supplied. For
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5405 simple transparency, we prefer a clipping mask. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5406 if (!transparent_p)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5407 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5408 png_color_16 *image_bg;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5409 Lisp_Object specified_bg
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5410 = image_spec_value (img->spec, QCbackground, NULL);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5411
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5412 if (STRINGP (specified_bg))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5413 /* The user specified `:background', use that. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5414 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5415 /* W32 version incorrectly used COLORREF here!! ++kfs */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5416 XColor color;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5417 if (x_defined_color (f, SDATA (specified_bg), &color, 0))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5418 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5419 png_color_16 user_bg;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5420
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5421 bzero (&user_bg, sizeof user_bg);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5422 user_bg.red = color.red >> PNG_BG_COLOR_SHIFT;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5423 user_bg.green = color.green >> PNG_BG_COLOR_SHIFT;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5424 user_bg.blue = color.blue >> PNG_BG_COLOR_SHIFT;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5425
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5426 fn_png_set_background (png_ptr, &user_bg,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5427 PNG_BACKGROUND_GAMMA_SCREEN, 0, 1.0);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5428 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5429 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5430 else if (fn_png_get_bKGD (png_ptr, info_ptr, &image_bg))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5431 /* Image contains a background color with which to
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5432 combine the image. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5433 fn_png_set_background (png_ptr, image_bg,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5434 PNG_BACKGROUND_GAMMA_FILE, 1, 1.0);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5435 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5436 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5437 /* Image does not contain a background color with which
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5438 to combine the image data via an alpha channel. Use
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5439 the frame's background instead. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5440 #ifdef HAVE_X_WINDOWS
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5441 XColor color;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5442 png_color_16 frame_background;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5443
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5444 color.pixel = FRAME_BACKGROUND_PIXEL (f);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5445 x_query_color (f, &color);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5446
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5447 bzero (&frame_background, sizeof frame_background);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5448 frame_background.red = color.red;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5449 frame_background.green = color.green;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5450 frame_background.blue = color.blue;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5451 #endif /* HAVE_X_WINDOWS */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5452
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5453 #ifdef HAVE_NTGUI
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5454 COLORREF color;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5455 png_color_16 frame_background;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5456 color = FRAME_BACKGROUND_PIXEL (f);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5457 #if 0 /* W32 TODO : Colormap support. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5458 x_query_color (f, &color);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5459 #endif
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5460 bzero (&frame_background, sizeof frame_background);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5461 frame_background.red = 256 * GetRValue (color);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5462 frame_background.green = 256 * GetGValue (color);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5463 frame_background.blue = 256 * GetBValue (color);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5464 #endif /* HAVE_NTGUI */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5465
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5466 #ifdef MAC_OS
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5467 unsigned long color;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5468 png_color_16 frame_background;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5469 color = FRAME_BACKGROUND_PIXEL (f);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5470 #if 0 /* MAC/W32 TODO : Colormap support. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5471 x_query_color (f, &color);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5472 #endif
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5473 bzero (&frame_background, sizeof frame_background);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5474 frame_background.red = RED_FROM_ULONG (color);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5475 frame_background.green = GREEN_FROM_ULONG (color);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5476 frame_background.blue = BLUE_FROM_ULONG (color);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5477 #endif /* MAC_OS */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5478
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5479 fn_png_set_background (png_ptr, &frame_background,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5480 PNG_BACKGROUND_GAMMA_SCREEN, 0, 1.0);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5481 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5482 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5483
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5484 /* Update info structure. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5485 fn_png_read_update_info (png_ptr, info_ptr);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5486
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5487 /* Get number of channels. Valid values are 1 for grayscale images
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5488 and images with a palette, 2 for grayscale images with transparency
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5489 information (alpha channel), 3 for RGB images, and 4 for RGB
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5490 images with alpha channel, i.e. RGBA. If conversions above were
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5491 sufficient we should only have 3 or 4 channels here. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5492 channels = fn_png_get_channels (png_ptr, info_ptr);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5493 xassert (channels == 3 || channels == 4);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5494
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5495 /* Number of bytes needed for one row of the image. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5496 row_bytes = fn_png_get_rowbytes (png_ptr, info_ptr);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5497
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5498 /* Allocate memory for the image. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5499 pixels = (png_byte *) xmalloc (row_bytes * height * sizeof *pixels);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5500 rows = (png_byte **) xmalloc (height * sizeof *rows);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5501 for (i = 0; i < height; ++i)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5502 rows[i] = pixels + i * row_bytes;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5503
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5504 /* Read the entire image. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5505 fn_png_read_image (png_ptr, rows);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5506 fn_png_read_end (png_ptr, info_ptr);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5507 if (fp)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5508 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5509 fclose (fp);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5510 fp = NULL;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5511 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5512
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5513 /* Create the X image and pixmap. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5514 if (!x_create_x_image_and_pixmap (f, width, height, 0, &ximg,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5515 &img->pixmap))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5516 goto error;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5517
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5518 /* Create an image and pixmap serving as mask if the PNG image
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5519 contains an alpha channel. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5520 if (channels == 4
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5521 && !transparent_p
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5522 && !x_create_x_image_and_pixmap (f, width, height, 1,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5523 &mask_img, &img->mask))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5524 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5525 x_destroy_x_image (ximg);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5526 Free_Pixmap (FRAME_X_DISPLAY (f), img->pixmap);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5527 img->pixmap = NO_PIXMAP;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5528 goto error;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5529 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5530
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5531 /* Fill the X image and mask from PNG data. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5532 init_color_table ();
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5533
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5534 for (y = 0; y < height; ++y)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5535 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5536 png_byte *p = rows[y];
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5537
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5538 for (x = 0; x < width; ++x)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5539 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5540 unsigned r, g, b;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5541
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5542 r = *p++ << 8;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5543 g = *p++ << 8;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5544 b = *p++ << 8;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5545 XPutPixel (ximg, x, y, lookup_rgb_color (f, r, g, b));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5546 /* An alpha channel, aka mask channel, associates variable
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5547 transparency with an image. Where other image formats
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5548 support binary transparency---fully transparent or fully
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5549 opaque---PNG allows up to 254 levels of partial transparency.
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5550 The PNG library implements partial transparency by combining
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5551 the image with a specified background color.
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5552
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5553 I'm not sure how to handle this here nicely: because the
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5554 background on which the image is displayed may change, for
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5555 real alpha channel support, it would be necessary to create
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5556 a new image for each possible background.
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5557
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5558 What I'm doing now is that a mask is created if we have
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5559 boolean transparency information. Otherwise I'm using
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5560 the frame's background color to combine the image with. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5561
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5562 if (channels == 4)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5563 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5564 if (mask_img)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5565 XPutPixel (mask_img, x, y, *p > 0 ? PIX_MASK_DRAW (f) : PIX_MASK_RETAIN (f));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5566 ++p;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5567 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5568 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5569 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5570
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5571 if (NILP (image_spec_value (img->spec, QCbackground, NULL)))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5572 /* Set IMG's background color from the PNG image, unless the user
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5573 overrode it. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5574 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5575 png_color_16 *bg;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5576 if (fn_png_get_bKGD (png_ptr, info_ptr, &bg))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5577 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5578 img->background = lookup_rgb_color (f, bg->red, bg->green, bg->blue);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5579 img->background_valid = 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5580 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5581 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5582
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5583 #ifdef COLOR_TABLE_SUPPORT
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5584 /* Remember colors allocated for this image. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5585 img->colors = colors_in_color_table (&img->ncolors);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5586 free_color_table ();
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5587 #endif /* COLOR_TABLE_SUPPORT */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5588
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5589 /* Clean up. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5590 fn_png_destroy_read_struct (&png_ptr, &info_ptr, &end_info);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5591 xfree (rows);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5592 xfree (pixels);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5593
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5594 img->width = width;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5595 img->height = height;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5596
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5597 /* Maybe fill in the background field while we have ximg handy. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5598 IMAGE_BACKGROUND (img, f, ximg);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5599
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5600 /* Put the image into the pixmap, then free the X image and its buffer. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5601 x_put_x_image (f, ximg, img->pixmap, width, height);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5602 x_destroy_x_image (ximg);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5603
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5604 /* Same for the mask. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5605 if (mask_img)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5606 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5607 /* Fill in the background_transparent field while we have the mask
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5608 handy. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5609 image_background_transparent (img, f, mask_img);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5610
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5611 x_put_x_image (f, mask_img, img->mask, img->width, img->height);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5612 x_destroy_x_image (mask_img);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5613 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5614
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5615 UNGCPRO;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5616 return 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5617 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5618
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5619 #else /* HAVE_PNG */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5620
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5621 #ifdef MAC_OS
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5622 static int
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5623 png_load (f, img)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5624 struct frame *f;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5625 struct image *img;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5626 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5627 #ifdef MAC_OSX
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5628 if (MyCGImageCreateWithPNGDataProvider)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5629 return image_load_quartz2d (f, img, 1);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5630 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5631 #endif
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5632 return image_load_quicktime (f, img, kQTFileTypePNG);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5633 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5634 #endif /* MAC_OS */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5635
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5636 #endif /* !HAVE_PNG */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5637
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5638
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5639
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5640 /***********************************************************************
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5641 JPEG
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5642 ***********************************************************************/
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5643
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5644 #if defined (HAVE_JPEG) || defined (MAC_OS)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5645
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5646 static int jpeg_image_p P_ ((Lisp_Object object));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5647 static int jpeg_load P_ ((struct frame *f, struct image *img));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5648
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5649 /* The symbol `jpeg' identifying images of this type. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5650
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5651 Lisp_Object Qjpeg;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5652
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5653 /* Indices of image specification fields in gs_format, below. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5654
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5655 enum jpeg_keyword_index
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5656 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5657 JPEG_TYPE,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5658 JPEG_DATA,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5659 JPEG_FILE,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5660 JPEG_ASCENT,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5661 JPEG_MARGIN,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5662 JPEG_RELIEF,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5663 JPEG_ALGORITHM,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5664 JPEG_HEURISTIC_MASK,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5665 JPEG_MASK,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5666 JPEG_BACKGROUND,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5667 JPEG_LAST
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5668 };
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5669
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5670 /* Vector of image_keyword structures describing the format
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5671 of valid user-defined image specifications. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5672
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5673 static struct image_keyword jpeg_format[JPEG_LAST] =
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5674 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5675 {":type", IMAGE_SYMBOL_VALUE, 1},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5676 {":data", IMAGE_STRING_VALUE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5677 {":file", IMAGE_STRING_VALUE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5678 {":ascent", IMAGE_ASCENT_VALUE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5679 {":margin", IMAGE_POSITIVE_INTEGER_VALUE_OR_PAIR, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5680 {":relief", IMAGE_INTEGER_VALUE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5681 {":conversions", IMAGE_DONT_CHECK_VALUE_TYPE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5682 {":heuristic-mask", IMAGE_DONT_CHECK_VALUE_TYPE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5683 {":mask", IMAGE_DONT_CHECK_VALUE_TYPE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5684 {":background", IMAGE_STRING_OR_NIL_VALUE, 0}
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5685 };
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5686
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5687 /* Structure describing the image type `jpeg'. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5688
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5689 static struct image_type jpeg_type =
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5690 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5691 &Qjpeg,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5692 jpeg_image_p,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5693 jpeg_load,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5694 x_clear_image,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5695 NULL
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5696 };
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5697
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5698 /* Return non-zero if OBJECT is a valid JPEG image specification. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5699
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5700 static int
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5701 jpeg_image_p (object)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5702 Lisp_Object object;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5703 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5704 struct image_keyword fmt[JPEG_LAST];
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5705
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5706 bcopy (jpeg_format, fmt, sizeof fmt);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5707
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5708 if (!parse_image_spec (object, fmt, JPEG_LAST, Qjpeg))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5709 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5710
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5711 /* Must specify either the :data or :file keyword. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5712 return fmt[JPEG_FILE].count + fmt[JPEG_DATA].count == 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5713 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5714
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5715 #endif /* HAVE_JPEG || MAC_OS */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5716
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5717 #ifdef HAVE_JPEG
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5718
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5719 /* Work around a warning about HAVE_STDLIB_H being redefined in
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5720 jconfig.h. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5721 #ifdef HAVE_STDLIB_H
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5722 #define HAVE_STDLIB_H_1
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5723 #undef HAVE_STDLIB_H
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5724 #endif /* HAVE_STLIB_H */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5725
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5726 #include <jpeglib.h>
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5727 #include <jerror.h>
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5728 #include <setjmp.h>
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5729
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5730 #ifdef HAVE_STLIB_H_1
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5731 #define HAVE_STDLIB_H 1
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5732 #endif
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5733
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5734 #ifdef HAVE_NTGUI
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5735
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5736 /* JPEG library details. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5737 DEF_IMGLIB_FN (jpeg_CreateDecompress);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5738 DEF_IMGLIB_FN (jpeg_start_decompress);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5739 DEF_IMGLIB_FN (jpeg_finish_decompress);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5740 DEF_IMGLIB_FN (jpeg_destroy_decompress);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5741 DEF_IMGLIB_FN (jpeg_read_header);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5742 DEF_IMGLIB_FN (jpeg_read_scanlines);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5743 DEF_IMGLIB_FN (jpeg_stdio_src);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5744 DEF_IMGLIB_FN (jpeg_std_error);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5745 DEF_IMGLIB_FN (jpeg_resync_to_restart);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5746
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5747 static int
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5748 init_jpeg_functions (void)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5749 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5750 HMODULE library;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5751
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5752 if (!(library = LoadLibrary ("libjpeg.dll"))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5753 && !(library = LoadLibrary ("jpeg-62.dll"))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5754 && !(library = LoadLibrary ("jpeg.dll")))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5755 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5756
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5757 LOAD_IMGLIB_FN (library, jpeg_finish_decompress);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5758 LOAD_IMGLIB_FN (library, jpeg_read_scanlines);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5759 LOAD_IMGLIB_FN (library, jpeg_start_decompress);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5760 LOAD_IMGLIB_FN (library, jpeg_read_header);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5761 LOAD_IMGLIB_FN (library, jpeg_stdio_src);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5762 LOAD_IMGLIB_FN (library, jpeg_CreateDecompress);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5763 LOAD_IMGLIB_FN (library, jpeg_destroy_decompress);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5764 LOAD_IMGLIB_FN (library, jpeg_std_error);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5765 LOAD_IMGLIB_FN (library, jpeg_resync_to_restart);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5766 return 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5767 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5768
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5769 /* Wrapper since we can't directly assign the function pointer
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5770 to another function pointer that was declared more completely easily. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5771 static boolean
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5772 jpeg_resync_to_restart_wrapper(cinfo, desired)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5773 j_decompress_ptr cinfo;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5774 int desired;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5775 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5776 return fn_jpeg_resync_to_restart (cinfo, desired);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5777 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5778
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5779 #else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5780
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5781 #define fn_jpeg_CreateDecompress(a,b,c) jpeg_create_decompress(a)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5782 #define fn_jpeg_start_decompress jpeg_start_decompress
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5783 #define fn_jpeg_finish_decompress jpeg_finish_decompress
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5784 #define fn_jpeg_destroy_decompress jpeg_destroy_decompress
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5785 #define fn_jpeg_read_header jpeg_read_header
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5786 #define fn_jpeg_read_scanlines jpeg_read_scanlines
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5787 #define fn_jpeg_stdio_src jpeg_stdio_src
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5788 #define fn_jpeg_std_error jpeg_std_error
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5789 #define jpeg_resync_to_restart_wrapper jpeg_resync_to_restart
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5790
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5791 #endif /* HAVE_NTGUI */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5792
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5793 struct my_jpeg_error_mgr
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5794 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5795 struct jpeg_error_mgr pub;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5796 jmp_buf setjmp_buffer;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5797 };
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5798
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5799
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5800 static void
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5801 my_error_exit (cinfo)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5802 j_common_ptr cinfo;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5803 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5804 struct my_jpeg_error_mgr *mgr = (struct my_jpeg_error_mgr *) cinfo->err;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5805 longjmp (mgr->setjmp_buffer, 1);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5806 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5807
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5808
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5809 /* Init source method for JPEG data source manager. Called by
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5810 jpeg_read_header() before any data is actually read. See
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5811 libjpeg.doc from the JPEG lib distribution. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5812
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5813 static void
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5814 our_init_source (cinfo)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5815 j_decompress_ptr cinfo;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5816 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5817 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5818
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5819
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5820 /* Fill input buffer method for JPEG data source manager. Called
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5821 whenever more data is needed. We read the whole image in one step,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5822 so this only adds a fake end of input marker at the end. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5823
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5824 static boolean
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5825 our_fill_input_buffer (cinfo)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5826 j_decompress_ptr cinfo;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5827 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5828 /* Insert a fake EOI marker. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5829 struct jpeg_source_mgr *src = cinfo->src;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5830 static JOCTET buffer[2];
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5831
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5832 buffer[0] = (JOCTET) 0xFF;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5833 buffer[1] = (JOCTET) JPEG_EOI;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5834
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5835 src->next_input_byte = buffer;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5836 src->bytes_in_buffer = 2;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5837 return TRUE;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5838 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5839
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5840
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5841 /* Method to skip over NUM_BYTES bytes in the image data. CINFO->src
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5842 is the JPEG data source manager. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5843
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5844 static void
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5845 our_skip_input_data (cinfo, num_bytes)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5846 j_decompress_ptr cinfo;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5847 long num_bytes;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5848 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5849 struct jpeg_source_mgr *src = (struct jpeg_source_mgr *) cinfo->src;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5850
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5851 if (src)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5852 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5853 if (num_bytes > src->bytes_in_buffer)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5854 ERREXIT (cinfo, JERR_INPUT_EOF);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5855
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5856 src->bytes_in_buffer -= num_bytes;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5857 src->next_input_byte += num_bytes;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5858 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5859 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5860
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5861
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5862 /* Method to terminate data source. Called by
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5863 jpeg_finish_decompress() after all data has been processed. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5864
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5865 static void
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5866 our_term_source (cinfo)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5867 j_decompress_ptr cinfo;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5868 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5869 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5870
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5871
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5872 /* Set up the JPEG lib for reading an image from DATA which contains
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5873 LEN bytes. CINFO is the decompression info structure created for
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5874 reading the image. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5875
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5876 static void
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5877 jpeg_memory_src (cinfo, data, len)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5878 j_decompress_ptr cinfo;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5879 JOCTET *data;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5880 unsigned int len;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5881 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5882 struct jpeg_source_mgr *src;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5883
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5884 if (cinfo->src == NULL)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5885 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5886 /* First time for this JPEG object? */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5887 cinfo->src = (struct jpeg_source_mgr *)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5888 (*cinfo->mem->alloc_small) ((j_common_ptr) cinfo, JPOOL_PERMANENT,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5889 sizeof (struct jpeg_source_mgr));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5890 src = (struct jpeg_source_mgr *) cinfo->src;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5891 src->next_input_byte = data;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5892 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5893
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5894 src = (struct jpeg_source_mgr *) cinfo->src;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5895 src->init_source = our_init_source;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5896 src->fill_input_buffer = our_fill_input_buffer;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5897 src->skip_input_data = our_skip_input_data;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5898 src->resync_to_restart = jpeg_resync_to_restart_wrapper; /* Use default method. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5899 src->term_source = our_term_source;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5900 src->bytes_in_buffer = len;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5901 src->next_input_byte = data;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5902 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5903
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5904
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5905 /* Load image IMG for use on frame F. Patterned after example.c
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5906 from the JPEG lib. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5907
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5908 static int
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5909 jpeg_load (f, img)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5910 struct frame *f;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5911 struct image *img;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5912 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5913 struct jpeg_decompress_struct cinfo;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5914 struct my_jpeg_error_mgr mgr;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5915 Lisp_Object file, specified_file;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5916 Lisp_Object specified_data;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5917 FILE * volatile fp = NULL;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5918 JSAMPARRAY buffer;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5919 int row_stride, x, y;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5920 XImagePtr ximg = NULL;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5921 int rc;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5922 unsigned long *colors;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5923 int width, height;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5924 struct gcpro gcpro1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5925
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5926 /* Open the JPEG file. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5927 specified_file = image_spec_value (img->spec, QCfile, NULL);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5928 specified_data = image_spec_value (img->spec, QCdata, NULL);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5929 file = Qnil;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5930 GCPRO1 (file);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5931
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5932 if (NILP (specified_data))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5933 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5934 file = x_find_image_file (specified_file);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5935 if (!STRINGP (file))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5936 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5937 image_error ("Cannot find image file `%s'", specified_file, Qnil);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5938 UNGCPRO;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5939 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5940 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5941
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5942 fp = fopen (SDATA (file), "rb");
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5943 if (fp == NULL)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5944 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5945 image_error ("Cannot open `%s'", file, Qnil);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5946 UNGCPRO;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5947 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5948 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5949 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5950
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5951 /* Customize libjpeg's error handling to call my_error_exit when an
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5952 error is detected. This function will perform a longjmp. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5953 cinfo.err = fn_jpeg_std_error (&mgr.pub);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5954 mgr.pub.error_exit = my_error_exit;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5955
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5956 if ((rc = setjmp (mgr.setjmp_buffer)) != 0)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5957 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5958 if (rc == 1)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5959 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5960 /* Called from my_error_exit. Display a JPEG error. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5961 char buffer[JMSG_LENGTH_MAX];
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5962 cinfo.err->format_message ((j_common_ptr) &cinfo, buffer);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5963 image_error ("Error reading JPEG image `%s': %s", img->spec,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5964 build_string (buffer));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5965 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5966
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5967 /* Close the input file and destroy the JPEG object. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5968 if (fp)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5969 fclose ((FILE *) fp);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5970 fn_jpeg_destroy_decompress (&cinfo);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5971
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5972 /* If we already have an XImage, free that. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5973 x_destroy_x_image (ximg);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5974
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5975 /* Free pixmap and colors. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5976 x_clear_image (f, img);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5977
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5978 UNGCPRO;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5979 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5980 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5981
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5982 /* Create the JPEG decompression object. Let it read from fp.
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5983 Read the JPEG image header. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5984 fn_jpeg_CreateDecompress (&cinfo, JPEG_LIB_VERSION, sizeof (cinfo));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5985
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5986 if (NILP (specified_data))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5987 fn_jpeg_stdio_src (&cinfo, (FILE *) fp);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5988 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5989 jpeg_memory_src (&cinfo, SDATA (specified_data),
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5990 SBYTES (specified_data));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5991
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5992 fn_jpeg_read_header (&cinfo, TRUE);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5993
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5994 /* Customize decompression so that color quantization will be used.
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5995 Start decompression. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5996 cinfo.quantize_colors = TRUE;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5997 fn_jpeg_start_decompress (&cinfo);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5998 width = img->width = cinfo.output_width;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5999 height = img->height = cinfo.output_height;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6000
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6001 /* Create X image and pixmap. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6002 if (!x_create_x_image_and_pixmap (f, width, height, 0, &ximg, &img->pixmap))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6003 longjmp (mgr.setjmp_buffer, 2);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6004
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6005 /* Allocate colors. When color quantization is used,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6006 cinfo.actual_number_of_colors has been set with the number of
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6007 colors generated, and cinfo.colormap is a two-dimensional array
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6008 of color indices in the range 0..cinfo.actual_number_of_colors.
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6009 No more than 255 colors will be generated. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6010 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6011 int i, ir, ig, ib;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6012
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6013 if (cinfo.out_color_components > 2)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6014 ir = 0, ig = 1, ib = 2;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6015 else if (cinfo.out_color_components > 1)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6016 ir = 0, ig = 1, ib = 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6017 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6018 ir = 0, ig = 0, ib = 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6019
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6020 /* Use the color table mechanism because it handles colors that
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6021 cannot be allocated nicely. Such colors will be replaced with
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6022 a default color, and we don't have to care about which colors
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6023 can be freed safely, and which can't. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6024 init_color_table ();
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6025 colors = (unsigned long *) alloca (cinfo.actual_number_of_colors
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6026 * sizeof *colors);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6027
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6028 for (i = 0; i < cinfo.actual_number_of_colors; ++i)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6029 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6030 /* Multiply RGB values with 255 because X expects RGB values
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6031 in the range 0..0xffff. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6032 int r = cinfo.colormap[ir][i] << 8;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6033 int g = cinfo.colormap[ig][i] << 8;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6034 int b = cinfo.colormap[ib][i] << 8;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6035 colors[i] = lookup_rgb_color (f, r, g, b);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6036 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6037
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6038 #ifdef COLOR_TABLE_SUPPORT
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6039 /* Remember those colors actually allocated. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6040 img->colors = colors_in_color_table (&img->ncolors);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6041 free_color_table ();
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6042 #endif /* COLOR_TABLE_SUPPORT */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6043 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6044
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6045 /* Read pixels. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6046 row_stride = width * cinfo.output_components;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6047 buffer = cinfo.mem->alloc_sarray ((j_common_ptr) &cinfo, JPOOL_IMAGE,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6048 row_stride, 1);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6049 for (y = 0; y < height; ++y)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6050 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6051 fn_jpeg_read_scanlines (&cinfo, buffer, 1);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6052 for (x = 0; x < cinfo.output_width; ++x)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6053 XPutPixel (ximg, x, y, colors[buffer[0][x]]);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6054 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6055
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6056 /* Clean up. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6057 fn_jpeg_finish_decompress (&cinfo);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6058 fn_jpeg_destroy_decompress (&cinfo);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6059 if (fp)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6060 fclose ((FILE *) fp);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6061
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6062 /* Maybe fill in the background field while we have ximg handy. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6063 if (NILP (image_spec_value (img->spec, QCbackground, NULL)))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6064 IMAGE_BACKGROUND (img, f, ximg);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6065
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6066 /* Put the image into the pixmap. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6067 x_put_x_image (f, ximg, img->pixmap, width, height);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6068 x_destroy_x_image (ximg);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6069 UNGCPRO;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6070 return 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6071 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6072
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6073 #else /* HAVE_JPEG */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6074
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6075 #ifdef MAC_OS
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6076 static int
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6077 jpeg_load (f, img)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6078 struct frame *f;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6079 struct image *img;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6080 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6081 #ifdef MAC_OSX
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6082 return image_load_quartz2d (f, img, 0);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6083 #else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6084 return image_load_quicktime (f, img, kQTFileTypeJPEG);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6085 #endif
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6086 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6087 #endif /* MAC_OS */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6088
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6089 #endif /* !HAVE_JPEG */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6090
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6091
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6092
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6093 /***********************************************************************
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6094 TIFF
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6095 ***********************************************************************/
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6096
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6097 #if defined (HAVE_TIFF) || defined (MAC_OS)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6098
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6099 static int tiff_image_p P_ ((Lisp_Object object));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6100 static int tiff_load P_ ((struct frame *f, struct image *img));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6101
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6102 /* The symbol `tiff' identifying images of this type. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6103
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6104 Lisp_Object Qtiff;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6105
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6106 /* Indices of image specification fields in tiff_format, below. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6107
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6108 enum tiff_keyword_index
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6109 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6110 TIFF_TYPE,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6111 TIFF_DATA,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6112 TIFF_FILE,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6113 TIFF_ASCENT,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6114 TIFF_MARGIN,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6115 TIFF_RELIEF,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6116 TIFF_ALGORITHM,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6117 TIFF_HEURISTIC_MASK,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6118 TIFF_MASK,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6119 TIFF_BACKGROUND,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6120 TIFF_LAST
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6121 };
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6122
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6123 /* Vector of image_keyword structures describing the format
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6124 of valid user-defined image specifications. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6125
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6126 static struct image_keyword tiff_format[TIFF_LAST] =
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6127 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6128 {":type", IMAGE_SYMBOL_VALUE, 1},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6129 {":data", IMAGE_STRING_VALUE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6130 {":file", IMAGE_STRING_VALUE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6131 {":ascent", IMAGE_ASCENT_VALUE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6132 {":margin", IMAGE_POSITIVE_INTEGER_VALUE_OR_PAIR, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6133 {":relief", IMAGE_INTEGER_VALUE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6134 {":conversions", IMAGE_DONT_CHECK_VALUE_TYPE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6135 {":heuristic-mask", IMAGE_DONT_CHECK_VALUE_TYPE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6136 {":mask", IMAGE_DONT_CHECK_VALUE_TYPE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6137 {":background", IMAGE_STRING_OR_NIL_VALUE, 0}
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6138 };
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6139
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6140 /* Structure describing the image type `tiff'. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6141
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6142 static struct image_type tiff_type =
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6143 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6144 &Qtiff,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6145 tiff_image_p,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6146 tiff_load,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6147 x_clear_image,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6148 NULL
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6149 };
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6150
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6151 /* Return non-zero if OBJECT is a valid TIFF image specification. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6152
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6153 static int
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6154 tiff_image_p (object)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6155 Lisp_Object object;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6156 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6157 struct image_keyword fmt[TIFF_LAST];
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6158 bcopy (tiff_format, fmt, sizeof fmt);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6159
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6160 if (!parse_image_spec (object, fmt, TIFF_LAST, Qtiff))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6161 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6162
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6163 /* Must specify either the :data or :file keyword. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6164 return fmt[TIFF_FILE].count + fmt[TIFF_DATA].count == 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6165 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6166
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6167 #endif /* HAVE_TIFF || MAC_OS */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6168
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6169 #ifdef HAVE_TIFF
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6170
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6171 #include <tiffio.h>
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6172
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6173 #ifdef HAVE_NTGUI
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6174
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6175 /* TIFF library details. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6176 DEF_IMGLIB_FN (TIFFSetErrorHandler);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6177 DEF_IMGLIB_FN (TIFFSetWarningHandler);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6178 DEF_IMGLIB_FN (TIFFOpen);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6179 DEF_IMGLIB_FN (TIFFClientOpen);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6180 DEF_IMGLIB_FN (TIFFGetField);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6181 DEF_IMGLIB_FN (TIFFReadRGBAImage);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6182 DEF_IMGLIB_FN (TIFFClose);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6183
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6184 static int
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6185 init_tiff_functions (void)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6186 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6187 HMODULE library;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6188
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6189 if (!(library = LoadLibrary ("libtiff.dll")))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6190 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6191
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6192 LOAD_IMGLIB_FN (library, TIFFSetErrorHandler);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6193 LOAD_IMGLIB_FN (library, TIFFSetWarningHandler);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6194 LOAD_IMGLIB_FN (library, TIFFOpen);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6195 LOAD_IMGLIB_FN (library, TIFFClientOpen);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6196 LOAD_IMGLIB_FN (library, TIFFGetField);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6197 LOAD_IMGLIB_FN (library, TIFFReadRGBAImage);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6198 LOAD_IMGLIB_FN (library, TIFFClose);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6199 return 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6200 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6201
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6202 #else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6203
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6204 #define fn_TIFFSetErrorHandler TIFFSetErrorHandler
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6205 #define fn_TIFFSetWarningHandler TIFFSetWarningHandler
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6206 #define fn_TIFFOpen TIFFOpen
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6207 #define fn_TIFFClientOpen TIFFClientOpen
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6208 #define fn_TIFFGetField TIFFGetField
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6209 #define fn_TIFFReadRGBAImage TIFFReadRGBAImage
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6210 #define fn_TIFFClose TIFFClose
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6211
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6212 #endif /* HAVE_NTGUI */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6213
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6214
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6215 /* Reading from a memory buffer for TIFF images Based on the PNG
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6216 memory source, but we have to provide a lot of extra functions.
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6217 Blah.
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6218
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6219 We really only need to implement read and seek, but I am not
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6220 convinced that the TIFF library is smart enough not to destroy
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6221 itself if we only hand it the function pointers we need to
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6222 override. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6223
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6224 typedef struct
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6225 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6226 unsigned char *bytes;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6227 size_t len;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6228 int index;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6229 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6230 tiff_memory_source;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6231
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6232 static size_t
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6233 tiff_read_from_memory (data, buf, size)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6234 thandle_t data;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6235 tdata_t buf;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6236 tsize_t size;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6237 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6238 tiff_memory_source *src = (tiff_memory_source *) data;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6239
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6240 if (size > src->len - src->index)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6241 return (size_t) -1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6242 bcopy (src->bytes + src->index, buf, size);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6243 src->index += size;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6244 return size;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6245 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6246
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6247 static size_t
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6248 tiff_write_from_memory (data, buf, size)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6249 thandle_t data;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6250 tdata_t buf;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6251 tsize_t size;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6252 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6253 return (size_t) -1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6254 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6255
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6256 static toff_t
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6257 tiff_seek_in_memory (data, off, whence)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6258 thandle_t data;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6259 toff_t off;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6260 int whence;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6261 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6262 tiff_memory_source *src = (tiff_memory_source *) data;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6263 int idx;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6264
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6265 switch (whence)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6266 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6267 case SEEK_SET: /* Go from beginning of source. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6268 idx = off;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6269 break;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6270
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6271 case SEEK_END: /* Go from end of source. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6272 idx = src->len + off;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6273 break;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6274
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6275 case SEEK_CUR: /* Go from current position. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6276 idx = src->index + off;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6277 break;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6278
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6279 default: /* Invalid `whence'. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6280 return -1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6281 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6282
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6283 if (idx > src->len || idx < 0)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6284 return -1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6285
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6286 src->index = idx;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6287 return src->index;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6288 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6289
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6290 static int
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6291 tiff_close_memory (data)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6292 thandle_t data;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6293 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6294 /* NOOP */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6295 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6296 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6297
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6298 static int
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6299 tiff_mmap_memory (data, pbase, psize)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6300 thandle_t data;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6301 tdata_t *pbase;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6302 toff_t *psize;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6303 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6304 /* It is already _IN_ memory. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6305 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6306 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6307
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6308 static void
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6309 tiff_unmap_memory (data, base, size)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6310 thandle_t data;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6311 tdata_t base;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6312 toff_t size;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6313 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6314 /* We don't need to do this. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6315 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6316
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6317 static toff_t
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6318 tiff_size_of_memory (data)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6319 thandle_t data;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6320 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6321 return ((tiff_memory_source *) data)->len;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6322 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6323
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6324
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6325 static void
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6326 tiff_error_handler (title, format, ap)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6327 const char *title, *format;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6328 va_list ap;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6329 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6330 char buf[512];
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6331 int len;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6332
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6333 len = sprintf (buf, "TIFF error: %s ", title);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6334 vsprintf (buf + len, format, ap);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6335 add_to_log (buf, Qnil, Qnil);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6336 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6337
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6338
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6339 static void
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6340 tiff_warning_handler (title, format, ap)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6341 const char *title, *format;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6342 va_list ap;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6343 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6344 char buf[512];
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6345 int len;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6346
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6347 len = sprintf (buf, "TIFF warning: %s ", title);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6348 vsprintf (buf + len, format, ap);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6349 add_to_log (buf, Qnil, Qnil);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6350 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6351
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6352
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6353 /* Load TIFF image IMG for use on frame F. Value is non-zero if
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6354 successful. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6355
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6356 static int
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6357 tiff_load (f, img)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6358 struct frame *f;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6359 struct image *img;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6360 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6361 Lisp_Object file, specified_file;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6362 Lisp_Object specified_data;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6363 TIFF *tiff;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6364 int width, height, x, y;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6365 uint32 *buf;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6366 int rc;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6367 XImagePtr ximg;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6368 struct gcpro gcpro1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6369 tiff_memory_source memsrc;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6370
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6371 specified_file = image_spec_value (img->spec, QCfile, NULL);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6372 specified_data = image_spec_value (img->spec, QCdata, NULL);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6373 file = Qnil;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6374 GCPRO1 (file);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6375
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6376 fn_TIFFSetErrorHandler (tiff_error_handler);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6377 fn_TIFFSetWarningHandler (tiff_warning_handler);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6378
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6379 if (NILP (specified_data))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6380 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6381 /* Read from a file */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6382 file = x_find_image_file (specified_file);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6383 if (!STRINGP (file))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6384 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6385 image_error ("Cannot find image file `%s'", specified_file, Qnil);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6386 UNGCPRO;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6387 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6388 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6389
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6390 /* Try to open the image file. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6391 tiff = fn_TIFFOpen (SDATA (file), "r");
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6392 if (tiff == NULL)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6393 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6394 image_error ("Cannot open `%s'", file, Qnil);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6395 UNGCPRO;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6396 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6397 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6398 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6399 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6400 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6401 /* Memory source! */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6402 memsrc.bytes = SDATA (specified_data);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6403 memsrc.len = SBYTES (specified_data);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6404 memsrc.index = 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6405
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6406 tiff = fn_TIFFClientOpen ("memory_source", "r", &memsrc,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6407 (TIFFReadWriteProc) tiff_read_from_memory,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6408 (TIFFReadWriteProc) tiff_write_from_memory,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6409 tiff_seek_in_memory,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6410 tiff_close_memory,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6411 tiff_size_of_memory,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6412 tiff_mmap_memory,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6413 tiff_unmap_memory);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6414
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6415 if (!tiff)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6416 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6417 image_error ("Cannot open memory source for `%s'", img->spec, Qnil);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6418 UNGCPRO;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6419 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6420 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6421 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6422
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6423 /* Get width and height of the image, and allocate a raster buffer
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6424 of width x height 32-bit values. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6425 fn_TIFFGetField (tiff, TIFFTAG_IMAGEWIDTH, &width);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6426 fn_TIFFGetField (tiff, TIFFTAG_IMAGELENGTH, &height);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6427 buf = (uint32 *) xmalloc (width * height * sizeof *buf);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6428
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6429 rc = fn_TIFFReadRGBAImage (tiff, width, height, buf, 0);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6430 fn_TIFFClose (tiff);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6431 if (!rc)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6432 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6433 image_error ("Error reading TIFF image `%s'", img->spec, Qnil);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6434 xfree (buf);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6435 UNGCPRO;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6436 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6437 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6438
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6439 /* Create the X image and pixmap. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6440 if (!x_create_x_image_and_pixmap (f, width, height, 0, &ximg, &img->pixmap))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6441 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6442 xfree (buf);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6443 UNGCPRO;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6444 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6445 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6446
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6447 /* Initialize the color table. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6448 init_color_table ();
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6449
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6450 /* Process the pixel raster. Origin is in the lower-left corner. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6451 for (y = 0; y < height; ++y)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6452 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6453 uint32 *row = buf + y * width;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6454
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6455 for (x = 0; x < width; ++x)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6456 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6457 uint32 abgr = row[x];
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6458 int r = TIFFGetR (abgr) << 8;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6459 int g = TIFFGetG (abgr) << 8;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6460 int b = TIFFGetB (abgr) << 8;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6461 XPutPixel (ximg, x, height - 1 - y, lookup_rgb_color (f, r, g, b));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6462 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6463 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6464
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6465 #ifdef COLOR_TABLE_SUPPORT
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6466 /* Remember the colors allocated for the image. Free the color table. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6467 img->colors = colors_in_color_table (&img->ncolors);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6468 free_color_table ();
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6469 #endif /* COLOR_TABLE_SUPPORT */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6470
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6471 img->width = width;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6472 img->height = height;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6473
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6474 /* Maybe fill in the background field while we have ximg handy. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6475 if (NILP (image_spec_value (img->spec, QCbackground, NULL)))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6476 IMAGE_BACKGROUND (img, f, ximg);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6477
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6478 /* Put the image into the pixmap, then free the X image and its buffer. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6479 x_put_x_image (f, ximg, img->pixmap, width, height);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6480 x_destroy_x_image (ximg);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6481 xfree (buf);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6482
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6483 UNGCPRO;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6484 return 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6485 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6486
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6487 #else /* HAVE_TIFF */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6488
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6489 #ifdef MAC_OS
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6490 static int
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6491 tiff_load (f, img)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6492 struct frame *f;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6493 struct image *img;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6494 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6495 return image_load_quicktime (f, img, kQTFileTypeTIFF);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6496 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6497 #endif /* MAC_OS */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6498
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6499 #endif /* !HAVE_TIFF */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6500
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6501
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6502
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6503 /***********************************************************************
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6504 GIF
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6505 ***********************************************************************/
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6506
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6507 #if defined (HAVE_GIF) || defined (MAC_OS)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6508
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6509 static int gif_image_p P_ ((Lisp_Object object));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6510 static int gif_load P_ ((struct frame *f, struct image *img));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6511
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6512 /* The symbol `gif' identifying images of this type. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6513
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6514 Lisp_Object Qgif;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6515
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6516 /* Indices of image specification fields in gif_format, below. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6517
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6518 enum gif_keyword_index
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6519 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6520 GIF_TYPE,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6521 GIF_DATA,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6522 GIF_FILE,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6523 GIF_ASCENT,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6524 GIF_MARGIN,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6525 GIF_RELIEF,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6526 GIF_ALGORITHM,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6527 GIF_HEURISTIC_MASK,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6528 GIF_MASK,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6529 GIF_IMAGE,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6530 GIF_BACKGROUND,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6531 GIF_LAST
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6532 };
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6533
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6534 /* Vector of image_keyword structures describing the format
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6535 of valid user-defined image specifications. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6536
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6537 static struct image_keyword gif_format[GIF_LAST] =
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6538 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6539 {":type", IMAGE_SYMBOL_VALUE, 1},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6540 {":data", IMAGE_STRING_VALUE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6541 {":file", IMAGE_STRING_VALUE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6542 {":ascent", IMAGE_ASCENT_VALUE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6543 {":margin", IMAGE_POSITIVE_INTEGER_VALUE_OR_PAIR, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6544 {":relief", IMAGE_INTEGER_VALUE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6545 {":conversion", IMAGE_DONT_CHECK_VALUE_TYPE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6546 {":heuristic-mask", IMAGE_DONT_CHECK_VALUE_TYPE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6547 {":mask", IMAGE_DONT_CHECK_VALUE_TYPE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6548 {":image", IMAGE_NON_NEGATIVE_INTEGER_VALUE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6549 {":background", IMAGE_STRING_OR_NIL_VALUE, 0}
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6550 };
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6551
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6552 /* Structure describing the image type `gif'. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6553
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6554 static struct image_type gif_type =
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6555 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6556 &Qgif,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6557 gif_image_p,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6558 gif_load,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6559 x_clear_image,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6560 NULL
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6561 };
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6562
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6563 /* Return non-zero if OBJECT is a valid GIF image specification. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6564
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6565 static int
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6566 gif_image_p (object)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6567 Lisp_Object object;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6568 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6569 struct image_keyword fmt[GIF_LAST];
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6570 bcopy (gif_format, fmt, sizeof fmt);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6571
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6572 if (!parse_image_spec (object, fmt, GIF_LAST, Qgif))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6573 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6574
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6575 /* Must specify either the :data or :file keyword. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6576 return fmt[GIF_FILE].count + fmt[GIF_DATA].count == 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6577 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6578
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6579 #endif /* HAVE_GIF || MAC_OS */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6580
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6581 #ifdef HAVE_GIF
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6582
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6583 #if defined (HAVE_NTGUI) || defined (MAC_OS)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6584 /* avoid conflict with QuickdrawText.h */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6585 #define DrawText gif_DrawText
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6586 #include <gif_lib.h>
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6587 #undef DrawText
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6588
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6589 #else /* HAVE_NTGUI || MAC_OS */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6590
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6591 #include <gif_lib.h>
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6592
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6593 #endif /* HAVE_NTGUI || MAC_OS */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6594
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6595
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6596 #ifdef HAVE_NTGUI
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6597
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6598 /* GIF library details. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6599 DEF_IMGLIB_FN (DGifCloseFile);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6600 DEF_IMGLIB_FN (DGifSlurp);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6601 DEF_IMGLIB_FN (DGifOpen);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6602 DEF_IMGLIB_FN (DGifOpenFileName);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6603
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6604 static int
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6605 init_gif_functions (void)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6606 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6607 HMODULE library;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6608
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6609 if (!(library = LoadLibrary ("libungif.dll")))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6610 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6611
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6612 LOAD_IMGLIB_FN (library, DGifCloseFile);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6613 LOAD_IMGLIB_FN (library, DGifSlurp);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6614 LOAD_IMGLIB_FN (library, DGifOpen);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6615 LOAD_IMGLIB_FN (library, DGifOpenFileName);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6616 return 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6617 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6618
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6619 #else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6620
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6621 #define fn_DGifCloseFile DGifCloseFile
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6622 #define fn_DGifSlurp DGifSlurp
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6623 #define fn_DGifOpen DGifOpen
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6624 #define fn_DGifOpenFileName DGifOpenFileName
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6625
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6626 #endif /* HAVE_NTGUI */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6627
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6628 /* Reading a GIF image from memory
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6629 Based on the PNG memory stuff to a certain extent. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6630
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6631 typedef struct
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6632 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6633 unsigned char *bytes;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6634 size_t len;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6635 int index;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6636 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6637 gif_memory_source;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6638
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6639 /* Make the current memory source available to gif_read_from_memory.
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6640 It's done this way because not all versions of libungif support
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6641 a UserData field in the GifFileType structure. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6642 static gif_memory_source *current_gif_memory_src;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6643
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6644 static int
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6645 gif_read_from_memory (file, buf, len)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6646 GifFileType *file;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6647 GifByteType *buf;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6648 int len;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6649 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6650 gif_memory_source *src = current_gif_memory_src;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6651
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6652 if (len > src->len - src->index)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6653 return -1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6654
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6655 bcopy (src->bytes + src->index, buf, len);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6656 src->index += len;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6657 return len;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6658 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6659
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6660
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6661 /* Load GIF image IMG for use on frame F. Value is non-zero if
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6662 successful. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6663
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6664 static int
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6665 gif_load (f, img)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6666 struct frame *f;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6667 struct image *img;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6668 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6669 Lisp_Object file, specified_file;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6670 Lisp_Object specified_data;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6671 int rc, width, height, x, y, i;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6672 XImagePtr ximg;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6673 ColorMapObject *gif_color_map;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6674 unsigned long pixel_colors[256];
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6675 GifFileType *gif;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6676 struct gcpro gcpro1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6677 Lisp_Object image;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6678 int ino, image_left, image_top, image_width, image_height;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6679 gif_memory_source memsrc;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6680 unsigned char *raster;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6681
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6682 specified_file = image_spec_value (img->spec, QCfile, NULL);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6683 specified_data = image_spec_value (img->spec, QCdata, NULL);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6684 file = Qnil;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6685 GCPRO1 (file);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6686
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6687 if (NILP (specified_data))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6688 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6689 file = x_find_image_file (specified_file);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6690 if (!STRINGP (file))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6691 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6692 image_error ("Cannot find image file `%s'", specified_file, Qnil);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6693 UNGCPRO;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6694 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6695 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6696
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6697 /* Open the GIF file. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6698 gif = fn_DGifOpenFileName (SDATA (file));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6699 if (gif == NULL)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6700 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6701 image_error ("Cannot open `%s'", file, Qnil);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6702 UNGCPRO;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6703 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6704 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6705 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6706 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6707 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6708 /* Read from memory! */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6709 current_gif_memory_src = &memsrc;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6710 memsrc.bytes = SDATA (specified_data);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6711 memsrc.len = SBYTES (specified_data);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6712 memsrc.index = 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6713
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6714 gif = fn_DGifOpen(&memsrc, gif_read_from_memory);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6715 if (!gif)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6716 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6717 image_error ("Cannot open memory source `%s'", img->spec, Qnil);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6718 UNGCPRO;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6719 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6720 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6721 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6722
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6723 /* Read entire contents. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6724 rc = fn_DGifSlurp (gif);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6725 if (rc == GIF_ERROR)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6726 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6727 image_error ("Error reading `%s'", img->spec, Qnil);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6728 fn_DGifCloseFile (gif);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6729 UNGCPRO;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6730 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6731 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6732
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6733 image = image_spec_value (img->spec, QCindex, NULL);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6734 ino = INTEGERP (image) ? XFASTINT (image) : 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6735 if (ino >= gif->ImageCount)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6736 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6737 image_error ("Invalid image number `%s' in image `%s'",
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6738 image, img->spec);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6739 fn_DGifCloseFile (gif);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6740 UNGCPRO;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6741 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6742 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6743
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6744 width = img->width = max (gif->SWidth, gif->Image.Left + gif->Image.Width);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6745 height = img->height = max (gif->SHeight, gif->Image.Top + gif->Image.Height);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6746
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6747 /* Create the X image and pixmap. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6748 if (!x_create_x_image_and_pixmap (f, width, height, 0, &ximg, &img->pixmap))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6749 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6750 fn_DGifCloseFile (gif);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6751 UNGCPRO;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6752 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6753 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6754
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6755 /* Allocate colors. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6756 gif_color_map = gif->SavedImages[ino].ImageDesc.ColorMap;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6757 if (!gif_color_map)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6758 gif_color_map = gif->SColorMap;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6759 init_color_table ();
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6760 bzero (pixel_colors, sizeof pixel_colors);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6761
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6762 for (i = 0; i < gif_color_map->ColorCount; ++i)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6763 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6764 int r = gif_color_map->Colors[i].Red << 8;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6765 int g = gif_color_map->Colors[i].Green << 8;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6766 int b = gif_color_map->Colors[i].Blue << 8;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6767 pixel_colors[i] = lookup_rgb_color (f, r, g, b);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6768 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6769
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6770 #ifdef COLOR_TABLE_SUPPORT
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6771 img->colors = colors_in_color_table (&img->ncolors);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6772 free_color_table ();
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6773 #endif /* COLOR_TABLE_SUPPORT */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6774
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6775 /* Clear the part of the screen image that are not covered by
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6776 the image from the GIF file. Full animated GIF support
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6777 requires more than can be done here (see the gif89 spec,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6778 disposal methods). Let's simply assume that the part
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6779 not covered by a sub-image is in the frame's background color. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6780 image_top = gif->SavedImages[ino].ImageDesc.Top;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6781 image_left = gif->SavedImages[ino].ImageDesc.Left;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6782 image_width = gif->SavedImages[ino].ImageDesc.Width;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6783 image_height = gif->SavedImages[ino].ImageDesc.Height;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6784
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6785 for (y = 0; y < image_top; ++y)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6786 for (x = 0; x < width; ++x)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6787 XPutPixel (ximg, x, y, FRAME_BACKGROUND_PIXEL (f));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6788
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6789 for (y = image_top + image_height; y < height; ++y)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6790 for (x = 0; x < width; ++x)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6791 XPutPixel (ximg, x, y, FRAME_BACKGROUND_PIXEL (f));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6792
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6793 for (y = image_top; y < image_top + image_height; ++y)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6794 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6795 for (x = 0; x < image_left; ++x)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6796 XPutPixel (ximg, x, y, FRAME_BACKGROUND_PIXEL (f));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6797 for (x = image_left + image_width; x < width; ++x)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6798 XPutPixel (ximg, x, y, FRAME_BACKGROUND_PIXEL (f));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6799 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6800
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6801 /* Read the GIF image into the X image. We use a local variable
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6802 `raster' here because RasterBits below is a char *, and invites
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6803 problems with bytes >= 0x80. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6804 raster = (unsigned char *) gif->SavedImages[ino].RasterBits;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6805
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6806 if (gif->SavedImages[ino].ImageDesc.Interlace)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6807 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6808 static int interlace_start[] = {0, 4, 2, 1};
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6809 static int interlace_increment[] = {8, 8, 4, 2};
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6810 int pass;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6811 int row = interlace_start[0];
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6812
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6813 pass = 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6814
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6815 for (y = 0; y < image_height; y++)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6816 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6817 if (row >= image_height)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6818 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6819 row = interlace_start[++pass];
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6820 while (row >= image_height)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6821 row = interlace_start[++pass];
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6822 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6823
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6824 for (x = 0; x < image_width; x++)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6825 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6826 int i = raster[(y * image_width) + x];
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6827 XPutPixel (ximg, x + image_left, row + image_top,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6828 pixel_colors[i]);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6829 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6830
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6831 row += interlace_increment[pass];
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6832 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6833 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6834 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6835 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6836 for (y = 0; y < image_height; ++y)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6837 for (x = 0; x < image_width; ++x)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6838 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6839 int i = raster[y * image_width + x];
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6840 XPutPixel (ximg, x + image_left, y + image_top, pixel_colors[i]);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6841 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6842 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6843
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6844 fn_DGifCloseFile (gif);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6845
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6846 /* Maybe fill in the background field while we have ximg handy. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6847 if (NILP (image_spec_value (img->spec, QCbackground, NULL)))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6848 IMAGE_BACKGROUND (img, f, ximg);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6849
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6850 /* Put the image into the pixmap, then free the X image and its buffer. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6851 x_put_x_image (f, ximg, img->pixmap, width, height);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6852 x_destroy_x_image (ximg);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6853
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6854 UNGCPRO;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6855 return 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6856 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6857
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6858 #else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6859
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6860 #ifdef MAC_OS
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6861 static int
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6862 gif_load (f, img)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6863 struct frame *f;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6864 struct image *img;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6865 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6866 Lisp_Object specified_file, file;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6867 Lisp_Object specified_data;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6868 OSErr err;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6869 Boolean graphic_p, movie_p, prefer_graphic_p;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6870 Handle dh = NULL;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6871 Movie movie = NULL;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6872 Lisp_Object image;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6873 Track track = NULL;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6874 Media media = NULL;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6875 long nsamples;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6876 Rect rect;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6877 Lisp_Object specified_bg;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6878 XColor color;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6879 RGBColor bg_color;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6880 int width, height;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6881 XImagePtr ximg;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6882 TimeValue time;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6883 struct gcpro gcpro1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6884 int ino;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6885
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6886 specified_file = image_spec_value (img->spec, QCfile, NULL);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6887 specified_data = image_spec_value (img->spec, QCdata, NULL);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6888
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6889 if (NILP (specified_data))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6890 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6891 /* Read from a file */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6892 FSSpec fss;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6893 short refnum;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6894
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6895 err = find_image_fsspec (specified_file, &file, &fss);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6896 if (err != noErr)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6897 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6898 if (err == fnfErr)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6899 image_error ("Cannot find image file `%s'", specified_file, Qnil);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6900 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6901 goto open_error;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6902 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6903
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6904 err = CanQuickTimeOpenFile (&fss, kQTFileTypeGIF, 0,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6905 &graphic_p, &movie_p, &prefer_graphic_p, 0);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6906 if (err != noErr)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6907 goto open_error;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6908
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6909 if (!graphic_p && !movie_p)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6910 goto open_error;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6911 if (prefer_graphic_p)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6912 return image_load_qt_1 (f, img, kQTFileTypeGIF, &fss, NULL);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6913 err = OpenMovieFile (&fss, &refnum, fsRdPerm);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6914 if (err != noErr)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6915 goto open_error;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6916 err = NewMovieFromFile (&movie, refnum, NULL, NULL, 0, NULL);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6917 CloseMovieFile (refnum);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6918 if (err != noErr)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6919 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6920 image_error ("Error reading `%s'", file, Qnil);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6921 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6922 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6923 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6924 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6925 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6926 /* Memory source! */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6927 Handle dref = NULL;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6928 long file_type_atom[3];
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6929
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6930 err = PtrToHand (SDATA (specified_data), &dh, SBYTES (specified_data));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6931 if (err != noErr)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6932 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6933 image_error ("Cannot allocate data handle for `%s'",
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6934 img->spec, Qnil);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6935 goto error;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6936 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6937
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6938 file_type_atom[0] = EndianU32_NtoB (sizeof (long) * 3);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6939 file_type_atom[1] = EndianU32_NtoB (kDataRefExtensionMacOSFileType);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6940 file_type_atom[2] = EndianU32_NtoB (kQTFileTypeGIF);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6941 err = PtrToHand (&dh, &dref, sizeof (Handle));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6942 if (err == noErr)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6943 /* no file name */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6944 err = PtrAndHand ("\p", dref, 1);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6945 if (err == noErr)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6946 err = PtrAndHand (file_type_atom, dref, sizeof (long) * 3);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6947 if (err != noErr)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6948 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6949 image_error ("Cannot allocate handle data ref for `%s'", img->spec, Qnil);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6950 goto error;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6951 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6952 err = CanQuickTimeOpenDataRef (dref, HandleDataHandlerSubType, &graphic_p,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6953 &movie_p, &prefer_graphic_p, 0);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6954 if (err != noErr)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6955 goto open_error;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6956
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6957 if (!graphic_p && !movie_p)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6958 goto open_error;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6959 if (prefer_graphic_p)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6960 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6961 int success_p;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6962
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6963 DisposeHandle (dref);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6964 success_p = image_load_qt_1 (f, img, kQTFileTypeGIF, NULL, dh);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6965 DisposeHandle (dh);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6966 return success_p;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6967 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6968 err = NewMovieFromDataRef (&movie, 0, NULL, dref,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6969 HandleDataHandlerSubType);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6970 DisposeHandle (dref);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6971 if (err != noErr)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6972 goto open_error;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6973 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6974
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6975 image = image_spec_value (img->spec, QCindex, NULL);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6976 ino = INTEGERP (image) ? XFASTINT (image) : 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6977 track = GetMovieIndTrack (movie, 1);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6978 media = GetTrackMedia (track);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6979 nsamples = GetMediaSampleCount (media);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6980 if (ino >= nsamples)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6981 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6982 image_error ("Invalid image number `%s' in image `%s'",
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6983 image, img->spec);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6984 goto error;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6985 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6986
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6987 specified_bg = image_spec_value (img->spec, QCbackground, NULL);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6988 if (!STRINGP (specified_bg) ||
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6989 !mac_defined_color (f, SDATA (specified_bg), &color, 0))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6990 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6991 color.pixel = FRAME_BACKGROUND_PIXEL (f);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6992 color.red = RED16_FROM_ULONG (color.pixel);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6993 color.green = GREEN16_FROM_ULONG (color.pixel);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6994 color.blue = BLUE16_FROM_ULONG (color.pixel);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6995 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6996 GetMovieBox (movie, &rect);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6997 width = img->width = rect.right - rect.left;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6998 height = img->height = rect.bottom - rect.top;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6999 if (!x_create_x_image_and_pixmap (f, width, height, 0, &ximg, &img->pixmap))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7000 goto error;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7001
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7002 SetGWorld (ximg, NULL);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7003 bg_color.red = color.red;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7004 bg_color.green = color.green;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7005 bg_color.blue = color.blue;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7006 RGBBackColor (&bg_color);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7007 SetMovieActive (movie, TRUE);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7008 SetMovieGWorld (movie, ximg, NULL);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7009 SampleNumToMediaTime (media, ino + 1, &time, NULL);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7010 SetMovieTimeValue (movie, time);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7011 MoviesTask (movie, 0L);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7012 DisposeTrackMedia (media);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7013 DisposeMovieTrack (track);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7014 DisposeMovie (movie);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7015 if (dh)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7016 DisposeHandle (dh);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7017 /* Maybe fill in the background field while we have ximg handy. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7018 if (NILP (image_spec_value (img->spec, QCbackground, NULL)))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7019 IMAGE_BACKGROUND (img, f, ximg);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7020
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7021 /* Put the image into the pixmap. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7022 x_put_x_image (f, ximg, img->pixmap, width, height);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7023 x_destroy_x_image (ximg);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7024 return 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7025
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7026 open_error:
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7027 image_error ("Cannot open `%s'", file, Qnil);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7028 error:
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7029 if (media)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7030 DisposeTrackMedia (media);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7031 if (track)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7032 DisposeMovieTrack (track);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7033 if (movie)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7034 DisposeMovie (movie);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7035 if (dh)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7036 DisposeHandle (dh);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7037 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7038 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7039 #endif /* MAC_OS */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7040
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7041 #endif /* HAVE_GIF */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7042
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7043
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7044
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7045 /***********************************************************************
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7046 Ghostscript
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7047 ***********************************************************************/
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7048
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7049 #ifdef HAVE_X_WINDOWS
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7050 #define HAVE_GHOSTSCRIPT 1
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7051 #endif /* HAVE_X_WINDOWS */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7052
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7053 /* The symbol `postscript' identifying images of this type. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7054
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7055 Lisp_Object Qpostscript;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7056
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7057 #ifdef HAVE_GHOSTSCRIPT
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7058
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7059 static int gs_image_p P_ ((Lisp_Object object));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7060 static int gs_load P_ ((struct frame *f, struct image *img));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7061 static void gs_clear_image P_ ((struct frame *f, struct image *img));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7062
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7063 /* Keyword symbols. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7064
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7065 Lisp_Object QCloader, QCbounding_box, QCpt_width, QCpt_height;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7066
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7067 /* Indices of image specification fields in gs_format, below. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7068
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7069 enum gs_keyword_index
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7070 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7071 GS_TYPE,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7072 GS_PT_WIDTH,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7073 GS_PT_HEIGHT,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7074 GS_FILE,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7075 GS_LOADER,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7076 GS_BOUNDING_BOX,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7077 GS_ASCENT,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7078 GS_MARGIN,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7079 GS_RELIEF,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7080 GS_ALGORITHM,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7081 GS_HEURISTIC_MASK,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7082 GS_MASK,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7083 GS_BACKGROUND,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7084 GS_LAST
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7085 };
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7086
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7087 /* Vector of image_keyword structures describing the format
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7088 of valid user-defined image specifications. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7089
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7090 static struct image_keyword gs_format[GS_LAST] =
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7091 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7092 {":type", IMAGE_SYMBOL_VALUE, 1},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7093 {":pt-width", IMAGE_POSITIVE_INTEGER_VALUE, 1},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7094 {":pt-height", IMAGE_POSITIVE_INTEGER_VALUE, 1},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7095 {":file", IMAGE_STRING_VALUE, 1},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7096 {":loader", IMAGE_FUNCTION_VALUE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7097 {":bounding-box", IMAGE_DONT_CHECK_VALUE_TYPE, 1},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7098 {":ascent", IMAGE_ASCENT_VALUE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7099 {":margin", IMAGE_POSITIVE_INTEGER_VALUE_OR_PAIR, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7100 {":relief", IMAGE_INTEGER_VALUE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7101 {":conversion", IMAGE_DONT_CHECK_VALUE_TYPE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7102 {":heuristic-mask", IMAGE_DONT_CHECK_VALUE_TYPE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7103 {":mask", IMAGE_DONT_CHECK_VALUE_TYPE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7104 {":background", IMAGE_STRING_OR_NIL_VALUE, 0}
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7105 };
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7106
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7107 /* Structure describing the image type `ghostscript'. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7108
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7109 static struct image_type gs_type =
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7110 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7111 &Qpostscript,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7112 gs_image_p,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7113 gs_load,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7114 gs_clear_image,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7115 NULL
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7116 };
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7117
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7118
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7119 /* Free X resources of Ghostscript image IMG which is used on frame F. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7120
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7121 static void
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7122 gs_clear_image (f, img)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7123 struct frame *f;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7124 struct image *img;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7125 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7126 /* IMG->data.ptr_val may contain a recorded colormap. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7127 xfree (img->data.ptr_val);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7128 x_clear_image (f, img);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7129 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7130
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7131
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7132 /* Return non-zero if OBJECT is a valid Ghostscript image
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7133 specification. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7134
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7135 static int
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7136 gs_image_p (object)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7137 Lisp_Object object;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7138 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7139 struct image_keyword fmt[GS_LAST];
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7140 Lisp_Object tem;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7141 int i;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7142
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7143 bcopy (gs_format, fmt, sizeof fmt);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7144
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7145 if (!parse_image_spec (object, fmt, GS_LAST, Qpostscript))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7146 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7147
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7148 /* Bounding box must be a list or vector containing 4 integers. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7149 tem = fmt[GS_BOUNDING_BOX].value;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7150 if (CONSP (tem))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7151 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7152 for (i = 0; i < 4; ++i, tem = XCDR (tem))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7153 if (!CONSP (tem) || !INTEGERP (XCAR (tem)))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7154 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7155 if (!NILP (tem))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7156 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7157 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7158 else if (VECTORP (tem))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7159 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7160 if (XVECTOR (tem)->size != 4)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7161 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7162 for (i = 0; i < 4; ++i)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7163 if (!INTEGERP (XVECTOR (tem)->contents[i]))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7164 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7165 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7166 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7167 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7168
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7169 return 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7170 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7171
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7172
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7173 /* Load Ghostscript image IMG for use on frame F. Value is non-zero
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7174 if successful. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7175
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7176 static int
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7177 gs_load (f, img)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7178 struct frame *f;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7179 struct image *img;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7180 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7181 char buffer[100];
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7182 Lisp_Object window_and_pixmap_id = Qnil, loader, pt_height, pt_width;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7183 struct gcpro gcpro1, gcpro2;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7184 Lisp_Object frame;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7185 double in_width, in_height;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7186 Lisp_Object pixel_colors = Qnil;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7187
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7188 /* Compute pixel size of pixmap needed from the given size in the
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7189 image specification. Sizes in the specification are in pt. 1 pt
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7190 = 1/72 in, xdpi and ydpi are stored in the frame's X display
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7191 info. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7192 pt_width = image_spec_value (img->spec, QCpt_width, NULL);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7193 in_width = XFASTINT (pt_width) / 72.0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7194 img->width = in_width * FRAME_X_DISPLAY_INFO (f)->resx;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7195 pt_height = image_spec_value (img->spec, QCpt_height, NULL);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7196 in_height = XFASTINT (pt_height) / 72.0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7197 img->height = in_height * FRAME_X_DISPLAY_INFO (f)->resy;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7198
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7199 /* Create the pixmap. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7200 xassert (img->pixmap == NO_PIXMAP);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7201
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7202 /* Only W32 version did BLOCK_INPUT here. ++kfs */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7203 BLOCK_INPUT;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7204 img->pixmap = XCreatePixmap (FRAME_X_DISPLAY (f), FRAME_X_WINDOW (f),
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7205 img->width, img->height,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7206 DefaultDepthOfScreen (FRAME_X_SCREEN (f)));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7207 UNBLOCK_INPUT;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7208
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7209 if (!img->pixmap)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7210 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7211 image_error ("Unable to create pixmap for `%s'", img->spec, Qnil);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7212 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7213 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7214
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7215 /* Call the loader to fill the pixmap. It returns a process object
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7216 if successful. We do not record_unwind_protect here because
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7217 other places in redisplay like calling window scroll functions
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7218 don't either. Let the Lisp loader use `unwind-protect' instead. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7219 GCPRO2 (window_and_pixmap_id, pixel_colors);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7220
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7221 sprintf (buffer, "%lu %lu",
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7222 (unsigned long) FRAME_X_WINDOW (f),
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7223 (unsigned long) img->pixmap);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7224 window_and_pixmap_id = build_string (buffer);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7225
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7226 sprintf (buffer, "%lu %lu",
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7227 FRAME_FOREGROUND_PIXEL (f),
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7228 FRAME_BACKGROUND_PIXEL (f));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7229 pixel_colors = build_string (buffer);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7230
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7231 XSETFRAME (frame, f);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7232 loader = image_spec_value (img->spec, QCloader, NULL);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7233 if (NILP (loader))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7234 loader = intern ("gs-load-image");
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7235
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7236 img->data.lisp_val = call6 (loader, frame, img->spec,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7237 make_number (img->width),
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7238 make_number (img->height),
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7239 window_and_pixmap_id,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7240 pixel_colors);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7241 UNGCPRO;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7242 return PROCESSP (img->data.lisp_val);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7243 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7244
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7245
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7246 /* Kill the Ghostscript process that was started to fill PIXMAP on
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7247 frame F. Called from XTread_socket when receiving an event
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7248 telling Emacs that Ghostscript has finished drawing. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7249
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7250 void
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7251 x_kill_gs_process (pixmap, f)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7252 Pixmap pixmap;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7253 struct frame *f;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7254 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7255 struct image_cache *c = FRAME_X_IMAGE_CACHE (f);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7256 int class, i;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7257 struct image *img;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7258
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7259 /* Find the image containing PIXMAP. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7260 for (i = 0; i < c->used; ++i)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7261 if (c->images[i]->pixmap == pixmap)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7262 break;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7263
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7264 /* Should someone in between have cleared the image cache, for
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7265 instance, give up. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7266 if (i == c->used)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7267 return;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7268
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7269 /* Kill the GS process. We should have found PIXMAP in the image
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7270 cache and its image should contain a process object. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7271 img = c->images[i];
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7272 xassert (PROCESSP (img->data.lisp_val));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7273 Fkill_process (img->data.lisp_val, Qnil);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7274 img->data.lisp_val = Qnil;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7275
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7276 #if defined (HAVE_X_WINDOWS)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7277
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7278 /* On displays with a mutable colormap, figure out the colors
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7279 allocated for the image by looking at the pixels of an XImage for
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7280 img->pixmap. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7281 class = FRAME_X_VISUAL (f)->class;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7282 if (class != StaticColor && class != StaticGray && class != TrueColor)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7283 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7284 XImagePtr ximg;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7285
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7286 BLOCK_INPUT;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7287
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7288 /* Try to get an XImage for img->pixmep. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7289 ximg = XGetImage (FRAME_X_DISPLAY (f), img->pixmap,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7290 0, 0, img->width, img->height, ~0, ZPixmap);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7291 if (ximg)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7292 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7293 int x, y;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7294
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7295 /* Initialize the color table. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7296 init_color_table ();
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7297
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7298 /* For each pixel of the image, look its color up in the
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7299 color table. After having done so, the color table will
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7300 contain an entry for each color used by the image. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7301 for (y = 0; y < img->height; ++y)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7302 for (x = 0; x < img->width; ++x)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7303 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7304 unsigned long pixel = XGetPixel (ximg, x, y);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7305 lookup_pixel_color (f, pixel);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7306 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7307
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7308 /* Record colors in the image. Free color table and XImage. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7309 #ifdef COLOR_TABLE_SUPPORT
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7310 img->colors = colors_in_color_table (&img->ncolors);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7311 free_color_table ();
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7312 #endif
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7313 XDestroyImage (ximg);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7314
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7315 #if 0 /* This doesn't seem to be the case. If we free the colors
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7316 here, we get a BadAccess later in x_clear_image when
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7317 freeing the colors. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7318 /* We have allocated colors once, but Ghostscript has also
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7319 allocated colors on behalf of us. So, to get the
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7320 reference counts right, free them once. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7321 if (img->ncolors)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7322 x_free_colors (f, img->colors, img->ncolors);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7323 #endif
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7324 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7325 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7326 image_error ("Cannot get X image of `%s'; colors will not be freed",
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7327 img->spec, Qnil);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7328
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7329 UNBLOCK_INPUT;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7330 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7331 #endif /* HAVE_X_WINDOWS */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7332
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7333 /* Now that we have the pixmap, compute mask and transform the
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7334 image if requested. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7335 BLOCK_INPUT;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7336 postprocess_image (f, img);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7337 UNBLOCK_INPUT;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7338 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7339
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7340 #endif /* HAVE_GHOSTSCRIPT */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7342
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7343 /***********************************************************************
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7344 Tests
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7345 ***********************************************************************/
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7346
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7347 #if GLYPH_DEBUG
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7348
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7349 DEFUN ("imagep", Fimagep, Simagep, 1, 1, 0,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7350 doc: /* Value is non-nil if SPEC is a valid image specification. */)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7351 (spec)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7352 Lisp_Object spec;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7353 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7354 return valid_image_p (spec) ? Qt : Qnil;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7355 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7356
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7357
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7358 DEFUN ("lookup-image", Flookup_image, Slookup_image, 1, 1, 0, "")
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7359 (spec)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7360 Lisp_Object spec;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7361 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7362 int id = -1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7363
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7364 if (valid_image_p (spec))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7365 id = lookup_image (SELECTED_FRAME (), spec);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7366
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7367 debug_print (spec);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7368 return make_number (id);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7369 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7370
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7371 #endif /* GLYPH_DEBUG != 0 */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7372
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7373
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7374 /***********************************************************************
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7375 Initialization
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7376 ***********************************************************************/
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7377
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7378 void
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7379 syms_of_image ()
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7380 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7381 QCascent = intern (":ascent");
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7382 staticpro (&QCascent);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7383 QCmargin = intern (":margin");
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7384 staticpro (&QCmargin);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7385 QCrelief = intern (":relief");
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7386 staticpro (&QCrelief);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7387 QCconversion = intern (":conversion");
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7388 staticpro (&QCconversion);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7389 QCcolor_symbols = intern (":color-symbols");
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7390 staticpro (&QCcolor_symbols);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7391 QCheuristic_mask = intern (":heuristic-mask");
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7392 staticpro (&QCheuristic_mask);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7393 QCindex = intern (":index");
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7394 staticpro (&QCindex);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7395 QCmatrix = intern (":matrix");
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7396 staticpro (&QCmatrix);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7397 QCcolor_adjustment = intern (":color-adjustment");
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7398 staticpro (&QCcolor_adjustment);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7399 QCmask = intern (":mask");
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7400 staticpro (&QCmask);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7401
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7402 Qlaplace = intern ("laplace");
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7403 staticpro (&Qlaplace);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7404 Qemboss = intern ("emboss");
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7405 staticpro (&Qemboss);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7406 Qedge_detection = intern ("edge-detection");
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7407 staticpro (&Qedge_detection);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7408 Qheuristic = intern ("heuristic");
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7409 staticpro (&Qheuristic);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7410 Qcenter = intern ("center");
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7411 staticpro (&Qcenter);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7412
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7413 Qpostscript = intern ("postscript");
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7414 staticpro (&Qpostscript);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7415 #ifdef HAVE_GHOSTSCRIPT
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7416 QCloader = intern (":loader");
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7417 staticpro (&QCloader);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7418 QCbounding_box = intern (":bounding-box");
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7419 staticpro (&QCbounding_box);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7420 QCpt_width = intern (":pt-width");
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7421 staticpro (&QCpt_width);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7422 QCpt_height = intern (":pt-height");
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7423 staticpro (&QCpt_height);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7424 #endif /* HAVE_GHOSTSCRIPT */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7425
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7426 Qpbm = intern ("pbm");
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7427 staticpro (&Qpbm);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7428
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7429 Qxbm = intern ("xbm");
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7430 staticpro (&Qxbm);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7431
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7432 #ifdef HAVE_XPM
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7433 Qxpm = intern ("xpm");
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7434 staticpro (&Qxpm);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7435 #endif
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7436
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7437 #if defined (HAVE_JPEG) || defined (MAC_OS)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7438 Qjpeg = intern ("jpeg");
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7439 staticpro (&Qjpeg);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7440 #endif
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7441
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7442 #if defined (HAVE_TIFF) || defined (MAC_OS)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7443 Qtiff = intern ("tiff");
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7444 staticpro (&Qtiff);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7445 #endif
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7446
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7447 #if defined (HAVE_GIF) || defined (MAC_OS)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7448 Qgif = intern ("gif");
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7449 staticpro (&Qgif);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7450 #endif
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7451
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7452 #if defined (HAVE_PNG) || defined (MAC_OS)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7453 Qpng = intern ("png");
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7454 staticpro (&Qpng);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7455 #endif
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7456
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7457 defsubr (&Sclear_image_cache);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7458 defsubr (&Simage_size);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7459 defsubr (&Simage_mask_p);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7460
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7461 #if GLYPH_DEBUG
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7462 defsubr (&Simagep);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7463 defsubr (&Slookup_image);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7464 #endif
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7465
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7466 DEFVAR_BOOL ("cross-disabled-images", &cross_disabled_images,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7467 doc: /* Non-nil means always draw a cross over disabled images.
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7468 Disabled images are those having an `:conversion disabled' property.
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7469 A cross is always drawn on black & white displays. */);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7470 cross_disabled_images = 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7471
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7472 DEFVAR_LISP ("x-bitmap-file-path", &Vx_bitmap_file_path,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7473 doc: /* List of directories to search for window system bitmap files. */);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7474 Vx_bitmap_file_path = decode_env_path ((char *) 0, PATH_BITMAPS);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7475
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7476 DEFVAR_LISP ("image-cache-eviction-delay", &Vimage_cache_eviction_delay,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7477 doc: /* Time after which cached images are removed from the cache.
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7478 When an image has not been displayed this many seconds, remove it
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7479 from the image cache. Value must be an integer or nil with nil
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7480 meaning don't clear the cache. */);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7481 Vimage_cache_eviction_delay = make_number (30 * 60);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7482 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7483
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7484
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7485 #ifdef HAVE_NTGUI
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7486 /* Image types that rely on external libraries are loaded dynamically
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7487 if the library is available. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7488 #define IF_LIB_AVAILABLE(init_lib_fn) if (init_lib_fn())
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7489 #else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7490 #define IF_LIB_AVAILABLE(init_func) /* Load unconditionally */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7491 #endif /* HAVE_NTGUI */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7492
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7493 void
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7494 init_image ()
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7495 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7496 image_types = NULL;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7497 Vimage_types = Qnil;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7498
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7499 define_image_type (&xbm_type);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7500 define_image_type (&pbm_type);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7501
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7502 #ifdef HAVE_XPM
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7503 IF_LIB_AVAILABLE(init_xpm_functions)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7504 define_image_type (&xpm_type);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7505 #endif
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7506
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7507 #if defined (HAVE_JPEG) || defined (MAC_OS)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7508 IF_LIB_AVAILABLE(init_jpeg_functions)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7509 define_image_type (&jpeg_type);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7510 #endif
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7511
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7512 #if defined (HAVE_TIFF) || defined (MAC_OS)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7513 IF_LIB_AVAILABLE(init_tiff_functions)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7514 define_image_type (&tiff_type);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7515 #endif
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7516
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7517 #if defined (HAVE_GIF) || defined (MAC_OS)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7518 IF_LIB_AVAILABLE(init_gif_functions)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7519 define_image_type (&gif_type);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7520 #endif
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7521
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7522 #if defined (HAVE_PNG) || defined (MAC_OS)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7523 IF_LIB_AVAILABLE(init_png_functions)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7524 define_image_type (&png_type);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7525 #endif
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7526
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7527 #ifdef HAVE_GHOSTSCRIPT
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7528 define_image_type (&gs_type);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7529 #endif
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7530
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7531 #ifdef MAC_OS
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7532 /* Animated gifs use QuickTime Movie Toolbox. So initialize it here. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7533 EnterMovies ();
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7534 #ifdef MAC_OSX
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7535 init_image_func_pointer ();
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7536 #endif
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7537 #endif
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7538 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7539