annotate src/image.c @ 81365:22b5fa7b116a

(lookup_image): Save frame foreground and background colors. (search_image_cache): Check if saved and current frame colors match.
author YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
date Wed, 13 Jun 2007 08:21:44 +0000
parents a77470efa868
children f9305411500d
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.
64770
a0d1312ede66 Update years in copyright notice; nfc.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 64084
diff changeset
2 Copyright (C) 1989, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000,
75348
3d45362f1d38 Add 2007 to copyright years.
Glenn Morris <rgm@gnu.org>
parents: 75153
diff changeset
3 2001, 2002, 2003, 2004, 2005, 2006, 2007 Free Software Foundation, Inc.
54341
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
64084
a8fa7c632ee4 Update FSF's address.
Lute Kamstra <lute@gnu.org>
parents: 63684
diff changeset
19 the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
a8fa7c632ee4 Update FSF's address.
Lute Kamstra <lute@gnu.org>
parents: 63684
diff changeset
20 Boston, MA 02110-1301, USA. */
54341
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 <stdio.h>
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
24 #include <math.h>
56065
022411ad6751 Include <ctype.h>.
Andreas Schwab <schwab@suse.de>
parents: 55886
diff changeset
25 #include <ctype.h>
54341
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>
69771
fd6d18b61fa7 Include "charset.h" and "coding.h".
Kenichi Handa <handa@m17n.org>
parents: 69511
diff changeset
42 #include "charset.h"
fd6d18b61fa7 Include "charset.h" and "coding.h".
Kenichi Handa <handa@m17n.org>
parents: 69511
diff changeset
43 #include "coding.h"
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
44
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
45
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
46 #ifdef HAVE_X_WINDOWS
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
47 #include "xterm.h"
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
48 #include <sys/types.h>
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
49 #include <sys/stat.h>
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 #define COLOR_TABLE_SUPPORT 1
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
52
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
53 typedef struct x_bitmap_record Bitmap_Record;
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
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
57 #define RGB_PIXEL_COLOR unsigned long
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
58
65250
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
59 #define PIX_MASK_RETAIN 0
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
60 #define PIX_MASK_DRAW 1
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
61 #endif /* HAVE_X_WINDOWS */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
62
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 #ifdef HAVE_NTGUI
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
65 #include "w32term.h"
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
66
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
67 /* W32_TODO : Color tables on W32. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
68 #undef COLOR_TABLE_SUPPORT
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
69
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
70 typedef struct w32_bitmap_record Bitmap_Record;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
71 #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
72 #define NO_PIXMAP 0
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
73
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
74 #define RGB_PIXEL_COLOR COLORREF
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
75
65250
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
76 #define PIX_MASK_RETAIN 0
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
77 #define PIX_MASK_DRAW 1
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
78
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
79 #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
80 #define x_defined_color w32_defined_color
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
81 #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
82 #endif /* HAVE_NTGUI */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
83
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
84
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
85 #ifdef MAC_OS
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
86 #include "macterm.h"
59146
9bde7721ad0f * dispextern.h: Change HAVE_CARBON to MAC_OS.
Steven Tamm <steventamm@mac.com>
parents: 59073
diff changeset
87 #include <sys/stat.h>
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
88 #ifndef MAC_OSX
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
89 #include <alloca.h>
59146
9bde7721ad0f * dispextern.h: Change HAVE_CARBON to MAC_OS.
Steven Tamm <steventamm@mac.com>
parents: 59073
diff changeset
90 #include <sys/param.h>
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
91 #endif
60359
1c6de5f7952b [!MAC_OSX && TARGET_API_MAC_CARBON]: Include QuickTime.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 59146
diff changeset
92 #if TARGET_API_MAC_CARBON
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
93 #ifdef MAC_OSX
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
94 #include <QuickTime/QuickTime.h>
60359
1c6de5f7952b [!MAC_OSX && TARGET_API_MAC_CARBON]: Include QuickTime.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 59146
diff changeset
95 #else /* not MAC_OSX */
1c6de5f7952b [!MAC_OSX && TARGET_API_MAC_CARBON]: Include QuickTime.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 59146
diff changeset
96 #include <QuickTime.h>
1c6de5f7952b [!MAC_OSX && TARGET_API_MAC_CARBON]: Include QuickTime.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 59146
diff changeset
97 #endif /* not MAC_OSX */
1c6de5f7952b [!MAC_OSX && TARGET_API_MAC_CARBON]: Include QuickTime.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 59146
diff changeset
98 #else /* not TARGET_API_MAC_CARBON */
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
99 #include <Windows.h>
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
100 #include <Gestalt.h>
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
101 #include <TextUtils.h>
59146
9bde7721ad0f * dispextern.h: Change HAVE_CARBON to MAC_OS.
Steven Tamm <steventamm@mac.com>
parents: 59073
diff changeset
102 #include <ImageCompression.h>
9bde7721ad0f * dispextern.h: Change HAVE_CARBON to MAC_OS.
Steven Tamm <steventamm@mac.com>
parents: 59073
diff changeset
103 #include <QuickTimeComponents.h>
60359
1c6de5f7952b [!MAC_OSX && TARGET_API_MAC_CARBON]: Include QuickTime.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 59146
diff changeset
104 #endif /* not TARGET_API_MAC_CARBON */
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
105
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
106 /* MAC_TODO : Color tables on Mac. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
107 #undef COLOR_TABLE_SUPPORT
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
108
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
109 #define ZPixmap 0 /* arbitrary */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
110 typedef struct mac_bitmap_record Bitmap_Record;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
111
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
112 #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
113 #define NO_PIXMAP 0
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
65250
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
117 /* A black pixel in a mask bitmap/pixmap means ``draw a source
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
118 pixel''. A white pixel means ``retain the current pixel''. */
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
119 #define PIX_MASK_DRAW RGB_TO_ULONG(0,0,0)
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
120 #define PIX_MASK_RETAIN RGB_TO_ULONG(255,255,255)
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
121
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
122 #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
123 #define x_defined_color mac_defined_color
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
124 #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
125
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
126 #endif /* MAC_OS */
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
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
129 /* Search path for bitmap files. */
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 Lisp_Object Vx_bitmap_file_path;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
132
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
133
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
134 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
135 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
136 Lisp_Object));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
137
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
138 static void init_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 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
140 #ifdef COLOR_TABLE_SUPPORT
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
141 static void free_color_table P_ ((void));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
142 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
143 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
144 #endif
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
145
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
146 /* 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
147 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
148 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
149
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
150 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
151 be used to indicate no bitmap.
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
152
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
153 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
154 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
155 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
156
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
157 #ifdef MAC_OS
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
158
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
159 static XImagePtr
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
160 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
161 Display *display; /* not used */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
162 Pixmap pixmap;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
163 int x, y; /* not used */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
164 unsigned int width, height; /* not used */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
165 unsigned long plane_mask; /* not used */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
166 int format; /* not used */
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 #if GLYPH_DEBUG
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
169 xassert (x == 0 && y == 0);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
170 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
171 Rect ri, rp;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
172 SetRect (&ri, 0, 0, width, height);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
173 xassert (EqualRect (&ri, GetPixBounds (GetGWorldPixMap (pixmap), &rp)));
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 xassert (! (pixelsLocked & GetPixelsState (GetGWorldPixMap (pixmap))));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
176 #endif
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
177
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
178 LockPixels (GetGWorldPixMap (pixmap));
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 return pixmap;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
181 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
182
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
183 static void
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
184 XPutPixel (ximage, x, y, pixel)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
185 XImagePtr ximage;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
186 int x, y;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
187 unsigned long pixel;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
188 {
65250
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
189 PixMapHandle pixmap = GetGWorldPixMap (ximage);
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
190 short depth = GetPixDepth (pixmap);
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
191
69511
65b669e90ff5 [MAC_OS] (XPutPixel, XGetPixel)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 69333
diff changeset
192 #if defined (WORDS_BIG_ENDIAN) || !USE_CG_DRAWING
65250
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
193 if (depth == 32)
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
194 {
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
195 char *base_addr = GetPixBaseAddr (pixmap);
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
196 short row_bytes = GetPixRowBytes (pixmap);
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
197
69333
d42b2aec70a4 [MAC_OS] (XPutPixel): Set alpha channel bits if pixmap depth is 32.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 68651
diff changeset
198 ((unsigned long *) (base_addr + y * row_bytes))[x] = 0xff000000 | pixel;
65250
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
199 }
69511
65b669e90ff5 [MAC_OS] (XPutPixel, XGetPixel)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 69333
diff changeset
200 else
65b669e90ff5 [MAC_OS] (XPutPixel, XGetPixel)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 69333
diff changeset
201 #endif
70068
2c4ba2c48153 (x_create_bitmap_from_data) [MAC_OS]: Don't check return
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 69958
diff changeset
202 if (depth == 1)
65250
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
203 {
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
204 char *base_addr = GetPixBaseAddr (pixmap);
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
205 short row_bytes = GetPixRowBytes (pixmap);
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
206
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
207 if (pixel == PIX_MASK_DRAW)
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
208 base_addr[y * row_bytes + x / 8] |= (1 << 7) >> (x & 7);
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
209 else
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
210 base_addr[y * row_bytes + x / 8] &= ~((1 << 7) >> (x & 7));
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
211 }
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
212 else
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
213 {
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
214 CGrafPtr old_port;
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
215 GDHandle old_gdh;
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
216 RGBColor color;
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
217
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
218 GetGWorld (&old_port, &old_gdh);
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
219 SetGWorld (ximage, NULL);
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
220
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
221 color.red = RED16_FROM_ULONG (pixel);
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
222 color.green = GREEN16_FROM_ULONG (pixel);
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
223 color.blue = BLUE16_FROM_ULONG (pixel);
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
224
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
225 SetCPixel (x, y, &color);
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
226
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
227 SetGWorld (old_port, old_gdh);
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
228 }
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
229 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
230
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
231 static unsigned long
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
232 XGetPixel (ximage, x, y)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
233 XImagePtr ximage;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
234 int x, y;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
235 {
65250
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
236 PixMapHandle pixmap = GetGWorldPixMap (ximage);
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
237 short depth = GetPixDepth (pixmap);
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
238
69511
65b669e90ff5 [MAC_OS] (XPutPixel, XGetPixel)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 69333
diff changeset
239 #if defined (WORDS_BIG_ENDIAN) || !USE_CG_DRAWING
65250
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
240 if (depth == 32)
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
241 {
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
242 char *base_addr = GetPixBaseAddr (pixmap);
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
243 short row_bytes = GetPixRowBytes (pixmap);
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
244
69333
d42b2aec70a4 [MAC_OS] (XPutPixel): Set alpha channel bits if pixmap depth is 32.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 68651
diff changeset
245 return ((unsigned long *) (base_addr + y * row_bytes))[x] & 0x00ffffff;
65250
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
246 }
69511
65b669e90ff5 [MAC_OS] (XPutPixel, XGetPixel)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 69333
diff changeset
247 else
65b669e90ff5 [MAC_OS] (XPutPixel, XGetPixel)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 69333
diff changeset
248 #endif
65b669e90ff5 [MAC_OS] (XPutPixel, XGetPixel)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 69333
diff changeset
249 if (depth == 1)
65250
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
250 {
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
251 char *base_addr = GetPixBaseAddr (pixmap);
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
252 short row_bytes = GetPixRowBytes (pixmap);
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
253
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
254 if (base_addr[y * row_bytes + x / 8] & (1 << (~x & 7)))
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
255 return PIX_MASK_DRAW;
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
256 else
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
257 return PIX_MASK_RETAIN;
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
258 }
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
259 else
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
260 {
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
261 CGrafPtr old_port;
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
262 GDHandle old_gdh;
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
263 RGBColor color;
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
264
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
265 GetGWorld (&old_port, &old_gdh);
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
266 SetGWorld (ximage, NULL);
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
267
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
268 GetCPixel (x, y, &color);
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
269
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
270 SetGWorld (old_port, old_gdh);
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
271 return RGB_TO_ULONG (color.red >> 8, color.green >> 8, color.blue >> 8);
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
272 }
54341
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
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
275 static void
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
276 XDestroyImage (ximg)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
277 XImagePtr ximg;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
278 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
279 UnlockPixels (GetGWorldPixMap (ximg));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
280 }
69511
65b669e90ff5 [MAC_OS] (XPutPixel, XGetPixel)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 69333
diff changeset
281
65b669e90ff5 [MAC_OS] (XPutPixel, XGetPixel)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 69333
diff changeset
282 #if USE_CG_DRAWING
65b669e90ff5 [MAC_OS] (XPutPixel, XGetPixel)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 69333
diff changeset
283 static CGImageRef
65b669e90ff5 [MAC_OS] (XPutPixel, XGetPixel)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 69333
diff changeset
284 mac_create_cg_image_from_image (f, img)
65b669e90ff5 [MAC_OS] (XPutPixel, XGetPixel)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 69333
diff changeset
285 struct frame *f;
65b669e90ff5 [MAC_OS] (XPutPixel, XGetPixel)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 69333
diff changeset
286 struct image *img;
65b669e90ff5 [MAC_OS] (XPutPixel, XGetPixel)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 69333
diff changeset
287 {
65b669e90ff5 [MAC_OS] (XPutPixel, XGetPixel)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 69333
diff changeset
288 Pixmap mask;
65b669e90ff5 [MAC_OS] (XPutPixel, XGetPixel)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 69333
diff changeset
289 CGImageRef result = NULL;
65b669e90ff5 [MAC_OS] (XPutPixel, XGetPixel)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 69333
diff changeset
290
65b669e90ff5 [MAC_OS] (XPutPixel, XGetPixel)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 69333
diff changeset
291 BLOCK_INPUT;
65b669e90ff5 [MAC_OS] (XPutPixel, XGetPixel)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 69333
diff changeset
292 if (img->mask)
65b669e90ff5 [MAC_OS] (XPutPixel, XGetPixel)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 69333
diff changeset
293 mask = img->mask;
65b669e90ff5 [MAC_OS] (XPutPixel, XGetPixel)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 69333
diff changeset
294 else
65b669e90ff5 [MAC_OS] (XPutPixel, XGetPixel)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 69333
diff changeset
295 {
65b669e90ff5 [MAC_OS] (XPutPixel, XGetPixel)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 69333
diff changeset
296 mask = XCreatePixmap (FRAME_X_DISPLAY (f), FRAME_X_WINDOW (f),
65b669e90ff5 [MAC_OS] (XPutPixel, XGetPixel)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 69333
diff changeset
297 img->width, img->height, 1);
65b669e90ff5 [MAC_OS] (XPutPixel, XGetPixel)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 69333
diff changeset
298 if (mask)
65b669e90ff5 [MAC_OS] (XPutPixel, XGetPixel)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 69333
diff changeset
299 {
65b669e90ff5 [MAC_OS] (XPutPixel, XGetPixel)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 69333
diff changeset
300 CGrafPtr old_port;
65b669e90ff5 [MAC_OS] (XPutPixel, XGetPixel)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 69333
diff changeset
301 GDHandle old_gdh;
65b669e90ff5 [MAC_OS] (XPutPixel, XGetPixel)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 69333
diff changeset
302 Rect r;
65b669e90ff5 [MAC_OS] (XPutPixel, XGetPixel)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 69333
diff changeset
303
65b669e90ff5 [MAC_OS] (XPutPixel, XGetPixel)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 69333
diff changeset
304 GetGWorld (&old_port, &old_gdh);
65b669e90ff5 [MAC_OS] (XPutPixel, XGetPixel)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 69333
diff changeset
305 SetGWorld (mask, NULL);
65b669e90ff5 [MAC_OS] (XPutPixel, XGetPixel)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 69333
diff changeset
306 BackColor (blackColor); /* Don't mask. */
65b669e90ff5 [MAC_OS] (XPutPixel, XGetPixel)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 69333
diff changeset
307 SetRect (&r, 0, 0, img->width, img->height);
65b669e90ff5 [MAC_OS] (XPutPixel, XGetPixel)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 69333
diff changeset
308 EraseRect (&r);
65b669e90ff5 [MAC_OS] (XPutPixel, XGetPixel)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 69333
diff changeset
309 SetGWorld (old_port, old_gdh);
65b669e90ff5 [MAC_OS] (XPutPixel, XGetPixel)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 69333
diff changeset
310 }
65b669e90ff5 [MAC_OS] (XPutPixel, XGetPixel)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 69333
diff changeset
311 }
65b669e90ff5 [MAC_OS] (XPutPixel, XGetPixel)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 69333
diff changeset
312 if (mask)
65b669e90ff5 [MAC_OS] (XPutPixel, XGetPixel)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 69333
diff changeset
313 {
65b669e90ff5 [MAC_OS] (XPutPixel, XGetPixel)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 69333
diff changeset
314 CreateCGImageFromPixMaps (GetGWorldPixMap (img->pixmap),
65b669e90ff5 [MAC_OS] (XPutPixel, XGetPixel)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 69333
diff changeset
315 GetGWorldPixMap (mask), &result);
65b669e90ff5 [MAC_OS] (XPutPixel, XGetPixel)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 69333
diff changeset
316 if (mask != img->mask)
65b669e90ff5 [MAC_OS] (XPutPixel, XGetPixel)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 69333
diff changeset
317 XFreePixmap (FRAME_X_DISPLAY (f), mask);
65b669e90ff5 [MAC_OS] (XPutPixel, XGetPixel)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 69333
diff changeset
318 }
65b669e90ff5 [MAC_OS] (XPutPixel, XGetPixel)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 69333
diff changeset
319 UNBLOCK_INPUT;
65b669e90ff5 [MAC_OS] (XPutPixel, XGetPixel)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 69333
diff changeset
320
65b669e90ff5 [MAC_OS] (XPutPixel, XGetPixel)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 69333
diff changeset
321 return result;
65b669e90ff5 [MAC_OS] (XPutPixel, XGetPixel)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 69333
diff changeset
322 }
65b669e90ff5 [MAC_OS] (XPutPixel, XGetPixel)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 69333
diff changeset
323 #endif /* USE_CG_DRAWING */
55886
ae9227eb8392 Work around bugs/problems with MinGW builds of graphics libraries
Juanma Barranquero <lekktu@gmail.com>
parents: 55540
diff changeset
324 #endif /* MAC_OS */
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
325
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 /* 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
328
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
329 int
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
330 x_bitmap_height (f, id)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
331 FRAME_PTR f;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
332 int id;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
333 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
334 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
335 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
336
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
337 int
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
338 x_bitmap_width (f, id)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
339 FRAME_PTR f;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
340 int id;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
341 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
342 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
343 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
344
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
345 #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
346 int
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
347 x_bitmap_pixmap (f, id)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
348 FRAME_PTR f;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
349 int id;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
350 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
351 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
352 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
353 #endif
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
354
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
355 #ifdef HAVE_X_WINDOWS
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
356 int
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
357 x_bitmap_mask (f, id)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
358 FRAME_PTR f;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
359 int id;
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 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
362 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
363 #endif
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
364
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
365 /* 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
366
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
367 static int
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
368 x_allocate_bitmap_record (f)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
369 FRAME_PTR f;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
370 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
371 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
372 int i;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
373
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
374 if (dpyinfo->bitmaps == NULL)
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 dpyinfo->bitmaps_size = 10;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
377 dpyinfo->bitmaps
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
378 = (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
379 dpyinfo->bitmaps_last = 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
380 return 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
381 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
382
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
383 if (dpyinfo->bitmaps_last < dpyinfo->bitmaps_size)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
384 return ++dpyinfo->bitmaps_last;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
385
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
386 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
387 if (dpyinfo->bitmaps[i].refcount == 0)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
388 return i + 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
389
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
390 dpyinfo->bitmaps_size *= 2;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
391 dpyinfo->bitmaps
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
392 = (Bitmap_Record *) xrealloc (dpyinfo->bitmaps,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
393 dpyinfo->bitmaps_size * sizeof (Bitmap_Record));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
394 return ++dpyinfo->bitmaps_last;
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 /* 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
398
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
399 void
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
400 x_reference_bitmap (f, id)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
401 FRAME_PTR f;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
402 int id;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
403 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
404 ++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
405 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
406
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
407 /* 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
408
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
409 int
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
410 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
411 struct frame *f;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
412 char *bits;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
413 unsigned int width, height;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
414 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
415 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
416 int id;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
417
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
418 #ifdef HAVE_X_WINDOWS
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
419 Pixmap bitmap;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
420 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
421 bits, width, height);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
422 if (! bitmap)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
423 return -1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
424 #endif /* HAVE_X_WINDOWS */
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 #ifdef HAVE_NTGUI
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
427 Pixmap bitmap;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
428 bitmap = CreateBitmap (width, height,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
429 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
430 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
431 bits);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
432 if (! bitmap)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
433 return -1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
434 #endif /* HAVE_NTGUI */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
435
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
436 #ifdef MAC_OS
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
437 /* 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
438 if (width % 16 != 0)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
439 return -1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
440 #endif
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
441
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
442 id = x_allocate_bitmap_record (f);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
443 #ifdef MAC_OS
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
444 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
445 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
446 #endif /* MAC_OS */
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 dpyinfo->bitmaps[id - 1].file = NULL;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
449 dpyinfo->bitmaps[id - 1].height = height;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
450 dpyinfo->bitmaps[id - 1].width = width;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
451 dpyinfo->bitmaps[id - 1].refcount = 1;
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 #ifdef HAVE_X_WINDOWS
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
454 dpyinfo->bitmaps[id - 1].pixmap = bitmap;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
455 dpyinfo->bitmaps[id - 1].have_mask = 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
456 dpyinfo->bitmaps[id - 1].depth = 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
457 #endif /* HAVE_X_WINDOWS */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
458
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
459 #ifdef HAVE_NTGUI
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
460 dpyinfo->bitmaps[id - 1].pixmap = bitmap;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
461 dpyinfo->bitmaps[id - 1].hinst = NULL;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
462 dpyinfo->bitmaps[id - 1].depth = 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
463 #endif /* HAVE_NTGUI */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
464
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
465 return id;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
466 }
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 /* 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
469
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
470 int
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
471 x_create_bitmap_from_file (f, file)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
472 struct frame *f;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
473 Lisp_Object file;
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 #ifdef MAC_OS
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
476 return -1; /* MAC_TODO : bitmap support */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
477 #endif /* MAC_OS */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
478
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
479 #ifdef HAVE_NTGUI
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
480 return -1; /* W32_TODO : bitmap support */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
481 #endif /* HAVE_NTGUI */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
482
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
483 #ifdef HAVE_X_WINDOWS
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
484 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
485 unsigned int width, height;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
486 Pixmap bitmap;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
487 int xhot, yhot, result, id;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
488 Lisp_Object found;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
489 int fd;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
490 char *filename;
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 /* 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
493 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
494 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
495 if (dpyinfo->bitmaps[id].refcount
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
496 && dpyinfo->bitmaps[id].file
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
497 && !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
498 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
499 ++dpyinfo->bitmaps[id].refcount;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
500 return id + 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
501 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
502 }
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 /* 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
505 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
506 if (fd < 0)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
507 return -1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
508 emacs_close (fd);
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 filename = (char *) SDATA (found);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
511
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
512 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
513 filename, &width, &height, &bitmap, &xhot, &yhot);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
514 if (result != BitmapSuccess)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
515 return -1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
516
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
517 id = x_allocate_bitmap_record (f);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
518 dpyinfo->bitmaps[id - 1].pixmap = bitmap;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
519 dpyinfo->bitmaps[id - 1].have_mask = 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
520 dpyinfo->bitmaps[id - 1].refcount = 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
521 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
522 dpyinfo->bitmaps[id - 1].depth = 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
523 dpyinfo->bitmaps[id - 1].height = height;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
524 dpyinfo->bitmaps[id - 1].width = width;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
525 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
526
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
527 return id;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
528 #endif /* HAVE_X_WINDOWS */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
529 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
530
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
531 /* Free bitmap B. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
532
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
533 static void
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
534 Free_Bitmap_Record (dpyinfo, bm)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
535 Display_Info *dpyinfo;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
536 Bitmap_Record *bm;
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 #ifdef HAVE_X_WINDOWS
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
539 XFreePixmap (dpyinfo->display, bm->pixmap);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
540 if (bm->have_mask)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
541 XFreePixmap (dpyinfo->display, bm->mask);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
542 #endif /* HAVE_X_WINDOWS */
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 #ifdef HAVE_NTGUI
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
545 DeleteObject (bm->pixmap);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
546 #endif /* HAVE_NTGUI */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
547
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
548 #ifdef MAC_OS
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
549 xfree (bm->bitmap_data); /* Added ++kfs */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
550 bm->bitmap_data = NULL;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
551 #endif /* MAC_OS */
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 if (bm->file)
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 xfree (bm->file);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
556 bm->file = NULL;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
557 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
558 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
559
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
560 /* 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
561
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
562 void
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
563 x_destroy_bitmap (f, id)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
564 FRAME_PTR f;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
565 int id;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
566 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
567 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
568
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
569 if (id > 0)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
570 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
571 Bitmap_Record *bm = &dpyinfo->bitmaps[id - 1];
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
572
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
573 if (--bm->refcount == 0)
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 BLOCK_INPUT;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
576 Free_Bitmap_Record (dpyinfo, bm);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
577 UNBLOCK_INPUT;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
578 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
579 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
580 }
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 /* 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
583
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
584 void
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
585 x_destroy_all_bitmaps (dpyinfo)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
586 Display_Info *dpyinfo;
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 int i;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
589 Bitmap_Record *bm = dpyinfo->bitmaps;
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 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
592 if (bm->refcount > 0)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
593 Free_Bitmap_Record (dpyinfo, bm);
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 dpyinfo->bitmaps_last = 0;
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
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
599 #ifdef HAVE_X_WINDOWS
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
600
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
601 /* Useful functions defined in the section
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
602 `Image type independent image structures' below. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
603
70168
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
604 static unsigned long four_corners_best P_ ((XImagePtr ximg,
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
605 int *corners,
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
606 unsigned long width,
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
607 unsigned long height));
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 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
610 int depth, XImagePtr *ximg,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
611 Pixmap *pixmap));
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 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
614
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
615
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
616 /* 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
617 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
618
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
619 int
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
620 x_create_bitmap_mask (f, id)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
621 struct frame *f;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
622 int id;
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 Pixmap pixmap, mask;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
625 XImagePtr ximg, mask_img;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
626 unsigned long width, height;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
627 int result;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
628 unsigned long bg;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
629 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
630 GC gc;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
631
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
632 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
633
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
634 if (!(id > 0))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
635 return -1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
636
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
637 pixmap = x_bitmap_pixmap (f, id);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
638 width = x_bitmap_width (f, id);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
639 height = x_bitmap_height (f, id);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
640
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
641 BLOCK_INPUT;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
642 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
643 ~0, ZPixmap);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
644
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
645 if (!ximg)
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 UNBLOCK_INPUT;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
648 return -1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
649 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
650
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
651 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
652
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
653 UNBLOCK_INPUT;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
654 if (!result)
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 XDestroyImage (ximg);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
657 return -1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
658 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
659
70168
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
660 bg = four_corners_best (ximg, NULL, width, height);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
661
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
662 for (y = 0; y < ximg->height; ++y)
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 for (x = 0; x < ximg->width; ++x)
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 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
667 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
668 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
669 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
670 if (XGetPixel (ximg, x, y) == bg
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
671 && XGetPixel (ximg, x, yp) == bg
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
672 && XGetPixel (ximg, x, ym) == bg
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
673 && XGetPixel (ximg, xp, y) == bg
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
674 && XGetPixel (ximg, xp, yp) == bg
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
675 && XGetPixel (ximg, xp, ym) == bg
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
676 && XGetPixel (ximg, xm, y) == bg
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
677 && XGetPixel (ximg, xm, yp) == bg
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
678 && XGetPixel (ximg, xm, ym) == bg)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
679 XPutPixel (mask_img, x, y, 0);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
680 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
681 XPutPixel (mask_img, x, y, 1);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
682 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
683 }
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 xassert (interrupt_input_blocked);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
686 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
687 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
688 width, height);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
689 XFreeGC (FRAME_X_DISPLAY (f), gc);
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 dpyinfo->bitmaps[id - 1].have_mask = 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
692 dpyinfo->bitmaps[id - 1].mask = mask;
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 XDestroyImage (ximg);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
695 x_destroy_x_image (mask_img);
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 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
698 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
699
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
700 #endif /* HAVE_X_WINDOWS */
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 /***********************************************************************
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
704 Image types
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 /* 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
708
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
709 #define DIM(VECTOR) (sizeof (VECTOR) / sizeof *(VECTOR))
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 /* 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
712 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
713
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
714 static struct image_type *image_types;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
715
56104
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
716 /* A list of symbols, one for each supported image type. */
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
717
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
718 Lisp_Object Vimage_types;
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
719
62815
94db1d097527 (Vimage_library_alist): Moved from image.el.
Juanma Barranquero <lekktu@gmail.com>
parents: 62561
diff changeset
720 /* An alist of image types and libraries that implement the type. */
94db1d097527 (Vimage_library_alist): Moved from image.el.
Juanma Barranquero <lekktu@gmail.com>
parents: 62561
diff changeset
721
94db1d097527 (Vimage_library_alist): Moved from image.el.
Juanma Barranquero <lekktu@gmail.com>
parents: 62561
diff changeset
722 Lisp_Object Vimage_library_alist;
94db1d097527 (Vimage_library_alist): Moved from image.el.
Juanma Barranquero <lekktu@gmail.com>
parents: 62561
diff changeset
723
56104
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
724 /* Cache for delayed-loading image types. */
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
725
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
726 static Lisp_Object Vimage_type_cache;
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
727
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
728 /* 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
729
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
730 Lisp_Object Qxbm;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
731
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
732 /* Keywords. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
733
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
734 extern Lisp_Object QCwidth, QCheight, QCforeground, QCbackground, QCfile;
70168
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
735 extern Lisp_Object QCdata, QCtype, Qcount;
54427
5636e8542b77 (Qcenter): Move to xdisp.c.
Kim F. Storm <storm@cua.dk>
parents: 54391
diff changeset
736 extern Lisp_Object Qcenter;
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
737 Lisp_Object QCascent, QCmargin, QCrelief;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
738 Lisp_Object QCconversion, QCcolor_symbols, QCheuristic_mask;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
739 Lisp_Object QCindex, QCmatrix, QCcolor_adjustment, QCmask;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
740
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
741 /* Other symbols. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
742
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
743 Lisp_Object Qlaplace, Qemboss, Qedge_detection, Qheuristic;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
744
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
745 /* 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
746 if not displayed. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
747
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
748 Lisp_Object Vimage_cache_eviction_delay;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
749
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
750 /* Function prototypes. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
751
56104
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
752 static Lisp_Object define_image_type P_ ((struct image_type *type, int loaded));
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
753 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
754 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
755 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
756 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
757 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
758 Lisp_Object));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
759
56104
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
760 #define CACHE_IMAGE_TYPE(type, status) \
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
761 do { Vimage_type_cache = Fcons (Fcons (type, status), Vimage_type_cache); } while (0)
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
762
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
763 #define ADD_IMAGE_TYPE(type) \
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
764 do { Vimage_types = Fcons (type, Vimage_types); } while (0)
54341
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 /* Define a new image type from TYPE. This adds a copy of TYPE to
56104
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
767 image_types and caches the loading status of TYPE. */
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
768
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
769 static Lisp_Object
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
770 define_image_type (type, loaded)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
771 struct image_type *type;
56104
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
772 int loaded;
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
773 {
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
774 Lisp_Object success;
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
775
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
776 if (!loaded)
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
777 success = Qnil;
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
778 else
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
779 {
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
780 /* Make a copy of TYPE to avoid a bus error in a dumped Emacs.
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
781 The initialized data segment is read-only. */
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
782 struct image_type *p = (struct image_type *) xmalloc (sizeof *p);
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
783 bcopy (type, p, sizeof *p);
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
784 p->next = image_types;
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
785 image_types = p;
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
786 success = Qt;
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
787 }
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
788
56288
7acb38a05354 (CHECK_LIB_AVAILABLE): Add third parameter LIBRARIES.
Andreas Schwab <schwab@suse.de>
parents: 56132
diff changeset
789 CACHE_IMAGE_TYPE (*type->type, success);
56104
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
790 return success;
54341
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
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
793
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
794 /* 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
795 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
796
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
797 static INLINE struct image_type *
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
798 lookup_image_type (symbol)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
799 Lisp_Object symbol;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
800 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
801 struct image_type *type;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
802
56132
56c3ef9caeed Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-410
Miles Bader <miles@gnu.org>
parents: 56104
diff changeset
803 /* We must initialize the image-type if it hasn't been already. */
62815
94db1d097527 (Vimage_library_alist): Moved from image.el.
Juanma Barranquero <lekktu@gmail.com>
parents: 62561
diff changeset
804 if (NILP (Finit_image_library (symbol, Vimage_library_alist)))
56132
56c3ef9caeed Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-410
Miles Bader <miles@gnu.org>
parents: 56104
diff changeset
805 return 0; /* unimplemented */
56c3ef9caeed Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-410
Miles Bader <miles@gnu.org>
parents: 56104
diff changeset
806
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
807 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
808 if (EQ (symbol, *type->type))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
809 break;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
810
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
811 return type;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
812 }
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
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
815 /* 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
816 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
817 `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
818 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
819 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
820 image type. */
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 int
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
823 valid_image_p (object)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
824 Lisp_Object object;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
825 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
826 int valid_p = 0;
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 if (IMAGEP (object))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
829 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
830 Lisp_Object tem;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
831
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
832 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
833 if (EQ (XCAR (tem), QCtype))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
834 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
835 tem = XCDR (tem);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
836 if (CONSP (tem) && SYMBOLP (XCAR (tem)))
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 struct image_type *type;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
839 type = lookup_image_type (XCAR (tem));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
840 if (type)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
841 valid_p = type->valid_p (object);
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
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
844 break;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
845 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
846 }
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 return valid_p;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
849 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
850
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
851
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
852 /* 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
853 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
854 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
855 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
856 therefore simply displays a message. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
857
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
858 static void
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
859 image_error (format, arg1, arg2)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
860 char *format;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
861 Lisp_Object arg1, arg2;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
862 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
863 add_to_log (format, arg1, arg2);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
864 }
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
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
867
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
868 /***********************************************************************
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
869 Image specifications
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
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
872 enum image_value_type
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 IMAGE_DONT_CHECK_VALUE_TYPE,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
875 IMAGE_STRING_VALUE,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
876 IMAGE_STRING_OR_NIL_VALUE,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
877 IMAGE_SYMBOL_VALUE,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
878 IMAGE_POSITIVE_INTEGER_VALUE,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
879 IMAGE_POSITIVE_INTEGER_VALUE_OR_PAIR,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
880 IMAGE_NON_NEGATIVE_INTEGER_VALUE,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
881 IMAGE_ASCENT_VALUE,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
882 IMAGE_INTEGER_VALUE,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
883 IMAGE_FUNCTION_VALUE,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
884 IMAGE_NUMBER_VALUE,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
885 IMAGE_BOOL_VALUE
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
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
888 /* Structure used when parsing image specifications. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
889
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
890 struct image_keyword
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 /* Name of keyword. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
893 char *name;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
894
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
895 /* The type of value allowed. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
896 enum image_value_type type;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
897
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
898 /* Non-zero means key must be present. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
899 int mandatory_p;
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 /* 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
902 int count;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
903
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
904 /* The value that was found. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
905 Lisp_Object value;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
906 };
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
907
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
908
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
909 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
910 int, Lisp_Object));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
911 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
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 /* 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
915 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
916 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
917 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
918 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
919
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
920 static int
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
921 parse_image_spec (spec, keywords, nkeywords, type)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
922 Lisp_Object spec;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
923 struct image_keyword *keywords;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
924 int nkeywords;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
925 Lisp_Object type;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
926 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
927 int i;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
928 Lisp_Object plist;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
929
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
930 if (!IMAGEP (spec))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
931 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
932
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
933 plist = XCDR (spec);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
934 while (CONSP (plist))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
935 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
936 Lisp_Object key, value;
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 /* 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
939 key = XCAR (plist);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
940 plist = XCDR (plist);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
941 if (!SYMBOLP (key))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
942 return 0;
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 /* There must follow a value. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
945 if (!CONSP (plist))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
946 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
947 value = XCAR (plist);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
948 plist = XCDR (plist);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
949
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
950 /* 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
951 for (i = 0; i < nkeywords; ++i)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
952 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
953 break;
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 if (i == nkeywords)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
956 continue;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
957
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
958 /* 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
959 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
960 keywords[i].value = value;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
961 ++keywords[i].count;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
962
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
963 if (keywords[i].count > 1)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
964 return 0;
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 /* Check type of value against allowed type. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
967 switch (keywords[i].type)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
968 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
969 case IMAGE_STRING_VALUE:
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
970 if (!STRINGP (value))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
971 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
972 break;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
973
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
974 case IMAGE_STRING_OR_NIL_VALUE:
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
975 if (!STRINGP (value) && !NILP (value))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
976 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
977 break;
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 case IMAGE_SYMBOL_VALUE:
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
980 if (!SYMBOLP (value))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
981 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
982 break;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
983
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
984 case IMAGE_POSITIVE_INTEGER_VALUE:
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
985 if (!INTEGERP (value) || XINT (value) <= 0)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
986 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
987 break;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
988
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
989 case IMAGE_POSITIVE_INTEGER_VALUE_OR_PAIR:
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
990 if (INTEGERP (value) && XINT (value) >= 0)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
991 break;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
992 if (CONSP (value)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
993 && INTEGERP (XCAR (value)) && INTEGERP (XCDR (value))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
994 && 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
995 break;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
996 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
997
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
998 case IMAGE_ASCENT_VALUE:
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
999 if (SYMBOLP (value) && EQ (value, Qcenter))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1000 break;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1001 else if (INTEGERP (value)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1002 && XINT (value) >= 0
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1003 && XINT (value) <= 100)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1004 break;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1005 return 0;
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 case IMAGE_NON_NEGATIVE_INTEGER_VALUE:
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1008 if (!INTEGERP (value) || XINT (value) < 0)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1009 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1010 break;
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 case IMAGE_DONT_CHECK_VALUE_TYPE:
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1013 break;
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 case IMAGE_FUNCTION_VALUE:
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1016 value = indirect_function (value);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1017 if (SUBRP (value)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1018 || COMPILEDP (value)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1019 || (CONSP (value) && EQ (XCAR (value), Qlambda)))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1020 break;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1021 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1022
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1023 case IMAGE_NUMBER_VALUE:
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1024 if (!INTEGERP (value) && !FLOATP (value))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1025 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1026 break;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1027
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1028 case IMAGE_INTEGER_VALUE:
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1029 if (!INTEGERP (value))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1030 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1031 break;
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 case IMAGE_BOOL_VALUE:
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1034 if (!NILP (value) && !EQ (value, Qt))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1035 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1036 break;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1037
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1038 default:
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1039 abort ();
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1040 break;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1041 }
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 if (EQ (key, QCtype) && !EQ (type, value))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1044 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1045 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1046
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1047 /* Check that all mandatory fields are present. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1048 for (i = 0; i < nkeywords; ++i)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1049 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
1050 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1051
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1052 return NILP (plist);
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
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 /* 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
1057 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
1058 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
1059
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1060 static Lisp_Object
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1061 image_spec_value (spec, key, found)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1062 Lisp_Object spec, key;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1063 int *found;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1064 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1065 Lisp_Object tail;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1066
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1067 xassert (valid_image_p (spec));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1068
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1069 for (tail = XCDR (spec);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1070 CONSP (tail) && CONSP (XCDR (tail));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1071 tail = XCDR (XCDR (tail)))
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 if (EQ (XCAR (tail), key))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1074 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1075 if (found)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1076 *found = 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1077 return XCAR (XCDR (tail));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1078 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1079 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1080
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1081 if (found)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1082 *found = 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1083 return Qnil;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1084 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1085
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 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
1088 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
1089 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
1090 size in canonical character units.
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1091 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
1092 or omitted means use the selected frame. */)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1093 (spec, pixels, frame)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1094 Lisp_Object spec, pixels, frame;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1095 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1096 Lisp_Object size;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1097
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1098 size = Qnil;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1099 if (valid_image_p (spec))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1100 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1101 struct frame *f = check_x_frame (frame);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1102 int id = lookup_image (f, spec);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1103 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
1104 int width = img->width + 2 * img->hmargin;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1105 int height = img->height + 2 * img->vmargin;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1106
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1107 if (NILP (pixels))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1108 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
1109 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
1110 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1111 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
1112 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1113 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1114 error ("Invalid image specification");
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1115
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1116 return size;
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
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 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
1121 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
1122 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
1123 or omitted means use the selected frame. */)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1124 (spec, frame)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1125 Lisp_Object spec, frame;
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 Lisp_Object mask;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1128
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1129 mask = Qnil;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1130 if (valid_image_p (spec))
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 struct frame *f = check_x_frame (frame);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1133 int id = lookup_image (f, spec);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1134 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
1135 if (img->mask)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1136 mask = Qt;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1137 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1138 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1139 error ("Invalid image specification");
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 return mask;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1142 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1143
70168
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
1144 DEFUN ("image-extension-data", Fimage_extension_data, Simage_extension_data, 1, 2, 0,
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
1145 doc: /* Return extension data for image SPEC.
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
1146 FRAME is the frame on which the image will be displayed. FRAME nil
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
1147 or omitted means use the selected frame. */)
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
1148 (spec, frame)
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
1149 Lisp_Object spec, frame;
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
1150 {
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
1151 Lisp_Object ext;
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
1152
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
1153 ext = Qnil;
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
1154 if (valid_image_p (spec))
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
1155 {
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
1156 struct frame *f = check_x_frame (frame);
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
1157 int id = lookup_image (f, spec);
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
1158 struct image *img = IMAGE_FROM_ID (f, id);
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
1159 ext = img->data.lisp_val;
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
1160 }
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
1161
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
1162 return ext;
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
1163 }
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
1164
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1165
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 Image type independent image structures
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
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1170 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
1171 static void free_image P_ ((struct frame *f, struct image *img));
66195
ad1acaef1abb * image.c (Vmax_image_size): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 66013
diff changeset
1172 static int check_image_size P_ ((struct frame *f, int width, int height));
ad1acaef1abb * image.c (Vmax_image_size): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 66013
diff changeset
1173
ad1acaef1abb * image.c (Vmax_image_size): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 66013
diff changeset
1174 #define MAX_IMAGE_SIZE 6.0
ad1acaef1abb * image.c (Vmax_image_size): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 66013
diff changeset
1175 Lisp_Object Vmax_image_size;
54341
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 /* 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
1178 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
1179
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1180 static struct image *
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1181 make_image (spec, hash)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1182 Lisp_Object spec;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1183 unsigned hash;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1184 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1185 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
1186
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1187 xassert (valid_image_p (spec));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1188 bzero (img, sizeof *img);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1189 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
1190 xassert (img->type != NULL);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1191 img->spec = spec;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1192 img->data.lisp_val = Qnil;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1193 img->ascent = DEFAULT_IMAGE_ASCENT;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1194 img->hash = hash;
70168
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
1195 img->corners[BOT_CORNER] = -1; /* Full image */
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1196 return img;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1197 }
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
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1200 /* 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
1201
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1202 static void
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1203 free_image (f, img)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1204 struct frame *f;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1205 struct image *img;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1206 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1207 if (img)
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 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
1210
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1211 /* 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
1212 if (img->prev)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1213 img->prev->next = img->next;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1214 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1215 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
1216
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1217 if (img->next)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1218 img->next->prev = img->prev;
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 c->images[img->id] = NULL;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1221
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1222 /* Free resources, then free IMG. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1223 img->type->free (f, img);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1224 xfree (img);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1225 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1226 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1227
66195
ad1acaef1abb * image.c (Vmax_image_size): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 66013
diff changeset
1228 /* Return 1 if the given widths and heights are valid for display;
ad1acaef1abb * image.c (Vmax_image_size): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 66013
diff changeset
1229 otherwise, return 0. */
ad1acaef1abb * image.c (Vmax_image_size): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 66013
diff changeset
1230
ad1acaef1abb * image.c (Vmax_image_size): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 66013
diff changeset
1231 int
ad1acaef1abb * image.c (Vmax_image_size): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 66013
diff changeset
1232 check_image_size (f, width, height)
ad1acaef1abb * image.c (Vmax_image_size): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 66013
diff changeset
1233 struct frame *f;
ad1acaef1abb * image.c (Vmax_image_size): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 66013
diff changeset
1234 int width;
ad1acaef1abb * image.c (Vmax_image_size): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 66013
diff changeset
1235 int height;
ad1acaef1abb * image.c (Vmax_image_size): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 66013
diff changeset
1236 {
66208
5414bd89ffde (check_image_size): Handle integer Vmax_image_size value
Kim F. Storm <storm@cua.dk>
parents: 66195
diff changeset
1237 int w, h;
5414bd89ffde (check_image_size): Handle integer Vmax_image_size value
Kim F. Storm <storm@cua.dk>
parents: 66195
diff changeset
1238
5414bd89ffde (check_image_size): Handle integer Vmax_image_size value
Kim F. Storm <storm@cua.dk>
parents: 66195
diff changeset
1239 if (width <= 0 || height <= 0)
66195
ad1acaef1abb * image.c (Vmax_image_size): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 66013
diff changeset
1240 return 0;
ad1acaef1abb * image.c (Vmax_image_size): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 66013
diff changeset
1241
66208
5414bd89ffde (check_image_size): Handle integer Vmax_image_size value
Kim F. Storm <storm@cua.dk>
parents: 66195
diff changeset
1242 if (INTEGERP (Vmax_image_size))
5414bd89ffde (check_image_size): Handle integer Vmax_image_size value
Kim F. Storm <storm@cua.dk>
parents: 66195
diff changeset
1243 w = h = XINT (Vmax_image_size);
5414bd89ffde (check_image_size): Handle integer Vmax_image_size value
Kim F. Storm <storm@cua.dk>
parents: 66195
diff changeset
1244 else if (FLOATP (Vmax_image_size))
5414bd89ffde (check_image_size): Handle integer Vmax_image_size value
Kim F. Storm <storm@cua.dk>
parents: 66195
diff changeset
1245 {
5414bd89ffde (check_image_size): Handle integer Vmax_image_size value
Kim F. Storm <storm@cua.dk>
parents: 66195
diff changeset
1246 if (f != NULL)
5414bd89ffde (check_image_size): Handle integer Vmax_image_size value
Kim F. Storm <storm@cua.dk>
parents: 66195
diff changeset
1247 {
5414bd89ffde (check_image_size): Handle integer Vmax_image_size value
Kim F. Storm <storm@cua.dk>
parents: 66195
diff changeset
1248 w = FRAME_PIXEL_WIDTH (f);
5414bd89ffde (check_image_size): Handle integer Vmax_image_size value
Kim F. Storm <storm@cua.dk>
parents: 66195
diff changeset
1249 h = FRAME_PIXEL_HEIGHT (f);
5414bd89ffde (check_image_size): Handle integer Vmax_image_size value
Kim F. Storm <storm@cua.dk>
parents: 66195
diff changeset
1250 }
5414bd89ffde (check_image_size): Handle integer Vmax_image_size value
Kim F. Storm <storm@cua.dk>
parents: 66195
diff changeset
1251 else
5414bd89ffde (check_image_size): Handle integer Vmax_image_size value
Kim F. Storm <storm@cua.dk>
parents: 66195
diff changeset
1252 w = h = 1024; /* Arbitrary size for unknown frame. */
5414bd89ffde (check_image_size): Handle integer Vmax_image_size value
Kim F. Storm <storm@cua.dk>
parents: 66195
diff changeset
1253 w = (int) (XFLOAT_DATA (Vmax_image_size) * w);
5414bd89ffde (check_image_size): Handle integer Vmax_image_size value
Kim F. Storm <storm@cua.dk>
parents: 66195
diff changeset
1254 h = (int) (XFLOAT_DATA (Vmax_image_size) * h);
5414bd89ffde (check_image_size): Handle integer Vmax_image_size value
Kim F. Storm <storm@cua.dk>
parents: 66195
diff changeset
1255 }
5414bd89ffde (check_image_size): Handle integer Vmax_image_size value
Kim F. Storm <storm@cua.dk>
parents: 66195
diff changeset
1256 else
5414bd89ffde (check_image_size): Handle integer Vmax_image_size value
Kim F. Storm <storm@cua.dk>
parents: 66195
diff changeset
1257 return 1;
5414bd89ffde (check_image_size): Handle integer Vmax_image_size value
Kim F. Storm <storm@cua.dk>
parents: 66195
diff changeset
1258
5414bd89ffde (check_image_size): Handle integer Vmax_image_size value
Kim F. Storm <storm@cua.dk>
parents: 66195
diff changeset
1259 return (width <= w && height <= h);
66195
ad1acaef1abb * image.c (Vmax_image_size): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 66013
diff changeset
1260 }
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1261
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1262 /* 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
1263 drawing an image. */
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 void
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1266 prepare_image_for_display (f, img)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1267 struct frame *f;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1268 struct image *img;
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 EMACS_TIME t;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1271
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1272 /* 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
1273 EMACS_GET_TIME (t);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1274 img->timestamp = EMACS_SECS (t);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1275
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1276 /* 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
1277 type dependent loader function. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1278 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
1279 img->load_failed_p = img->type->load (f, img) == 0;
69511
65b669e90ff5 [MAC_OS] (XPutPixel, XGetPixel)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 69333
diff changeset
1280
65b669e90ff5 [MAC_OS] (XPutPixel, XGetPixel)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 69333
diff changeset
1281 #if defined (MAC_OS) && USE_CG_DRAWING
65b669e90ff5 [MAC_OS] (XPutPixel, XGetPixel)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 69333
diff changeset
1282 if (!img->load_failed_p && img->data.ptr_val == NULL)
65b669e90ff5 [MAC_OS] (XPutPixel, XGetPixel)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 69333
diff changeset
1283 {
65b669e90ff5 [MAC_OS] (XPutPixel, XGetPixel)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 69333
diff changeset
1284 img->data.ptr_val = mac_create_cg_image_from_image (f, img);
65b669e90ff5 [MAC_OS] (XPutPixel, XGetPixel)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 69333
diff changeset
1285 if (img->data.ptr_val == NULL)
65b669e90ff5 [MAC_OS] (XPutPixel, XGetPixel)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 69333
diff changeset
1286 {
65b669e90ff5 [MAC_OS] (XPutPixel, XGetPixel)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 69333
diff changeset
1287 img->load_failed_p = 1;
65b669e90ff5 [MAC_OS] (XPutPixel, XGetPixel)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 69333
diff changeset
1288 img->type->free (f, img);
65b669e90ff5 [MAC_OS] (XPutPixel, XGetPixel)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 69333
diff changeset
1289 }
65b669e90ff5 [MAC_OS] (XPutPixel, XGetPixel)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 69333
diff changeset
1290 }
65b669e90ff5 [MAC_OS] (XPutPixel, XGetPixel)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 69333
diff changeset
1291 #endif
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1292 }
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
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1295 /* 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
1296 drawn in face FACE. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1297
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1298 int
55022
dda0bae93c73 (image_ascent): Add slice arg; calculate ascent for
Kim F. Storm <storm@cua.dk>
parents: 54920
diff changeset
1299 image_ascent (img, face, slice)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1300 struct image *img;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1301 struct face *face;
55022
dda0bae93c73 (image_ascent): Add slice arg; calculate ascent for
Kim F. Storm <storm@cua.dk>
parents: 54920
diff changeset
1302 struct glyph_slice *slice;
dda0bae93c73 (image_ascent): Add slice arg; calculate ascent for
Kim F. Storm <storm@cua.dk>
parents: 54920
diff changeset
1303 {
dda0bae93c73 (image_ascent): Add slice arg; calculate ascent for
Kim F. Storm <storm@cua.dk>
parents: 54920
diff changeset
1304 int height;
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1305 int ascent;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1306
55022
dda0bae93c73 (image_ascent): Add slice arg; calculate ascent for
Kim F. Storm <storm@cua.dk>
parents: 54920
diff changeset
1307 if (slice->height == img->height)
dda0bae93c73 (image_ascent): Add slice arg; calculate ascent for
Kim F. Storm <storm@cua.dk>
parents: 54920
diff changeset
1308 height = img->height + img->vmargin;
dda0bae93c73 (image_ascent): Add slice arg; calculate ascent for
Kim F. Storm <storm@cua.dk>
parents: 54920
diff changeset
1309 else if (slice->y == 0)
dda0bae93c73 (image_ascent): Add slice arg; calculate ascent for
Kim F. Storm <storm@cua.dk>
parents: 54920
diff changeset
1310 height = slice->height + img->vmargin;
dda0bae93c73 (image_ascent): Add slice arg; calculate ascent for
Kim F. Storm <storm@cua.dk>
parents: 54920
diff changeset
1311 else
dda0bae93c73 (image_ascent): Add slice arg; calculate ascent for
Kim F. Storm <storm@cua.dk>
parents: 54920
diff changeset
1312 height = slice->height;
dda0bae93c73 (image_ascent): Add slice arg; calculate ascent for
Kim F. Storm <storm@cua.dk>
parents: 54920
diff changeset
1313
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1314 if (img->ascent == CENTERED_IMAGE_ASCENT)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1315 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1316 if (face->font)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1317 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1318 #ifdef HAVE_NTGUI
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1319 /* W32 specific version. Why?. ++kfs */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1320 ascent = height / 2 - (FONT_DESCENT(face->font)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1321 - FONT_BASE(face->font)) / 2;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1322 #else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1323 /* 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
1324 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
1325 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
1326 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
1327 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
1328 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
1329 #endif /* HAVE_NTGUI */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1330 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1331 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1332 ascent = height / 2;
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 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1335 ascent = (int) (height * img->ascent / 100.0);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1336
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1337 return ascent;
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
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1340
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1341 /* Image background colors. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1342
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1343 /* 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
1344 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
1345
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1346 static RGB_PIXEL_COLOR
70168
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
1347 four_corners_best (ximg, corners, width, height)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1348 XImagePtr_or_DC ximg;
70168
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
1349 int *corners;
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1350 unsigned long width, height;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1351 {
70168
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
1352 RGB_PIXEL_COLOR corner_pixels[4], best;
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1353 int i, best_count;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1354
70168
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
1355 if (corners && corners[BOT_CORNER] >= 0)
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
1356 {
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
1357 /* Get the colors at the corner_pixels of ximg. */
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
1358 corner_pixels[0] = GET_PIXEL (ximg, corners[LEFT_CORNER], corners[TOP_CORNER]);
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
1359 corner_pixels[1] = GET_PIXEL (ximg, corners[RIGHT_CORNER] - 1, corners[TOP_CORNER]);
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
1360 corner_pixels[2] = GET_PIXEL (ximg, corners[RIGHT_CORNER] - 1, corners[BOT_CORNER] - 1);
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
1361 corner_pixels[3] = GET_PIXEL (ximg, corners[LEFT_CORNER], corners[BOT_CORNER] - 1);
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
1362 }
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
1363 else
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
1364 {
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
1365 /* Get the colors at the corner_pixels of ximg. */
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
1366 corner_pixels[0] = GET_PIXEL (ximg, 0, 0);
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
1367 corner_pixels[1] = GET_PIXEL (ximg, width - 1, 0);
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
1368 corner_pixels[2] = GET_PIXEL (ximg, width - 1, height - 1);
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
1369 corner_pixels[3] = GET_PIXEL (ximg, 0, height - 1);
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
1370 }
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1371 /* 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
1372 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
1373 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1374 int j, n;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1375
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1376 for (j = n = 0; j < 4; ++j)
70168
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
1377 if (corner_pixels[i] == corner_pixels[j])
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1378 ++n;
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 if (n > best_count)
70168
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
1381 best = corner_pixels[i], best_count = n;
54341
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
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1384 return best;
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
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1387 /* Portability macros */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1388
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1389 #ifdef HAVE_NTGUI
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1390
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1391 #define Destroy_Image(img_dc, prev) \
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1392 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
1393
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1394 #define Free_Pixmap(display, pixmap) \
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1395 DeleteObject (pixmap)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1396
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1397 #else
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 #define Destroy_Image(ximg, dummy) \
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1400 XDestroyImage (ximg)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1401
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1402 #define Free_Pixmap(display, pixmap) \
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1403 XFreePixmap (display, pixmap)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1404
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1405 #endif /* HAVE_NTGUI */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1406
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 /* 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
1409 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
1410 XImage object (or device context with the image selected on W32) to
54920
38cb79e68369 (PNG_BG_COLOR_SHIFT): Remove.
Kim F. Storm <storm@cua.dk>
parents: 54427
diff changeset
1411 use for the heuristic. */
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1412
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1413 RGB_PIXEL_COLOR
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1414 image_background (img, f, ximg)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1415 struct image *img;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1416 struct frame *f;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1417 XImagePtr_or_DC ximg;
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 if (! img->background_valid)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1420 /* 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
1421 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1422 int free_ximg = !ximg;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1423 #ifdef HAVE_NTGUI
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1424 HGDIOBJ prev;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1425 #endif /* HAVE_NTGUI */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1426
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1427 if (free_ximg)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1428 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1429 #ifndef HAVE_NTGUI
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1430 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
1431 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
1432 #else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1433 HDC frame_dc = get_frame_dc (f);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1434 ximg = CreateCompatibleDC (frame_dc);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1435 release_frame_dc (f, frame_dc);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1436 prev = SelectObject (ximg, img->pixmap);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1437 #endif /* !HAVE_NTGUI */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1438 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1439
70168
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
1440 img->background = four_corners_best (ximg, img->corners, img->width, img->height);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1441
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1442 if (free_ximg)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1443 Destroy_Image (ximg, prev);
54920
38cb79e68369 (PNG_BG_COLOR_SHIFT): Remove.
Kim F. Storm <storm@cua.dk>
parents: 54427
diff changeset
1444
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1445 img->background_valid = 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1446 }
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 return img->background;
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
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1451 /* 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
1452 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
1453 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
1454
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1455 int
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1456 image_background_transparent (img, f, mask)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1457 struct image *img;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1458 struct frame *f;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1459 XImagePtr_or_DC mask;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1460 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1461 if (! img->background_transparent_valid)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1462 /* 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
1463 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1464 if (img->mask)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1465 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1466 int free_mask = !mask;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1467 #ifdef HAVE_NTGUI
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1468 HGDIOBJ prev;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1469 #endif /* HAVE_NTGUI */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1470
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1471 if (free_mask)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1472 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1473 #ifndef HAVE_NTGUI
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1474 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
1475 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
1476 #else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1477 HDC frame_dc = get_frame_dc (f);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1478 mask = CreateCompatibleDC (frame_dc);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1479 release_frame_dc (f, frame_dc);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1480 prev = SelectObject (mask, img->mask);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1481 #endif /* HAVE_NTGUI */
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
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1484 img->background_transparent
70168
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
1485 = (four_corners_best (mask, img->corners, img->width, img->height) == PIX_MASK_RETAIN);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1486
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1487 if (free_mask)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1488 Destroy_Image (mask, prev);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1489 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1490 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1491 img->background_transparent = 0;
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 img->background_transparent_valid = 1;
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
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1496 return img->background_transparent;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1497 }
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
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1500 /***********************************************************************
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1501 Helper functions for X image types
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1502 ***********************************************************************/
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 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
1505 int, int));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1506 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
1507 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
1508 struct image *img,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1509 Lisp_Object color_name,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1510 unsigned long dflt));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1511
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1512
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1513 /* 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
1514 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
1515 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
1516 the image, if any. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1517
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1518 static void
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1519 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
1520 struct frame *f;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1521 struct image *img;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1522 int pixmap_p, mask_p, colors_p;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1523 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1524 if (pixmap_p && img->pixmap)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1525 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1526 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
1527 img->pixmap = NO_PIXMAP;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1528 img->background_valid = 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1529 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1530
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1531 if (mask_p && img->mask)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1532 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1533 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
1534 img->mask = NO_PIXMAP;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1535 img->background_transparent_valid = 0;
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
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1538 if (colors_p && img->ncolors)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1539 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1540 /* MAC_TODO: color table support. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1541 /* W32_TODO: color table support. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1542 #ifdef HAVE_X_WINDOWS
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1543 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
1544 #endif /* HAVE_X_WINDOWS */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1545 xfree (img->colors);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1546 img->colors = NULL;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1547 img->ncolors = 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1548 }
69511
65b669e90ff5 [MAC_OS] (XPutPixel, XGetPixel)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 69333
diff changeset
1549
65b669e90ff5 [MAC_OS] (XPutPixel, XGetPixel)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 69333
diff changeset
1550 #if defined (MAC_OS) && USE_CG_DRAWING
65b669e90ff5 [MAC_OS] (XPutPixel, XGetPixel)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 69333
diff changeset
1551 if (img->data.ptr_val)
65b669e90ff5 [MAC_OS] (XPutPixel, XGetPixel)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 69333
diff changeset
1552 {
65b669e90ff5 [MAC_OS] (XPutPixel, XGetPixel)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 69333
diff changeset
1553 CGImageRelease (img->data.ptr_val);
65b669e90ff5 [MAC_OS] (XPutPixel, XGetPixel)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 69333
diff changeset
1554 img->data.ptr_val = NULL;
65b669e90ff5 [MAC_OS] (XPutPixel, XGetPixel)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 69333
diff changeset
1555 }
65b669e90ff5 [MAC_OS] (XPutPixel, XGetPixel)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 69333
diff changeset
1556 #endif
54341
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 /* 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
1560
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1561 static void
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1562 x_clear_image (f, img)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1563 struct frame *f;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1564 struct image *img;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1565 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1566 BLOCK_INPUT;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1567 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
1568 UNBLOCK_INPUT;
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
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1571
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1572 /* 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
1573 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
1574 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
1575 color. */
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 static unsigned long
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1578 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
1579 struct frame *f;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1580 struct image *img;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1581 Lisp_Object color_name;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1582 unsigned long dflt;
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 XColor color;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1585 unsigned long result;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1586
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1587 xassert (STRINGP (color_name));
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 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
1590 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1591 /* 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
1592 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
1593 ++img->ncolors;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1594 img->colors =
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1595 (unsigned long *) xrealloc (img->colors,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1596 img->ncolors * sizeof *img->colors);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1597 img->colors[img->ncolors - 1] = color.pixel;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1598 result = color.pixel;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1599 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1600 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1601 result = dflt;
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 return result;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1604 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1605
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
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1608 /***********************************************************************
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1609 Image Cache
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
81124
0c6ff12ab2fb (search_image_cache): New function. Require background
Chong Yidong <cyd@stupidchicken.com>
parents: 81065
diff changeset
1612 static struct image *search_image_cache P_ ((struct frame *, Lisp_Object, unsigned));
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1613 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
1614 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
1615
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1616 /* 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
1617 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
1618
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1619 struct image_cache *
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1620 make_image_cache ()
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1621 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1622 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
1623 int size;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1624
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1625 bzero (c, sizeof *c);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1626 c->size = 50;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1627 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
1628 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
1629 c->buckets = (struct image **) xmalloc (size);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1630 bzero (c->buckets, size);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1631 return c;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1632 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1633
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1634
81124
0c6ff12ab2fb (search_image_cache): New function. Require background
Chong Yidong <cyd@stupidchicken.com>
parents: 81065
diff changeset
1635 /* Find an image matching SPEC in the cache, and return it. If no
0c6ff12ab2fb (search_image_cache): New function. Require background
Chong Yidong <cyd@stupidchicken.com>
parents: 81065
diff changeset
1636 image is found, return NULL. */
0c6ff12ab2fb (search_image_cache): New function. Require background
Chong Yidong <cyd@stupidchicken.com>
parents: 81065
diff changeset
1637 static struct image *
0c6ff12ab2fb (search_image_cache): New function. Require background
Chong Yidong <cyd@stupidchicken.com>
parents: 81065
diff changeset
1638 search_image_cache (f, spec, hash)
0c6ff12ab2fb (search_image_cache): New function. Require background
Chong Yidong <cyd@stupidchicken.com>
parents: 81065
diff changeset
1639 struct frame *f;
0c6ff12ab2fb (search_image_cache): New function. Require background
Chong Yidong <cyd@stupidchicken.com>
parents: 81065
diff changeset
1640 Lisp_Object spec;
0c6ff12ab2fb (search_image_cache): New function. Require background
Chong Yidong <cyd@stupidchicken.com>
parents: 81065
diff changeset
1641 unsigned hash;
0c6ff12ab2fb (search_image_cache): New function. Require background
Chong Yidong <cyd@stupidchicken.com>
parents: 81065
diff changeset
1642 {
0c6ff12ab2fb (search_image_cache): New function. Require background
Chong Yidong <cyd@stupidchicken.com>
parents: 81065
diff changeset
1643 struct image *img;
0c6ff12ab2fb (search_image_cache): New function. Require background
Chong Yidong <cyd@stupidchicken.com>
parents: 81065
diff changeset
1644 struct image_cache *c = FRAME_X_IMAGE_CACHE (f);
0c6ff12ab2fb (search_image_cache): New function. Require background
Chong Yidong <cyd@stupidchicken.com>
parents: 81065
diff changeset
1645 Lisp_Object specified_bg = image_spec_value (spec, QCbackground, NULL);
0c6ff12ab2fb (search_image_cache): New function. Require background
Chong Yidong <cyd@stupidchicken.com>
parents: 81065
diff changeset
1646 int i = hash % IMAGE_CACHE_BUCKETS_SIZE;
0c6ff12ab2fb (search_image_cache): New function. Require background
Chong Yidong <cyd@stupidchicken.com>
parents: 81065
diff changeset
1647
0c6ff12ab2fb (search_image_cache): New function. Require background
Chong Yidong <cyd@stupidchicken.com>
parents: 81065
diff changeset
1648 /* If the image spec does not specify a background color, the cached
0c6ff12ab2fb (search_image_cache): New function. Require background
Chong Yidong <cyd@stupidchicken.com>
parents: 81065
diff changeset
1649 image must have the same background color as the current frame.
81365
22b5fa7b116a (lookup_image): Save frame foreground and background colors.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 81188
diff changeset
1650 Likewise for the foreground color of the cached monochrome image.
81124
0c6ff12ab2fb (search_image_cache): New function. Require background
Chong Yidong <cyd@stupidchicken.com>
parents: 81065
diff changeset
1651 The following code be improved. For example, jpeg does not
0c6ff12ab2fb (search_image_cache): New function. Require background
Chong Yidong <cyd@stupidchicken.com>
parents: 81065
diff changeset
1652 support transparency, but currently a jpeg image spec won't match
0c6ff12ab2fb (search_image_cache): New function. Require background
Chong Yidong <cyd@stupidchicken.com>
parents: 81065
diff changeset
1653 a cached spec created with a different frame background. The
0c6ff12ab2fb (search_image_cache): New function. Require background
Chong Yidong <cyd@stupidchicken.com>
parents: 81065
diff changeset
1654 extra memory usage is probably negligible in practice. */
0c6ff12ab2fb (search_image_cache): New function. Require background
Chong Yidong <cyd@stupidchicken.com>
parents: 81065
diff changeset
1655 if (!c) return NULL;
0c6ff12ab2fb (search_image_cache): New function. Require background
Chong Yidong <cyd@stupidchicken.com>
parents: 81065
diff changeset
1656
0c6ff12ab2fb (search_image_cache): New function. Require background
Chong Yidong <cyd@stupidchicken.com>
parents: 81065
diff changeset
1657 for (img = c->buckets[i]; img; img = img->next)
0c6ff12ab2fb (search_image_cache): New function. Require background
Chong Yidong <cyd@stupidchicken.com>
parents: 81065
diff changeset
1658 if (img->hash == hash
0c6ff12ab2fb (search_image_cache): New function. Require background
Chong Yidong <cyd@stupidchicken.com>
parents: 81065
diff changeset
1659 && !NILP (Fequal (img->spec, spec))
81365
22b5fa7b116a (lookup_image): Save frame foreground and background colors.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 81188
diff changeset
1660 && img->frame_foreground == FRAME_FOREGROUND_PIXEL (f)
22b5fa7b116a (lookup_image): Save frame foreground and background colors.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 81188
diff changeset
1661 && img->frame_background == FRAME_BACKGROUND_PIXEL (f))
81124
0c6ff12ab2fb (search_image_cache): New function. Require background
Chong Yidong <cyd@stupidchicken.com>
parents: 81065
diff changeset
1662 break;
0c6ff12ab2fb (search_image_cache): New function. Require background
Chong Yidong <cyd@stupidchicken.com>
parents: 81065
diff changeset
1663 return img;
0c6ff12ab2fb (search_image_cache): New function. Require background
Chong Yidong <cyd@stupidchicken.com>
parents: 81065
diff changeset
1664 }
0c6ff12ab2fb (search_image_cache): New function. Require background
Chong Yidong <cyd@stupidchicken.com>
parents: 81065
diff changeset
1665
0c6ff12ab2fb (search_image_cache): New function. Require background
Chong Yidong <cyd@stupidchicken.com>
parents: 81065
diff changeset
1666
0c6ff12ab2fb (search_image_cache): New function. Require background
Chong Yidong <cyd@stupidchicken.com>
parents: 81065
diff changeset
1667 /* Search frame F for an image with spec SPEC, and free it. */
81017
e2ef7cb33308 (uncache_image): New function.
Chong Yidong <cyd@stupidchicken.com>
parents: 80916
diff changeset
1668
e2ef7cb33308 (uncache_image): New function.
Chong Yidong <cyd@stupidchicken.com>
parents: 80916
diff changeset
1669 static void
e2ef7cb33308 (uncache_image): New function.
Chong Yidong <cyd@stupidchicken.com>
parents: 80916
diff changeset
1670 uncache_image (f, spec)
e2ef7cb33308 (uncache_image): New function.
Chong Yidong <cyd@stupidchicken.com>
parents: 80916
diff changeset
1671 struct frame *f;
e2ef7cb33308 (uncache_image): New function.
Chong Yidong <cyd@stupidchicken.com>
parents: 80916
diff changeset
1672 Lisp_Object spec;
e2ef7cb33308 (uncache_image): New function.
Chong Yidong <cyd@stupidchicken.com>
parents: 80916
diff changeset
1673 {
81124
0c6ff12ab2fb (search_image_cache): New function. Require background
Chong Yidong <cyd@stupidchicken.com>
parents: 81065
diff changeset
1674 struct image *img = search_image_cache (f, spec, sxhash (spec, 0));
0c6ff12ab2fb (search_image_cache): New function. Require background
Chong Yidong <cyd@stupidchicken.com>
parents: 81065
diff changeset
1675 if (img)
0c6ff12ab2fb (search_image_cache): New function. Require background
Chong Yidong <cyd@stupidchicken.com>
parents: 81065
diff changeset
1676 free_image (f, img);
81017
e2ef7cb33308 (uncache_image): New function.
Chong Yidong <cyd@stupidchicken.com>
parents: 80916
diff changeset
1677 }
e2ef7cb33308 (uncache_image): New function.
Chong Yidong <cyd@stupidchicken.com>
parents: 80916
diff changeset
1678
e2ef7cb33308 (uncache_image): New function.
Chong Yidong <cyd@stupidchicken.com>
parents: 80916
diff changeset
1679
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1680 /* 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
1681 caches. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1682
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1683 void
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1684 free_image_cache (f)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1685 struct frame *f;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1686 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1687 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
1688 if (c)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1689 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1690 int i;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1691
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1692 /* 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
1693 xassert (c->refcount == 0);
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 for (i = 0; i < c->used; ++i)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1696 free_image (f, c->images[i]);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1697 xfree (c->images);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1698 xfree (c->buckets);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1699 xfree (c);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1700 FRAME_X_IMAGE_CACHE (f) = NULL;
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 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1703
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1704
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1705 /* 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
1706 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
1707 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
1708 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
1709 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
1710 at least that many seconds. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1711
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1712 void
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1713 clear_image_cache (f, force_p)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1714 struct frame *f;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1715 int force_p;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1716 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1717 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
1718
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1719 if (c && INTEGERP (Vimage_cache_eviction_delay))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1720 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1721 EMACS_TIME t;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1722 unsigned long old;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1723 int i, nfreed;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1724
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1725 EMACS_GET_TIME (t);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1726 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
1727
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1728 /* 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
1729 while being in an inconsistent state. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1730 BLOCK_INPUT;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1731
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1732 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
1733 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1734 struct image *img = c->images[i];
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1735 if (img != NULL
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1736 && (force_p || img->timestamp < old))
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 free_image (f, img);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1739 ++nfreed;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1740 }
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
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1743 /* 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
1744 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
1745 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
1746 images freed above. So, clear these matrices. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1747 if (nfreed)
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 Lisp_Object tail, frame;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1750
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1751 FOR_EACH_FRAME (tail, frame)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1752 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1753 struct frame *f = XFRAME (frame);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1754 if (FRAME_WINDOW_P (f)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1755 && FRAME_X_IMAGE_CACHE (f) == c)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1756 clear_current_matrices (f);
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 ++windows_or_buffers_changed;
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 UNBLOCK_INPUT;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1763 }
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
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1767 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
1768 0, 1, 0,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1769 doc: /* Clear the image cache of FRAME.
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1770 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
1771 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
1772 (frame)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1773 Lisp_Object frame;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1774 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1775 if (EQ (frame, Qt))
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 Lisp_Object tail;
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 FOR_EACH_FRAME (tail, frame)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1780 if (FRAME_WINDOW_P (XFRAME (frame)))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1781 clear_image_cache (XFRAME (frame), 1);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1782 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1783 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1784 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
1785
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1786 return Qnil;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1787 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1788
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1789
81017
e2ef7cb33308 (uncache_image): New function.
Chong Yidong <cyd@stupidchicken.com>
parents: 80916
diff changeset
1790 DEFUN ("image-refresh", Fimage_refresh, Simage_refresh,
e2ef7cb33308 (uncache_image): New function.
Chong Yidong <cyd@stupidchicken.com>
parents: 80916
diff changeset
1791 1, 2, 0,
e2ef7cb33308 (uncache_image): New function.
Chong Yidong <cyd@stupidchicken.com>
parents: 80916
diff changeset
1792 doc: /* Refresh the image with specification SPEC on frame FRAME.
e2ef7cb33308 (uncache_image): New function.
Chong Yidong <cyd@stupidchicken.com>
parents: 80916
diff changeset
1793 If SPEC specifies an image file, the displayed image is updated with
e2ef7cb33308 (uncache_image): New function.
Chong Yidong <cyd@stupidchicken.com>
parents: 80916
diff changeset
1794 the current contents of that file.
e2ef7cb33308 (uncache_image): New function.
Chong Yidong <cyd@stupidchicken.com>
parents: 80916
diff changeset
1795 FRAME nil or omitted means use the selected frame.
e2ef7cb33308 (uncache_image): New function.
Chong Yidong <cyd@stupidchicken.com>
parents: 80916
diff changeset
1796 FRAME t means refresh the image on all frames. */)
e2ef7cb33308 (uncache_image): New function.
Chong Yidong <cyd@stupidchicken.com>
parents: 80916
diff changeset
1797 (spec, frame)
e2ef7cb33308 (uncache_image): New function.
Chong Yidong <cyd@stupidchicken.com>
parents: 80916
diff changeset
1798 Lisp_Object spec, frame;
e2ef7cb33308 (uncache_image): New function.
Chong Yidong <cyd@stupidchicken.com>
parents: 80916
diff changeset
1799 {
e2ef7cb33308 (uncache_image): New function.
Chong Yidong <cyd@stupidchicken.com>
parents: 80916
diff changeset
1800 if (!valid_image_p (spec))
e2ef7cb33308 (uncache_image): New function.
Chong Yidong <cyd@stupidchicken.com>
parents: 80916
diff changeset
1801 error ("Invalid image specification");
e2ef7cb33308 (uncache_image): New function.
Chong Yidong <cyd@stupidchicken.com>
parents: 80916
diff changeset
1802
e2ef7cb33308 (uncache_image): New function.
Chong Yidong <cyd@stupidchicken.com>
parents: 80916
diff changeset
1803 if (EQ (frame, Qt))
e2ef7cb33308 (uncache_image): New function.
Chong Yidong <cyd@stupidchicken.com>
parents: 80916
diff changeset
1804 {
e2ef7cb33308 (uncache_image): New function.
Chong Yidong <cyd@stupidchicken.com>
parents: 80916
diff changeset
1805 Lisp_Object tail;
e2ef7cb33308 (uncache_image): New function.
Chong Yidong <cyd@stupidchicken.com>
parents: 80916
diff changeset
1806 FOR_EACH_FRAME (tail, frame)
e2ef7cb33308 (uncache_image): New function.
Chong Yidong <cyd@stupidchicken.com>
parents: 80916
diff changeset
1807 {
e2ef7cb33308 (uncache_image): New function.
Chong Yidong <cyd@stupidchicken.com>
parents: 80916
diff changeset
1808 struct frame *f = XFRAME (frame);
e2ef7cb33308 (uncache_image): New function.
Chong Yidong <cyd@stupidchicken.com>
parents: 80916
diff changeset
1809 if (FRAME_WINDOW_P (f))
e2ef7cb33308 (uncache_image): New function.
Chong Yidong <cyd@stupidchicken.com>
parents: 80916
diff changeset
1810 uncache_image (f, spec);
e2ef7cb33308 (uncache_image): New function.
Chong Yidong <cyd@stupidchicken.com>
parents: 80916
diff changeset
1811 }
e2ef7cb33308 (uncache_image): New function.
Chong Yidong <cyd@stupidchicken.com>
parents: 80916
diff changeset
1812 }
e2ef7cb33308 (uncache_image): New function.
Chong Yidong <cyd@stupidchicken.com>
parents: 80916
diff changeset
1813 else
e2ef7cb33308 (uncache_image): New function.
Chong Yidong <cyd@stupidchicken.com>
parents: 80916
diff changeset
1814 uncache_image (check_x_frame (frame), spec);
e2ef7cb33308 (uncache_image): New function.
Chong Yidong <cyd@stupidchicken.com>
parents: 80916
diff changeset
1815
e2ef7cb33308 (uncache_image): New function.
Chong Yidong <cyd@stupidchicken.com>
parents: 80916
diff changeset
1816 return Qnil;
e2ef7cb33308 (uncache_image): New function.
Chong Yidong <cyd@stupidchicken.com>
parents: 80916
diff changeset
1817 }
e2ef7cb33308 (uncache_image): New function.
Chong Yidong <cyd@stupidchicken.com>
parents: 80916
diff changeset
1818
e2ef7cb33308 (uncache_image): New function.
Chong Yidong <cyd@stupidchicken.com>
parents: 80916
diff changeset
1819
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1820 /* 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
1821 by the image's specification, */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1822
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1823 static void
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1824 postprocess_image (f, img)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1825 struct frame *f;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1826 struct image *img;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1827 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1828 /* Manipulation of the image's mask. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1829 if (img->pixmap)
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 Lisp_Object conversion, spec;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1832 Lisp_Object mask;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1833
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1834 spec = img->spec;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1835
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1836 /* `:heuristic-mask t'
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1837 `:mask heuristic'
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1838 means build a mask heuristically.
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1839 `:heuristic-mask (R G B)'
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1840 `:mask (heuristic (R G B))'
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1841 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
1842 image.
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1843 `:mask nil'
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1844 means remove a mask, if any. */
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 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
1847 if (!NILP (mask))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1848 x_build_heuristic_mask (f, img, mask);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1849 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1850 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1851 int found_p;
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 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
1854
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1855 if (EQ (mask, Qheuristic))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1856 x_build_heuristic_mask (f, img, Qt);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1857 else if (CONSP (mask)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1858 && EQ (XCAR (mask), Qheuristic))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1859 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1860 if (CONSP (XCDR (mask)))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1861 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
1862 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1863 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
1864 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1865 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
1866 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1867 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
1868 img->mask = NO_PIXMAP;
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
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1872
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1873 /* Should we apply an image transformation algorithm? */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1874 conversion = image_spec_value (spec, QCconversion, NULL);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1875 if (EQ (conversion, Qdisabled))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1876 x_disable_image (f, img);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1877 else if (EQ (conversion, Qlaplace))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1878 x_laplace (f, img);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1879 else if (EQ (conversion, Qemboss))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1880 x_emboss (f, img);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1881 else if (CONSP (conversion)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1882 && EQ (XCAR (conversion), Qedge_detection))
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 Lisp_Object tem;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1885 tem = XCDR (conversion);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1886 if (CONSP (tem))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1887 x_edge_detection (f, img,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1888 Fplist_get (tem, QCmatrix),
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1889 Fplist_get (tem, QCcolor_adjustment));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1890 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1891 }
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
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1895 /* 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
1896 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
1897
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1898 int
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1899 lookup_image (f, spec)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1900 struct frame *f;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1901 Lisp_Object spec;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1902 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1903 struct image *img;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1904 unsigned hash;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1905 struct gcpro gcpro1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1906 EMACS_TIME now;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1907
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1908 /* 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
1909 specification. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1910 xassert (FRAME_WINDOW_P (f));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1911 xassert (valid_image_p (spec));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1912
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1913 GCPRO1 (spec);
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 /* 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
1916 hash = sxhash (spec, 0);
81124
0c6ff12ab2fb (search_image_cache): New function. Require background
Chong Yidong <cyd@stupidchicken.com>
parents: 81065
diff changeset
1917 img = search_image_cache (f, spec, hash);
66195
ad1acaef1abb * image.c (Vmax_image_size): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 66013
diff changeset
1918 if (img && img->load_failed_p)
ad1acaef1abb * image.c (Vmax_image_size): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 66013
diff changeset
1919 {
ad1acaef1abb * image.c (Vmax_image_size): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 66013
diff changeset
1920 free_image (f, img);
ad1acaef1abb * image.c (Vmax_image_size): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 66013
diff changeset
1921 img = NULL;
ad1acaef1abb * image.c (Vmax_image_size): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 66013
diff changeset
1922 }
ad1acaef1abb * image.c (Vmax_image_size): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 66013
diff changeset
1923
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1924 /* 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
1925 if (img == NULL)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1926 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1927 extern Lisp_Object Qpostscript;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1928
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1929 BLOCK_INPUT;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1930 img = make_image (spec, hash);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1931 cache_image (f, img);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1932 img->load_failed_p = img->type->load (f, img) == 0;
81365
22b5fa7b116a (lookup_image): Save frame foreground and background colors.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 81188
diff changeset
1933 img->frame_foreground = FRAME_FOREGROUND_PIXEL (f);
22b5fa7b116a (lookup_image): Save frame foreground and background colors.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 81188
diff changeset
1934 img->frame_background = FRAME_BACKGROUND_PIXEL (f);
54341
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 /* 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
1937 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
1938 draw a rectangle for it. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1939 if (img->load_failed_p)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1940 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1941 Lisp_Object value;
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 value = image_spec_value (spec, QCwidth, NULL);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1944 img->width = (INTEGERP (value)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1945 ? XFASTINT (value) : DEFAULT_IMAGE_WIDTH);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1946 value = image_spec_value (spec, QCheight, NULL);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1947 img->height = (INTEGERP (value)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1948 ? XFASTINT (value) : DEFAULT_IMAGE_HEIGHT);
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 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1951 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1952 /* Handle image type independent image attributes
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1953 `:ascent ASCENT', `:margin MARGIN', `:relief RELIEF',
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1954 `:background COLOR'. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1955 Lisp_Object ascent, margin, relief, bg;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1956
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1957 ascent = image_spec_value (spec, QCascent, NULL);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1958 if (INTEGERP (ascent))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1959 img->ascent = XFASTINT (ascent);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1960 else if (EQ (ascent, Qcenter))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1961 img->ascent = CENTERED_IMAGE_ASCENT;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1962
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1963 margin = image_spec_value (spec, QCmargin, NULL);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1964 if (INTEGERP (margin) && XINT (margin) >= 0)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1965 img->vmargin = img->hmargin = XFASTINT (margin);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1966 else if (CONSP (margin) && INTEGERP (XCAR (margin))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1967 && INTEGERP (XCDR (margin)))
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 if (XINT (XCAR (margin)) > 0)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1970 img->hmargin = XFASTINT (XCAR (margin));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1971 if (XINT (XCDR (margin)) > 0)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1972 img->vmargin = XFASTINT (XCDR (margin));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1973 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1974
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1975 relief = image_spec_value (spec, QCrelief, NULL);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1976 if (INTEGERP (relief))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1977 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1978 img->relief = XINT (relief);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1979 img->hmargin += abs (img->relief);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1980 img->vmargin += abs (img->relief);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1981 }
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 if (! img->background_valid)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1984 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1985 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
1986 if (!NILP (bg))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1987 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1988 img->background
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1989 = x_alloc_image_color (f, img, bg,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1990 FRAME_BACKGROUND_PIXEL (f));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1991 img->background_valid = 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1992 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1993 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1994
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1995 /* 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
1996 don't have the image yet. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1997 if (!EQ (*img->type->type, Qpostscript))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1998 postprocess_image (f, img);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1999 }
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 UNBLOCK_INPUT;
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 /* 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
2005 EMACS_GET_TIME (now);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2006 img->timestamp = EMACS_SECS (now);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2007
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2008 UNGCPRO;
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 /* Value is the image id. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2011 return img->id;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2012 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2013
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 /* 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
2016
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2017 static void
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2018 cache_image (f, img)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2019 struct frame *f;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2020 struct image *img;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2021 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2022 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
2023 int i;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2024
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2025 /* Find a free slot in c->images. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2026 for (i = 0; i < c->used; ++i)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2027 if (c->images[i] == NULL)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2028 break;
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 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
2031 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
2032 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2033 c->size *= 2;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2034 c->images = (struct image **) xrealloc (c->images,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2035 c->size * sizeof *c->images);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2036 }
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 /* 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
2039 c->images[i] = img;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2040 img->id = i;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2041 if (i == c->used)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2042 ++c->used;
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 /* 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
2045 i = img->hash % IMAGE_CACHE_BUCKETS_SIZE;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2046 img->next = c->buckets[i];
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2047 if (img->next)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2048 img->next->prev = img;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2049 img->prev = NULL;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2050 c->buckets[i] = img;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2051 }
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
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2054 /* 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
2055 Lisp Objects in the image cache. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2056
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2057 void
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2058 forall_images_in_image_cache (f, fn)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2059 struct frame *f;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2060 void (*fn) P_ ((struct image *img));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2061 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2062 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
2063 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2064 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
2065 if (c)
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 int i;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2068 for (i = 0; i < c->used; ++i)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2069 if (c->images[i])
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2070 fn (c->images[i]);
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 }
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 /***********************************************************************
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2078 X / MAC / W32 support code
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
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2081 #ifdef HAVE_NTGUI
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 /* Macro for defining functions that will be loaded from image DLLs. */
62561
a8d780395b8f (lookup_image, png_read_from_memory): Remove hacks (and misleading comments).
Juanma Barranquero <lekktu@gmail.com>
parents: 62216
diff changeset
2084 #define DEF_IMGLIB_FN(func) int (FAR CDECL *fn_##func)()
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2085
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2086 /* 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
2087 #define LOAD_IMGLIB_FN(lib,func) { \
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2088 fn_##func = (void *) GetProcAddress (lib, #func); \
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2089 if (!fn_##func) return 0; \
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2090 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2091
56104
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
2092 /* Load a DLL implementing an image type.
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
2093 The `image-library-alist' variable associates a symbol,
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
2094 identifying an image type, to a list of possible filenames.
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
2095 The function returns NULL if no library could be loaded for
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
2096 the given image type, or if the library was previously loaded;
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
2097 else the handle of the DLL. */
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
2098 static HMODULE
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
2099 w32_delayed_load (Lisp_Object libraries, Lisp_Object type)
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
2100 {
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
2101 HMODULE library = NULL;
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
2102
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
2103 if (CONSP (libraries) && NILP (Fassq (type, Vimage_type_cache)))
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
2104 {
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
2105 Lisp_Object dlls = Fassq (type, libraries);
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
2106
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
2107 if (CONSP (dlls))
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
2108 for (dlls = XCDR (dlls); CONSP (dlls); dlls = XCDR (dlls))
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
2109 {
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
2110 CHECK_STRING_CAR (dlls);
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
2111 if (library = LoadLibrary (SDATA (XCAR (dlls))))
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
2112 break;
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
2113 }
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
2114 }
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
2115
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
2116 return library;
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
2117 }
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
2118
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2119 #endif /* HAVE_NTGUI */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2120
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2121 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
2122 XImagePtr *, Pixmap *));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2123 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
2124 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
2125
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 /* 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
2128 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
2129 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
2130 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
2131 occurs. Value is non-zero if successful.
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2132
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2133 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
2134 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
2135
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2136 static int
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2137 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
2138 struct frame *f;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2139 int width, height, depth;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2140 XImagePtr *ximg;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2141 Pixmap *pixmap;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2142 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2143 #ifdef HAVE_X_WINDOWS
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2144 Display *display = FRAME_X_DISPLAY (f);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2145 Window window = FRAME_X_WINDOW (f);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2146 Screen *screen = FRAME_X_SCREEN (f);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2147
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2148 xassert (interrupt_input_blocked);
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 if (depth <= 0)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2151 depth = DefaultDepthOfScreen (screen);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2152 *ximg = XCreateImage (display, DefaultVisualOfScreen (screen),
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2153 depth, ZPixmap, 0, NULL, width, height,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2154 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
2155 if (*ximg == NULL)
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 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
2158 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2159 }
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 /* Allocate image raster. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2162 (*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
2163
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2164 /* Allocate a pixmap of the same size. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2165 *pixmap = XCreatePixmap (display, window, width, height, depth);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2166 if (*pixmap == NO_PIXMAP)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2167 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2168 x_destroy_x_image (*ximg);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2169 *ximg = NULL;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2170 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
2171 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2172 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2173
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2174 return 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2175 #endif /* HAVE_X_WINDOWS */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2176
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2177 #ifdef HAVE_NTGUI
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2178
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2179 BITMAPINFOHEADER *header;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2180 HDC hdc;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2181 int scanline_width_bits;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2182 int remainder;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2183 int palette_colors = 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2184
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2185 if (depth == 0)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2186 depth = 24;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2187
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2188 if (depth != 1 && depth != 4 && depth != 8
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2189 && depth != 16 && depth != 24 && depth != 32)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2190 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2191 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
2192 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2193 }
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 scanline_width_bits = width * depth;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2196 remainder = scanline_width_bits % 32;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2197
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2198 if (remainder)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2199 scanline_width_bits += 32 - remainder;
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 /* 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
2202 /* BITMAPINFO structure already contains the first RGBQUAD. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2203 if (depth < 16)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2204 palette_colors = 1 << depth - 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2205
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2206 *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
2207 if (*ximg == NULL)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2208 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2209 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
2210 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2211 }
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 header = &((*ximg)->info.bmiHeader);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2214 bzero (&((*ximg)->info), sizeof (BITMAPINFO));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2215 header->biSize = sizeof (*header);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2216 header->biWidth = width;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2217 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
2218 header->biPlanes = 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2219 header->biBitCount = depth;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2220 header->biCompression = BI_RGB;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2221 header->biClrUsed = palette_colors;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2222
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2223 /* TODO: fill in palette. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2224 if (depth == 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 (*ximg)->info.bmiColors[0].rgbBlue = 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2227 (*ximg)->info.bmiColors[0].rgbGreen = 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2228 (*ximg)->info.bmiColors[0].rgbRed = 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2229 (*ximg)->info.bmiColors[0].rgbReserved = 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2230 (*ximg)->info.bmiColors[1].rgbBlue = 255;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2231 (*ximg)->info.bmiColors[1].rgbGreen = 255;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2232 (*ximg)->info.bmiColors[1].rgbRed = 255;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2233 (*ximg)->info.bmiColors[1].rgbReserved = 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2234 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2235
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2236 hdc = get_frame_dc (f);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2237
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2238 /* 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
2239 and store its handle in *pixmap. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2240 *pixmap = CreateDIBSection (hdc, &((*ximg)->info),
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2241 (depth < 16) ? DIB_PAL_COLORS : DIB_RGB_COLORS,
63323
ccf928f0383c (x_create_x_image_and_pixmap) [HAVE_NTGUI]: Cast 4th arg
Eli Zaretskii <eliz@gnu.org>
parents: 63112
diff changeset
2242 /* casting avoids a GCC warning */
ccf928f0383c (x_create_x_image_and_pixmap) [HAVE_NTGUI]: Cast 4th arg
Eli Zaretskii <eliz@gnu.org>
parents: 63112
diff changeset
2243 (void **)&((*ximg)->data), NULL, 0);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2244
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2245 /* Realize display palette and garbage all frames. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2246 release_frame_dc (f, hdc);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2247
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2248 if (*pixmap == NULL)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2249 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2250 DWORD err = GetLastError();
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2251 Lisp_Object errcode;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2252 /* 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
2253 XSETINT (errcode, (int) err);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2254 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
2255 x_destroy_x_image (*ximg);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2256 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2257 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2258
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2259 return 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2260
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2261 #endif /* HAVE_NTGUI */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2262
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2263 #ifdef MAC_OS
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2264 Display *display = FRAME_X_DISPLAY (f);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2265 Window window = FRAME_X_WINDOW (f);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2266
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2267 xassert (interrupt_input_blocked);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2268
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2269 /* Allocate a pixmap of the same size. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2270 *pixmap = XCreatePixmap (display, window, width, height, depth);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2271 if (*pixmap == NO_PIXMAP)
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 *ximg = NULL;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2274 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
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
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2278 LockPixels (GetGWorldPixMap (*pixmap));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2279 *ximg = *pixmap;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2280 return 1;
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 #endif /* MAC_OS */
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
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2285
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2286 /* Destroy XImage XIMG. Free XIMG->data. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2287
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2288 static void
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2289 x_destroy_x_image (ximg)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2290 XImagePtr ximg;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2291 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2292 xassert (interrupt_input_blocked);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2293 if (ximg)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2294 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2295 #ifdef HAVE_X_WINDOWS
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2296 xfree (ximg->data);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2297 ximg->data = NULL;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2298 XDestroyImage (ximg);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2299 #endif /* HAVE_X_WINDOWS */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2300 #ifdef HAVE_NTGUI
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2301 /* Data will be freed by DestroyObject. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2302 ximg->data = NULL;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2303 xfree (ximg);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2304 #endif /* HAVE_NTGUI */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2305 #ifdef MAC_OS
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2306 XDestroyImage (ximg);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2307 #endif /* MAC_OS */
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 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2310
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2311
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2312 /* 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
2313 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
2314
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2315 static void
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2316 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
2317 struct frame *f;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2318 XImagePtr ximg;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2319 Pixmap pixmap;
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 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2322 #ifdef HAVE_X_WINDOWS
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2323 GC gc;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2324
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2325 xassert (interrupt_input_blocked);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2326 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
2327 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
2328 XFreeGC (FRAME_X_DISPLAY (f), gc);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2329 #endif /* HAVE_X_WINDOWS */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2330
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2331 #ifdef HAVE_NTGUI
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2332 #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
2333 HDC hdc = get_frame_dc (f);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2334 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
2335 release_frame_dc (f, hdc);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2336 #endif
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2337 #endif /* HAVE_NTGUI */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2338
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2339 #ifdef MAC_OS
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2340 xassert (ximg == pixmap);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2341 #endif /* MAC_OS */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2342 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2343
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 /***********************************************************************
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2346 File Handling
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2347 ***********************************************************************/
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2348
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2349 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
2350
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2351
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2352 /* Find image file FILE. Look in data-directory, then
69771
fd6d18b61fa7 Include "charset.h" and "coding.h".
Kenichi Handa <handa@m17n.org>
parents: 69511
diff changeset
2353 x-bitmap-file-path. Value is the encoded full name of the file
fd6d18b61fa7 Include "charset.h" and "coding.h".
Kenichi Handa <handa@m17n.org>
parents: 69511
diff changeset
2354 found, or nil if not found. */
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2355
54391
138155b7215e (x_find_image_file): Make extern.
Kim F. Storm <storm@cua.dk>
parents: 54363
diff changeset
2356 Lisp_Object
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2357 x_find_image_file (file)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2358 Lisp_Object file;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2359 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2360 Lisp_Object file_found, search_path;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2361 struct gcpro gcpro1, gcpro2;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2362 int fd;
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 file_found = Qnil;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2365 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
2366 GCPRO2 (file_found, search_path);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2367
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2368 /* 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
2369 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
2370
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2371 if (fd == -1)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2372 file_found = Qnil;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2373 else
69771
fd6d18b61fa7 Include "charset.h" and "coding.h".
Kenichi Handa <handa@m17n.org>
parents: 69511
diff changeset
2374 {
fd6d18b61fa7 Include "charset.h" and "coding.h".
Kenichi Handa <handa@m17n.org>
parents: 69511
diff changeset
2375 file_found = ENCODE_FILE (file_found);
fd6d18b61fa7 Include "charset.h" and "coding.h".
Kenichi Handa <handa@m17n.org>
parents: 69511
diff changeset
2376 close (fd);
fd6d18b61fa7 Include "charset.h" and "coding.h".
Kenichi Handa <handa@m17n.org>
parents: 69511
diff changeset
2377 }
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2378
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2379 UNGCPRO;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2380 return file_found;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2381 }
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 /* 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
2385 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
2386 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
2387
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2388 static unsigned char *
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2389 slurp_file (file, size)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2390 char *file;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2391 int *size;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2392 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2393 FILE *fp = NULL;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2394 unsigned char *buf = NULL;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2395 struct stat st;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2396
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2397 if (stat (file, &st) == 0
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2398 && (fp = fopen (file, "rb")) != NULL
65764
375ab086d366 * image.c (slurp_file, xbm_read_bitmap_data): Cast to the correct
Dan Nicolaescu <dann@ics.uci.edu>
parents: 65723
diff changeset
2399 && (buf = (unsigned char *) xmalloc (st.st_size),
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2400 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
2401 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2402 *size = st.st_size;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2403 fclose (fp);
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 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2406 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2407 if (fp)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2408 fclose (fp);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2409 if (buf)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2410 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2411 xfree (buf);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2412 buf = NULL;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2413 }
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
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2416 return buf;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2417 }
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 #ifdef MAC_OS
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 MAC Image Load Functions
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2425 ***********************************************************************/
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2426
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2427 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
2428 OSType));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2429 #ifdef MAC_OSX
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2430 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
2431 #endif
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 static OSErr
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2434 find_image_fsspec (specified_file, file, fss)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2435 Lisp_Object specified_file, *file;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2436 FSSpec *fss;
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 OSErr err;
67785
9574f135f272 [MAC_OS] (find_image_fsspec): Use coercion of Apple event data for
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 67454
diff changeset
2439 AEDesc desc;
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2440
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2441 *file = x_find_image_file (specified_file);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2442 if (!STRINGP (*file))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2443 return fnfErr; /* file or directory not found;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2444 incomplete pathname */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2445 /* Try to open the image file. */
67785
9574f135f272 [MAC_OS] (find_image_fsspec): Use coercion of Apple event data for
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 67454
diff changeset
2446 err = AECoercePtr (TYPE_FILE_NAME, SDATA (*file),
9574f135f272 [MAC_OS] (find_image_fsspec): Use coercion of Apple event data for
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 67454
diff changeset
2447 SBYTES (*file), typeFSS, &desc);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2448 if (err == noErr)
67785
9574f135f272 [MAC_OS] (find_image_fsspec): Use coercion of Apple event data for
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 67454
diff changeset
2449 {
9574f135f272 [MAC_OS] (find_image_fsspec): Use coercion of Apple event data for
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 67454
diff changeset
2450 #if TARGET_API_MAC_CARBON
9574f135f272 [MAC_OS] (find_image_fsspec): Use coercion of Apple event data for
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 67454
diff changeset
2451 err = AEGetDescData (&desc, fss, sizeof (FSSpec));
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2452 #else
67785
9574f135f272 [MAC_OS] (find_image_fsspec): Use coercion of Apple event data for
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 67454
diff changeset
2453 *fss = *(FSSpec *)(*(desc.dataHandle));
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2454 #endif
67785
9574f135f272 [MAC_OS] (find_image_fsspec): Use coercion of Apple event data for
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 67454
diff changeset
2455 AEDisposeDesc (&desc);
9574f135f272 [MAC_OS] (find_image_fsspec): Use coercion of Apple event data for
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 67454
diff changeset
2456 }
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2457 return err;
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
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2460 static int
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2461 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
2462 struct frame *f;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2463 struct image *img;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2464 OSType type;
73570
a87d92458ce0 [MAC_OS] (image_load_qt_1, xpm_scan, xpm_make_color_table_v)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 73346
diff changeset
2465 const FSSpec *fss;
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2466 Handle dh;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2467 {
72539
4bfe39423884 [TARGET_API_MAC_CARBON] (image_load_qt_1): Use ComponentResult instead
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70942
diff changeset
2468 ComponentResult err;
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2469 GraphicsImportComponent gi;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2470 Rect rect;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2471 int width, height;
66430
2f521eba6f82 [MAC_OS] (image_load_qt_1): Check image size.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 66208
diff changeset
2472 ImageDescriptionHandle desc_handle;
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2473 short draw_all_pixels;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2474 Lisp_Object specified_bg;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2475 XColor color;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2476 XImagePtr ximg;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2477 RGBColor bg_color;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2478
73570
a87d92458ce0 [MAC_OS] (image_load_qt_1, xpm_scan, xpm_make_color_table_v)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 73346
diff changeset
2479 err = OpenADefaultComponent (GraphicsImporterComponentType, type, &gi);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2480 if (err != noErr)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2481 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2482 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
2483 return 0;
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 if (dh == NULL)
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 /* read from file system spec */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2488 err = GraphicsImportSetDataFile (gi, fss);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2489 if (err != noErr)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2490 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2491 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
2492 img->spec, Qnil);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2493 goto error;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2494 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2495 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2496 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2497 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2498 /* read from data handle */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2499 err = GraphicsImportSetDataHandle (gi, dh);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2500 if (err != noErr)
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 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
2503 img->spec, Qnil);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2504 goto error;
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 }
66430
2f521eba6f82 [MAC_OS] (image_load_qt_1): Check image size.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 66208
diff changeset
2507 err = GraphicsImportGetImageDescription (gi, &desc_handle);
2f521eba6f82 [MAC_OS] (image_load_qt_1): Check image size.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 66208
diff changeset
2508 if (err != noErr || desc_handle == NULL)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2509 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2510 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
2511 goto error;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2512 }
66430
2f521eba6f82 [MAC_OS] (image_load_qt_1): Check image size.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 66208
diff changeset
2513 width = img->width = (*desc_handle)->width;
2f521eba6f82 [MAC_OS] (image_load_qt_1): Check image size.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 66208
diff changeset
2514 height = img->height = (*desc_handle)->height;
2f521eba6f82 [MAC_OS] (image_load_qt_1): Check image size.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 66208
diff changeset
2515 DisposeHandle ((Handle)desc_handle);
2f521eba6f82 [MAC_OS] (image_load_qt_1): Check image size.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 66208
diff changeset
2516
2f521eba6f82 [MAC_OS] (image_load_qt_1): Check image size.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 66208
diff changeset
2517 if (!check_image_size (f, width, height))
2f521eba6f82 [MAC_OS] (image_load_qt_1): Check image size.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 66208
diff changeset
2518 {
2f521eba6f82 [MAC_OS] (image_load_qt_1): Check image size.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 66208
diff changeset
2519 image_error ("Invalid image size", Qnil, Qnil);
2f521eba6f82 [MAC_OS] (image_load_qt_1): Check image size.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 66208
diff changeset
2520 goto error;
2f521eba6f82 [MAC_OS] (image_load_qt_1): Check image size.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 66208
diff changeset
2521 }
2f521eba6f82 [MAC_OS] (image_load_qt_1): Check image size.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 66208
diff changeset
2522
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2523 err = GraphicsImportDoesDrawAllPixels (gi, &draw_all_pixels);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2524 #if 0
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2525 /* 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
2526 value -32766. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2527 if (err != noErr)
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 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
2530 goto error;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2531 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2532 #endif
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2533 if (draw_all_pixels != graphicsImporterDrawsAllPixels)
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 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
2536 if (!STRINGP (specified_bg) ||
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2537 !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
2538 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2539 color.pixel = FRAME_BACKGROUND_PIXEL (f);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2540 color.red = RED16_FROM_ULONG (color.pixel);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2541 color.green = GREEN16_FROM_ULONG (color.pixel);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2542 color.blue = BLUE16_FROM_ULONG (color.pixel);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2543 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2544 }
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 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
2547 goto error;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2548 if (draw_all_pixels != graphicsImporterDrawsAllPixels)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2549 {
55412
53a1a79a33f9 macterm.c (mac_check_for_quit_char): Adding BLOCK_INPUT
Steven Tamm <steventamm@mac.com>
parents: 55375
diff changeset
2550 CGrafPtr old_port;
53a1a79a33f9 macterm.c (mac_check_for_quit_char): Adding BLOCK_INPUT
Steven Tamm <steventamm@mac.com>
parents: 55375
diff changeset
2551 GDHandle old_gdh;
53a1a79a33f9 macterm.c (mac_check_for_quit_char): Adding BLOCK_INPUT
Steven Tamm <steventamm@mac.com>
parents: 55375
diff changeset
2552
53a1a79a33f9 macterm.c (mac_check_for_quit_char): Adding BLOCK_INPUT
Steven Tamm <steventamm@mac.com>
parents: 55375
diff changeset
2553 GetGWorld (&old_port, &old_gdh);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2554 SetGWorld (ximg, NULL);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2555 bg_color.red = color.red;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2556 bg_color.green = color.green;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2557 bg_color.blue = color.blue;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2558 RGBBackColor (&bg_color);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2559 #if TARGET_API_MAC_CARBON
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2560 GetPortBounds (ximg, &rect);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2561 EraseRect (&rect);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2562 #else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2563 EraseRect (&(ximg->portRect));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2564 #endif
55412
53a1a79a33f9 macterm.c (mac_check_for_quit_char): Adding BLOCK_INPUT
Steven Tamm <steventamm@mac.com>
parents: 55375
diff changeset
2565 SetGWorld (old_port, old_gdh);
54341
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 GraphicsImportSetGWorld (gi, ximg, NULL);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2568 GraphicsImportDraw (gi);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2569 CloseComponent (gi);
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 /* 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
2572 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
2573 IMAGE_BACKGROUND (img, f, ximg);
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 /* Put the image into the pixmap. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2576 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
2577 x_destroy_x_image (ximg);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2578 return 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2579
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2580 error:
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2581 CloseComponent (gi);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2582 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2583 }
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
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2586 /* 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
2587 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
2588 static int
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2589 image_load_quicktime (f, img, type)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2590 struct frame *f;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2591 struct image *img;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2592 OSType type;
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 Lisp_Object specified_file;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2595 Lisp_Object specified_data;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2596 OSErr err;
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 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
2599 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
2600
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2601 if (NILP (specified_data))
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 /* Read from a file */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2604 Lisp_Object file;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2605 FSSpec fss;
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 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
2608 if (err != noErr)
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 if (err == fnfErr)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2611 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
2612 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2613 image_error ("Cannot open `%s'", file, Qnil);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2614 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2615 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2616 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
2617 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2618 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2619 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2620 /* Memory source! */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2621 int success_p;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2622 Handle dh;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2623
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2624 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
2625 if (err != noErr)
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 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
2628 img->spec, Qnil);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2629 return 0;
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 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
2632 DisposeHandle (dh);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2633 return success_p;
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 }
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
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2638 #ifdef MAC_OSX
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2639 /* 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
2640 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
2641 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
2642 whether it exists. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2643 typedef CGImageRef (*CGImageCreateWithPNGDataProviderProcType)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2644 (CGDataProviderRef, const float [], bool, CGColorRenderingIntent);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2645 static CGImageCreateWithPNGDataProviderProcType MyCGImageCreateWithPNGDataProvider;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2646
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2647
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2648 static void
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2649 init_image_func_pointer ()
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2650 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2651 if (NSIsSymbolNameDefined ("_CGImageCreateWithPNGDataProvider"))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2652 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2653 MyCGImageCreateWithPNGDataProvider
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2654 = (CGImageCreateWithPNGDataProviderProcType)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2655 NSAddressOfSymbol (NSLookupAndBindSymbol
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2656 ("_CGImageCreateWithPNGDataProvider"));
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 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2659 MyCGImageCreateWithPNGDataProvider = NULL;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2660 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2661
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 static int
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2664 image_load_quartz2d (f, img, png_p)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2665 struct frame *f;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2666 struct image *img;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2667 int png_p;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2668 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2669 Lisp_Object file, specified_file;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2670 Lisp_Object specified_data, specified_bg;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2671 struct gcpro gcpro1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2672 CGDataProviderRef source;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2673 CGImageRef image;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2674 int width, height;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2675 XColor color;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2676 XImagePtr ximg = NULL;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2677 CGContextRef context;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2678 CGRect rectangle;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2679
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2680 /* Open the file. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2681 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
2682 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
2683
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2684 file = Qnil;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2685 GCPRO1 (file);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2686
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2687 if (NILP (specified_data))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2688 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2689 CFStringRef path;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2690 CFURLRef url;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2691
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2692 file = x_find_image_file (specified_file);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2693 if (!STRINGP (file))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2694 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2695 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
2696 UNGCPRO;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2697 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2698 }
70431
7c25b386a4c3 (Qduration) [MAC_OS]: New variable.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70168
diff changeset
2699 path = cfstring_create_with_utf8_cstring (SDATA (file));
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2700 url = CFURLCreateWithFileSystemPath (NULL, path,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2701 kCFURLPOSIXPathStyle, 0);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2702 CFRelease (path);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2703 source = CGDataProviderCreateWithURL (url);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2704 CFRelease (url);
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 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2707 source = CGDataProviderCreateWithData (NULL, SDATA (specified_data),
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2708 SBYTES (specified_data), NULL);
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 if (png_p)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2711 image = (*MyCGImageCreateWithPNGDataProvider) (source, NULL, FALSE,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2712 kCGRenderingIntentDefault);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2713 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2714 image = CGImageCreateWithJPEGDataProvider (source, NULL, FALSE,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2715 kCGRenderingIntentDefault);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2716
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2717 CGDataProviderRelease (source);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2718 if (image == NULL)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2719 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2720 UNGCPRO;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2721 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
2722 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2723 }
66430
2f521eba6f82 [MAC_OS] (image_load_qt_1): Check image size.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 66208
diff changeset
2724 width = img->width = CGImageGetWidth (image);
2f521eba6f82 [MAC_OS] (image_load_qt_1): Check image size.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 66208
diff changeset
2725 height = img->height = CGImageGetHeight (image);
2f521eba6f82 [MAC_OS] (image_load_qt_1): Check image size.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 66208
diff changeset
2726
2f521eba6f82 [MAC_OS] (image_load_qt_1): Check image size.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 66208
diff changeset
2727 if (!check_image_size (f, width, height))
2f521eba6f82 [MAC_OS] (image_load_qt_1): Check image size.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 66208
diff changeset
2728 {
66762
7929133d8782 [MAC_OSX] (image_load_quartz2d): Fix memory leak.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 66430
diff changeset
2729 CGImageRelease (image);
66430
2f521eba6f82 [MAC_OS] (image_load_qt_1): Check image size.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 66208
diff changeset
2730 UNGCPRO;
2f521eba6f82 [MAC_OS] (image_load_qt_1): Check image size.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 66208
diff changeset
2731 image_error ("Invalid image size", Qnil, Qnil);
2f521eba6f82 [MAC_OS] (image_load_qt_1): Check image size.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 66208
diff changeset
2732 return 0;
2f521eba6f82 [MAC_OS] (image_load_qt_1): Check image size.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 66208
diff changeset
2733 }
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2734
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2735 if (png_p)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2736 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2737 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
2738 if (!STRINGP (specified_bg) ||
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2739 !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
2740 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2741 color.pixel = FRAME_BACKGROUND_PIXEL (f);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2742 color.red = RED16_FROM_ULONG (color.pixel);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2743 color.green = GREEN16_FROM_ULONG (color.pixel);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2744 color.blue = BLUE16_FROM_ULONG (color.pixel);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2745 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2746 }
66430
2f521eba6f82 [MAC_OS] (image_load_qt_1): Check image size.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 66208
diff changeset
2747
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2748 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
2749 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2750 CGImageRelease (image);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2751 UNGCPRO;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2752 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2753 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2754 rectangle = CGRectMake (0, 0, width, height);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2755 QDBeginCGContext (ximg, &context);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2756 if (png_p)
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 CGContextSetRGBFillColor (context, color.red / 65535.0,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2759 color.green / 65535.0,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2760 color.blue / 65535.0, 1.0);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2761 CGContextFillRect (context, rectangle);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2762 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2763 CGContextDrawImage (context, rectangle, image);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2764 QDEndCGContext (ximg, &context);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2765 CGImageRelease (image);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2766
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2767 /* 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
2768 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
2769 IMAGE_BACKGROUND (img, f, ximg);
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 /* Put the image into the pixmap. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2772 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
2773 x_destroy_x_image (ximg);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2774 UNGCPRO;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2775 return 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2776 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2777 #endif
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2778
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2779 #endif /* MAC_OS */
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
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2782 /***********************************************************************
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2783 XBM images
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2784 ***********************************************************************/
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2785
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2786 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
2787 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
2788 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
2789 unsigned char *, unsigned char *));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2790 static int xbm_image_p P_ ((Lisp_Object object));
66195
ad1acaef1abb * image.c (Vmax_image_size): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 66013
diff changeset
2791 static int xbm_read_bitmap_data P_ ((struct frame *f,
ad1acaef1abb * image.c (Vmax_image_size): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 66013
diff changeset
2792 unsigned char *, unsigned char *,
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2793 int *, int *, unsigned char **));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2794 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
2795
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2796
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2797 /* 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
2798
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2799 enum xbm_keyword_index
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2800 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2801 XBM_TYPE,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2802 XBM_FILE,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2803 XBM_WIDTH,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2804 XBM_HEIGHT,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2805 XBM_DATA,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2806 XBM_FOREGROUND,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2807 XBM_BACKGROUND,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2808 XBM_ASCENT,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2809 XBM_MARGIN,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2810 XBM_RELIEF,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2811 XBM_ALGORITHM,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2812 XBM_HEURISTIC_MASK,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2813 XBM_MASK,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2814 XBM_LAST
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
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2817 /* 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
2818 of valid XBM image specifications. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2819
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2820 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
2821 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2822 {":type", IMAGE_SYMBOL_VALUE, 1},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2823 {":file", IMAGE_STRING_VALUE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2824 {":width", IMAGE_POSITIVE_INTEGER_VALUE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2825 {":height", IMAGE_POSITIVE_INTEGER_VALUE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2826 {":data", IMAGE_DONT_CHECK_VALUE_TYPE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2827 {":foreground", IMAGE_STRING_OR_NIL_VALUE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2828 {":background", IMAGE_STRING_OR_NIL_VALUE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2829 {":ascent", IMAGE_ASCENT_VALUE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2830 {":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
2831 {":relief", IMAGE_INTEGER_VALUE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2832 {":conversion", IMAGE_DONT_CHECK_VALUE_TYPE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2833 {":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
2834 {":mask", IMAGE_DONT_CHECK_VALUE_TYPE, 0}
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2835 };
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2836
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2837 /* Structure describing the image type XBM. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2838
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2839 static struct image_type xbm_type =
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2840 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2841 &Qxbm,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2842 xbm_image_p,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2843 xbm_load,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2844 x_clear_image,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2845 NULL
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2846 };
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2847
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2848 /* Tokens returned from xbm_scan. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2849
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2850 enum xbm_token
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2851 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2852 XBM_TK_IDENT = 256,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2853 XBM_TK_NUMBER
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2854 };
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2855
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2856
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2857 /* 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
2858 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
2859 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
2860 entry `:type xbm..
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2861
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2862 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
2863 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
2864
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2865 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
2866 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
2867 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
2868
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2869 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
2870 have a size >= (WIDTH + 7) / 8 * HEIGHT
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2871
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2872 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
2873
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2874 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
2875 bitmap.
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2876
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2877 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
2878 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
2879 XBM file.
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 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
2882 `: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
2883 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
2884 displayed is used. */
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 static int
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2887 xbm_image_p (object)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2888 Lisp_Object object;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2889 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2890 struct image_keyword kw[XBM_LAST];
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2891
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2892 bcopy (xbm_format, kw, sizeof kw);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2893 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
2894 return 0;
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 xassert (EQ (kw[XBM_TYPE].value, Qxbm));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2897
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2898 if (kw[XBM_FILE].count)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2899 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2900 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
2901 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2902 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2903 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
2904 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2905 /* In-memory XBM file. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2906 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
2907 return 0;
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 else
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 Lisp_Object data;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2912 int width, height;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2913
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2914 /* 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
2915 if (!kw[XBM_WIDTH].count
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2916 || !kw[XBM_HEIGHT].count
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2917 || !kw[XBM_DATA].count)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2918 return 0;
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 data = kw[XBM_DATA].value;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2921 width = XFASTINT (kw[XBM_WIDTH].value);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2922 height = XFASTINT (kw[XBM_HEIGHT].value);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2923
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2924 /* 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
2925 data. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2926 if (VECTORP (data))
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 int 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 /* 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
2931 if (XVECTOR (data)->size < height)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2932 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2933
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2934 /* 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
2935 for one line of the image. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2936 for (i = 0; i < height; ++i)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2937 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2938 Lisp_Object elt = XVECTOR (data)->contents[i];
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 if (STRINGP (elt))
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 if (SCHARS (elt)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2943 < (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
2944 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2945 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2946 else if (BOOL_VECTOR_P (elt))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2947 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2948 if (XBOOL_VECTOR (elt)->size < width)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2949 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2950 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2951 else
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 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2955 else if (STRINGP (data))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2956 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2957 if (SCHARS (data)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2958 < (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
2959 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2960 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2961 else if (BOOL_VECTOR_P (data))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2962 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2963 if (XBOOL_VECTOR (data)->size < width * height)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2964 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2965 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2966 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2967 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2968 }
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 return 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2971 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2972
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 /* 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
2975 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
2976 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
2977 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
2978 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
2979
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2980 static int
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2981 xbm_scan (s, end, sval, ival)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2982 unsigned char **s, *end;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2983 char *sval;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2984 int *ival;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2985 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2986 unsigned int c;
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 loop:
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2989
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2990 /* Skip white space. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2991 while (*s < end && (c = *(*s)++, isspace (c)))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2992 ;
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 if (*s >= end)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2995 c = 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2996 else if (isdigit (c))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2997 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
2998 int value = 0, digit;
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 if (c == '0' && *s < end)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3001 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3002 c = *(*s)++;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3003 if (c == 'x' || c == 'X')
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 while (*s < end)
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 c = *(*s)++;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3008 if (isdigit (c))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3009 digit = c - '0';
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3010 else if (c >= 'a' && c <= 'f')
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3011 digit = c - 'a' + 10;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3012 else if (c >= 'A' && c <= 'F')
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3013 digit = c - 'A' + 10;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3014 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3015 break;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3016 value = 16 * value + digit;
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 else if (isdigit (c))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3020 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3021 value = c - '0';
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3022 while (*s < end
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3023 && (c = *(*s)++, isdigit (c)))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3024 value = 8 * value + c - '0';
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 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3027 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3028 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3029 value = c - '0';
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3030 while (*s < end
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3031 && (c = *(*s)++, isdigit (c)))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3032 value = 10 * value + c - '0';
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 if (*s < end)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3036 *s = *s - 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3037 *ival = value;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3038 c = XBM_TK_NUMBER;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3039 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3040 else if (isalpha (c) || c == '_')
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3041 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3042 *sval++ = c;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3043 while (*s < end
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3044 && (c = *(*s)++, (isalnum (c) || c == '_')))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3045 *sval++ = c;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3046 *sval = 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3047 if (*s < end)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3048 *s = *s - 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3049 c = XBM_TK_IDENT;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3050 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3051 else if (c == '/' && **s == '*')
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3052 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3053 /* C-style comment. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3054 ++*s;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3055 while (**s && (**s != '*' || *(*s + 1) != '/'))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3056 ++*s;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3057 if (**s)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3058 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3059 *s += 2;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3060 goto loop;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3061 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3062 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3063
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3064 return c;
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
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3067 #ifdef HAVE_NTGUI
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 /* 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
3070 static HBITMAP
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3071 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
3072 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3073 static unsigned char swap_nibble[16]
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3074 = { 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
3075 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
3076 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
3077 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
3078 int i, j, w1, w2;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3079 unsigned char *bits, *p;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3080 HBITMAP bmp;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3081
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3082 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
3083 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
3084 bits = (unsigned char *) alloca (height * w2);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3085 bzero (bits, height * w2);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3086 for (i = 0; i < height; i++)
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 p = bits + i*w2;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3089 for (j = 0; j < w1; j++)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3090 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3091 /* 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
3092 unsigned char c = *data++;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3093 *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
3094 | (swap_nibble[(c>>4) & 0xf]));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3095 }
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 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
3098
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3099 return bmp;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3100 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3101
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3102 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
3103 struct frame *f;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3104 struct image *img;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3105 COLORREF foreground, background;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3106 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3107 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
3108 HGDIOBJ old_prev, new_prev;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3109 HBITMAP new_pixmap;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3110
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3111 hdc = get_frame_dc (f);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3112 old_img_dc = CreateCompatibleDC (hdc);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3113 new_img_dc = CreateCompatibleDC (hdc);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3114 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
3115 release_frame_dc (f, hdc);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3116 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
3117 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
3118 SetTextColor (new_img_dc, foreground);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3119 SetBkColor (new_img_dc, background);
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 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
3122 0, 0, SRCCOPY);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3123
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3124 SelectObject (old_img_dc, old_prev);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3125 SelectObject (new_img_dc, new_prev);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3126 DeleteDC (old_img_dc);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3127 DeleteDC (new_img_dc);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3128 DeleteObject (img->pixmap);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3129 if (new_pixmap == 0)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3130 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
3131 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3132 img->pixmap = new_pixmap;
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
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3135 #define XBM_BIT_SHUFFLE(b) (~(b))
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 #else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3138
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3139 #define XBM_BIT_SHUFFLE(b) (b)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3140
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3141 #endif /* HAVE_NTGUI */
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 static void
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3145 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
3146 struct frame *f;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3147 struct image *img;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3148 char *data;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3149 RGB_PIXEL_COLOR fg, bg;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3150 int non_default_colors;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3151 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3152 #ifdef HAVE_NTGUI
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3153 img->pixmap
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3154 = 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
3155
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3156 /* 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
3157 if (non_default_colors)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3158 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
3159 #else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3160 img->pixmap
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3161 = XCreatePixmapFromBitmapData (FRAME_X_DISPLAY (f),
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3162 FRAME_X_WINDOW (f),
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3163 data,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3164 img->width, img->height,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3165 fg, bg,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3166 DefaultDepthOfScreen (FRAME_X_SCREEN (f)));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3167 #endif /* HAVE_NTGUI */
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
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3172 /* 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
3173 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
3174 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
3175 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
3176 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
3177 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
3178
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3179 static int
66195
ad1acaef1abb * image.c (Vmax_image_size): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 66013
diff changeset
3180 xbm_read_bitmap_data (f, contents, end, width, height, data)
ad1acaef1abb * image.c (Vmax_image_size): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 66013
diff changeset
3181 struct frame *f;
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3182 unsigned char *contents, *end;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3183 int *width, *height;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3184 unsigned char **data;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3185 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3186 unsigned char *s = contents;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3187 char buffer[BUFSIZ];
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3188 int padding_p = 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3189 int v10 = 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3190 int bytes_per_line, i, nbytes;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3191 unsigned char *p;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3192 int value;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3193 int LA1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3194
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3195 #define match() \
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3196 LA1 = xbm_scan (&s, end, buffer, &value)
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 #define expect(TOKEN) \
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3199 if (LA1 != (TOKEN)) \
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3200 goto failure; \
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3201 else \
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3202 match ()
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 #define expect_ident(IDENT) \
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3205 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
3206 match (); \
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3207 else \
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3208 goto failure
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3209
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3210 *width = *height = -1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3211 if (data)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3212 *data = NULL;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3213 LA1 = xbm_scan (&s, end, buffer, &value);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3214
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3215 /* 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
3216 while (LA1 == '#')
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 match ();
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3219 expect_ident ("define");
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3220 expect (XBM_TK_IDENT);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3221
73346
ba22be0026c7 (xbm_read_bitmap_data): Delete extra semicolon.
Romain Francoise <romain@orebokech.com>
parents: 72539
diff changeset
3222 if (LA1 == XBM_TK_NUMBER)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3223 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3224 char *p = strrchr (buffer, '_');
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3225 p = p ? p + 1 : buffer;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3226 if (strcmp (p, "width") == 0)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3227 *width = value;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3228 else if (strcmp (p, "height") == 0)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3229 *height = value;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3230 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3231 expect (XBM_TK_NUMBER);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3232 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3233
66195
ad1acaef1abb * image.c (Vmax_image_size): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 66013
diff changeset
3234 if (!check_image_size (f, *width, *height))
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3235 goto failure;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3236 else if (data == NULL)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3237 goto success;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3238
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3239 /* Parse bits. Must start with `static'. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3240 expect_ident ("static");
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3241 if (LA1 == XBM_TK_IDENT)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3242 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3243 if (strcmp (buffer, "unsigned") == 0)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3244 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3245 match ();
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3246 expect_ident ("char");
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3247 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3248 else if (strcmp (buffer, "short") == 0)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3249 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3250 match ();
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3251 v10 = 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3252 if (*width % 16 && *width % 16 < 9)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3253 padding_p = 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3254 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3255 else if (strcmp (buffer, "char") == 0)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3256 match ();
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3257 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3258 goto failure;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3259 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3260 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3261 goto failure;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3262
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3263 expect (XBM_TK_IDENT);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3264 expect ('[');
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3265 expect (']');
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3266 expect ('=');
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3267 expect ('{');
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3268
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3269 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
3270 nbytes = bytes_per_line * *height;
65764
375ab086d366 * image.c (slurp_file, xbm_read_bitmap_data): Cast to the correct
Dan Nicolaescu <dann@ics.uci.edu>
parents: 65723
diff changeset
3271 p = *data = (unsigned char *) xmalloc (nbytes);
54341
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 if (v10)
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 for (i = 0; i < nbytes; i += 2)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3276 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3277 int val = value;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3278 expect (XBM_TK_NUMBER);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3279
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3280 *p++ = XBM_BIT_SHUFFLE (val);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3281 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
3282 *p++ = XBM_BIT_SHUFFLE (value >> 8);
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 if (LA1 == ',' || LA1 == '}')
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3285 match ();
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3286 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3287 goto failure;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3288 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3289 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3290 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3291 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3292 for (i = 0; i < nbytes; ++i)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3293 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3294 int val = value;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3295 expect (XBM_TK_NUMBER);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3296
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3297 *p++ = XBM_BIT_SHUFFLE (val);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3298
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3299 if (LA1 == ',' || LA1 == '}')
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3300 match ();
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3301 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3302 goto failure;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3303 }
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
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3306 success:
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3307 return 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3308
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3309 failure:
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3310
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3311 if (data && *data)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3312 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3313 xfree (*data);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3314 *data = NULL;
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 return 0;
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 #undef match
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3319 #undef expect
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3320 #undef expect_ident
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3321 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3322
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 /* 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
3325 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
3326 successful. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3327
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3328 static int
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3329 xbm_load_image (f, img, contents, end)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3330 struct frame *f;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3331 struct image *img;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3332 unsigned char *contents, *end;
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 int rc;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3335 unsigned char *data;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3336 int success_p = 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3337
66195
ad1acaef1abb * image.c (Vmax_image_size): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 66013
diff changeset
3338 rc = xbm_read_bitmap_data (f, contents, end, &img->width, &img->height, &data);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3339 if (rc)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3340 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3341 unsigned long foreground = FRAME_FOREGROUND_PIXEL (f);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3342 unsigned long background = FRAME_BACKGROUND_PIXEL (f);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3343 int non_default_colors = 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3344 Lisp_Object value;
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 xassert (img->width > 0 && img->height > 0);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3347
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3348 /* 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
3349 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
3350 if (!NILP (value))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3351 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3352 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
3353 non_default_colors = 1;
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 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
3356 if (!NILP (value))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3357 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3358 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
3359 img->background = background;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3360 img->background_valid = 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3361 non_default_colors = 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3362 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3363
54920
38cb79e68369 (PNG_BG_COLOR_SHIFT): Remove.
Kim F. Storm <storm@cua.dk>
parents: 54427
diff changeset
3364 Create_Pixmap_From_Bitmap_Data (f, img, data,
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3365 foreground, background,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3366 non_default_colors);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3367 xfree (data);
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 (img->pixmap == NO_PIXMAP)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3370 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3371 x_clear_image (f, img);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3372 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
3373 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3374 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3375 success_p = 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3376 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3377 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3378 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
3379
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3380 return success_p;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3381 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3382
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3383
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3384 /* 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
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 xbm_file_p (data)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3388 Lisp_Object data;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3389 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3390 int w, h;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3391 return (STRINGP (data)
66195
ad1acaef1abb * image.c (Vmax_image_size): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 66013
diff changeset
3392 && xbm_read_bitmap_data (NULL, SDATA (data),
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3393 (SDATA (data)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3394 + SBYTES (data)),
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3395 &w, &h, NULL));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3396 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3397
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 /* 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
3400 non-zero if successful. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3401
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3402 static int
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3403 xbm_load (f, img)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3404 struct frame *f;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3405 struct image *img;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3406 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3407 int success_p = 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3408 Lisp_Object file_name;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3409
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3410 xassert (xbm_image_p (img->spec));
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 /* 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
3413 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
3414 if (STRINGP (file_name))
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 Lisp_Object file;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3417 unsigned char *contents;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3418 int size;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3419 struct gcpro gcpro1;
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 file = x_find_image_file (file_name);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3422 GCPRO1 (file);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3423 if (!STRINGP (file))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3424 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3425 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
3426 UNGCPRO;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3427 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3428 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3429
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3430 contents = slurp_file (SDATA (file), &size);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3431 if (contents == NULL)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3432 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3433 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
3434 UNGCPRO;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3435 return 0;
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 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
3439 UNGCPRO;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3440 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3441 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3442 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3443 struct image_keyword fmt[XBM_LAST];
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3444 Lisp_Object data;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3445 unsigned long foreground = FRAME_FOREGROUND_PIXEL (f);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3446 unsigned long background = FRAME_BACKGROUND_PIXEL (f);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3447 int non_default_colors = 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3448 char *bits;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3449 int parsed_p;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3450 int in_memory_file_p = 0;
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 /* 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
3453 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
3454 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
3455
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3456 /* Parse the image specification. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3457 bcopy (xbm_format, fmt, sizeof fmt);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3458 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
3459 xassert (parsed_p);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3460
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3461 /* Get specified width, and height. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3462 if (!in_memory_file_p)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3463 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3464 img->width = XFASTINT (fmt[XBM_WIDTH].value);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3465 img->height = XFASTINT (fmt[XBM_HEIGHT].value);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3466 xassert (img->width > 0 && img->height > 0);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3467 }
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 /* 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
3470 if (fmt[XBM_FOREGROUND].count
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3471 && STRINGP (fmt[XBM_FOREGROUND].value))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3472 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3473 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
3474 foreground);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3475 non_default_colors = 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3476 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3477
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3478 if (fmt[XBM_BACKGROUND].count
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3479 && STRINGP (fmt[XBM_BACKGROUND].value))
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 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
3482 background);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3483 non_default_colors = 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3484 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3485
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3486 if (in_memory_file_p)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3487 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
3488 (SDATA (data)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3489 + SBYTES (data)));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3490 else
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 if (VECTORP (data))
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 int i;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3495 char *p;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3496 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
3497
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3498 p = bits = (char *) alloca (nbytes * img->height);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3499 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
3500 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3501 Lisp_Object line = XVECTOR (data)->contents[i];
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3502 if (STRINGP (line))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3503 bcopy (SDATA (line), p, nbytes);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3504 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3505 bcopy (XBOOL_VECTOR (line)->data, p, nbytes);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3506 }
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 else if (STRINGP (data))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3509 bits = SDATA (data);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3510 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3511 bits = XBOOL_VECTOR (data)->data;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3512
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3513 /* Create the pixmap. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3514
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3515 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
3516 foreground, background,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3517 non_default_colors);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3518 if (img->pixmap)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3519 success_p = 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3520 else
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 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
3523 img->spec, Qnil);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3524 x_clear_image (f, img);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3525 }
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 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3528
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3529 return success_p;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3530 }
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
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3533
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3534 /***********************************************************************
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3535 XPM images
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3536 ***********************************************************************/
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3537
55540
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3538 #if defined (HAVE_XPM) || defined (MAC_OS)
54341
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 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
3541 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
3542 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
3543
55540
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3544 #endif /* HAVE_XPM || MAC_OS */
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3545
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3546 #ifdef HAVE_XPM
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3547 #ifdef HAVE_NTGUI
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3548 /* 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
3549 #define FOR_MSW
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3550 /* simx.h in xpm defines XColor and XImage differently than Emacs. */
55375
b9215c2d57ad (Display) [HAVE_NTGUI]: Redefine while loading xpm.h to avoid name clash.
Jason Rumney <jasonr@gnu.org>
parents: 55022
diff changeset
3551 /* It also defines Display the same way as Emacs, but gcc 3.3 still barfs. */
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3552 #define XColor xpm_XColor
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3553 #define XImage xpm_XImage
55375
b9215c2d57ad (Display) [HAVE_NTGUI]: Redefine while loading xpm.h to avoid name clash.
Jason Rumney <jasonr@gnu.org>
parents: 55022
diff changeset
3554 #define Display xpm_Display
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3555 #define PIXEL_ALREADY_TYPEDEFED
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3556 #include "X11/xpm.h"
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3557 #undef FOR_MSW
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3558 #undef XColor
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3559 #undef XImage
55375
b9215c2d57ad (Display) [HAVE_NTGUI]: Redefine while loading xpm.h to avoid name clash.
Jason Rumney <jasonr@gnu.org>
parents: 55022
diff changeset
3560 #undef Display
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3561 #undef PIXEL_ALREADY_TYPEDEFED
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3562 #else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3563 #include "X11/xpm.h"
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3564 #endif /* HAVE_NTGUI */
55540
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3565 #endif /* HAVE_XPM */
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3566
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3567 #if defined (HAVE_XPM) || defined (MAC_OS)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3568 /* The symbol `xpm' identifying XPM-format images. */
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 Lisp_Object Qxpm;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3571
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3572 /* 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
3573
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3574 enum xpm_keyword_index
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3575 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3576 XPM_TYPE,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3577 XPM_FILE,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3578 XPM_DATA,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3579 XPM_ASCENT,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3580 XPM_MARGIN,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3581 XPM_RELIEF,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3582 XPM_ALGORITHM,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3583 XPM_HEURISTIC_MASK,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3584 XPM_MASK,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3585 XPM_COLOR_SYMBOLS,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3586 XPM_BACKGROUND,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3587 XPM_LAST
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3588 };
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3589
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3590 /* 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
3591 of valid XPM image specifications. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3592
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3593 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
3594 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3595 {":type", IMAGE_SYMBOL_VALUE, 1},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3596 {":file", IMAGE_STRING_VALUE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3597 {":data", IMAGE_STRING_VALUE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3598 {":ascent", IMAGE_ASCENT_VALUE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3599 {":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
3600 {":relief", IMAGE_INTEGER_VALUE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3601 {":conversion", IMAGE_DONT_CHECK_VALUE_TYPE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3602 {":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
3603 {":mask", IMAGE_DONT_CHECK_VALUE_TYPE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3604 {":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
3605 {":background", IMAGE_STRING_OR_NIL_VALUE, 0}
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3606 };
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3607
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3608 /* Structure describing the image type XPM. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3609
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3610 static struct image_type xpm_type =
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 &Qxpm,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3613 xpm_image_p,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3614 xpm_load,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3615 x_clear_image,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3616 NULL
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3617 };
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3618
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3619 #ifdef HAVE_X_WINDOWS
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3620
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3621 /* 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
3622 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
3623 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
3624 lib. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3625
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3626 #if defined XpmAllocColor && defined XpmFreeColors && defined XpmColorClosure
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3627 #define ALLOC_XPM_COLORS
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3628 #endif
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3629 #endif /* HAVE_X_WINDOWS */
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 ALLOC_XPM_COLORS
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3632
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3633 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
3634 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
3635 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
3636 static int xpm_color_bucket P_ ((char *));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3637 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
3638 XColor *, int));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3639
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3640 /* 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
3641 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
3642 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
3643 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
3644
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3645 struct xpm_cached_color
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3646 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3647 /* Next in collision chain. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3648 struct xpm_cached_color *next;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3649
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3650 /* Color definition (RGB and pixel color). */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3651 XColor color;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3652
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3653 /* Color name. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3654 char name[1];
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3655 };
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3656
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3657 /* 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
3658 size. */
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 #define XPM_COLOR_CACHE_BUCKETS 1001
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3661 struct xpm_cached_color **xpm_color_cache;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3662
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3663 /* Initialize the color cache. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3664
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3665 static void
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3666 xpm_init_color_cache (f, attrs)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3667 struct frame *f;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3668 XpmAttributes *attrs;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3669 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3670 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
3671 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
3672 memset (xpm_color_cache, 0, nbytes);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3673 init_color_table ();
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3674
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3675 if (attrs->valuemask & XpmColorSymbols)
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 int i;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3678 XColor color;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3679
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3680 for (i = 0; i < attrs->numsymbols; ++i)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3681 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
3682 attrs->colorsymbols[i].value, &color))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3683 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3684 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
3685 color.blue);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3686 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
3687 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3688 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3689 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3690
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3691 /* Free the color cache. */
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 static void
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3694 xpm_free_color_cache ()
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 struct xpm_cached_color *p, *next;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3697 int i;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3698
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3699 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
3700 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
3701 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3702 next = p->next;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3703 xfree (p);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3704 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3705
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3706 xfree (xpm_color_cache);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3707 xpm_color_cache = NULL;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3708 free_color_table ();
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3709 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3710
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3711 /* 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
3712 cache. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3713
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3714 static int
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3715 xpm_color_bucket (color_name)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3716 char *color_name;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3717 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3718 unsigned h = 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3719 char *s;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3720
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3721 for (s = color_name; *s; ++s)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3722 h = (h << 2) ^ *s;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3723 return h %= XPM_COLOR_CACHE_BUCKETS;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3724 }
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
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3727 /* 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
3728 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
3729 entry added. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3730
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3731 static struct xpm_cached_color *
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3732 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
3733 struct frame *f;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3734 char *color_name;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3735 XColor *color;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3736 int bucket;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3737 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3738 size_t nbytes;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3739 struct xpm_cached_color *p;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3740
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3741 if (bucket < 0)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3742 bucket = xpm_color_bucket (color_name);
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 nbytes = sizeof *p + strlen (color_name);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3745 p = (struct xpm_cached_color *) xmalloc (nbytes);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3746 strcpy (p->name, color_name);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3747 p->color = *color;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3748 p->next = xpm_color_cache[bucket];
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3749 xpm_color_cache[bucket] = p;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3750 return p;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3751 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3752
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3753 /* 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
3754 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
3755 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
3756 allocation failed. */
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 static int
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3759 xpm_lookup_color (f, color_name, color)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3760 struct frame *f;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3761 char *color_name;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3762 XColor *color;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3763 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3764 struct xpm_cached_color *p;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3765 int h = xpm_color_bucket (color_name);
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 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
3768 if (strcmp (p->name, color_name) == 0)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3769 break;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3770
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3771 if (p != NULL)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3772 *color = p->color;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3773 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
3774 color_name, color))
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 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
3777 color->blue);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3778 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
3779 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3780 /* 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
3781 with transparency, and it's useful. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3782 else if (strcmp ("opaque", color_name) == 0)
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 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
3785 color->pixel = FRAME_FOREGROUND_PIXEL (f);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3786 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
3787 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3788
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3789 return p != NULL;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3790 }
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
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3793 /* 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
3794 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
3795 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
3796 if successful. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3797
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3798 static int
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3799 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
3800 Display *dpy;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3801 Colormap cmap;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3802 char *color_name;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3803 XColor *color;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3804 void *closure;
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 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
3807 }
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
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3810 /* 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
3811 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
3812 non-zero if successful. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3813
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3814 static int
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3815 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
3816 Display *dpy;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3817 Colormap cmap;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3818 Pixel *pixels;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3819 int npixels;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3820 void *closure;
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 return 1;
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
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3825 #endif /* ALLOC_XPM_COLORS */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3826
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3827
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3828 #ifdef HAVE_NTGUI
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3829
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3830 /* XPM library details. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3831
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3832 DEF_IMGLIB_FN (XpmFreeAttributes);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3833 DEF_IMGLIB_FN (XpmCreateImageFromBuffer);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3834 DEF_IMGLIB_FN (XpmReadFileToImage);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3835 DEF_IMGLIB_FN (XImageFree);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3836
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3837 static int
56104
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
3838 init_xpm_functions (Lisp_Object libraries)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3839 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3840 HMODULE library;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3841
56104
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
3842 if (!(library = w32_delayed_load (libraries, Qxpm)))
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3843 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3844
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3845 LOAD_IMGLIB_FN (library, XpmFreeAttributes);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3846 LOAD_IMGLIB_FN (library, XpmCreateImageFromBuffer);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3847 LOAD_IMGLIB_FN (library, XpmReadFileToImage);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3848 LOAD_IMGLIB_FN (library, XImageFree);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3849 return 1;
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
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3852 #endif /* HAVE_NTGUI */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3853
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3854
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3855 /* 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
3856 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
3857 cdr are strings. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3858
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3859 static int
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3860 xpm_valid_color_symbols_p (color_symbols)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3861 Lisp_Object color_symbols;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3862 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3863 while (CONSP (color_symbols))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3864 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3865 Lisp_Object sym = XCAR (color_symbols);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3866 if (!CONSP (sym)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3867 || !STRINGP (XCAR (sym))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3868 || !STRINGP (XCDR (sym)))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3869 break;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3870 color_symbols = XCDR (color_symbols);
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
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3873 return NILP (color_symbols);
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
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3876
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3877 /* 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
3878
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3879 static int
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3880 xpm_image_p (object)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3881 Lisp_Object object;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3882 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3883 struct image_keyword fmt[XPM_LAST];
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3884 bcopy (xpm_format, fmt, sizeof fmt);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3885 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
3886 /* Either `:file' or `:data' must be present. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3887 && 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
3888 /* 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
3889 whose car and cdr are strings. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3890 && (fmt[XPM_COLOR_SYMBOLS].count == 0
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3891 || 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
3892 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3893
55540
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3894 #endif /* HAVE_XPM || MAC_OS */
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3895
66919
a9d1837b115c * gnu.h (gnu_bits): Xpm version of the new Emacs icon.
Chong Yidong <cyd@stupidchicken.com>
parents: 66877
diff changeset
3896 #if defined (HAVE_XPM) && defined (HAVE_X_WINDOWS)
a9d1837b115c * gnu.h (gnu_bits): Xpm version of the new Emacs icon.
Chong Yidong <cyd@stupidchicken.com>
parents: 66877
diff changeset
3897 int
a9d1837b115c * gnu.h (gnu_bits): Xpm version of the new Emacs icon.
Chong Yidong <cyd@stupidchicken.com>
parents: 66877
diff changeset
3898 x_create_bitmap_from_xpm_data (f, bits)
a9d1837b115c * gnu.h (gnu_bits): Xpm version of the new Emacs icon.
Chong Yidong <cyd@stupidchicken.com>
parents: 66877
diff changeset
3899 struct frame *f;
a9d1837b115c * gnu.h (gnu_bits): Xpm version of the new Emacs icon.
Chong Yidong <cyd@stupidchicken.com>
parents: 66877
diff changeset
3900 char **bits;
a9d1837b115c * gnu.h (gnu_bits): Xpm version of the new Emacs icon.
Chong Yidong <cyd@stupidchicken.com>
parents: 66877
diff changeset
3901 {
a9d1837b115c * gnu.h (gnu_bits): Xpm version of the new Emacs icon.
Chong Yidong <cyd@stupidchicken.com>
parents: 66877
diff changeset
3902 Display_Info *dpyinfo = FRAME_X_DISPLAY_INFO (f);
a9d1837b115c * gnu.h (gnu_bits): Xpm version of the new Emacs icon.
Chong Yidong <cyd@stupidchicken.com>
parents: 66877
diff changeset
3903 int id, rc;
a9d1837b115c * gnu.h (gnu_bits): Xpm version of the new Emacs icon.
Chong Yidong <cyd@stupidchicken.com>
parents: 66877
diff changeset
3904 XpmAttributes attrs;
a9d1837b115c * gnu.h (gnu_bits): Xpm version of the new Emacs icon.
Chong Yidong <cyd@stupidchicken.com>
parents: 66877
diff changeset
3905 Pixmap bitmap, mask;
a9d1837b115c * gnu.h (gnu_bits): Xpm version of the new Emacs icon.
Chong Yidong <cyd@stupidchicken.com>
parents: 66877
diff changeset
3906
a9d1837b115c * gnu.h (gnu_bits): Xpm version of the new Emacs icon.
Chong Yidong <cyd@stupidchicken.com>
parents: 66877
diff changeset
3907 bzero (&attrs, sizeof attrs);
a9d1837b115c * gnu.h (gnu_bits): Xpm version of the new Emacs icon.
Chong Yidong <cyd@stupidchicken.com>
parents: 66877
diff changeset
3908
66924
53960d1c1f2f initialize XpmAttributes
Chong Yidong <cyd@stupidchicken.com>
parents: 66919
diff changeset
3909 attrs.visual = FRAME_X_VISUAL (f);
53960d1c1f2f initialize XpmAttributes
Chong Yidong <cyd@stupidchicken.com>
parents: 66919
diff changeset
3910 attrs.colormap = FRAME_X_COLORMAP (f);
53960d1c1f2f initialize XpmAttributes
Chong Yidong <cyd@stupidchicken.com>
parents: 66919
diff changeset
3911 attrs.valuemask |= XpmVisual;
53960d1c1f2f initialize XpmAttributes
Chong Yidong <cyd@stupidchicken.com>
parents: 66919
diff changeset
3912 attrs.valuemask |= XpmColormap;
53960d1c1f2f initialize XpmAttributes
Chong Yidong <cyd@stupidchicken.com>
parents: 66919
diff changeset
3913
66919
a9d1837b115c * gnu.h (gnu_bits): Xpm version of the new Emacs icon.
Chong Yidong <cyd@stupidchicken.com>
parents: 66877
diff changeset
3914 rc = XpmCreatePixmapFromData (FRAME_X_DISPLAY (f), FRAME_X_WINDOW (f),
a9d1837b115c * gnu.h (gnu_bits): Xpm version of the new Emacs icon.
Chong Yidong <cyd@stupidchicken.com>
parents: 66877
diff changeset
3915 bits, &bitmap, &mask, &attrs);
a9d1837b115c * gnu.h (gnu_bits): Xpm version of the new Emacs icon.
Chong Yidong <cyd@stupidchicken.com>
parents: 66877
diff changeset
3916 if (rc != XpmSuccess)
66984
9d0a2cc054be * image.c (x_create_bitmap_from_xpm_data): Free attributes on
Chong Yidong <cyd@stupidchicken.com>
parents: 66924
diff changeset
3917 {
9d0a2cc054be * image.c (x_create_bitmap_from_xpm_data): Free attributes on
Chong Yidong <cyd@stupidchicken.com>
parents: 66924
diff changeset
3918 XpmFreeAttributes (&attrs);
9d0a2cc054be * image.c (x_create_bitmap_from_xpm_data): Free attributes on
Chong Yidong <cyd@stupidchicken.com>
parents: 66924
diff changeset
3919 return -1;
9d0a2cc054be * image.c (x_create_bitmap_from_xpm_data): Free attributes on
Chong Yidong <cyd@stupidchicken.com>
parents: 66924
diff changeset
3920 }
66919
a9d1837b115c * gnu.h (gnu_bits): Xpm version of the new Emacs icon.
Chong Yidong <cyd@stupidchicken.com>
parents: 66877
diff changeset
3921
a9d1837b115c * gnu.h (gnu_bits): Xpm version of the new Emacs icon.
Chong Yidong <cyd@stupidchicken.com>
parents: 66877
diff changeset
3922 id = x_allocate_bitmap_record (f);
a9d1837b115c * gnu.h (gnu_bits): Xpm version of the new Emacs icon.
Chong Yidong <cyd@stupidchicken.com>
parents: 66877
diff changeset
3923 dpyinfo->bitmaps[id - 1].pixmap = bitmap;
a9d1837b115c * gnu.h (gnu_bits): Xpm version of the new Emacs icon.
Chong Yidong <cyd@stupidchicken.com>
parents: 66877
diff changeset
3924 dpyinfo->bitmaps[id - 1].have_mask = 1;
a9d1837b115c * gnu.h (gnu_bits): Xpm version of the new Emacs icon.
Chong Yidong <cyd@stupidchicken.com>
parents: 66877
diff changeset
3925 dpyinfo->bitmaps[id - 1].mask = mask;
a9d1837b115c * gnu.h (gnu_bits): Xpm version of the new Emacs icon.
Chong Yidong <cyd@stupidchicken.com>
parents: 66877
diff changeset
3926 dpyinfo->bitmaps[id - 1].file = NULL;
a9d1837b115c * gnu.h (gnu_bits): Xpm version of the new Emacs icon.
Chong Yidong <cyd@stupidchicken.com>
parents: 66877
diff changeset
3927 dpyinfo->bitmaps[id - 1].height = attrs.height;
a9d1837b115c * gnu.h (gnu_bits): Xpm version of the new Emacs icon.
Chong Yidong <cyd@stupidchicken.com>
parents: 66877
diff changeset
3928 dpyinfo->bitmaps[id - 1].width = attrs.width;
a9d1837b115c * gnu.h (gnu_bits): Xpm version of the new Emacs icon.
Chong Yidong <cyd@stupidchicken.com>
parents: 66877
diff changeset
3929 dpyinfo->bitmaps[id - 1].depth = attrs.depth;
a9d1837b115c * gnu.h (gnu_bits): Xpm version of the new Emacs icon.
Chong Yidong <cyd@stupidchicken.com>
parents: 66877
diff changeset
3930 dpyinfo->bitmaps[id - 1].refcount = 1;
a9d1837b115c * gnu.h (gnu_bits): Xpm version of the new Emacs icon.
Chong Yidong <cyd@stupidchicken.com>
parents: 66877
diff changeset
3931
a9d1837b115c * gnu.h (gnu_bits): Xpm version of the new Emacs icon.
Chong Yidong <cyd@stupidchicken.com>
parents: 66877
diff changeset
3932 XpmFreeAttributes (&attrs);
a9d1837b115c * gnu.h (gnu_bits): Xpm version of the new Emacs icon.
Chong Yidong <cyd@stupidchicken.com>
parents: 66877
diff changeset
3933 return id;
a9d1837b115c * gnu.h (gnu_bits): Xpm version of the new Emacs icon.
Chong Yidong <cyd@stupidchicken.com>
parents: 66877
diff changeset
3934 }
66994
f7e79cfcfc4f Fix typo.
Chong Yidong <cyd@stupidchicken.com>
parents: 66984
diff changeset
3935 #endif /* defined (HAVE_XPM) && defined (HAVE_X_WINDOWS) */
66919
a9d1837b115c * gnu.h (gnu_bits): Xpm version of the new Emacs icon.
Chong Yidong <cyd@stupidchicken.com>
parents: 66877
diff changeset
3936
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3937 /* 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
3938 non-zero if successful. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3939
55540
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3940 #ifdef HAVE_XPM
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
3941
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3942 static int
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3943 xpm_load (f, img)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3944 struct frame *f;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3945 struct image *img;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3946 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3947 int rc;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3948 XpmAttributes attrs;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3949 Lisp_Object specified_file, color_symbols;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3950 #ifdef HAVE_NTGUI
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3951 HDC hdc;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3952 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
3953 #endif /* HAVE_NTGUI */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3954
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3955 /* 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
3956 close colors. Return colors allocated. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3957 bzero (&attrs, sizeof attrs);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3958
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3959 #ifndef HAVE_NTGUI
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3960 attrs.visual = FRAME_X_VISUAL (f);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3961 attrs.colormap = FRAME_X_COLORMAP (f);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3962 attrs.valuemask |= XpmVisual;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3963 attrs.valuemask |= XpmColormap;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3964 #endif /* HAVE_NTGUI */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3965
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3966 #ifdef ALLOC_XPM_COLORS
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3967 /* 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
3968 failing color allocation more gracefully. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3969 attrs.color_closure = f;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3970 attrs.alloc_color = xpm_alloc_color;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3971 attrs.free_colors = xpm_free_colors;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3972 attrs.valuemask |= XpmAllocColor | XpmFreeColors | XpmColorClosure;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3973 #else /* not ALLOC_XPM_COLORS */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3974 /* Let the XPM lib allocate colors. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3975 attrs.valuemask |= XpmReturnAllocPixels;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3976 #ifdef XpmAllocCloseColors
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3977 attrs.alloc_close_colors = 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3978 attrs.valuemask |= XpmAllocCloseColors;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3979 #else /* not XpmAllocCloseColors */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3980 attrs.closeness = 600;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3981 attrs.valuemask |= XpmCloseness;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3982 #endif /* not XpmAllocCloseColors */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3983 #endif /* ALLOC_XPM_COLORS */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3984
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3985 /* 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
3986 these to `attrs'. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3987 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
3988 if (CONSP (color_symbols))
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 Lisp_Object tail;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3991 XpmColorSymbol *xpm_syms;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3992 int i, size;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3993
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3994 attrs.valuemask |= XpmColorSymbols;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3995
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3996 /* Count number of symbols. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3997 attrs.numsymbols = 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
3998 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
3999 ++attrs.numsymbols;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4000
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4001 /* Allocate an XpmColorSymbol array. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4002 size = attrs.numsymbols * sizeof *xpm_syms;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4003 xpm_syms = (XpmColorSymbol *) alloca (size);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4004 bzero (xpm_syms, size);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4005 attrs.colorsymbols = xpm_syms;
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 /* Fill the color symbol array. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4008 for (tail = color_symbols, i = 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4009 CONSP (tail);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4010 ++i, tail = XCDR (tail))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4011 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4012 Lisp_Object name = XCAR (XCAR (tail));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4013 Lisp_Object color = XCDR (XCAR (tail));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4014 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
4015 strcpy (xpm_syms[i].name, SDATA (name));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4016 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
4017 strcpy (xpm_syms[i].value, SDATA (color));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4018 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4019 }
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 /* 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
4022 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
4023 #ifdef ALLOC_XPM_COLORS
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4024 xpm_init_color_cache (f, &attrs);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4025 #endif
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 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
4028
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4029 #ifdef HAVE_NTGUI
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 HDC frame_dc = get_frame_dc (f);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4032 hdc = CreateCompatibleDC (frame_dc);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4033 release_frame_dc (f, frame_dc);
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 #endif /* HAVE_NTGUI */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4036
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4037 if (STRINGP (specified_file))
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 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
4040 if (!STRINGP (file))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4041 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4042 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
4043 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4044 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4045
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4046 #ifdef HAVE_NTGUI
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4047 /* 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
4048 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
4049 rc = fn_XpmReadFileToImage (&hdc, SDATA (file),
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4050 &xpm_image, &xpm_mask,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4051 &attrs);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4052 #else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4053 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
4054 SDATA (file), &img->pixmap, &img->mask,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4055 &attrs);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4056 #endif /* HAVE_NTGUI */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4057 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4058 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4059 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4060 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
4061 #ifdef HAVE_NTGUI
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4062 /* 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
4063 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
4064 rc = fn_XpmCreateImageFromBuffer (&hdc, SDATA (buffer),
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4065 &xpm_image, &xpm_mask,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4066 &attrs);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4067 #else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4068 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
4069 SDATA (buffer),
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4070 &img->pixmap, &img->mask,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4071 &attrs);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4072 #endif /* HAVE_NTGUI */
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 if (rc == XpmSuccess)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4076 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4077 #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
4078 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
4079 #else /* not ALLOC_XPM_COLORS */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4080 int i;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4081
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4082 #ifdef HAVE_NTGUI
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4083 /* 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
4084 plus some duplicate attributes. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4085 if (xpm_image && xpm_image->bitmap)
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 img->pixmap = xpm_image->bitmap;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4088 /* 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
4089 the bitmap, which is what we want. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4090 fn_XImageFree (xpm_image);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4091 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4092 if (xpm_mask && xpm_mask->bitmap)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4093 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4094 /* 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
4095 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
4096 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
4097 HGDIOBJ old_obj;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4098 old_obj = SelectObject (hdc, xpm_mask->bitmap);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4099
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4100 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
4101 SelectObject (hdc, old_obj);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4102
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4103 img->mask = xpm_mask->bitmap;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4104 fn_XImageFree (xpm_mask);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4105 DeleteDC (hdc);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4106 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4107
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4108 DeleteDC (hdc);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4109 #endif /* HAVE_NTGUI */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4110
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4111 /* Remember allocated colors. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4112 img->ncolors = attrs.nalloc_pixels;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4113 img->colors = (unsigned long *) xmalloc (img->ncolors
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4114 * sizeof *img->colors);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4115 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
4116 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4117 img->colors[i] = attrs.alloc_pixels[i];
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4118 #ifdef DEBUG_X_COLORS
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4119 register_color (img->colors[i]);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4120 #endif
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 #endif /* not ALLOC_XPM_COLORS */
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 img->width = attrs.width;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4125 img->height = attrs.height;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4126 xassert (img->width > 0 && img->height > 0);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4127
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4128 /* 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
4129 #ifdef HAVE_NTGUI
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4130 fn_XpmFreeAttributes (&attrs);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4131 #else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4132 XpmFreeAttributes (&attrs);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4133 #endif /* HAVE_NTGUI */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4134 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4135 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4136 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4137 #ifdef HAVE_NTGUI
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4138 DeleteDC (hdc);
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 switch (rc)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4142 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4143 case XpmOpenFailed:
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4144 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
4145 break;
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 case XpmFileInvalid:
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4148 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
4149 break;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4150
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4151 case XpmNoMemory:
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4152 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
4153 break;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4154
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4155 case XpmColorFailed:
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4156 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
4157 break;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4158
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4159 default:
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4160 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
4161 break;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4162 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4163 }
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 #ifdef ALLOC_XPM_COLORS
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4166 xpm_free_color_cache ();
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4167 #endif
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4168 return rc == XpmSuccess;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4169 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4170
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4171 #endif /* HAVE_XPM */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4172
55540
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4173 #ifdef MAC_OS
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4174
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4175 /* XPM support functions for Mac OS where libxpm is not available.
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4176 Only XPM version 3 (without any extensions) is supported. */
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4177
73570
a87d92458ce0 [MAC_OS] (image_load_qt_1, xpm_scan, xpm_make_color_table_v)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 73346
diff changeset
4178 static int xpm_scan P_ ((const unsigned char **, const unsigned char *,
a87d92458ce0 [MAC_OS] (image_load_qt_1, xpm_scan, xpm_make_color_table_v)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 73346
diff changeset
4179 const unsigned char **, int *));
55540
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4180 static Lisp_Object xpm_make_color_table_v
73570
a87d92458ce0 [MAC_OS] (image_load_qt_1, xpm_scan, xpm_make_color_table_v)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 73346
diff changeset
4181 P_ ((void (**) (Lisp_Object, const unsigned char *, int, Lisp_Object),
a87d92458ce0 [MAC_OS] (image_load_qt_1, xpm_scan, xpm_make_color_table_v)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 73346
diff changeset
4182 Lisp_Object (**) (Lisp_Object, const unsigned char *, int)));
a87d92458ce0 [MAC_OS] (image_load_qt_1, xpm_scan, xpm_make_color_table_v)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 73346
diff changeset
4183 static void xpm_put_color_table_v P_ ((Lisp_Object, const unsigned char *,
65250
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4184 int, Lisp_Object));
55540
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4185 static Lisp_Object xpm_get_color_table_v P_ ((Lisp_Object,
73570
a87d92458ce0 [MAC_OS] (image_load_qt_1, xpm_scan, xpm_make_color_table_v)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 73346
diff changeset
4186 const unsigned char *, int));
55540
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4187 static Lisp_Object xpm_make_color_table_h
73570
a87d92458ce0 [MAC_OS] (image_load_qt_1, xpm_scan, xpm_make_color_table_v)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 73346
diff changeset
4188 P_ ((void (**) (Lisp_Object, const unsigned char *, int, Lisp_Object),
a87d92458ce0 [MAC_OS] (image_load_qt_1, xpm_scan, xpm_make_color_table_v)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 73346
diff changeset
4189 Lisp_Object (**) (Lisp_Object, const unsigned char *, int)));
a87d92458ce0 [MAC_OS] (image_load_qt_1, xpm_scan, xpm_make_color_table_v)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 73346
diff changeset
4190 static void xpm_put_color_table_h P_ ((Lisp_Object, const unsigned char *,
65250
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4191 int, Lisp_Object));
55540
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4192 static Lisp_Object xpm_get_color_table_h P_ ((Lisp_Object,
73570
a87d92458ce0 [MAC_OS] (image_load_qt_1, xpm_scan, xpm_make_color_table_v)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 73346
diff changeset
4193 const unsigned char *, int));
a87d92458ce0 [MAC_OS] (image_load_qt_1, xpm_scan, xpm_make_color_table_v)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 73346
diff changeset
4194 static int xpm_str_to_color_key P_ ((const char *));
55540
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4195 static int xpm_load_image P_ ((struct frame *, struct image *,
73570
a87d92458ce0 [MAC_OS] (image_load_qt_1, xpm_scan, xpm_make_color_table_v)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 73346
diff changeset
4196 const unsigned char *, const unsigned char *));
55540
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4197
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4198 /* Tokens returned from xpm_scan. */
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4199
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4200 enum xpm_token
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4201 {
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4202 XPM_TK_IDENT = 256,
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4203 XPM_TK_STRING,
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4204 XPM_TK_EOF
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4205 };
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4206
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4207 /* Scan an XPM data and return a character (< 256) or a token defined
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4208 by enum xpm_token above. *S and END are the start (inclusive) and
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4209 the end (exclusive) addresses of the data, respectively. Advance
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4210 *S while scanning. If token is either XPM_TK_IDENT or
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4211 XPM_TK_STRING, *BEG and *LEN are set to the start address and the
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4212 length of the corresponding token, respectively. */
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4213
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4214 static int
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4215 xpm_scan (s, end, beg, len)
73570
a87d92458ce0 [MAC_OS] (image_load_qt_1, xpm_scan, xpm_make_color_table_v)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 73346
diff changeset
4216 const unsigned char **s, *end, **beg;
55540
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4217 int *len;
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4218 {
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4219 int c;
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4220
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4221 while (*s < end)
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4222 {
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4223 /* Skip white-space. */
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4224 while (*s < end && (c = *(*s)++, isspace (c)))
65250
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4225 ;
55540
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4226
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4227 /* gnus-pointer.xpm uses '-' in its identifier.
65250
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4228 sb-dir-plus.xpm uses '+' in its identifier. */
55540
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4229 if (isalpha (c) || c == '_' || c == '-' || c == '+')
65250
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4230 {
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4231 *beg = *s - 1;
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4232 while (*s < end &&
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4233 (c = **s, isalnum (c) || c == '_' || c == '-' || c == '+'))
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4234 ++*s;
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4235 *len = *s - *beg;
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4236 return XPM_TK_IDENT;
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4237 }
55540
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4238 else if (c == '"')
65250
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4239 {
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4240 *beg = *s;
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4241 while (*s < end && **s != '"')
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4242 ++*s;
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4243 *len = *s - *beg;
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4244 if (*s < end)
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4245 ++*s;
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4246 return XPM_TK_STRING;
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4247 }
55540
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4248 else if (c == '/')
65250
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4249 {
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4250 if (*s < end && **s == '*')
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4251 {
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4252 /* C-style comment. */
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4253 ++*s;
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4254 do
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4255 {
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4256 while (*s < end && *(*s)++ != '*')
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4257 ;
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4258 }
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4259 while (*s < end && **s != '/');
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4260 if (*s < end)
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4261 ++*s;
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4262 }
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4263 else
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4264 return c;
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4265 }
55540
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4266 else
65250
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4267 return c;
55540
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4268 }
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4269
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4270 return XPM_TK_EOF;
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4271 }
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4272
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4273 /* Functions for color table lookup in XPM data. A Key is a string
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4274 specifying the color of each pixel in XPM data. A value is either
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4275 an integer that specifies a pixel color, Qt that specifies
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4276 transparency, or Qnil for the unspecified color. If the length of
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4277 the key string is one, a vector is used as a table. Otherwise, a
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4278 hash table is used. */
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4279
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4280 static Lisp_Object
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4281 xpm_make_color_table_v (put_func, get_func)
73570
a87d92458ce0 [MAC_OS] (image_load_qt_1, xpm_scan, xpm_make_color_table_v)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 73346
diff changeset
4282 void (**put_func) (Lisp_Object, const unsigned char *, int, Lisp_Object);
a87d92458ce0 [MAC_OS] (image_load_qt_1, xpm_scan, xpm_make_color_table_v)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 73346
diff changeset
4283 Lisp_Object (**get_func) (Lisp_Object, const unsigned char *, int);
55540
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4284 {
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4285 *put_func = xpm_put_color_table_v;
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4286 *get_func = xpm_get_color_table_v;
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4287 return Fmake_vector (make_number (256), Qnil);
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4288 }
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4289
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4290 static void
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4291 xpm_put_color_table_v (color_table, chars_start, chars_len, color)
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4292 Lisp_Object color_table;
73570
a87d92458ce0 [MAC_OS] (image_load_qt_1, xpm_scan, xpm_make_color_table_v)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 73346
diff changeset
4293 const unsigned char *chars_start;
55540
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4294 int chars_len;
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4295 Lisp_Object color;
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4296 {
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4297 XVECTOR (color_table)->contents[*chars_start] = color;
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4298 }
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4299
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4300 static Lisp_Object
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4301 xpm_get_color_table_v (color_table, chars_start, chars_len)
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4302 Lisp_Object color_table;
73570
a87d92458ce0 [MAC_OS] (image_load_qt_1, xpm_scan, xpm_make_color_table_v)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 73346
diff changeset
4303 const unsigned char *chars_start;
55540
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4304 int chars_len;
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4305 {
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4306 return XVECTOR (color_table)->contents[*chars_start];
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4307 }
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4308
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4309 static Lisp_Object
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4310 xpm_make_color_table_h (put_func, get_func)
73570
a87d92458ce0 [MAC_OS] (image_load_qt_1, xpm_scan, xpm_make_color_table_v)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 73346
diff changeset
4311 void (**put_func) (Lisp_Object, const unsigned char *, int, Lisp_Object);
a87d92458ce0 [MAC_OS] (image_load_qt_1, xpm_scan, xpm_make_color_table_v)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 73346
diff changeset
4312 Lisp_Object (**get_func) (Lisp_Object, const unsigned char *, int);
55540
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4313 {
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4314 *put_func = xpm_put_color_table_h;
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4315 *get_func = xpm_get_color_table_h;
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4316 return make_hash_table (Qequal, make_number (DEFAULT_HASH_SIZE),
65250
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4317 make_float (DEFAULT_REHASH_SIZE),
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4318 make_float (DEFAULT_REHASH_THRESHOLD),
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4319 Qnil, Qnil, Qnil);
55540
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4320 }
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4321
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4322 static void
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4323 xpm_put_color_table_h (color_table, chars_start, chars_len, color)
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4324 Lisp_Object color_table;
73570
a87d92458ce0 [MAC_OS] (image_load_qt_1, xpm_scan, xpm_make_color_table_v)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 73346
diff changeset
4325 const unsigned char *chars_start;
55540
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4326 int chars_len;
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4327 Lisp_Object color;
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4328 {
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4329 struct Lisp_Hash_Table *table = XHASH_TABLE (color_table);
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4330 unsigned hash_code;
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4331 Lisp_Object chars = make_unibyte_string (chars_start, chars_len);
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4332
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4333 hash_lookup (table, chars, &hash_code);
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4334 hash_put (table, chars, color, hash_code);
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4335 }
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4336
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4337 static Lisp_Object
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4338 xpm_get_color_table_h (color_table, chars_start, chars_len)
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4339 Lisp_Object color_table;
73570
a87d92458ce0 [MAC_OS] (image_load_qt_1, xpm_scan, xpm_make_color_table_v)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 73346
diff changeset
4340 const unsigned char *chars_start;
55540
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4341 int chars_len;
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4342 {
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4343 struct Lisp_Hash_Table *table = XHASH_TABLE (color_table);
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4344 int i = hash_lookup (table, make_unibyte_string (chars_start, chars_len),
65250
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4345 NULL);
55540
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4346
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4347 return i >= 0 ? HASH_VALUE (table, i) : Qnil;
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4348 }
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4349
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4350 enum xpm_color_key {
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4351 XPM_COLOR_KEY_S,
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4352 XPM_COLOR_KEY_M,
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4353 XPM_COLOR_KEY_G4,
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4354 XPM_COLOR_KEY_G,
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4355 XPM_COLOR_KEY_C
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4356 };
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4357
73570
a87d92458ce0 [MAC_OS] (image_load_qt_1, xpm_scan, xpm_make_color_table_v)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 73346
diff changeset
4358 static const char xpm_color_key_strings[][4] = {"s", "m", "g4", "g", "c"};
55540
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4359
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4360 static int
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4361 xpm_str_to_color_key (s)
73570
a87d92458ce0 [MAC_OS] (image_load_qt_1, xpm_scan, xpm_make_color_table_v)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 73346
diff changeset
4362 const char *s;
55540
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4363 {
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4364 int i;
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4365
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4366 for (i = 0;
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4367 i < sizeof xpm_color_key_strings / sizeof xpm_color_key_strings[0];
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4368 i++)
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4369 if (strcmp (xpm_color_key_strings[i], s) == 0)
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4370 return i;
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4371 return -1;
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4372 }
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4373
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4374 static int
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4375 xpm_load_image (f, img, contents, end)
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4376 struct frame *f;
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4377 struct image *img;
73570
a87d92458ce0 [MAC_OS] (image_load_qt_1, xpm_scan, xpm_make_color_table_v)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 73346
diff changeset
4378 const unsigned char *contents, *end;
a87d92458ce0 [MAC_OS] (image_load_qt_1, xpm_scan, xpm_make_color_table_v)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 73346
diff changeset
4379 {
a87d92458ce0 [MAC_OS] (image_load_qt_1, xpm_scan, xpm_make_color_table_v)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 73346
diff changeset
4380 const unsigned char *s = contents, *beg, *str;
55540
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4381 unsigned char buffer[BUFSIZ];
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4382 int width, height, x, y;
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4383 int num_colors, chars_per_pixel;
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4384 int len, LA1;
73570
a87d92458ce0 [MAC_OS] (image_load_qt_1, xpm_scan, xpm_make_color_table_v)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 73346
diff changeset
4385 void (*put_color_table) (Lisp_Object, const unsigned char *, int, Lisp_Object);
a87d92458ce0 [MAC_OS] (image_load_qt_1, xpm_scan, xpm_make_color_table_v)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 73346
diff changeset
4386 Lisp_Object (*get_color_table) (Lisp_Object, const unsigned char *, int);
55540
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4387 Lisp_Object frame, color_symbols, color_table;
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4388 int best_key, have_mask = 0;
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4389 XImagePtr ximg = NULL, mask_img = NULL;
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4390
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4391 #define match() \
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4392 LA1 = xpm_scan (&s, end, &beg, &len)
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4393
65250
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4394 #define expect(TOKEN) \
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4395 if (LA1 != (TOKEN)) \
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4396 goto failure; \
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4397 else \
55540
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4398 match ()
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4399
65250
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4400 #define expect_ident(IDENT) \
55540
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4401 if (LA1 == XPM_TK_IDENT \
65250
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4402 && strlen ((IDENT)) == len && memcmp ((IDENT), beg, len) == 0) \
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4403 match (); \
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4404 else \
55540
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4405 goto failure
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4406
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4407 if (!(end - s >= 9 && memcmp (s, "/* XPM */", 9) == 0))
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4408 goto failure;
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4409 s += 9;
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4410 match();
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4411 expect_ident ("static");
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4412 expect_ident ("char");
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4413 expect ('*');
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4414 expect (XPM_TK_IDENT);
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4415 expect ('[');
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4416 expect (']');
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4417 expect ('=');
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4418 expect ('{');
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4419 expect (XPM_TK_STRING);
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4420 if (len >= BUFSIZ)
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4421 goto failure;
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4422 memcpy (buffer, beg, len);
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4423 buffer[len] = '\0';
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4424 if (sscanf (buffer, "%d %d %d %d", &width, &height,
65250
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4425 &num_colors, &chars_per_pixel) != 4
55540
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4426 || width <= 0 || height <= 0
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4427 || num_colors <= 0 || chars_per_pixel <= 0)
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4428 goto failure;
66430
2f521eba6f82 [MAC_OS] (image_load_qt_1): Check image size.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 66208
diff changeset
4429
2f521eba6f82 [MAC_OS] (image_load_qt_1): Check image size.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 66208
diff changeset
4430 if (!check_image_size (f, width, height))
2f521eba6f82 [MAC_OS] (image_load_qt_1): Check image size.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 66208
diff changeset
4431 {
2f521eba6f82 [MAC_OS] (image_load_qt_1): Check image size.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 66208
diff changeset
4432 image_error ("Invalid image size", Qnil, Qnil);
2f521eba6f82 [MAC_OS] (image_load_qt_1): Check image size.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 66208
diff changeset
4433 goto failure;
2f521eba6f82 [MAC_OS] (image_load_qt_1): Check image size.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 66208
diff changeset
4434 }
2f521eba6f82 [MAC_OS] (image_load_qt_1): Check image size.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 66208
diff changeset
4435
55540
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4436 expect (',');
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4437
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4438 XSETFRAME (frame, f);
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4439 if (!NILP (Fxw_display_color_p (frame)))
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4440 best_key = XPM_COLOR_KEY_C;
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4441 else if (!NILP (Fx_display_grayscale_p (frame)))
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4442 best_key = (XFASTINT (Fx_display_planes (frame)) > 2
65250
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4443 ? XPM_COLOR_KEY_G : XPM_COLOR_KEY_G4);
55540
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4444 else
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4445 best_key = XPM_COLOR_KEY_M;
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4446
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4447 color_symbols = image_spec_value (img->spec, QCcolor_symbols, NULL);
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4448 if (chars_per_pixel == 1)
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4449 color_table = xpm_make_color_table_v (&put_color_table,
65250
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4450 &get_color_table);
55540
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4451 else
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4452 color_table = xpm_make_color_table_h (&put_color_table,
65250
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4453 &get_color_table);
55540
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4454
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4455 while (num_colors-- > 0)
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4456 {
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4457 unsigned char *color, *max_color;
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4458 int key, next_key, max_key = 0;
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4459 Lisp_Object symbol_color = Qnil, color_val;
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4460 XColor cdef;
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4461
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4462 expect (XPM_TK_STRING);
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4463 if (len <= chars_per_pixel || len >= BUFSIZ + chars_per_pixel)
65250
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4464 goto failure;
55540
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4465 memcpy (buffer, beg + chars_per_pixel, len - chars_per_pixel);
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4466 buffer[len - chars_per_pixel] = '\0';
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4467
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4468 str = strtok (buffer, " \t");
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4469 if (str == NULL)
65250
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4470 goto failure;
55540
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4471 key = xpm_str_to_color_key (str);
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4472 if (key < 0)
65250
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4473 goto failure;
55540
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4474 do
65250
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4475 {
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4476 color = strtok (NULL, " \t");
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4477 if (color == NULL)
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4478 goto failure;
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4479
69958
609c61a0071d [MAC_OS] (xpm_load_image): Add parentheses around
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 69771
diff changeset
4480 while ((str = strtok (NULL, " \t")) != NULL)
65250
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4481 {
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4482 next_key = xpm_str_to_color_key (str);
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4483 if (next_key >= 0)
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4484 break;
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4485 color[strlen (color)] = ' ';
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4486 }
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4487
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4488 if (key == XPM_COLOR_KEY_S)
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4489 {
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4490 if (NILP (symbol_color))
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4491 symbol_color = build_string (color);
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4492 }
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4493 else if (max_key < key && key <= best_key)
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4494 {
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4495 max_key = key;
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4496 max_color = color;
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4497 }
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4498 key = next_key;
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4499 }
55540
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4500 while (str);
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4501
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4502 color_val = Qnil;
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4503 if (!NILP (color_symbols) && !NILP (symbol_color))
65250
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4504 {
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4505 Lisp_Object specified_color = Fassoc (symbol_color, color_symbols);
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4506
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4507 if (CONSP (specified_color) && STRINGP (XCDR (specified_color)))
69958
609c61a0071d [MAC_OS] (xpm_load_image): Add parentheses around
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 69771
diff changeset
4508 {
609c61a0071d [MAC_OS] (xpm_load_image): Add parentheses around
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 69771
diff changeset
4509 if (xstricmp (SDATA (XCDR (specified_color)), "None") == 0)
609c61a0071d [MAC_OS] (xpm_load_image): Add parentheses around
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 69771
diff changeset
4510 color_val = Qt;
609c61a0071d [MAC_OS] (xpm_load_image): Add parentheses around
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 69771
diff changeset
4511 else if (x_defined_color (f, SDATA (XCDR (specified_color)),
609c61a0071d [MAC_OS] (xpm_load_image): Add parentheses around
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 69771
diff changeset
4512 &cdef, 0))
609c61a0071d [MAC_OS] (xpm_load_image): Add parentheses around
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 69771
diff changeset
4513 color_val = make_number (cdef.pixel);
609c61a0071d [MAC_OS] (xpm_load_image): Add parentheses around
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 69771
diff changeset
4514 }
65250
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4515 }
55540
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4516 if (NILP (color_val) && max_key > 0)
69958
609c61a0071d [MAC_OS] (xpm_load_image): Add parentheses around
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 69771
diff changeset
4517 {
609c61a0071d [MAC_OS] (xpm_load_image): Add parentheses around
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 69771
diff changeset
4518 if (xstricmp (max_color, "None") == 0)
609c61a0071d [MAC_OS] (xpm_load_image): Add parentheses around
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 69771
diff changeset
4519 color_val = Qt;
609c61a0071d [MAC_OS] (xpm_load_image): Add parentheses around
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 69771
diff changeset
4520 else if (x_defined_color (f, max_color, &cdef, 0))
609c61a0071d [MAC_OS] (xpm_load_image): Add parentheses around
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 69771
diff changeset
4521 color_val = make_number (cdef.pixel);
609c61a0071d [MAC_OS] (xpm_load_image): Add parentheses around
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 69771
diff changeset
4522 }
55540
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4523 if (!NILP (color_val))
65250
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4524 (*put_color_table) (color_table, beg, chars_per_pixel, color_val);
55540
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4525
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4526 expect (',');
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4527 }
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4528
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4529 if (!x_create_x_image_and_pixmap (f, width, height, 0,
65250
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4530 &ximg, &img->pixmap)
55540
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4531 || !x_create_x_image_and_pixmap (f, width, height, 1,
65250
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4532 &mask_img, &img->mask))
55540
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4533 {
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4534 image_error ("Out of memory (%s)", img->spec, Qnil);
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4535 goto error;
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4536 }
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4537
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4538 for (y = 0; y < height; y++)
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4539 {
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4540 expect (XPM_TK_STRING);
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4541 str = beg;
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4542 if (len < width * chars_per_pixel)
65250
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4543 goto failure;
55540
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4544 for (x = 0; x < width; x++, str += chars_per_pixel)
65250
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4545 {
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4546 Lisp_Object color_val =
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4547 (*get_color_table) (color_table, str, chars_per_pixel);
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4548
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4549 XPutPixel (ximg, x, y,
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4550 (INTEGERP (color_val) ? XINT (color_val)
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4551 : FRAME_FOREGROUND_PIXEL (f)));
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4552 XPutPixel (mask_img, x, y,
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4553 (!EQ (color_val, Qt) ? PIX_MASK_DRAW
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4554 : (have_mask = 1, PIX_MASK_RETAIN)));
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4555 }
55540
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4556 if (y + 1 < height)
65250
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4557 expect (',');
55540
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4558 }
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4559
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4560 img->width = width;
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4561 img->height = height;
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4562
70147
37f988f09f67 [MAC_OS] (xpm_load_image): Fill in background field
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70068
diff changeset
4563 /* Maybe fill in the background field while we have ximg handy. */
37f988f09f67 [MAC_OS] (xpm_load_image): Fill in background field
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70068
diff changeset
4564 if (NILP (image_spec_value (img->spec, QCbackground, NULL)))
37f988f09f67 [MAC_OS] (xpm_load_image): Fill in background field
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70068
diff changeset
4565 IMAGE_BACKGROUND (img, f, ximg);
37f988f09f67 [MAC_OS] (xpm_load_image): Fill in background field
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70068
diff changeset
4566
55540
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4567 x_put_x_image (f, ximg, img->pixmap, width, height);
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4568 x_destroy_x_image (ximg);
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4569 if (have_mask)
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4570 {
65250
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4571 /* Fill in the background_transparent field while we have the
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4572 mask handy. */
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4573 image_background_transparent (img, f, mask_img);
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4574
55540
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4575 x_put_x_image (f, mask_img, img->mask, width, height);
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4576 x_destroy_x_image (mask_img);
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4577 }
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4578 else
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4579 {
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4580 x_destroy_x_image (mask_img);
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4581 Free_Pixmap (FRAME_X_DISPLAY (f), img->mask);
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4582 img->mask = NO_PIXMAP;
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4583 }
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4584
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4585 return 1;
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4586
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4587 failure:
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4588 image_error ("Invalid XPM file (%s)", img->spec, Qnil);
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4589 error:
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4590 x_destroy_x_image (ximg);
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4591 x_destroy_x_image (mask_img);
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4592 x_clear_image (f, img);
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4593 return 0;
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4594
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4595 #undef match
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4596 #undef expect
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4597 #undef expect_ident
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4598 }
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4599
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4600 static int
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4601 xpm_load (f, img)
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4602 struct frame *f;
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4603 struct image *img;
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4604 {
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4605 int success_p = 0;
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4606 Lisp_Object file_name;
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4607
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4608 /* If IMG->spec specifies a file name, create a non-file spec from it. */
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4609 file_name = image_spec_value (img->spec, QCfile, NULL);
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4610 if (STRINGP (file_name))
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4611 {
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4612 Lisp_Object file;
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4613 unsigned char *contents;
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4614 int size;
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4615 struct gcpro gcpro1;
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4616
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4617 file = x_find_image_file (file_name);
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4618 GCPRO1 (file);
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4619 if (!STRINGP (file))
65250
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4620 {
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4621 image_error ("Cannot find image file `%s'", file_name, Qnil);
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4622 UNGCPRO;
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4623 return 0;
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4624 }
55540
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4625
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4626 contents = slurp_file (SDATA (file), &size);
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4627 if (contents == NULL)
65250
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4628 {
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4629 image_error ("Error loading XPM image `%s'", img->spec, Qnil);
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4630 UNGCPRO;
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4631 return 0;
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4632 }
55540
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4633
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4634 success_p = xpm_load_image (f, img, contents, contents + size);
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4635 xfree (contents);
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4636 UNGCPRO;
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4637 }
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4638 else
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4639 {
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4640 Lisp_Object data;
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4641
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4642 data = image_spec_value (img->spec, QCdata, NULL);
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4643 success_p = xpm_load_image (f, img, SDATA (data),
65250
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
4644 SDATA (data) + SBYTES (data));
55540
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4645 }
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4646
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4647 return success_p;
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4648 }
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4649
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4650 #endif /* MAC_OS */
55886
ae9227eb8392 Work around bugs/problems with MinGW builds of graphics libraries
Juanma Barranquero <lekktu@gmail.com>
parents: 55540
diff changeset
4651
55540
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
4652
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4653
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4654 /***********************************************************************
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4655 Color table
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
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4658 #ifdef COLOR_TABLE_SUPPORT
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4659
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4660 /* 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
4661
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4662 struct ct_color
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4663 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4664 int r, g, b;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4665 unsigned long pixel;
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 /* Next in color table collision list. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4668 struct ct_color *next;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4669 };
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 /* 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
4672
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4673 #define CT_SIZE 101
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 /* 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
4676
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4677 #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
4678
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4679 /* The color hash table. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4680
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4681 struct ct_color **ct_table;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4682
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4683 /* Number of entries in the color table. */
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 int ct_colors_allocated;
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 /* Initialize the color table. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4688
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4689 static void
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4690 init_color_table ()
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4691 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4692 int size = CT_SIZE * sizeof (*ct_table);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4693 ct_table = (struct ct_color **) xmalloc (size);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4694 bzero (ct_table, size);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4695 ct_colors_allocated = 0;
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
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 /* Free memory associated with the color table. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4700
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4701 static void
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4702 free_color_table ()
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4703 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4704 int i;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4705 struct ct_color *p, *next;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4706
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4707 for (i = 0; i < CT_SIZE; ++i)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4708 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
4709 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4710 next = p->next;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4711 xfree (p);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4712 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4713
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4714 xfree (ct_table);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4715 ct_table = NULL;
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
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4718
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4719 /* 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
4720 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
4721 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
4722 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
4723
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4724 static unsigned long
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4725 lookup_rgb_color (f, r, g, b)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4726 struct frame *f;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4727 int r, g, b;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4728 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4729 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
4730 int i = hash % CT_SIZE;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4731 struct ct_color *p;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4732 Display_Info *dpyinfo;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4733
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4734 /* 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
4735 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
4736 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
4737 the Xlib spec, chapter 3.1. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4738 dpyinfo = FRAME_X_DISPLAY_INFO (f);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4739 if (dpyinfo->red_bits > 0)
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 unsigned long pr, pg, pb;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4742
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4743 /* 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
4744 if (f->gamma)
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 XColor color;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4747 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
4748 gamma_correct (f, &color);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4749 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
4750 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4751
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4752 /* 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
4753 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
4754 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
4755 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
4756 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
4757 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
4758
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4759 /* Assemble the pixel color. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4760 return pr | pg | pb;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4761 }
54920
38cb79e68369 (PNG_BG_COLOR_SHIFT): Remove.
Kim F. Storm <storm@cua.dk>
parents: 54427
diff changeset
4762
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4763 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
4764 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
4765 break;
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 if (p == NULL)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4768 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4769
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4770 #ifdef HAVE_X_WINDOWS
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4771 XColor color;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4772 Colormap cmap;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4773 int rc;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4774
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4775 color.red = r;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4776 color.green = g;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4777 color.blue = b;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4778
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4779 cmap = FRAME_X_COLORMAP (f);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4780 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
4781 if (rc)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4782 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4783 ++ct_colors_allocated;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4784 p = (struct ct_color *) xmalloc (sizeof *p);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4785 p->r = r;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4786 p->g = g;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4787 p->b = b;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4788 p->pixel = color.pixel;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4789 p->next = ct_table[i];
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4790 ct_table[i] = p;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4791 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4792 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4793 return FRAME_FOREGROUND_PIXEL (f);
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 #else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4796 COLORREF color;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4797 #ifdef HAVE_NTGUI
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4798 color = PALETTERGB (r, g, b);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4799 #else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4800 color = RGB_TO_ULONG (r, g, b);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4801 #endif /* HAVE_NTGUI */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4802 ++ct_colors_allocated;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4803 p = (struct ct_color *) xmalloc (sizeof *p);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4804 p->r = r;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4805 p->g = g;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4806 p->b = b;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4807 p->pixel = color;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4808 p->next = ct_table[i];
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4809 ct_table[i] = p;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4810 #endif /* HAVE_X_WINDOWS */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4811
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4812 }
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 return p->pixel;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4815 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4816
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 /* 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
4819 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
4820
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4821 static unsigned long
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4822 lookup_pixel_color (f, pixel)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4823 struct frame *f;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4824 unsigned long pixel;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4825 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4826 int i = pixel % CT_SIZE;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4827 struct ct_color *p;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4828
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4829 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
4830 if (p->pixel == pixel)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4831 break;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4832
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4833 if (p == NULL)
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 XColor color;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4836 Colormap cmap;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4837 int rc;
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 #ifdef HAVE_X_WINDOWS
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4840 cmap = FRAME_X_COLORMAP (f);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4841 color.pixel = pixel;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4842 x_query_color (f, &color);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4843 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
4844 #else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4845 BLOCK_INPUT;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4846 cmap = DefaultColormapOfScreen (FRAME_X_SCREEN (f));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4847 color.pixel = pixel;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4848 XQueryColor (NULL, cmap, &color);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4849 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
4850 UNBLOCK_INPUT;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4851 #endif /* HAVE_X_WINDOWS */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4852
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4853 if (rc)
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 ++ct_colors_allocated;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4856
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4857 p = (struct ct_color *) xmalloc (sizeof *p);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4858 p->r = color.red;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4859 p->g = color.green;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4860 p->b = color.blue;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4861 p->pixel = pixel;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4862 p->next = ct_table[i];
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4863 ct_table[i] = p;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4864 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4865 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4866 return FRAME_FOREGROUND_PIXEL (f);
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 return p->pixel;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4869 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4870
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4871
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4872 /* 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
4873 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
4874
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4875 static unsigned long *
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4876 colors_in_color_table (n)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4877 int *n;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4878 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4879 int i, j;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4880 struct ct_color *p;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4881 unsigned long *colors;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4882
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4883 if (ct_colors_allocated == 0)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4884 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4885 *n = 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4886 colors = NULL;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4887 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4888 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4889 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4890 colors = (unsigned long *) xmalloc (ct_colors_allocated
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4891 * sizeof *colors);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4892 *n = ct_colors_allocated;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4893
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4894 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
4895 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
4896 colors[j++] = p->pixel;
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
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4899 return colors;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4900 }
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 #else /* COLOR_TABLE_SUPPORT */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4903
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4904 static unsigned long
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4905 lookup_rgb_color (f, r, g, b)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4906 struct frame *f;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4907 int r, g, b;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4908 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4909 unsigned long pixel;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4910
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4911 #ifdef MAC_OS
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4912 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
4913 gamma_correct (f, &pixel);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4914 #endif /* MAC_OS */
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 #ifdef HAVE_NTGUI
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4917 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
4918 #endif /* HAVE_NTGUI */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4919
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4920 return pixel;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4921 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4922
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4923 static void
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4924 init_color_table ()
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 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4927 #endif /* COLOR_TABLE_SUPPORT */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4928
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 /***********************************************************************
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4931 Algorithms
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4932 ***********************************************************************/
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 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
4935 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
4936 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
4937
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4938 #ifdef HAVE_NTGUI
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4939 static void XPutPixel (XImagePtr , int, int, COLORREF);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4940 #endif /* HAVE_NTGUI */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4941
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4942 /* 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
4943 disabled'. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4944
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4945 int cross_disabled_images;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4946
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4947 /* Edge detection matrices for different edge-detection
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4948 strategies. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4949
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4950 static int emboss_matrix[9] = {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4951 /* x - 1 x x + 1 */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4952 2, -1, 0, /* y - 1 */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4953 -1, 0, 1, /* y */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4954 0, 1, -2 /* y + 1 */
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 static int laplace_matrix[9] = {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4958 /* x - 1 x x + 1 */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4959 1, 0, 0, /* y - 1 */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4960 0, 0, 0, /* y */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4961 0, 0, -1 /* y + 1 */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4962 };
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4963
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4964 /* 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
4965 are R, G, and B. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4966
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4967 #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
4968
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 /* 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
4971 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
4972 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
4973 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
4974 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
4975
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4976 static XColor *
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4977 x_to_xcolors (f, img, rgb_p)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4978 struct frame *f;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4979 struct image *img;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4980 int rgb_p;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4981 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4982 int x, y;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4983 XColor *colors, *p;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4984 XImagePtr_or_DC ximg;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4985 #ifdef HAVE_NTGUI
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4986 HDC hdc;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4987 HGDIOBJ prev;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4988 #endif /* HAVE_NTGUI */
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 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
4991
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4992 #ifndef HAVE_NTGUI
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4993 /* Get the X image IMG->pixmap. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4994 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
4995 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
4996 #else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4997 /* 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
4998 hdc = get_frame_dc (f);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
4999 ximg = CreateCompatibleDC (hdc);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5000 release_frame_dc (f, hdc);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5001 prev = SelectObject (ximg, img->pixmap);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5002 #endif /* HAVE_NTGUI */
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 /* 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
5005 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
5006 p = colors;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5007 for (y = 0; y < img->height; ++y)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5008 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5009 XColor *row = p;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5010
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5011 #ifdef HAVE_X_WINDOWS
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5012 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
5013 p->pixel = XGetPixel (ximg, x, y);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5014 if (rgb_p)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5015 x_query_colors (f, row, img->width);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5016
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5017 #else
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 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
5020 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5021 /* W32_TODO: palette support needed here? */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5022 p->pixel = GET_PIXEL (ximg, x, y);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5023 if (rgb_p)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5024 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5025 #ifdef MAC_OS
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5026 p->red = RED16_FROM_ULONG (p->pixel);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5027 p->green = GREEN16_FROM_ULONG (p->pixel);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5028 p->blue = BLUE16_FROM_ULONG (p->pixel);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5029 #endif /* MAC_OS */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5030 #ifdef HAVE_NTGUI
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5031 p->red = 256 * GetRValue (p->pixel);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5032 p->green = 256 * GetGValue (p->pixel);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5033 p->blue = 256 * GetBValue (p->pixel);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5034 #endif /* HAVE_NTGUI */
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 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5037 #endif /* HAVE_X_WINDOWS */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5038 }
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 Destroy_Image (ximg, prev);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5041
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5042 return colors;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5043 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5044
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5045 #ifdef HAVE_NTGUI
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 /* 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
5048 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
5049 stored in ximg->data. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5050
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5051 static void XPutPixel (ximg, x, y, color)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5052 XImagePtr ximg;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5053 int x, y;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5054 COLORREF color;
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 int width = ximg->info.bmiHeader.biWidth;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5057 int height = ximg->info.bmiHeader.biHeight;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5058 unsigned char * pixel;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5059
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5060 /* True color images. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5061 if (ximg->info.bmiHeader.biBitCount == 24)
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 int rowbytes = width * 3;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5064 /* 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
5065 if (rowbytes % 4)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5066 rowbytes += 4 - (rowbytes % 4);
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 pixel = ximg->data + y * rowbytes + x * 3;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5069 /* Windows bitmaps are in BGR order. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5070 *pixel = GetBValue (color);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5071 *(pixel + 1) = GetGValue (color);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5072 *(pixel + 2) = GetRValue (color);
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 /* Monochrome images. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5075 else if (ximg->info.bmiHeader.biBitCount == 1)
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 int rowbytes = width / 8;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5078 /* 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
5079 if (rowbytes % 4)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5080 rowbytes += 4 - (rowbytes % 4);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5081 pixel = ximg->data + y * rowbytes + x / 8;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5082 /* Filter out palette info. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5083 if (color & 0x00ffffff)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5084 *pixel = *pixel | (1 << x % 8);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5085 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5086 *pixel = *pixel & ~(1 << x % 8);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5087 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5088 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5089 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
5090 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5091
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5092 #endif /* HAVE_NTGUI */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5093
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5094 /* 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
5095 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
5096 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
5097
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5098 static void
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5099 x_from_xcolors (f, img, colors)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5100 struct frame *f;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5101 struct image *img;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5102 XColor *colors;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5103 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5104 int x, y;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5105 XImagePtr oimg;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5106 Pixmap pixmap;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5107 XColor *p;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5108
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5109 init_color_table ();
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5110
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5111 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
5112 &oimg, &pixmap);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5113 p = colors;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5114 for (y = 0; y < img->height; ++y)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5115 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
5116 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5117 unsigned long pixel;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5118 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
5119 XPutPixel (oimg, x, y, pixel);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5120 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5121
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5122 xfree (colors);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5123 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
5124
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5125 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
5126 x_destroy_x_image (oimg);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5127 img->pixmap = pixmap;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5128 #ifdef COLOR_TABLE_SUPPORT
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5129 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
5130 free_color_table ();
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5131 #endif /* COLOR_TABLE_SUPPORT */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5132 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5133
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5134
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5135 /* 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
5136
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5137 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
5138 matrix. See emboss_matrix for an example.
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5139
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5140 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
5141 outgoing image. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5142
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5143 static void
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5144 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
5145 struct frame *f;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5146 struct image *img;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5147 int matrix[9], color_adjust;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5148 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5149 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
5150 XColor *new, *p;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5151 int x, y, i, sum;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5152
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5153 for (i = sum = 0; i < 9; ++i)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5154 sum += abs (matrix[i]);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5155
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5156 #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
5157
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5158 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
5159
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5160 for (y = 0; y < img->height; ++y)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5161 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5162 p = COLOR (new, 0, y);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5163 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
5164 p = COLOR (new, img->width - 1, y);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5165 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
5166 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5167
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5168 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
5169 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5170 p = COLOR (new, x, 0);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5171 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
5172 p = COLOR (new, x, img->height - 1);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5173 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
5174 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5175
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5176 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
5177 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5178 p = COLOR (new, 1, y);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5179
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5180 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
5181 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5182 int r, g, b, y1, x1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5183
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5184 r = g = b = i = 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5185 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
5186 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
5187 if (matrix[i])
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5188 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5189 XColor *t = COLOR (colors, x1, y1);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5190 r += matrix[i] * t->red;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5191 g += matrix[i] * t->green;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5192 b += matrix[i] * t->blue;
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
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5195 r = (r / sum + color_adjust) & 0xffff;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5196 g = (g / sum + color_adjust) & 0xffff;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5197 b = (b / sum + color_adjust) & 0xffff;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5198 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
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 xfree (colors);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5203 x_from_xcolors (f, img, new);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5204
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5205 #undef COLOR
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5206 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5207
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5208
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5209 /* 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
5210 on frame F. */
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 static void
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5213 x_emboss (f, img)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5214 struct frame *f;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5215 struct image *img;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5216 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5217 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
5218 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5219
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 /* 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
5222 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
5223 to draw disabled buttons, for example. */
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 void
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5226 x_laplace (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 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
5231 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5232
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5233
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5234 /* 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
5235 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
5236
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5237 MATRIX must be either
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5238
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5239 - 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
5240 - a vector of at least 9 numbers
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5241
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5242 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
5243 number. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5244
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5245 static void
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5246 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
5247 struct frame *f;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5248 struct image *img;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5249 Lisp_Object matrix, color_adjust;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5250 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5251 int i = 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5252 int trans[9];
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5253
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5254 if (CONSP (matrix))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5255 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5256 for (i = 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5257 i < 9 && CONSP (matrix) && NUMBERP (XCAR (matrix));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5258 ++i, matrix = XCDR (matrix))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5259 trans[i] = XFLOATINT (XCAR (matrix));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5260 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5261 else if (VECTORP (matrix) && ASIZE (matrix) >= 9)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5262 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5263 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
5264 trans[i] = XFLOATINT (AREF (matrix, i));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5265 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5266
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5267 if (NILP (color_adjust))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5268 color_adjust = make_number (0xffff / 2);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5269
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5270 if (i == 9 && NUMBERP (color_adjust))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5271 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
5272 }
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 /* 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
5276
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5277 static void
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5278 x_disable_image (f, img)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5279 struct frame *f;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5280 struct image *img;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5281 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5282 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
5283 #ifdef HAVE_NTGUI
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5284 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
5285 #else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5286 int n_planes = dpyinfo->n_planes;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5287 #endif /* HAVE_NTGUI */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5288
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5289 if (n_planes >= 2)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5290 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5291 /* 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
5292 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
5293 we're using this method instead. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5294 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
5295 XColor *p, *end;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5296 const int h = 15000;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5297 const int l = 30000;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5298
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5299 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
5300 p < end;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5301 ++p)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5302 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5303 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
5304 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
5305 p->red = p->green = p->blue = i2;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5306 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5307
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5308 x_from_xcolors (f, img, colors);
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
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5311 /* 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
5312 should. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5313 if (n_planes < 2 || cross_disabled_images)
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 #ifndef HAVE_NTGUI
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5316 Display *dpy = FRAME_X_DISPLAY (f);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5317 GC gc;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5318
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5319 #ifdef MAC_OS
65250
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
5320 #define MaskForeground(f) PIX_MASK_DRAW
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5321 #else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5322 #define MaskForeground(f) WHITE_PIX_DEFAULT (f)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5323 #endif
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5324
75153
fd0c738b5d49 (XDrawLine) [MAC_OS]: Remove macro.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 73570
diff changeset
5325 gc = XCreateGC (dpy, img->pixmap, 0, NULL);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5326 XSetForeground (dpy, gc, BLACK_PIX_DEFAULT (f));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5327 XDrawLine (dpy, img->pixmap, gc, 0, 0,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5328 img->width - 1, img->height - 1);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5329 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
5330 img->width - 1, 0);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5331 XFreeGC (dpy, gc);
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 if (img->mask)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5334 {
75153
fd0c738b5d49 (XDrawLine) [MAC_OS]: Remove macro.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 73570
diff changeset
5335 gc = XCreateGC (dpy, img->mask, 0, NULL);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5336 XSetForeground (dpy, gc, MaskForeground (f));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5337 XDrawLine (dpy, img->mask, gc, 0, 0,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5338 img->width - 1, img->height - 1);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5339 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
5340 img->width - 1, 0);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5341 XFreeGC (dpy, gc);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5342 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5343 #else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5344 HDC hdc, bmpdc;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5345 HGDIOBJ prev;
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 hdc = get_frame_dc (f);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5348 bmpdc = CreateCompatibleDC (hdc);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5349 release_frame_dc (f, hdc);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5350
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5351 prev = SelectObject (bmpdc, img->pixmap);
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 SetTextColor (bmpdc, BLACK_PIX_DEFAULT (f));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5354 MoveToEx (bmpdc, 0, 0, NULL);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5355 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
5356 MoveToEx (bmpdc, 0, img->height - 1, NULL);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5357 LineTo (bmpdc, img->width - 1, 0);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5358
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5359 if (img->mask)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5360 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5361 SelectObject (bmpdc, img->mask);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5362 SetTextColor (bmpdc, WHITE_PIX_DEFAULT (f));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5363 MoveToEx (bmpdc, 0, 0, NULL);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5364 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
5365 MoveToEx (bmpdc, 0, img->height - 1, NULL);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5366 LineTo (bmpdc, img->width - 1, 0);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5367 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5368 SelectObject (bmpdc, prev);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5369 DeleteDC (bmpdc);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5370 #endif /* HAVE_NTGUI */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5371 }
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
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5374
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5375 /* 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
5376 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
5377 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
5378 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
5379 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
5380 heuristically. Value is non-zero if successful. */
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 static int
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5383 x_build_heuristic_mask (f, img, how)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5384 struct frame *f;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5385 struct image *img;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5386 Lisp_Object how;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5387 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5388 XImagePtr_or_DC ximg;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5389 #ifndef HAVE_NTGUI
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5390 XImagePtr mask_img;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5391 #else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5392 HDC frame_dc;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5393 HGDIOBJ prev;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5394 char *mask_img;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5395 int row_width;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5396 #endif /* HAVE_NTGUI */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5397 int x, y, rc, use_img_background;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5398 unsigned long bg = 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5399
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5400 if (img->mask)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5401 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5402 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
5403 img->mask = NO_PIXMAP;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5404 img->background_transparent_valid = 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5405 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5406
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5407 #ifndef HAVE_NTGUI
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5408 /* 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
5409 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
5410 &mask_img, &img->mask);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5411 if (!rc)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5412 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5413
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5414 /* Get the X image of IMG->pixmap. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5415 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
5416 img->width, img->height,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5417 ~0, ZPixmap);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5418 #else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5419 /* Create the bit array serving as mask. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5420 row_width = (img->width + 7) / 8;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5421 mask_img = xmalloc (row_width * img->height);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5422 bzero (mask_img, row_width * img->height);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5423
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5424 /* 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
5425 frame_dc = get_frame_dc (f);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5426 ximg = CreateCompatibleDC (frame_dc);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5427 release_frame_dc (f, frame_dc);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5428 prev = SelectObject (ximg, img->pixmap);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5429 #endif /* HAVE_NTGUI */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5430
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5431 /* 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
5432 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
5433 use_img_background = 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5434
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5435 if (CONSP (how))
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 int rgb[3], i;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5438
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5439 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
5440 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5441 rgb[i] = XFASTINT (XCAR (how)) & 0xffff;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5442 how = XCDR (how);
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
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5445 if (i == 3 && NILP (how))
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 char color_name[30];
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5448 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
5449 bg = (
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5450 #ifdef HAVE_NTGUI
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5451 0x00ffffff & /* Filter out palette info. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5452 #endif /* HAVE_NTGUI */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5453 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
5454 use_img_background = 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5455 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5456 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5457
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5458 if (use_img_background)
70168
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
5459 bg = four_corners_best (ximg, img->corners, img->width, img->height);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5460
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5461 /* 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
5462 from the background color bg. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5463 #ifndef HAVE_NTGUI
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5464 for (y = 0; y < img->height; ++y)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5465 for (x = 0; x < img->width; ++x)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5466 XPutPixel (mask_img, x, y, (XGetPixel (ximg, x, y) != bg
65250
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
5467 ? PIX_MASK_DRAW : PIX_MASK_RETAIN));
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5468
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5469 /* 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
5470 image_background_transparent (img, f, mask_img);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5471
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5472 /* Put mask_img into img->mask. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5473 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
5474 x_destroy_x_image (mask_img);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5475
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5476 #else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5477 for (y = 0; y < img->height; ++y)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5478 for (x = 0; x < img->width; ++x)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5479 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5480 COLORREF p = GetPixel (ximg, x, y);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5481 if (p != bg)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5482 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
5483 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5484
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5485 /* Create the mask image. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5486 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
5487 mask_img);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5488 /* 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
5489 SelectObject (ximg, img->mask);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5490 image_background_transparent (img, f, ximg);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5491
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5492 /* 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
5493 xfree (mask_img);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5494 #endif /* HAVE_NTGUI */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5495
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5496 Destroy_Image (ximg, prev);
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 return 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5499 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5500
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5501
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5502 /***********************************************************************
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5503 PBM (mono, gray, color)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5504 ***********************************************************************/
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5505
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5506 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
5507 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
5508 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
5509
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5510 /* 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
5511
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5512 Lisp_Object Qpbm;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5513
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5514 /* 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
5515
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5516 enum pbm_keyword_index
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 PBM_TYPE,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5519 PBM_FILE,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5520 PBM_DATA,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5521 PBM_ASCENT,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5522 PBM_MARGIN,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5523 PBM_RELIEF,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5524 PBM_ALGORITHM,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5525 PBM_HEURISTIC_MASK,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5526 PBM_MASK,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5527 PBM_FOREGROUND,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5528 PBM_BACKGROUND,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5529 PBM_LAST
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
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5532 /* 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
5533 of valid user-defined image specifications. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5534
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5535 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
5536 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5537 {":type", IMAGE_SYMBOL_VALUE, 1},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5538 {":file", IMAGE_STRING_VALUE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5539 {":data", IMAGE_STRING_VALUE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5540 {":ascent", IMAGE_ASCENT_VALUE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5541 {":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
5542 {":relief", IMAGE_INTEGER_VALUE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5543 {":conversion", IMAGE_DONT_CHECK_VALUE_TYPE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5544 {":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
5545 {":mask", IMAGE_DONT_CHECK_VALUE_TYPE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5546 {":foreground", IMAGE_STRING_OR_NIL_VALUE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5547 {":background", IMAGE_STRING_OR_NIL_VALUE, 0}
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5548 };
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5549
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5550 /* Structure describing the image type `pbm'. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5551
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5552 static struct image_type pbm_type =
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5553 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5554 &Qpbm,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5555 pbm_image_p,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5556 pbm_load,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5557 x_clear_image,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5558 NULL
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5559 };
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5560
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 /* 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
5563
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5564 static int
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5565 pbm_image_p (object)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5566 Lisp_Object object;
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 struct image_keyword fmt[PBM_LAST];
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 bcopy (pbm_format, fmt, sizeof fmt);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5571
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5572 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
5573 return 0;
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 /* Must specify either :data or :file. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5576 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
5577 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5578
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5579
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5580 /* 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
5581 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
5582 end of input. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5583
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5584 static int
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5585 pbm_scan_number (s, end)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5586 unsigned char **s, *end;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5587 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5588 int c = 0, val = -1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5589
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5590 while (*s < end)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5591 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5592 /* Skip white-space. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5593 while (*s < end && (c = *(*s)++, isspace (c)))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5594 ;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5595
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5596 if (c == '#')
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5597 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5598 /* Skip comment to end of line. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5599 while (*s < end && (c = *(*s)++, c != '\n'))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5600 ;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5601 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5602 else if (isdigit (c))
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 /* Read decimal number. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5605 val = c - '0';
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5606 while (*s < end && (c = *(*s)++, isdigit (c)))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5607 val = 10 * val + c - '0';
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5608 break;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5609 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5610 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5611 break;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5612 }
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 return val;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5615 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5616
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 #ifdef HAVE_NTGUI
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5619 #if 0 /* Unused. ++kfs */
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 /* 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
5622 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
5623 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
5624
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5625 static char *
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5626 pbm_read_file (file, size)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5627 Lisp_Object file;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5628 int *size;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5629 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5630 FILE *fp = NULL;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5631 char *buf = NULL;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5632 struct stat st;
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 if (stat (SDATA (file), &st) == 0
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5635 && (fp = fopen (SDATA (file), "rb")) != NULL
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5636 && (buf = (char *) xmalloc (st.st_size),
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5637 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
5638 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5639 *size = st.st_size;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5640 fclose (fp);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5641 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5642 else
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 (fp)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5645 fclose (fp);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5646 if (buf)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5647 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5648 xfree (buf);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5649 buf = NULL;
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 }
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 return buf;
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 #endif
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5656 #endif /* HAVE_NTGUI */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5657
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5658 /* 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
5659
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5660 static int
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5661 pbm_load (f, img)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5662 struct frame *f;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5663 struct image *img;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5664 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5665 int raw_p, x, y;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5666 int width, height, max_color_idx = 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5667 XImagePtr ximg;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5668 Lisp_Object file, specified_file;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5669 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
5670 struct gcpro gcpro1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5671 unsigned char *contents = NULL;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5672 unsigned char *end, *p;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5673 int size;
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 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
5676 file = Qnil;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5677 GCPRO1 (file);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5678
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5679 if (STRINGP (specified_file))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5680 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5681 file = x_find_image_file (specified_file);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5682 if (!STRINGP (file))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5683 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5684 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
5685 UNGCPRO;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5686 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5687 }
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 contents = slurp_file (SDATA (file), &size);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5690 if (contents == NULL)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5691 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5692 image_error ("Error reading `%s'", file, Qnil);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5693 UNGCPRO;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5694 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5695 }
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 p = contents;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5698 end = contents + size;
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 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5701 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5702 Lisp_Object data;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5703 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
5704 p = SDATA (data);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5705 end = p + SBYTES (data);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5706 }
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 /* Check magic number. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5709 if (end - p < 2 || *p++ != 'P')
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 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
5712 error:
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5713 xfree (contents);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5714 UNGCPRO;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5715 return 0;
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
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5718 switch (*p++)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5719 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5720 case '1':
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5721 raw_p = 0, type = PBM_MONO;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5722 break;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5723
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5724 case '2':
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5725 raw_p = 0, type = PBM_GRAY;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5726 break;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5727
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5728 case '3':
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5729 raw_p = 0, type = PBM_COLOR;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5730 break;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5731
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5732 case '4':
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5733 raw_p = 1, type = PBM_MONO;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5734 break;
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 case '5':
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5737 raw_p = 1, type = PBM_GRAY;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5738 break;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5739
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5740 case '6':
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5741 raw_p = 1, type = PBM_COLOR;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5742 break;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5743
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5744 default:
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5745 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
5746 goto error;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5747 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5748
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5749 /* Read width, height, maximum color-component. Characters
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5750 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
5751 width = pbm_scan_number (&p, end);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5752 height = pbm_scan_number (&p, end);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5753
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5754 if (type != PBM_MONO)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5755 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5756 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
5757 if (raw_p && max_color_idx > 255)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5758 max_color_idx = 255;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5759 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5760
66195
ad1acaef1abb * image.c (Vmax_image_size): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 66013
diff changeset
5761 if (!check_image_size (f, width, height)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5762 || (type != PBM_MONO && max_color_idx < 0))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5763 goto error;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5764
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5765 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
5766 &ximg, &img->pixmap))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5767 goto error;
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 /* Initialize the color hash table. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5770 init_color_table ();
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5771
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5772 if (type == PBM_MONO)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5773 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5774 int c = 0, g;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5775 struct image_keyword fmt[PBM_LAST];
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5776 unsigned long fg = FRAME_FOREGROUND_PIXEL (f);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5777 unsigned long bg = FRAME_BACKGROUND_PIXEL (f);
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 /* Parse the image specification. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5780 bcopy (pbm_format, fmt, sizeof fmt);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5781 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
5782
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5783 /* 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
5784 if (fmt[PBM_FOREGROUND].count
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5785 && STRINGP (fmt[PBM_FOREGROUND].value))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5786 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
5787 if (fmt[PBM_BACKGROUND].count
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5788 && STRINGP (fmt[PBM_BACKGROUND].value))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5789 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5790 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
5791 img->background = bg;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5792 img->background_valid = 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5793 }
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 for (y = 0; y < height; ++y)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5796 for (x = 0; x < width; ++x)
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 if (raw_p)
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 if ((x & 7) == 0)
80916
4e046b2396ef (pbm_load): Check image size for monochrome pbm.
Chong Yidong <cyd@stupidchicken.com>
parents: 77692
diff changeset
5801 {
4e046b2396ef (pbm_load): Check image size for monochrome pbm.
Chong Yidong <cyd@stupidchicken.com>
parents: 77692
diff changeset
5802 if (p >= end)
4e046b2396ef (pbm_load): Check image size for monochrome pbm.
Chong Yidong <cyd@stupidchicken.com>
parents: 77692
diff changeset
5803 {
4e046b2396ef (pbm_load): Check image size for monochrome pbm.
Chong Yidong <cyd@stupidchicken.com>
parents: 77692
diff changeset
5804 x_destroy_x_image (ximg);
4e046b2396ef (pbm_load): Check image size for monochrome pbm.
Chong Yidong <cyd@stupidchicken.com>
parents: 77692
diff changeset
5805 x_clear_image (f, img);
4e046b2396ef (pbm_load): Check image size for monochrome pbm.
Chong Yidong <cyd@stupidchicken.com>
parents: 77692
diff changeset
5806 image_error ("Invalid image size in image `%s'",
4e046b2396ef (pbm_load): Check image size for monochrome pbm.
Chong Yidong <cyd@stupidchicken.com>
parents: 77692
diff changeset
5807 img->spec, Qnil);
4e046b2396ef (pbm_load): Check image size for monochrome pbm.
Chong Yidong <cyd@stupidchicken.com>
parents: 77692
diff changeset
5808 goto error;
4e046b2396ef (pbm_load): Check image size for monochrome pbm.
Chong Yidong <cyd@stupidchicken.com>
parents: 77692
diff changeset
5809 }
4e046b2396ef (pbm_load): Check image size for monochrome pbm.
Chong Yidong <cyd@stupidchicken.com>
parents: 77692
diff changeset
5810 c = *p++;
4e046b2396ef (pbm_load): Check image size for monochrome pbm.
Chong Yidong <cyd@stupidchicken.com>
parents: 77692
diff changeset
5811 }
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5812 g = c & 0x80;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5813 c <<= 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5814 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5815 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5816 g = pbm_scan_number (&p, end);
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 XPutPixel (ximg, x, y, g ? fg : bg);
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 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5821 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5822 {
77692
f6cc3f58ce04 (pbm_load): Correctly check image size for greyscale pbm.
Chong Yidong <cyd@stupidchicken.com>
parents: 76550
diff changeset
5823 if (raw_p
f6cc3f58ce04 (pbm_load): Correctly check image size for greyscale pbm.
Chong Yidong <cyd@stupidchicken.com>
parents: 76550
diff changeset
5824 && ((type == PBM_GRAY)
f6cc3f58ce04 (pbm_load): Correctly check image size for greyscale pbm.
Chong Yidong <cyd@stupidchicken.com>
parents: 76550
diff changeset
5825 ? (p + height * width > end)
f6cc3f58ce04 (pbm_load): Correctly check image size for greyscale pbm.
Chong Yidong <cyd@stupidchicken.com>
parents: 76550
diff changeset
5826 : (p + 3 * height * width > end)))
76550
05fce28aea26 (pbm_load): Signal error for invalid image size.
Chong Yidong <cyd@stupidchicken.com>
parents: 75348
diff changeset
5827 {
05fce28aea26 (pbm_load): Signal error for invalid image size.
Chong Yidong <cyd@stupidchicken.com>
parents: 75348
diff changeset
5828 x_destroy_x_image (ximg);
77692
f6cc3f58ce04 (pbm_load): Correctly check image size for greyscale pbm.
Chong Yidong <cyd@stupidchicken.com>
parents: 76550
diff changeset
5829 x_clear_image (f, img);
76550
05fce28aea26 (pbm_load): Signal error for invalid image size.
Chong Yidong <cyd@stupidchicken.com>
parents: 75348
diff changeset
5830 image_error ("Invalid image size in image `%s'",
05fce28aea26 (pbm_load): Signal error for invalid image size.
Chong Yidong <cyd@stupidchicken.com>
parents: 75348
diff changeset
5831 img->spec, Qnil);
05fce28aea26 (pbm_load): Signal error for invalid image size.
Chong Yidong <cyd@stupidchicken.com>
parents: 75348
diff changeset
5832 goto error;
05fce28aea26 (pbm_load): Signal error for invalid image size.
Chong Yidong <cyd@stupidchicken.com>
parents: 75348
diff changeset
5833 }
05fce28aea26 (pbm_load): Signal error for invalid image size.
Chong Yidong <cyd@stupidchicken.com>
parents: 75348
diff changeset
5834
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5835 for (y = 0; y < height; ++y)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5836 for (x = 0; x < width; ++x)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5837 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5838 int r, g, b;
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 if (type == PBM_GRAY)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5841 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
5842 else if (raw_p)
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 r = *p++;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5845 g = *p++;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5846 b = *p++;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5847 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5848 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5849 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5850 r = pbm_scan_number (&p, end);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5851 g = pbm_scan_number (&p, end);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5852 b = pbm_scan_number (&p, end);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5853 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5854
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5855 if (r < 0 || g < 0 || b < 0)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5856 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5857 x_destroy_x_image (ximg);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5858 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
5859 img->spec, Qnil);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5860 goto error;
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
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5863 /* 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
5864 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
5865 r = (double) r * 65535 / max_color_idx;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5866 g = (double) g * 65535 / max_color_idx;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5867 b = (double) b * 65535 / max_color_idx;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5868 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
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 #ifdef COLOR_TABLE_SUPPORT
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5873 /* 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
5874 free the color table. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5875 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
5876 free_color_table ();
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5877 #endif /* COLOR_TABLE_SUPPORT */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5878
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5879 img->width = width;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5880 img->height = height;
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 /* 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
5883
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5884 if (NILP (image_spec_value (img->spec, QCbackground, NULL)))
63323
ccf928f0383c (x_create_x_image_and_pixmap) [HAVE_NTGUI]: Cast 4th arg
Eli Zaretskii <eliz@gnu.org>
parents: 63112
diff changeset
5885 /* Casting avoids a GCC warning. */
ccf928f0383c (x_create_x_image_and_pixmap) [HAVE_NTGUI]: Cast 4th arg
Eli Zaretskii <eliz@gnu.org>
parents: 63112
diff changeset
5886 IMAGE_BACKGROUND (img, f, (XImagePtr_or_DC)ximg);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5887
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5888 /* Put the image into a pixmap. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5889 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
5890 x_destroy_x_image (ximg);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5891
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5892 /* X and W32 versions did it here, MAC version above. ++kfs
54920
38cb79e68369 (PNG_BG_COLOR_SHIFT): Remove.
Kim F. Storm <storm@cua.dk>
parents: 54427
diff changeset
5893 img->width = width;
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5894 img->height = height; */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5895
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5896 UNGCPRO;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5897 xfree (contents);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5898 return 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5899 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5900
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5901
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 PNG
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
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5906 #if defined (HAVE_PNG) || defined (MAC_OS)
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 /* Function prototypes. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5909
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5910 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
5911 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
5912
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5913 /* 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
5914
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5915 Lisp_Object Qpng;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5916
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5917 /* 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
5918
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5919 enum png_keyword_index
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5920 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5921 PNG_TYPE,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5922 PNG_DATA,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5923 PNG_FILE,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5924 PNG_ASCENT,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5925 PNG_MARGIN,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5926 PNG_RELIEF,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5927 PNG_ALGORITHM,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5928 PNG_HEURISTIC_MASK,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5929 PNG_MASK,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5930 PNG_BACKGROUND,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5931 PNG_LAST
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5932 };
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 /* 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
5935 of valid user-defined image specifications. */
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 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
5938 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5939 {":type", IMAGE_SYMBOL_VALUE, 1},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5940 {":data", IMAGE_STRING_VALUE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5941 {":file", IMAGE_STRING_VALUE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5942 {":ascent", IMAGE_ASCENT_VALUE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5943 {":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
5944 {":relief", IMAGE_INTEGER_VALUE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5945 {":conversion", IMAGE_DONT_CHECK_VALUE_TYPE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5946 {":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
5947 {":mask", IMAGE_DONT_CHECK_VALUE_TYPE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5948 {":background", IMAGE_STRING_OR_NIL_VALUE, 0}
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 /* Structure describing the image type `png'. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5952
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5953 static struct image_type png_type =
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5954 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5955 &Qpng,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5956 png_image_p,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5957 png_load,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5958 x_clear_image,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5959 NULL
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5960 };
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5961
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5962 /* 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
5963
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5964 static int
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5965 png_image_p (object)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5966 Lisp_Object object;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5967 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5968 struct image_keyword fmt[PNG_LAST];
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5969 bcopy (png_format, fmt, sizeof fmt);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5970
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5971 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
5972 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5973
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5974 /* 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
5975 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
5976 }
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 #endif /* HAVE_PNG || MAC_OS */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5979
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 #ifdef HAVE_PNG
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5982
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5983 #if defined HAVE_LIBPNG_PNG_H
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5984 # include <libpng/png.h>
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5985 #else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5986 # include <png.h>
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5987 #endif
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5988
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5989 #ifdef HAVE_NTGUI
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5990 /* PNG library details. */
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 DEF_IMGLIB_FN (png_get_io_ptr);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5993 DEF_IMGLIB_FN (png_check_sig);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5994 DEF_IMGLIB_FN (png_create_read_struct);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5995 DEF_IMGLIB_FN (png_create_info_struct);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5996 DEF_IMGLIB_FN (png_destroy_read_struct);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5997 DEF_IMGLIB_FN (png_set_read_fn);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5998 DEF_IMGLIB_FN (png_set_sig_bytes);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
5999 DEF_IMGLIB_FN (png_read_info);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6000 DEF_IMGLIB_FN (png_get_IHDR);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6001 DEF_IMGLIB_FN (png_get_valid);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6002 DEF_IMGLIB_FN (png_set_strip_16);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6003 DEF_IMGLIB_FN (png_set_expand);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6004 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
6005 DEF_IMGLIB_FN (png_set_background);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6006 DEF_IMGLIB_FN (png_get_bKGD);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6007 DEF_IMGLIB_FN (png_read_update_info);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6008 DEF_IMGLIB_FN (png_get_channels);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6009 DEF_IMGLIB_FN (png_get_rowbytes);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6010 DEF_IMGLIB_FN (png_read_image);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6011 DEF_IMGLIB_FN (png_read_end);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6012 DEF_IMGLIB_FN (png_error);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6013
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6014 static int
56104
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
6015 init_png_functions (Lisp_Object libraries)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6016 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6017 HMODULE library;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6018
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6019 /* Try loading libpng under probable names. */
56104
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
6020 if (!(library = w32_delayed_load (libraries, Qpng)))
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6021 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6022
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6023 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
6024 LOAD_IMGLIB_FN (library, png_check_sig);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6025 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
6026 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
6027 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
6028 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
6029 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
6030 LOAD_IMGLIB_FN (library, png_read_info);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6031 LOAD_IMGLIB_FN (library, png_get_IHDR);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6032 LOAD_IMGLIB_FN (library, png_get_valid);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6033 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
6034 LOAD_IMGLIB_FN (library, png_set_expand);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6035 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
6036 LOAD_IMGLIB_FN (library, png_set_background);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6037 LOAD_IMGLIB_FN (library, png_get_bKGD);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6038 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
6039 LOAD_IMGLIB_FN (library, png_get_channels);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6040 LOAD_IMGLIB_FN (library, png_get_rowbytes);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6041 LOAD_IMGLIB_FN (library, png_read_image);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6042 LOAD_IMGLIB_FN (library, png_read_end);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6043 LOAD_IMGLIB_FN (library, png_error);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6044 return 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6045 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6046 #else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6047
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6048 #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
6049 #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
6050 #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
6051 #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
6052 #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
6053 #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
6054 #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
6055 #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
6056 #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
6057 #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
6058 #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
6059 #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
6060 #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
6061 #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
6062 #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
6063 #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
6064 #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
6065 #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
6066 #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
6067 #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
6068 #define fn_png_error png_error
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6069
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6070 #endif /* HAVE_NTGUI */
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 /* 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
6073 is initialized. */
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 static void
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6076 my_png_error (png_ptr, msg)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6077 png_struct *png_ptr;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6078 char *msg;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6079 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6080 xassert (png_ptr != NULL);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6081 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
6082 longjmp (png_ptr->jmpbuf, 1);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6083 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6084
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6085
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6086 static void
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6087 my_png_warning (png_ptr, msg)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6088 png_struct *png_ptr;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6089 char *msg;
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 xassert (png_ptr != NULL);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6092 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
6093 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6094
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6095 /* Memory source for PNG decoding. */
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 struct png_memory_storage
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 unsigned char *bytes; /* The data */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6100 size_t len; /* How big is it? */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6101 int index; /* Where are we? */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6102 };
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
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6105 /* 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
6106 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
6107 bytes from the input to DATA. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6108
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6109 static void
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6110 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
6111 png_structp png_ptr;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6112 png_bytep data;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6113 png_size_t length;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6114 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6115 struct png_memory_storage *tbr
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6116 = (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
6117
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6118 if (length > tbr->len - tbr->index)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6119 fn_png_error (png_ptr, "Read error");
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6120
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6121 bcopy (tbr->bytes + tbr->index, data, length);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6122 tbr->index = tbr->index + length;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6123 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6124
55886
ae9227eb8392 Work around bugs/problems with MinGW builds of graphics libraries
Juanma Barranquero <lekktu@gmail.com>
parents: 55540
diff changeset
6125
63684
c95dbbf82d19 (fn_png_init_io): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 63323
diff changeset
6126 /* Function set as reader function when reading PNG image from a file.
c95dbbf82d19 (fn_png_init_io): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 63323
diff changeset
6127 PNG_PTR is a pointer to the PNG control structure. Copy LENGTH
c95dbbf82d19 (fn_png_init_io): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 63323
diff changeset
6128 bytes from the input to DATA. */
c95dbbf82d19 (fn_png_init_io): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 63323
diff changeset
6129
c95dbbf82d19 (fn_png_init_io): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 63323
diff changeset
6130 static void
c95dbbf82d19 (fn_png_init_io): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 63323
diff changeset
6131 png_read_from_file (png_ptr, data, length)
c95dbbf82d19 (fn_png_init_io): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 63323
diff changeset
6132 png_structp png_ptr;
c95dbbf82d19 (fn_png_init_io): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 63323
diff changeset
6133 png_bytep data;
c95dbbf82d19 (fn_png_init_io): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 63323
diff changeset
6134 png_size_t length;
c95dbbf82d19 (fn_png_init_io): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 63323
diff changeset
6135 {
c95dbbf82d19 (fn_png_init_io): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 63323
diff changeset
6136 FILE *fp = (FILE *) fn_png_get_io_ptr (png_ptr);
c95dbbf82d19 (fn_png_init_io): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 63323
diff changeset
6137
c95dbbf82d19 (fn_png_init_io): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 63323
diff changeset
6138 if (fread (data, 1, length, fp) < length)
c95dbbf82d19 (fn_png_init_io): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 63323
diff changeset
6139 fn_png_error (png_ptr, "Read error");
c95dbbf82d19 (fn_png_init_io): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 63323
diff changeset
6140 }
c95dbbf82d19 (fn_png_init_io): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 63323
diff changeset
6141
c95dbbf82d19 (fn_png_init_io): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 63323
diff changeset
6142
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6143 /* 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
6144 successful. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6145
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6146 static int
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6147 png_load (f, img)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6148 struct frame *f;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6149 struct image *img;
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 Lisp_Object file, specified_file;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6152 Lisp_Object specified_data;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6153 int x, y, i;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6154 XImagePtr ximg, mask_img = NULL;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6155 struct gcpro gcpro1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6156 png_struct *png_ptr = NULL;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6157 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
6158 FILE *volatile fp = NULL;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6159 png_byte sig[8];
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6160 png_byte * volatile pixels = NULL;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6161 png_byte ** volatile rows = NULL;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6162 png_uint_32 width, height;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6163 int bit_depth, color_type, interlace_type;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6164 png_byte channels;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6165 png_uint_32 row_bytes;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6166 int transparent_p;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6167 double screen_gamma;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6168 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
6169
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6170 /* Find out what file to load. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6171 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
6172 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
6173 file = Qnil;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6174 GCPRO1 (file);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6175
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6176 if (NILP (specified_data))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6177 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6178 file = x_find_image_file (specified_file);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6179 if (!STRINGP (file))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6180 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6181 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
6182 UNGCPRO;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6183 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6184 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6185
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6186 /* Open the image file. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6187 fp = fopen (SDATA (file), "rb");
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6188 if (!fp)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6189 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6190 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
6191 UNGCPRO;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6192 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6193 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6194
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6195 /* Check PNG signature. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6196 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
6197 || !fn_png_check_sig (sig, sizeof sig))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6198 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6199 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
6200 UNGCPRO;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6201 fclose (fp);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6202 return 0;
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 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6205 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6206 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6207 /* Read from memory. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6208 tbr.bytes = SDATA (specified_data);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6209 tbr.len = SBYTES (specified_data);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6210 tbr.index = 0;
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 /* Check PNG signature. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6213 if (tbr.len < sizeof sig
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6214 || !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
6215 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6216 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
6217 UNGCPRO;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6218 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6219 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6220
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6221 /* Need to skip past the signature. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6222 tbr.bytes += sizeof (sig);
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
63323
ccf928f0383c (x_create_x_image_and_pixmap) [HAVE_NTGUI]: Cast 4th arg
Eli Zaretskii <eliz@gnu.org>
parents: 63112
diff changeset
6225 /* Initialize read and info structs for PNG lib. Casting return
ccf928f0383c (x_create_x_image_and_pixmap) [HAVE_NTGUI]: Cast 4th arg
Eli Zaretskii <eliz@gnu.org>
parents: 63112
diff changeset
6226 value avoids a GCC warning on W32. */
ccf928f0383c (x_create_x_image_and_pixmap) [HAVE_NTGUI]: Cast 4th arg
Eli Zaretskii <eliz@gnu.org>
parents: 63112
diff changeset
6227 png_ptr = (png_structp)fn_png_create_read_struct (PNG_LIBPNG_VER_STRING,
ccf928f0383c (x_create_x_image_and_pixmap) [HAVE_NTGUI]: Cast 4th arg
Eli Zaretskii <eliz@gnu.org>
parents: 63112
diff changeset
6228 NULL, my_png_error,
ccf928f0383c (x_create_x_image_and_pixmap) [HAVE_NTGUI]: Cast 4th arg
Eli Zaretskii <eliz@gnu.org>
parents: 63112
diff changeset
6229 my_png_warning);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6230 if (!png_ptr)
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 if (fp) fclose (fp);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6233 UNGCPRO;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6234 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6235 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6236
63323
ccf928f0383c (x_create_x_image_and_pixmap) [HAVE_NTGUI]: Cast 4th arg
Eli Zaretskii <eliz@gnu.org>
parents: 63112
diff changeset
6237 /* Casting return value avoids a GCC warning on W32. */
ccf928f0383c (x_create_x_image_and_pixmap) [HAVE_NTGUI]: Cast 4th arg
Eli Zaretskii <eliz@gnu.org>
parents: 63112
diff changeset
6238 info_ptr = (png_infop)fn_png_create_info_struct (png_ptr);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6239 if (!info_ptr)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6240 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6241 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
6242 if (fp) fclose (fp);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6243 UNGCPRO;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6244 return 0;
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
63323
ccf928f0383c (x_create_x_image_and_pixmap) [HAVE_NTGUI]: Cast 4th arg
Eli Zaretskii <eliz@gnu.org>
parents: 63112
diff changeset
6247 /* Casting return value avoids a GCC warning on W32. */
ccf928f0383c (x_create_x_image_and_pixmap) [HAVE_NTGUI]: Cast 4th arg
Eli Zaretskii <eliz@gnu.org>
parents: 63112
diff changeset
6248 end_info = (png_infop)fn_png_create_info_struct (png_ptr);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6249 if (!end_info)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6250 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6251 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
6252 if (fp) fclose (fp);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6253 UNGCPRO;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6254 return 0;
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
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6257 /* 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
6258 detects an error. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6259 if (setjmp (png_ptr->jmpbuf))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6260 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6261 error:
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6262 if (png_ptr)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6263 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
6264 xfree (pixels);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6265 xfree (rows);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6266 if (fp) fclose (fp);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6267 UNGCPRO;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6268 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6269 }
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 /* Read image info. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6272 if (!NILP (specified_data))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6273 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
6274 else
63684
c95dbbf82d19 (fn_png_init_io): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 63323
diff changeset
6275 fn_png_set_read_fn (png_ptr, (void *) fp, png_read_from_file);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6276
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6277 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
6278 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
6279 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
6280 &interlace_type, NULL, NULL);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6281
66195
ad1acaef1abb * image.c (Vmax_image_size): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 66013
diff changeset
6282 if (!check_image_size (f, width, height))
ad1acaef1abb * image.c (Vmax_image_size): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 66013
diff changeset
6283 goto error;
ad1acaef1abb * image.c (Vmax_image_size): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 66013
diff changeset
6284
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6285 /* 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
6286 construct a clipping mask. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6287 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
6288 transparent_p = 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6289 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6290 transparent_p = 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6291
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6292 /* 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
6293 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
6294 transform other formats into that format. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6295
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6296 /* Strip more than 8 bits per channel. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6297 if (bit_depth == 16)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6298 fn_png_set_strip_16 (png_ptr);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6299
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6300 /* 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
6301 if available. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6302 fn_png_set_expand (png_ptr);
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 /* Convert grayscale images to RGB. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6305 if (color_type == PNG_COLOR_TYPE_GRAY
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6306 || color_type == PNG_COLOR_TYPE_GRAY_ALPHA)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6307 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
6308
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6309 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
6310
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6311 #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
6312 { /* 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
6313 int intent;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6314 double image_gamma;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6315 #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
6316 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
6317 /* 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
6318 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
6319 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6320 #endif
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6321 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
6322 /* Image contains gamma information. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6323 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
6324 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6325 /* 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
6326 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
6327 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6328 #endif /* if 0 */
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 /* 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
6331 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
6332 simple transparency, we prefer a clipping mask. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6333 if (!transparent_p)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6334 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6335 png_color_16 *image_bg;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6336 Lisp_Object specified_bg
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6337 = image_spec_value (img->spec, QCbackground, NULL);
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 if (STRINGP (specified_bg))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6340 /* The user specified `:background', use that. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6341 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6342 /* W32 version incorrectly used COLORREF here!! ++kfs */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6343 XColor color;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6344 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
6345 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6346 png_color_16 user_bg;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6347
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6348 bzero (&user_bg, sizeof user_bg);
54920
38cb79e68369 (PNG_BG_COLOR_SHIFT): Remove.
Kim F. Storm <storm@cua.dk>
parents: 54427
diff changeset
6349 user_bg.red = color.red >> 8;
38cb79e68369 (PNG_BG_COLOR_SHIFT): Remove.
Kim F. Storm <storm@cua.dk>
parents: 54427
diff changeset
6350 user_bg.green = color.green >> 8;
38cb79e68369 (PNG_BG_COLOR_SHIFT): Remove.
Kim F. Storm <storm@cua.dk>
parents: 54427
diff changeset
6351 user_bg.blue = color.blue >> 8;
54341
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 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
6354 PNG_BACKGROUND_GAMMA_SCREEN, 0, 1.0);
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 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6357 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
6358 /* 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
6359 combine the image. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6360 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
6361 PNG_BACKGROUND_GAMMA_FILE, 1, 1.0);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6362 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6363 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6364 /* 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
6365 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
6366 the frame's background instead. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6367 #ifdef HAVE_X_WINDOWS
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6368 XColor color;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6369 png_color_16 frame_background;
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 color.pixel = FRAME_BACKGROUND_PIXEL (f);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6372 x_query_color (f, &color);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6373
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6374 bzero (&frame_background, sizeof frame_background);
54920
38cb79e68369 (PNG_BG_COLOR_SHIFT): Remove.
Kim F. Storm <storm@cua.dk>
parents: 54427
diff changeset
6375 frame_background.red = color.red >> 8;
38cb79e68369 (PNG_BG_COLOR_SHIFT): Remove.
Kim F. Storm <storm@cua.dk>
parents: 54427
diff changeset
6376 frame_background.green = color.green >> 8;
38cb79e68369 (PNG_BG_COLOR_SHIFT): Remove.
Kim F. Storm <storm@cua.dk>
parents: 54427
diff changeset
6377 frame_background.blue = color.blue >> 8;
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6378 #endif /* HAVE_X_WINDOWS */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6379
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6380 #ifdef HAVE_NTGUI
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6381 COLORREF color;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6382 png_color_16 frame_background;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6383 color = FRAME_BACKGROUND_PIXEL (f);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6384 #if 0 /* W32 TODO : Colormap support. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6385 x_query_color (f, &color);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6386 #endif
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6387 bzero (&frame_background, sizeof frame_background);
54920
38cb79e68369 (PNG_BG_COLOR_SHIFT): Remove.
Kim F. Storm <storm@cua.dk>
parents: 54427
diff changeset
6388 frame_background.red = GetRValue (color);
38cb79e68369 (PNG_BG_COLOR_SHIFT): Remove.
Kim F. Storm <storm@cua.dk>
parents: 54427
diff changeset
6389 frame_background.green = GetGValue (color);
38cb79e68369 (PNG_BG_COLOR_SHIFT): Remove.
Kim F. Storm <storm@cua.dk>
parents: 54427
diff changeset
6390 frame_background.blue = GetBValue (color);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6391 #endif /* HAVE_NTGUI */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6392
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6393 #ifdef MAC_OS
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6394 unsigned long color;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6395 png_color_16 frame_background;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6396 color = FRAME_BACKGROUND_PIXEL (f);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6397 #if 0 /* MAC/W32 TODO : Colormap support. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6398 x_query_color (f, &color);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6399 #endif
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6400 bzero (&frame_background, sizeof frame_background);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6401 frame_background.red = RED_FROM_ULONG (color);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6402 frame_background.green = GREEN_FROM_ULONG (color);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6403 frame_background.blue = BLUE_FROM_ULONG (color);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6404 #endif /* MAC_OS */
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 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
6407 PNG_BACKGROUND_GAMMA_SCREEN, 0, 1.0);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6408 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6409 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6410
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6411 /* Update info structure. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6412 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
6413
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6414 /* 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
6415 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
6416 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
6417 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
6418 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
6419 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
6420 xassert (channels == 3 || channels == 4);
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 /* 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
6423 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
6424
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6425 /* Allocate memory for the image. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6426 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
6427 rows = (png_byte **) xmalloc (height * sizeof *rows);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6428 for (i = 0; i < height; ++i)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6429 rows[i] = pixels + i * row_bytes;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6430
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6431 /* Read the entire image. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6432 fn_png_read_image (png_ptr, rows);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6433 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
6434 if (fp)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6435 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6436 fclose (fp);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6437 fp = NULL;
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
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6440 /* Create the X image and pixmap. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6441 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
6442 &img->pixmap))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6443 goto error;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6444
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6445 /* 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
6446 contains an alpha channel. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6447 if (channels == 4
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6448 && !transparent_p
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6449 && !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
6450 &mask_img, &img->mask))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6451 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6452 x_destroy_x_image (ximg);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6453 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
6454 img->pixmap = NO_PIXMAP;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6455 goto error;
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
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6458 /* 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
6459 init_color_table ();
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6460
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6461 for (y = 0; y < height; ++y)
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 png_byte *p = rows[y];
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 for (x = 0; x < width; ++x)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6466 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6467 unsigned r, g, b;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6468
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6469 r = *p++ << 8;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6470 g = *p++ << 8;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6471 b = *p++ << 8;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6472 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
6473 /* 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
6474 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
6475 support binary transparency---fully transparent or fully
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6476 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
6477 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
6478 the image with a specified background color.
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6479
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6480 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
6481 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
6482 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
6483 a new image for each possible background.
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6484
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6485 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
6486 boolean transparency information. Otherwise I'm using
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6487 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
6488
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6489 if (channels == 4)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6490 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6491 if (mask_img)
65250
8105f38368d5 (PIX_MASK_DRAW, PIX_MASK_RETAIN): Remove argument. All uses changed.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64967
diff changeset
6492 XPutPixel (mask_img, x, y, *p > 0 ? PIX_MASK_DRAW : PIX_MASK_RETAIN);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6493 ++p;
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 }
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
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6498 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
6499 /* 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
6500 overrode it. */
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 png_color_16 *bg;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6503 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
6504 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6505 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
6506 img->background_valid = 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6507 }
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
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6510 #ifdef COLOR_TABLE_SUPPORT
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6511 /* Remember colors allocated for this image. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6512 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
6513 free_color_table ();
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6514 #endif /* COLOR_TABLE_SUPPORT */
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 /* Clean up. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6517 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
6518 xfree (rows);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6519 xfree (pixels);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6520
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6521 img->width = width;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6522 img->height = height;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6523
63323
ccf928f0383c (x_create_x_image_and_pixmap) [HAVE_NTGUI]: Cast 4th arg
Eli Zaretskii <eliz@gnu.org>
parents: 63112
diff changeset
6524 /* Maybe fill in the background field while we have ximg handy.
ccf928f0383c (x_create_x_image_and_pixmap) [HAVE_NTGUI]: Cast 4th arg
Eli Zaretskii <eliz@gnu.org>
parents: 63112
diff changeset
6525 Casting avoids a GCC warning. */
ccf928f0383c (x_create_x_image_and_pixmap) [HAVE_NTGUI]: Cast 4th arg
Eli Zaretskii <eliz@gnu.org>
parents: 63112
diff changeset
6526 IMAGE_BACKGROUND (img, f, (XImagePtr_or_DC)ximg);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6527
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6528 /* 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
6529 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
6530 x_destroy_x_image (ximg);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6531
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6532 /* Same for the mask. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6533 if (mask_img)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6534 {
63323
ccf928f0383c (x_create_x_image_and_pixmap) [HAVE_NTGUI]: Cast 4th arg
Eli Zaretskii <eliz@gnu.org>
parents: 63112
diff changeset
6535 /* Fill in the background_transparent field while we have the
ccf928f0383c (x_create_x_image_and_pixmap) [HAVE_NTGUI]: Cast 4th arg
Eli Zaretskii <eliz@gnu.org>
parents: 63112
diff changeset
6536 mask handy. Casting avoids a GCC warning. */
ccf928f0383c (x_create_x_image_and_pixmap) [HAVE_NTGUI]: Cast 4th arg
Eli Zaretskii <eliz@gnu.org>
parents: 63112
diff changeset
6537 image_background_transparent (img, f, (XImagePtr_or_DC)mask_img);
54341
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 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
6540 x_destroy_x_image (mask_img);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6541 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6542
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6543 UNGCPRO;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6544 return 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6545 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6546
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6547 #else /* HAVE_PNG */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6548
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6549 #ifdef MAC_OS
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6550 static int
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6551 png_load (f, img)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6552 struct frame *f;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6553 struct image *img;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6554 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6555 #ifdef MAC_OSX
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6556 if (MyCGImageCreateWithPNGDataProvider)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6557 return image_load_quartz2d (f, img, 1);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6558 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6559 #endif
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6560 return image_load_quicktime (f, img, kQTFileTypePNG);
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 #endif /* MAC_OS */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6563
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6564 #endif /* !HAVE_PNG */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6565
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6566
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6567
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 JPEG
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6570 ***********************************************************************/
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 defined (HAVE_JPEG) || defined (MAC_OS)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6573
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6574 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
6575 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
6576
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6577 /* 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
6578
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6579 Lisp_Object Qjpeg;
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 /* 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
6582
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6583 enum jpeg_keyword_index
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6584 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6585 JPEG_TYPE,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6586 JPEG_DATA,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6587 JPEG_FILE,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6588 JPEG_ASCENT,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6589 JPEG_MARGIN,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6590 JPEG_RELIEF,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6591 JPEG_ALGORITHM,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6592 JPEG_HEURISTIC_MASK,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6593 JPEG_MASK,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6594 JPEG_BACKGROUND,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6595 JPEG_LAST
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6596 };
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 /* 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
6599 of valid user-defined image specifications. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6600
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6601 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
6602 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6603 {":type", IMAGE_SYMBOL_VALUE, 1},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6604 {":data", IMAGE_STRING_VALUE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6605 {":file", IMAGE_STRING_VALUE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6606 {":ascent", IMAGE_ASCENT_VALUE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6607 {":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
6608 {":relief", IMAGE_INTEGER_VALUE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6609 {":conversions", IMAGE_DONT_CHECK_VALUE_TYPE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6610 {":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
6611 {":mask", IMAGE_DONT_CHECK_VALUE_TYPE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6612 {":background", IMAGE_STRING_OR_NIL_VALUE, 0}
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6613 };
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6614
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6615 /* Structure describing the image type `jpeg'. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6616
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6617 static struct image_type jpeg_type =
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 &Qjpeg,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6620 jpeg_image_p,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6621 jpeg_load,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6622 x_clear_image,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6623 NULL
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6624 };
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 /* 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
6627
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6628 static int
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6629 jpeg_image_p (object)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6630 Lisp_Object object;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6631 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6632 struct image_keyword fmt[JPEG_LAST];
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6633
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6634 bcopy (jpeg_format, fmt, sizeof fmt);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6635
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6636 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
6637 return 0;
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 /* 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
6640 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
6641 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6642
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6643 #endif /* HAVE_JPEG || MAC_OS */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6644
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6645 #ifdef HAVE_JPEG
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6646
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6647 /* 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
6648 jconfig.h. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6649 #ifdef HAVE_STDLIB_H
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6650 #define HAVE_STDLIB_H_1
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6651 #undef HAVE_STDLIB_H
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6652 #endif /* HAVE_STLIB_H */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6653
59073
3501c078df60 (__WIN32__) [HAVE_NTGUI]: Define for correct behaviour of JPEG library.
Jason Rumney <jasonr@gnu.org>
parents: 58846
diff changeset
6654 #if defined (HAVE_NTGUI) && !defined (__WIN32__)
63112
e369bf902cfc Update comment.
Juanma Barranquero <lekktu@gmail.com>
parents: 62815
diff changeset
6655 /* In older releases of the jpeg library, jpeglib.h will define boolean
e369bf902cfc Update comment.
Juanma Barranquero <lekktu@gmail.com>
parents: 62815
diff changeset
6656 differently depending on __WIN32__, so make sure it is defined. */
59073
3501c078df60 (__WIN32__) [HAVE_NTGUI]: Define for correct behaviour of JPEG library.
Jason Rumney <jasonr@gnu.org>
parents: 58846
diff changeset
6657 #define __WIN32__ 1
3501c078df60 (__WIN32__) [HAVE_NTGUI]: Define for correct behaviour of JPEG library.
Jason Rumney <jasonr@gnu.org>
parents: 58846
diff changeset
6658 #endif
3501c078df60 (__WIN32__) [HAVE_NTGUI]: Define for correct behaviour of JPEG library.
Jason Rumney <jasonr@gnu.org>
parents: 58846
diff changeset
6659
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6660 #include <jpeglib.h>
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6661 #include <jerror.h>
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6662 #include <setjmp.h>
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 #ifdef HAVE_STLIB_H_1
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6665 #define HAVE_STDLIB_H 1
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6666 #endif
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6667
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6668 #ifdef HAVE_NTGUI
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6669
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6670 /* JPEG library details. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6671 DEF_IMGLIB_FN (jpeg_CreateDecompress);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6672 DEF_IMGLIB_FN (jpeg_start_decompress);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6673 DEF_IMGLIB_FN (jpeg_finish_decompress);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6674 DEF_IMGLIB_FN (jpeg_destroy_decompress);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6675 DEF_IMGLIB_FN (jpeg_read_header);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6676 DEF_IMGLIB_FN (jpeg_read_scanlines);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6677 DEF_IMGLIB_FN (jpeg_std_error);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6678 DEF_IMGLIB_FN (jpeg_resync_to_restart);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6679
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6680 static int
56104
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
6681 init_jpeg_functions (Lisp_Object libraries)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6682 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6683 HMODULE library;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6684
56104
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
6685 if (!(library = w32_delayed_load (libraries, Qjpeg)))
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6686 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6687
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6688 LOAD_IMGLIB_FN (library, jpeg_finish_decompress);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6689 LOAD_IMGLIB_FN (library, jpeg_read_scanlines);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6690 LOAD_IMGLIB_FN (library, jpeg_start_decompress);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6691 LOAD_IMGLIB_FN (library, jpeg_read_header);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6692 LOAD_IMGLIB_FN (library, jpeg_CreateDecompress);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6693 LOAD_IMGLIB_FN (library, jpeg_destroy_decompress);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6694 LOAD_IMGLIB_FN (library, jpeg_std_error);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6695 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
6696 return 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6697 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6698
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6699 /* 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
6700 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
6701 static boolean
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6702 jpeg_resync_to_restart_wrapper(cinfo, desired)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6703 j_decompress_ptr cinfo;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6704 int desired;
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 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
6707 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6708
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6709 #else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6710
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6711 #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
6712 #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
6713 #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
6714 #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
6715 #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
6716 #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
6717 #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
6718 #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
6719
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6720 #endif /* HAVE_NTGUI */
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 struct my_jpeg_error_mgr
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6723 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6724 struct jpeg_error_mgr pub;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6725 jmp_buf setjmp_buffer;
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
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6728
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6729 static void
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6730 my_error_exit (cinfo)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6731 j_common_ptr cinfo;
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 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
6734 longjmp (mgr->setjmp_buffer, 1);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6735 }
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
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6738 /* 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
6739 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
6740 libjpeg.doc from the JPEG lib distribution. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6741
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6742 static void
66013
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6743 our_common_init_source (cinfo)
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6744 j_decompress_ptr cinfo;
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6745 {
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6746 }
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6747
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6748
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6749 /* Method to terminate data source. Called by
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6750 jpeg_finish_decompress() after all data has been processed. */
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6751
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6752 static void
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6753 our_common_term_source (cinfo)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6754 j_decompress_ptr cinfo;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6755 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6756 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6757
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6758
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6759 /* 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
6760 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
6761 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
6762
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6763 static boolean
66013
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6764 our_memory_fill_input_buffer (cinfo)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6765 j_decompress_ptr cinfo;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6766 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6767 /* Insert a fake EOI marker. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6768 struct jpeg_source_mgr *src = cinfo->src;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6769 static JOCTET buffer[2];
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6770
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6771 buffer[0] = (JOCTET) 0xFF;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6772 buffer[1] = (JOCTET) JPEG_EOI;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6773
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6774 src->next_input_byte = buffer;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6775 src->bytes_in_buffer = 2;
58846
4d7444f1a64c (our_fill_input_buffer, jpeg_load, CHECK_LIB_AVAILABLE, init_image):
Richard M. Stallman <rms@gnu.org>
parents: 58752
diff changeset
6776 return 1;
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6777 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6778
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6779
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6780 /* 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
6781 is the JPEG data source manager. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6782
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6783 static void
66013
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6784 our_memory_skip_input_data (cinfo, num_bytes)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6785 j_decompress_ptr cinfo;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6786 long num_bytes;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6787 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6788 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
6789
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6790 if (src)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6791 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6792 if (num_bytes > src->bytes_in_buffer)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6793 ERREXIT (cinfo, JERR_INPUT_EOF);
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 src->bytes_in_buffer -= num_bytes;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6796 src->next_input_byte += num_bytes;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6797 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6798 }
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 /* 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
6802 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
6803 reading the image. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6804
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6805 static void
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6806 jpeg_memory_src (cinfo, data, len)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6807 j_decompress_ptr cinfo;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6808 JOCTET *data;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6809 unsigned int len;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6810 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6811 struct jpeg_source_mgr *src;
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 if (cinfo->src == NULL)
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 /* First time for this JPEG object? */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6816 cinfo->src = (struct jpeg_source_mgr *)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6817 (*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
6818 sizeof (struct jpeg_source_mgr));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6819 src = (struct jpeg_source_mgr *) cinfo->src;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6820 src->next_input_byte = data;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6821 }
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 src = (struct jpeg_source_mgr *) cinfo->src;
66013
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6824 src->init_source = our_common_init_source;
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6825 src->fill_input_buffer = our_memory_fill_input_buffer;
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6826 src->skip_input_data = our_memory_skip_input_data;
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6827 src->resync_to_restart = jpeg_resync_to_restart_wrapper; /* Use default method. */
66013
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6828 src->term_source = our_common_term_source;
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6829 src->bytes_in_buffer = len;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6830 src->next_input_byte = data;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6831 }
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
66013
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6834 struct jpeg_stdio_mgr
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6835 {
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6836 struct jpeg_source_mgr mgr;
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6837 boolean finished;
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6838 FILE *file;
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6839 JOCTET *buffer;
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6840 };
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6841
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6842
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6843 /* Size of buffer to read JPEG from file.
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6844 Not too big, as we want to use alloc_small. */
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6845 #define JPEG_STDIO_BUFFER_SIZE 8192
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6846
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6847
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6848 /* Fill input buffer method for JPEG data source manager. Called
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6849 whenever more data is needed. The data is read from a FILE *. */
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6850
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6851 static boolean
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6852 our_stdio_fill_input_buffer (cinfo)
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6853 j_decompress_ptr cinfo;
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6854 {
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6855 struct jpeg_stdio_mgr *src;
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6856
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6857 src = (struct jpeg_stdio_mgr *) cinfo->src;
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6858 if (!src->finished)
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6859 {
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6860 size_t bytes;
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6861
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6862 bytes = fread (src->buffer, 1, JPEG_STDIO_BUFFER_SIZE, src->file);
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6863 if (bytes > 0)
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6864 src->mgr.bytes_in_buffer = bytes;
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6865 else
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6866 {
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6867 WARNMS (cinfo, JWRN_JPEG_EOF);
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6868 src->finished = 1;
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6869 src->buffer[0] = (JOCTET) 0xFF;
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6870 src->buffer[1] = (JOCTET) JPEG_EOI;
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6871 src->mgr.bytes_in_buffer = 2;
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6872 }
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6873 src->mgr.next_input_byte = src->buffer;
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6874 }
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6875
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6876 return 1;
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6877 }
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6878
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6879
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6880 /* Method to skip over NUM_BYTES bytes in the image data. CINFO->src
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6881 is the JPEG data source manager. */
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6882
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6883 static void
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6884 our_stdio_skip_input_data (cinfo, num_bytes)
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6885 j_decompress_ptr cinfo;
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6886 long num_bytes;
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6887 {
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6888 struct jpeg_stdio_mgr *src;
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6889 src = (struct jpeg_stdio_mgr *) cinfo->src;
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6890
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6891 while (num_bytes > 0 && !src->finished)
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6892 {
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6893 if (num_bytes <= src->mgr.bytes_in_buffer)
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6894 {
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6895 src->mgr.bytes_in_buffer -= num_bytes;
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6896 src->mgr.next_input_byte += num_bytes;
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6897 break;
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6898 }
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6899 else
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6900 {
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6901 num_bytes -= src->mgr.bytes_in_buffer;
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6902 src->mgr.bytes_in_buffer = 0;
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6903 src->mgr.next_input_byte = NULL;
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6904
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6905 our_stdio_fill_input_buffer (cinfo);
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6906 }
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6907 }
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6908 }
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6909
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6910
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6911 /* Set up the JPEG lib for reading an image from a FILE *.
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6912 CINFO is the decompression info structure created for
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6913 reading the image. */
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6914
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6915 static void
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6916 jpeg_file_src (cinfo, fp)
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6917 j_decompress_ptr cinfo;
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6918 FILE *fp;
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6919 {
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6920 struct jpeg_stdio_mgr *src;
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6921
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6922 if (cinfo->src != NULL)
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6923 src = (struct jpeg_stdio_mgr *) cinfo->src;
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6924 else
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6925 {
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6926 /* First time for this JPEG object? */
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6927 cinfo->src = (struct jpeg_source_mgr *)
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6928 (*cinfo->mem->alloc_small) ((j_common_ptr) cinfo, JPOOL_PERMANENT,
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6929 sizeof (struct jpeg_stdio_mgr));
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6930 src = (struct jpeg_stdio_mgr *) cinfo->src;
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6931 src->buffer = (JOCTET *)
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6932 (*cinfo->mem->alloc_small) ((j_common_ptr) cinfo, JPOOL_PERMANENT,
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6933 JPEG_STDIO_BUFFER_SIZE);
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6934 }
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6935
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6936 src->file = fp;
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6937 src->finished = 0;
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6938 src->mgr.init_source = our_common_init_source;
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6939 src->mgr.fill_input_buffer = our_stdio_fill_input_buffer;
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6940 src->mgr.skip_input_data = our_stdio_skip_input_data;
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6941 src->mgr.resync_to_restart = jpeg_resync_to_restart_wrapper; /* Use default method. */
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6942 src->mgr.term_source = our_common_term_source;
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6943 src->mgr.bytes_in_buffer = 0;
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6944 src->mgr.next_input_byte = NULL;
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6945 }
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6946
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
6947
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6948 /* 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
6949 from the JPEG lib. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6950
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6951 static int
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6952 jpeg_load (f, img)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6953 struct frame *f;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6954 struct image *img;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6955 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6956 struct jpeg_decompress_struct cinfo;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6957 struct my_jpeg_error_mgr mgr;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6958 Lisp_Object file, specified_file;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6959 Lisp_Object specified_data;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6960 FILE * volatile fp = NULL;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6961 JSAMPARRAY buffer;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6962 int row_stride, x, y;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6963 XImagePtr ximg = NULL;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6964 int rc;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6965 unsigned long *colors;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6966 int width, height;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6967 struct gcpro gcpro1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6968
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6969 /* Open the JPEG file. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6970 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
6971 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
6972 file = Qnil;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6973 GCPRO1 (file);
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 if (NILP (specified_data))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6976 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6977 file = x_find_image_file (specified_file);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6978 if (!STRINGP (file))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6979 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6980 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
6981 UNGCPRO;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6982 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6983 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6984
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6985 fp = fopen (SDATA (file), "rb");
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6986 if (fp == NULL)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6987 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6988 image_error ("Cannot open `%s'", file, Qnil);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6989 UNGCPRO;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6990 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6991 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6992 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6993
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6994 /* Customize libjpeg's error handling to call my_error_exit when an
63323
ccf928f0383c (x_create_x_image_and_pixmap) [HAVE_NTGUI]: Cast 4th arg
Eli Zaretskii <eliz@gnu.org>
parents: 63112
diff changeset
6995 error is detected. This function will perform a longjmp.
ccf928f0383c (x_create_x_image_and_pixmap) [HAVE_NTGUI]: Cast 4th arg
Eli Zaretskii <eliz@gnu.org>
parents: 63112
diff changeset
6996 Casting return value avoids a GCC warning on W32. */
ccf928f0383c (x_create_x_image_and_pixmap) [HAVE_NTGUI]: Cast 4th arg
Eli Zaretskii <eliz@gnu.org>
parents: 63112
diff changeset
6997 cinfo.err = (struct jpeg_error_mgr *)fn_jpeg_std_error (&mgr.pub);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6998 mgr.pub.error_exit = my_error_exit;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
6999
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7000 if ((rc = setjmp (mgr.setjmp_buffer)) != 0)
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 if (rc == 1)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7003 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7004 /* 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
7005 char buffer[JMSG_LENGTH_MAX];
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7006 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
7007 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
7008 build_string (buffer));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7009 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7010
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7011 /* 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
7012 if (fp)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7013 fclose ((FILE *) fp);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7014 fn_jpeg_destroy_decompress (&cinfo);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7015
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7016 /* 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
7017 x_destroy_x_image (ximg);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7018
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7019 /* Free pixmap and colors. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7020 x_clear_image (f, img);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7021
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7022 UNGCPRO;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7023 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7024 }
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 /* 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
7027 Read the JPEG image header. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7028 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
7029
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7030 if (NILP (specified_data))
66013
1de4729d29d6 (fn_jpeg_stdio_src): Don't define it.
Juanma Barranquero <lekktu@gmail.com>
parents: 65764
diff changeset
7031 jpeg_file_src (&cinfo, (FILE *) fp);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7032 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7033 jpeg_memory_src (&cinfo, SDATA (specified_data),
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7034 SBYTES (specified_data));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7035
58846
4d7444f1a64c (our_fill_input_buffer, jpeg_load, CHECK_LIB_AVAILABLE, init_image):
Richard M. Stallman <rms@gnu.org>
parents: 58752
diff changeset
7036 fn_jpeg_read_header (&cinfo, 1);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7037
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7038 /* 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
7039 Start decompression. */
58846
4d7444f1a64c (our_fill_input_buffer, jpeg_load, CHECK_LIB_AVAILABLE, init_image):
Richard M. Stallman <rms@gnu.org>
parents: 58752
diff changeset
7040 cinfo.quantize_colors = 1;
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7041 fn_jpeg_start_decompress (&cinfo);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7042 width = img->width = cinfo.output_width;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7043 height = img->height = cinfo.output_height;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7044
66195
ad1acaef1abb * image.c (Vmax_image_size): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 66013
diff changeset
7045 if (!check_image_size (f, width, height))
ad1acaef1abb * image.c (Vmax_image_size): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 66013
diff changeset
7046 {
ad1acaef1abb * image.c (Vmax_image_size): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 66013
diff changeset
7047 image_error ("Invalid image size", Qnil, Qnil);
ad1acaef1abb * image.c (Vmax_image_size): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 66013
diff changeset
7048 longjmp (mgr.setjmp_buffer, 2);
ad1acaef1abb * image.c (Vmax_image_size): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 66013
diff changeset
7049 }
ad1acaef1abb * image.c (Vmax_image_size): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 66013
diff changeset
7050
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7051 /* Create X image and pixmap. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7052 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
7053 longjmp (mgr.setjmp_buffer, 2);
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 /* Allocate colors. When color quantization is used,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7056 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
7057 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
7058 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
7059 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
7060 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7061 int i, ir, ig, ib;
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 if (cinfo.out_color_components > 2)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7064 ir = 0, ig = 1, ib = 2;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7065 else if (cinfo.out_color_components > 1)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7066 ir = 0, ig = 1, ib = 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7067 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7068 ir = 0, ig = 0, ib = 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7069
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7070 /* 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
7071 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
7072 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
7073 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
7074 init_color_table ();
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7075 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
7076 * sizeof *colors);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7077
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7078 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
7079 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7080 /* 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
7081 in the range 0..0xffff. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7082 int r = cinfo.colormap[ir][i] << 8;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7083 int g = cinfo.colormap[ig][i] << 8;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7084 int b = cinfo.colormap[ib][i] << 8;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7085 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
7086 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7087
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7088 #ifdef COLOR_TABLE_SUPPORT
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7089 /* Remember those colors actually allocated. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7090 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
7091 free_color_table ();
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7092 #endif /* COLOR_TABLE_SUPPORT */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7093 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7094
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7095 /* Read pixels. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7096 row_stride = width * cinfo.output_components;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7097 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
7098 row_stride, 1);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7099 for (y = 0; y < height; ++y)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7100 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7101 fn_jpeg_read_scanlines (&cinfo, buffer, 1);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7102 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
7103 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
7104 }
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 /* Clean up. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7107 fn_jpeg_finish_decompress (&cinfo);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7108 fn_jpeg_destroy_decompress (&cinfo);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7109 if (fp)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7110 fclose ((FILE *) fp);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7111
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7112 /* 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
7113 if (NILP (image_spec_value (img->spec, QCbackground, NULL)))
63323
ccf928f0383c (x_create_x_image_and_pixmap) [HAVE_NTGUI]: Cast 4th arg
Eli Zaretskii <eliz@gnu.org>
parents: 63112
diff changeset
7114 /* Casting avoids a GCC warning. */
ccf928f0383c (x_create_x_image_and_pixmap) [HAVE_NTGUI]: Cast 4th arg
Eli Zaretskii <eliz@gnu.org>
parents: 63112
diff changeset
7115 IMAGE_BACKGROUND (img, f, (XImagePtr_or_DC)ximg);
54341
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 /* Put the image into the pixmap. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7118 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
7119 x_destroy_x_image (ximg);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7120 UNGCPRO;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7121 return 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7122 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7123
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7124 #else /* HAVE_JPEG */
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 #ifdef MAC_OS
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7127 static int
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7128 jpeg_load (f, img)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7129 struct frame *f;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7130 struct image *img;
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 #ifdef MAC_OSX
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7133 return image_load_quartz2d (f, img, 0);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7134 #else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7135 return image_load_quicktime (f, img, kQTFileTypeJPEG);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7136 #endif
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7137 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7138 #endif /* MAC_OS */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7139
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7140 #endif /* !HAVE_JPEG */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7141
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
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 TIFF
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7146 ***********************************************************************/
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 #if defined (HAVE_TIFF) || defined (MAC_OS)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7149
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7150 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
7151 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
7152
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7153 /* 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
7154
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7155 Lisp_Object Qtiff;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7156
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7157 /* 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
7158
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7159 enum tiff_keyword_index
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7160 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7161 TIFF_TYPE,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7162 TIFF_DATA,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7163 TIFF_FILE,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7164 TIFF_ASCENT,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7165 TIFF_MARGIN,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7166 TIFF_RELIEF,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7167 TIFF_ALGORITHM,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7168 TIFF_HEURISTIC_MASK,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7169 TIFF_MASK,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7170 TIFF_BACKGROUND,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7171 TIFF_LAST
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
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7174 /* 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
7175 of valid user-defined image specifications. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7176
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7177 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
7178 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7179 {":type", IMAGE_SYMBOL_VALUE, 1},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7180 {":data", IMAGE_STRING_VALUE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7181 {":file", IMAGE_STRING_VALUE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7182 {":ascent", IMAGE_ASCENT_VALUE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7183 {":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
7184 {":relief", IMAGE_INTEGER_VALUE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7185 {":conversions", IMAGE_DONT_CHECK_VALUE_TYPE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7186 {":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
7187 {":mask", IMAGE_DONT_CHECK_VALUE_TYPE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7188 {":background", IMAGE_STRING_OR_NIL_VALUE, 0}
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7189 };
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7190
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7191 /* Structure describing the image type `tiff'. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7192
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7193 static struct image_type tiff_type =
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7194 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7195 &Qtiff,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7196 tiff_image_p,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7197 tiff_load,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7198 x_clear_image,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7199 NULL
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7200 };
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 /* 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
7203
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7204 static int
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7205 tiff_image_p (object)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7206 Lisp_Object object;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7207 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7208 struct image_keyword fmt[TIFF_LAST];
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7209 bcopy (tiff_format, fmt, sizeof fmt);
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 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
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 /* 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
7215 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
7216 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7217
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7218 #endif /* HAVE_TIFF || MAC_OS */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7219
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7220 #ifdef HAVE_TIFF
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7221
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7222 #include <tiffio.h>
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7223
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7224 #ifdef HAVE_NTGUI
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 /* TIFF library details. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7227 DEF_IMGLIB_FN (TIFFSetErrorHandler);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7228 DEF_IMGLIB_FN (TIFFSetWarningHandler);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7229 DEF_IMGLIB_FN (TIFFOpen);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7230 DEF_IMGLIB_FN (TIFFClientOpen);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7231 DEF_IMGLIB_FN (TIFFGetField);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7232 DEF_IMGLIB_FN (TIFFReadRGBAImage);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7233 DEF_IMGLIB_FN (TIFFClose);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7234
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7235 static int
56104
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
7236 init_tiff_functions (Lisp_Object libraries)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7237 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7238 HMODULE library;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7239
56104
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
7240 if (!(library = w32_delayed_load (libraries, Qtiff)))
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7241 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7242
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7243 LOAD_IMGLIB_FN (library, TIFFSetErrorHandler);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7244 LOAD_IMGLIB_FN (library, TIFFSetWarningHandler);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7245 LOAD_IMGLIB_FN (library, TIFFOpen);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7246 LOAD_IMGLIB_FN (library, TIFFClientOpen);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7247 LOAD_IMGLIB_FN (library, TIFFGetField);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7248 LOAD_IMGLIB_FN (library, TIFFReadRGBAImage);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7249 LOAD_IMGLIB_FN (library, TIFFClose);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7250 return 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7251 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7252
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7253 #else
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 #define fn_TIFFSetErrorHandler TIFFSetErrorHandler
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7256 #define fn_TIFFSetWarningHandler TIFFSetWarningHandler
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7257 #define fn_TIFFOpen TIFFOpen
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7258 #define fn_TIFFClientOpen TIFFClientOpen
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7259 #define fn_TIFFGetField TIFFGetField
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7260 #define fn_TIFFReadRGBAImage TIFFReadRGBAImage
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7261 #define fn_TIFFClose TIFFClose
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7262
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7263 #endif /* HAVE_NTGUI */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7264
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7265
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7266 /* 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
7267 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
7268 Blah.
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7269
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7270 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
7271 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
7272 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
7273 override. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7274
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7275 typedef struct
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7276 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7277 unsigned char *bytes;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7278 size_t len;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7279 int index;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7280 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7281 tiff_memory_source;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7282
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7283 static size_t
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7284 tiff_read_from_memory (data, buf, size)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7285 thandle_t data;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7286 tdata_t buf;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7287 tsize_t size;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7288 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7289 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
7290
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7291 if (size > src->len - src->index)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7292 return (size_t) -1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7293 bcopy (src->bytes + src->index, buf, size);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7294 src->index += size;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7295 return size;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7296 }
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 static size_t
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7299 tiff_write_from_memory (data, buf, size)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7300 thandle_t data;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7301 tdata_t buf;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7302 tsize_t size;
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 return (size_t) -1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7305 }
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 static toff_t
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7308 tiff_seek_in_memory (data, off, whence)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7309 thandle_t data;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7310 toff_t off;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7311 int whence;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7312 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7313 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
7314 int idx;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7315
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7316 switch (whence)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7317 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7318 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
7319 idx = off;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7320 break;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7321
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7322 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
7323 idx = src->len + off;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7324 break;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7325
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7326 case SEEK_CUR: /* Go from current position. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7327 idx = src->index + off;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7328 break;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7329
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7330 default: /* Invalid `whence'. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7331 return -1;
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
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7334 if (idx > src->len || idx < 0)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7335 return -1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7336
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7337 src->index = idx;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7338 return src->index;
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
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7341 static int
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7342 tiff_close_memory (data)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7343 thandle_t data;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7344 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7345 /* NOOP */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7346 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7347 }
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 static int
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7350 tiff_mmap_memory (data, pbase, psize)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7351 thandle_t data;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7352 tdata_t *pbase;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7353 toff_t *psize;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7354 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7355 /* It is already _IN_ memory. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7356 return 0;
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
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7359 static void
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7360 tiff_unmap_memory (data, base, size)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7361 thandle_t data;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7362 tdata_t base;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7363 toff_t size;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7364 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7365 /* We don't need to do this. */
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
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7368 static toff_t
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7369 tiff_size_of_memory (data)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7370 thandle_t data;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7371 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7372 return ((tiff_memory_source *) data)->len;
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
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7376 static void
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7377 tiff_error_handler (title, format, ap)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7378 const char *title, *format;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7379 va_list ap;
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 char buf[512];
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7382 int len;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7383
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7384 len = sprintf (buf, "TIFF error: %s ", title);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7385 vsprintf (buf + len, format, ap);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7386 add_to_log (buf, Qnil, Qnil);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7387 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7388
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7389
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7390 static void
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7391 tiff_warning_handler (title, format, ap)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7392 const char *title, *format;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7393 va_list ap;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7394 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7395 char buf[512];
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7396 int len;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7397
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7398 len = sprintf (buf, "TIFF warning: %s ", title);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7399 vsprintf (buf + len, format, ap);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7400 add_to_log (buf, Qnil, Qnil);
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
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7403
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7404 /* 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
7405 successful. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7406
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7407 static int
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7408 tiff_load (f, img)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7409 struct frame *f;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7410 struct image *img;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7411 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7412 Lisp_Object file, specified_file;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7413 Lisp_Object specified_data;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7414 TIFF *tiff;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7415 int width, height, x, y;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7416 uint32 *buf;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7417 int rc;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7418 XImagePtr ximg;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7419 struct gcpro gcpro1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7420 tiff_memory_source memsrc;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7421
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7422 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
7423 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
7424 file = Qnil;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7425 GCPRO1 (file);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7426
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7427 fn_TIFFSetErrorHandler (tiff_error_handler);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7428 fn_TIFFSetWarningHandler (tiff_warning_handler);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7429
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7430 if (NILP (specified_data))
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 /* Read from a file */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7433 file = x_find_image_file (specified_file);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7434 if (!STRINGP (file))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7435 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7436 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
7437 UNGCPRO;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7438 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7439 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7440
63323
ccf928f0383c (x_create_x_image_and_pixmap) [HAVE_NTGUI]: Cast 4th arg
Eli Zaretskii <eliz@gnu.org>
parents: 63112
diff changeset
7441 /* Try to open the image file. Casting return value avoids a
ccf928f0383c (x_create_x_image_and_pixmap) [HAVE_NTGUI]: Cast 4th arg
Eli Zaretskii <eliz@gnu.org>
parents: 63112
diff changeset
7442 GCC warning on W32. */
ccf928f0383c (x_create_x_image_and_pixmap) [HAVE_NTGUI]: Cast 4th arg
Eli Zaretskii <eliz@gnu.org>
parents: 63112
diff changeset
7443 tiff = (TIFF *)fn_TIFFOpen (SDATA (file), "r");
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7444 if (tiff == NULL)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7445 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7446 image_error ("Cannot open `%s'", file, Qnil);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7447 UNGCPRO;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7448 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7449 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7450 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7451 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7452 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7453 /* Memory source! */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7454 memsrc.bytes = SDATA (specified_data);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7455 memsrc.len = SBYTES (specified_data);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7456 memsrc.index = 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7457
63323
ccf928f0383c (x_create_x_image_and_pixmap) [HAVE_NTGUI]: Cast 4th arg
Eli Zaretskii <eliz@gnu.org>
parents: 63112
diff changeset
7458 /* Casting return value avoids a GCC warning on W32. */
ccf928f0383c (x_create_x_image_and_pixmap) [HAVE_NTGUI]: Cast 4th arg
Eli Zaretskii <eliz@gnu.org>
parents: 63112
diff changeset
7459 tiff = (TIFF *)fn_TIFFClientOpen ("memory_source", "r", &memsrc,
ccf928f0383c (x_create_x_image_and_pixmap) [HAVE_NTGUI]: Cast 4th arg
Eli Zaretskii <eliz@gnu.org>
parents: 63112
diff changeset
7460 (TIFFReadWriteProc) tiff_read_from_memory,
ccf928f0383c (x_create_x_image_and_pixmap) [HAVE_NTGUI]: Cast 4th arg
Eli Zaretskii <eliz@gnu.org>
parents: 63112
diff changeset
7461 (TIFFReadWriteProc) tiff_write_from_memory,
ccf928f0383c (x_create_x_image_and_pixmap) [HAVE_NTGUI]: Cast 4th arg
Eli Zaretskii <eliz@gnu.org>
parents: 63112
diff changeset
7462 tiff_seek_in_memory,
ccf928f0383c (x_create_x_image_and_pixmap) [HAVE_NTGUI]: Cast 4th arg
Eli Zaretskii <eliz@gnu.org>
parents: 63112
diff changeset
7463 tiff_close_memory,
ccf928f0383c (x_create_x_image_and_pixmap) [HAVE_NTGUI]: Cast 4th arg
Eli Zaretskii <eliz@gnu.org>
parents: 63112
diff changeset
7464 tiff_size_of_memory,
ccf928f0383c (x_create_x_image_and_pixmap) [HAVE_NTGUI]: Cast 4th arg
Eli Zaretskii <eliz@gnu.org>
parents: 63112
diff changeset
7465 tiff_mmap_memory,
ccf928f0383c (x_create_x_image_and_pixmap) [HAVE_NTGUI]: Cast 4th arg
Eli Zaretskii <eliz@gnu.org>
parents: 63112
diff changeset
7466 tiff_unmap_memory);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7467
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7468 if (!tiff)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7469 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7470 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
7471 UNGCPRO;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7472 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7473 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7474 }
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 /* 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
7477 of width x height 32-bit values. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7478 fn_TIFFGetField (tiff, TIFFTAG_IMAGEWIDTH, &width);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7479 fn_TIFFGetField (tiff, TIFFTAG_IMAGELENGTH, &height);
66195
ad1acaef1abb * image.c (Vmax_image_size): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 66013
diff changeset
7480
ad1acaef1abb * image.c (Vmax_image_size): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 66013
diff changeset
7481 if (!check_image_size (f, width, height))
ad1acaef1abb * image.c (Vmax_image_size): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 66013
diff changeset
7482 {
ad1acaef1abb * image.c (Vmax_image_size): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 66013
diff changeset
7483 image_error ("Invalid image size", Qnil, Qnil);
ad1acaef1abb * image.c (Vmax_image_size): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 66013
diff changeset
7484 UNGCPRO;
ad1acaef1abb * image.c (Vmax_image_size): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 66013
diff changeset
7485 return 0;
ad1acaef1abb * image.c (Vmax_image_size): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 66013
diff changeset
7486 }
ad1acaef1abb * image.c (Vmax_image_size): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 66013
diff changeset
7487
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7488 buf = (uint32 *) xmalloc (width * height * sizeof *buf);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7489
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7490 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
7491 fn_TIFFClose (tiff);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7492 if (!rc)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7493 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7494 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
7495 xfree (buf);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7496 UNGCPRO;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7497 return 0;
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
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7500 /* Create the X image and pixmap. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7501 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
7502 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7503 xfree (buf);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7504 UNGCPRO;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7505 return 0;
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
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7508 /* Initialize the color table. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7509 init_color_table ();
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7510
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7511 /* 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
7512 for (y = 0; y < height; ++y)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7513 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7514 uint32 *row = buf + y * width;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7515
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7516 for (x = 0; x < width; ++x)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7517 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7518 uint32 abgr = row[x];
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7519 int r = TIFFGetR (abgr) << 8;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7520 int g = TIFFGetG (abgr) << 8;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7521 int b = TIFFGetB (abgr) << 8;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7522 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
7523 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7524 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7525
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7526 #ifdef COLOR_TABLE_SUPPORT
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7527 /* 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
7528 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
7529 free_color_table ();
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7530 #endif /* COLOR_TABLE_SUPPORT */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7531
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7532 img->width = width;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7533 img->height = height;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7534
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7535 /* 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
7536 if (NILP (image_spec_value (img->spec, QCbackground, NULL)))
63323
ccf928f0383c (x_create_x_image_and_pixmap) [HAVE_NTGUI]: Cast 4th arg
Eli Zaretskii <eliz@gnu.org>
parents: 63112
diff changeset
7537 /* Casting avoids a GCC warning on W32. */
ccf928f0383c (x_create_x_image_and_pixmap) [HAVE_NTGUI]: Cast 4th arg
Eli Zaretskii <eliz@gnu.org>
parents: 63112
diff changeset
7538 IMAGE_BACKGROUND (img, f, (XImagePtr_or_DC)ximg);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7539
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7540 /* 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
7541 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
7542 x_destroy_x_image (ximg);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7543 xfree (buf);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7544
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7545 UNGCPRO;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7546 return 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7547 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7548
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7549 #else /* HAVE_TIFF */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7550
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7551 #ifdef MAC_OS
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7552 static int
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7553 tiff_load (f, img)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7554 struct frame *f;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7555 struct image *img;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7556 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7557 return image_load_quicktime (f, img, kQTFileTypeTIFF);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7558 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7559 #endif /* MAC_OS */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7560
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7561 #endif /* !HAVE_TIFF */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7562
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7563
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7564
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7565 /***********************************************************************
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7566 GIF
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7567 ***********************************************************************/
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7568
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7569 #if defined (HAVE_GIF) || defined (MAC_OS)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7570
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7571 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
7572 static int gif_load P_ ((struct frame *f, struct image *img));
70168
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
7573 static void gif_clear_image P_ ((struct frame *f, struct image *img));
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7574
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7575 /* 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
7576
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7577 Lisp_Object Qgif;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7578
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7579 /* 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
7580
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7581 enum gif_keyword_index
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7582 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7583 GIF_TYPE,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7584 GIF_DATA,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7585 GIF_FILE,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7586 GIF_ASCENT,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7587 GIF_MARGIN,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7588 GIF_RELIEF,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7589 GIF_ALGORITHM,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7590 GIF_HEURISTIC_MASK,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7591 GIF_MASK,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7592 GIF_IMAGE,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7593 GIF_BACKGROUND,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7594 GIF_LAST
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7595 };
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7596
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7597 /* 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
7598 of valid user-defined image specifications. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7599
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7600 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
7601 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7602 {":type", IMAGE_SYMBOL_VALUE, 1},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7603 {":data", IMAGE_STRING_VALUE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7604 {":file", IMAGE_STRING_VALUE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7605 {":ascent", IMAGE_ASCENT_VALUE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7606 {":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
7607 {":relief", IMAGE_INTEGER_VALUE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7608 {":conversion", IMAGE_DONT_CHECK_VALUE_TYPE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7609 {":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
7610 {":mask", IMAGE_DONT_CHECK_VALUE_TYPE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7611 {":image", IMAGE_NON_NEGATIVE_INTEGER_VALUE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7612 {":background", IMAGE_STRING_OR_NIL_VALUE, 0}
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7613 };
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7614
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7615 /* Structure describing the image type `gif'. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7616
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7617 static struct image_type gif_type =
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7618 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7619 &Qgif,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7620 gif_image_p,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7621 gif_load,
70168
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
7622 gif_clear_image,
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7623 NULL
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7624 };
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7625
70168
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
7626 /* Free X resources of GIF image IMG which is used on frame F. */
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
7627
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
7628 static void
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
7629 gif_clear_image (f, img)
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
7630 struct frame *f;
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
7631 struct image *img;
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
7632 {
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
7633 /* IMG->data.ptr_val may contain extension data. */
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
7634 img->data.lisp_val = Qnil;
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
7635 x_clear_image (f, img);
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
7636 }
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
7637
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7638 /* 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
7639
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7640 static int
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7641 gif_image_p (object)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7642 Lisp_Object object;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7643 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7644 struct image_keyword fmt[GIF_LAST];
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7645 bcopy (gif_format, fmt, sizeof fmt);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7646
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7647 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
7648 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7649
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7650 /* 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
7651 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
7652 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7653
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7654 #endif /* HAVE_GIF || MAC_OS */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7655
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7656 #ifdef HAVE_GIF
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7657
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7658 #if defined (HAVE_NTGUI) || defined (MAC_OS)
63323
ccf928f0383c (x_create_x_image_and_pixmap) [HAVE_NTGUI]: Cast 4th arg
Eli Zaretskii <eliz@gnu.org>
parents: 63112
diff changeset
7659 /* winuser.h might define DrawText to DrawTextA or DrawTextW.
ccf928f0383c (x_create_x_image_and_pixmap) [HAVE_NTGUI]: Cast 4th arg
Eli Zaretskii <eliz@gnu.org>
parents: 63112
diff changeset
7660 Undefine before redefining to avoid a preprocessor warning. */
ccf928f0383c (x_create_x_image_and_pixmap) [HAVE_NTGUI]: Cast 4th arg
Eli Zaretskii <eliz@gnu.org>
parents: 63112
diff changeset
7661 #ifdef DrawText
ccf928f0383c (x_create_x_image_and_pixmap) [HAVE_NTGUI]: Cast 4th arg
Eli Zaretskii <eliz@gnu.org>
parents: 63112
diff changeset
7662 #undef DrawText
ccf928f0383c (x_create_x_image_and_pixmap) [HAVE_NTGUI]: Cast 4th arg
Eli Zaretskii <eliz@gnu.org>
parents: 63112
diff changeset
7663 #endif
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7664 /* avoid conflict with QuickdrawText.h */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7665 #define DrawText gif_DrawText
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7666 #include <gif_lib.h>
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7667 #undef DrawText
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7668
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7669 #else /* HAVE_NTGUI || MAC_OS */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7670
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7671 #include <gif_lib.h>
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7672
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7673 #endif /* HAVE_NTGUI || MAC_OS */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7674
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7675
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7676 #ifdef HAVE_NTGUI
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7677
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7678 /* GIF library details. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7679 DEF_IMGLIB_FN (DGifCloseFile);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7680 DEF_IMGLIB_FN (DGifSlurp);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7681 DEF_IMGLIB_FN (DGifOpen);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7682 DEF_IMGLIB_FN (DGifOpenFileName);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7683
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7684 static int
56104
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
7685 init_gif_functions (Lisp_Object libraries)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7686 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7687 HMODULE library;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7688
56104
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
7689 if (!(library = w32_delayed_load (libraries, Qgif)))
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7690 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7691
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7692 LOAD_IMGLIB_FN (library, DGifCloseFile);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7693 LOAD_IMGLIB_FN (library, DGifSlurp);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7694 LOAD_IMGLIB_FN (library, DGifOpen);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7695 LOAD_IMGLIB_FN (library, DGifOpenFileName);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7696 return 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7697 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7698
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7699 #else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7700
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7701 #define fn_DGifCloseFile DGifCloseFile
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7702 #define fn_DGifSlurp DGifSlurp
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7703 #define fn_DGifOpen DGifOpen
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7704 #define fn_DGifOpenFileName DGifOpenFileName
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7705
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7706 #endif /* HAVE_NTGUI */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7707
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7708 /* Reading a GIF image from memory
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7709 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
7710
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7711 typedef struct
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7712 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7713 unsigned char *bytes;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7714 size_t len;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7715 int index;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7716 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7717 gif_memory_source;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7718
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7719 /* 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
7720 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
7721 a UserData field in the GifFileType structure. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7722 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
7723
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7724 static int
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7725 gif_read_from_memory (file, buf, len)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7726 GifFileType *file;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7727 GifByteType *buf;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7728 int len;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7729 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7730 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
7731
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7732 if (len > src->len - src->index)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7733 return -1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7734
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7735 bcopy (src->bytes + src->index, buf, len);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7736 src->index += len;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7737 return len;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7738 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7739
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7740
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7741 /* 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
7742 successful. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7743
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7744 static int
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7745 gif_load (f, img)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7746 struct frame *f;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7747 struct image *img;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7748 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7749 Lisp_Object file, specified_file;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7750 Lisp_Object specified_data;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7751 int rc, width, height, x, y, i;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7752 XImagePtr ximg;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7753 ColorMapObject *gif_color_map;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7754 unsigned long pixel_colors[256];
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7755 GifFileType *gif;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7756 struct gcpro gcpro1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7757 Lisp_Object image;
70168
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
7758 int ino, image_height, image_width;
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7759 gif_memory_source memsrc;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7760 unsigned char *raster;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7761
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7762 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
7763 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
7764 file = Qnil;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7765 GCPRO1 (file);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7766
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7767 if (NILP (specified_data))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7768 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7769 file = x_find_image_file (specified_file);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7770 if (!STRINGP (file))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7771 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7772 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
7773 UNGCPRO;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7774 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7775 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7776
63323
ccf928f0383c (x_create_x_image_and_pixmap) [HAVE_NTGUI]: Cast 4th arg
Eli Zaretskii <eliz@gnu.org>
parents: 63112
diff changeset
7777 /* Open the GIF file. Casting return value avoids a GCC warning
ccf928f0383c (x_create_x_image_and_pixmap) [HAVE_NTGUI]: Cast 4th arg
Eli Zaretskii <eliz@gnu.org>
parents: 63112
diff changeset
7778 on W32. */
ccf928f0383c (x_create_x_image_and_pixmap) [HAVE_NTGUI]: Cast 4th arg
Eli Zaretskii <eliz@gnu.org>
parents: 63112
diff changeset
7779 gif = (GifFileType *)fn_DGifOpenFileName (SDATA (file));
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7780 if (gif == NULL)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7781 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7782 image_error ("Cannot open `%s'", file, Qnil);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7783 UNGCPRO;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7784 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7785 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7786 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7787 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7788 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7789 /* Read from memory! */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7790 current_gif_memory_src = &memsrc;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7791 memsrc.bytes = SDATA (specified_data);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7792 memsrc.len = SBYTES (specified_data);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7793 memsrc.index = 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7794
63323
ccf928f0383c (x_create_x_image_and_pixmap) [HAVE_NTGUI]: Cast 4th arg
Eli Zaretskii <eliz@gnu.org>
parents: 63112
diff changeset
7795 /* Casting return value avoids a GCC warning on W32. */
ccf928f0383c (x_create_x_image_and_pixmap) [HAVE_NTGUI]: Cast 4th arg
Eli Zaretskii <eliz@gnu.org>
parents: 63112
diff changeset
7796 gif = (GifFileType *)fn_DGifOpen(&memsrc, gif_read_from_memory);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7797 if (!gif)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7798 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7799 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
7800 UNGCPRO;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7801 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7802 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7803 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7804
66195
ad1acaef1abb * image.c (Vmax_image_size): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 66013
diff changeset
7805 /* Before reading entire contents, check the declared image size. */
ad1acaef1abb * image.c (Vmax_image_size): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 66013
diff changeset
7806 if (!check_image_size (f, gif->SWidth, gif->SHeight))
ad1acaef1abb * image.c (Vmax_image_size): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 66013
diff changeset
7807 {
ad1acaef1abb * image.c (Vmax_image_size): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 66013
diff changeset
7808 image_error ("Invalid image size", Qnil, Qnil);
ad1acaef1abb * image.c (Vmax_image_size): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 66013
diff changeset
7809 fn_DGifCloseFile (gif);
ad1acaef1abb * image.c (Vmax_image_size): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 66013
diff changeset
7810 UNGCPRO;
ad1acaef1abb * image.c (Vmax_image_size): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 66013
diff changeset
7811 return 0;
ad1acaef1abb * image.c (Vmax_image_size): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 66013
diff changeset
7812 }
ad1acaef1abb * image.c (Vmax_image_size): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 66013
diff changeset
7813
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7814 /* Read entire contents. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7815 rc = fn_DGifSlurp (gif);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7816 if (rc == GIF_ERROR)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7817 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7818 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
7819 fn_DGifCloseFile (gif);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7820 UNGCPRO;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7821 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7822 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7823
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7824 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
7825 ino = INTEGERP (image) ? XFASTINT (image) : 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7826 if (ino >= gif->ImageCount)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7827 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7828 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
7829 image, img->spec);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7830 fn_DGifCloseFile (gif);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7831 UNGCPRO;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7832 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7833 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7834
70168
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
7835 img->corners[TOP_CORNER] = gif->SavedImages[ino].ImageDesc.Top;
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
7836 img->corners[LEFT_CORNER] = gif->SavedImages[ino].ImageDesc.Left;
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
7837 image_height = gif->SavedImages[ino].ImageDesc.Height;
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
7838 img->corners[BOT_CORNER] = img->corners[TOP_CORNER] + image_height;
65723
b88d5090aa86 (gif_load): Fix size of allocated image buffer
Kim F. Storm <storm@cua.dk>
parents: 65250
diff changeset
7839 image_width = gif->SavedImages[ino].ImageDesc.Width;
70168
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
7840 img->corners[RIGHT_CORNER] = img->corners[LEFT_CORNER] + image_width;
65723
b88d5090aa86 (gif_load): Fix size of allocated image buffer
Kim F. Storm <storm@cua.dk>
parents: 65250
diff changeset
7841
b88d5090aa86 (gif_load): Fix size of allocated image buffer
Kim F. Storm <storm@cua.dk>
parents: 65250
diff changeset
7842 width = img->width = max (gif->SWidth,
b88d5090aa86 (gif_load): Fix size of allocated image buffer
Kim F. Storm <storm@cua.dk>
parents: 65250
diff changeset
7843 max (gif->Image.Left + gif->Image.Width,
70168
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
7844 img->corners[RIGHT_CORNER]));
65723
b88d5090aa86 (gif_load): Fix size of allocated image buffer
Kim F. Storm <storm@cua.dk>
parents: 65250
diff changeset
7845 height = img->height = max (gif->SHeight,
b88d5090aa86 (gif_load): Fix size of allocated image buffer
Kim F. Storm <storm@cua.dk>
parents: 65250
diff changeset
7846 max (gif->Image.Top + gif->Image.Height,
70168
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
7847 img->corners[BOT_CORNER]));
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7848
66195
ad1acaef1abb * image.c (Vmax_image_size): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 66013
diff changeset
7849 if (!check_image_size (f, width, height))
ad1acaef1abb * image.c (Vmax_image_size): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 66013
diff changeset
7850 {
ad1acaef1abb * image.c (Vmax_image_size): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 66013
diff changeset
7851 image_error ("Invalid image size", Qnil, Qnil);
ad1acaef1abb * image.c (Vmax_image_size): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 66013
diff changeset
7852 fn_DGifCloseFile (gif);
ad1acaef1abb * image.c (Vmax_image_size): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 66013
diff changeset
7853 UNGCPRO;
ad1acaef1abb * image.c (Vmax_image_size): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 66013
diff changeset
7854 return 0;
ad1acaef1abb * image.c (Vmax_image_size): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 66013
diff changeset
7855 }
ad1acaef1abb * image.c (Vmax_image_size): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 66013
diff changeset
7856
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7857 /* Create the X image and pixmap. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7858 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
7859 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7860 fn_DGifCloseFile (gif);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7861 UNGCPRO;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7862 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7863 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7864
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7865 /* Allocate colors. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7866 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
7867 if (!gif_color_map)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7868 gif_color_map = gif->SColorMap;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7869 init_color_table ();
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7870 bzero (pixel_colors, sizeof pixel_colors);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7871
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7872 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
7873 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7874 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
7875 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
7876 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
7877 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
7878 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7879
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7880 #ifdef COLOR_TABLE_SUPPORT
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7881 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
7882 free_color_table ();
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7883 #endif /* COLOR_TABLE_SUPPORT */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7884
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7885 /* 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
7886 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
7887 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
7888 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
7889 not covered by a sub-image is in the frame's background color. */
70168
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
7890 for (y = 0; y < img->corners[TOP_CORNER]; ++y)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7891 for (x = 0; x < width; ++x)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7892 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
7893
70168
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
7894 for (y = img->corners[BOT_CORNER]; y < height; ++y)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7895 for (x = 0; x < width; ++x)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7896 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
7897
70168
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
7898 for (y = img->corners[TOP_CORNER]; y < img->corners[BOT_CORNER]; ++y)
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
7899 {
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
7900 for (x = 0; x < img->corners[LEFT_CORNER]; ++x)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7901 XPutPixel (ximg, x, y, FRAME_BACKGROUND_PIXEL (f));
70168
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
7902 for (x = img->corners[RIGHT_CORNER]; x < width; ++x)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7903 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
7904 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7905
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7906 /* 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
7907 `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
7908 problems with bytes >= 0x80. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7909 raster = (unsigned char *) gif->SavedImages[ino].RasterBits;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7910
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7911 if (gif->SavedImages[ino].ImageDesc.Interlace)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7912 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7913 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
7914 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
7915 int pass;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7916 int row = interlace_start[0];
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7917
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7918 pass = 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7919
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7920 for (y = 0; y < image_height; y++)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7921 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7922 if (row >= image_height)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7923 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7924 row = interlace_start[++pass];
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7925 while (row >= image_height)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7926 row = interlace_start[++pass];
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7927 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7928
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7929 for (x = 0; x < image_width; x++)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7930 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7931 int i = raster[(y * image_width) + x];
70168
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
7932 XPutPixel (ximg, x + img->corners[LEFT_CORNER],
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
7933 row + img->corners[TOP_CORNER], pixel_colors[i]);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7934 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7935
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7936 row += interlace_increment[pass];
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7937 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7938 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7939 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7940 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7941 for (y = 0; y < image_height; ++y)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7942 for (x = 0; x < image_width; ++x)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7943 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7944 int i = raster[y * image_width + x];
70168
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
7945 XPutPixel (ximg, x + img->corners[LEFT_CORNER],
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
7946 y + img->corners[TOP_CORNER], pixel_colors[i]);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7947 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7948 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7949
70168
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
7950 /* Save GIF image extension data for `image-extension-data'.
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
7951 Format is (count IMAGES FUNCTION "BYTES" ...). */
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
7952 img->data.lisp_val = Qnil;
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
7953 if (gif->SavedImages[ino].ExtensionBlockCount > 0)
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
7954 {
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
7955 ExtensionBlock *ext = gif->SavedImages[ino].ExtensionBlocks;
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
7956 for (i = 0; i < gif->SavedImages[ino].ExtensionBlockCount; i++, ext++)
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
7957 /* Append (... FUNCTION "BYTES") */
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
7958 img->data.lisp_val = Fcons (make_unibyte_string (ext->Bytes, ext->ByteCount),
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
7959 Fcons (make_number (ext->Function),
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
7960 img->data.lisp_val));
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
7961 img->data.lisp_val = Fnreverse (img->data.lisp_val);
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
7962 }
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
7963 if (gif->ImageCount > 1)
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
7964 img->data.lisp_val = Fcons (Qcount,
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
7965 Fcons (make_number (gif->ImageCount),
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
7966 img->data.lisp_val));
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
7967
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7968 fn_DGifCloseFile (gif);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7969
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7970 /* 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
7971 if (NILP (image_spec_value (img->spec, QCbackground, NULL)))
63323
ccf928f0383c (x_create_x_image_and_pixmap) [HAVE_NTGUI]: Cast 4th arg
Eli Zaretskii <eliz@gnu.org>
parents: 63112
diff changeset
7972 /* Casting avoids a GCC warning. */
ccf928f0383c (x_create_x_image_and_pixmap) [HAVE_NTGUI]: Cast 4th arg
Eli Zaretskii <eliz@gnu.org>
parents: 63112
diff changeset
7973 IMAGE_BACKGROUND (img, f, (XImagePtr_or_DC)ximg);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7974
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7975 /* 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
7976 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
7977 x_destroy_x_image (ximg);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7978
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7979 UNGCPRO;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7980 return 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7981 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7982
63323
ccf928f0383c (x_create_x_image_and_pixmap) [HAVE_NTGUI]: Cast 4th arg
Eli Zaretskii <eliz@gnu.org>
parents: 63112
diff changeset
7983 #else /* !HAVE_GIF */
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7984
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7985 #ifdef MAC_OS
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7986 static int
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7987 gif_load (f, img)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7988 struct frame *f;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7989 struct image *img;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7990 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7991 Lisp_Object specified_file, file;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7992 Lisp_Object specified_data;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7993 OSErr err;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7994 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
7995 Handle dh = NULL;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7996 Movie movie = NULL;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7997 Lisp_Object image;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7998 Track track = NULL;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
7999 Media media = NULL;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8000 long nsamples;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8001 Rect rect;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8002 Lisp_Object specified_bg;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8003 XColor color;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8004 RGBColor bg_color;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8005 int width, height;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8006 XImagePtr ximg;
70431
7c25b386a4c3 (Qduration) [MAC_OS]: New variable.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70168
diff changeset
8007 TimeScale time_scale;
7c25b386a4c3 (Qduration) [MAC_OS]: New variable.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70168
diff changeset
8008 TimeValue time, duration;
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8009 int ino;
55412
53a1a79a33f9 macterm.c (mac_check_for_quit_char): Adding BLOCK_INPUT
Steven Tamm <steventamm@mac.com>
parents: 55375
diff changeset
8010 CGrafPtr old_port;
53a1a79a33f9 macterm.c (mac_check_for_quit_char): Adding BLOCK_INPUT
Steven Tamm <steventamm@mac.com>
parents: 55375
diff changeset
8011 GDHandle old_gdh;
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8012
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8013 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
8014 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
8015
67454
939281029286 (init_image) [MAC_OS]: Don't call EnterMovies.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 66994
diff changeset
8016 /* Animated gifs use QuickTime Movie Toolbox. So initialize it here. */
939281029286 (init_image) [MAC_OS]: Don't call EnterMovies.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 66994
diff changeset
8017 EnterMovies ();
939281029286 (init_image) [MAC_OS]: Don't call EnterMovies.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 66994
diff changeset
8018
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8019 if (NILP (specified_data))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8020 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8021 /* Read from a file */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8022 FSSpec fss;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8023 short refnum;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8024
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8025 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
8026 if (err != noErr)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8027 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8028 if (err == fnfErr)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8029 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
8030 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8031 goto open_error;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8032 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8033
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8034 err = CanQuickTimeOpenFile (&fss, kQTFileTypeGIF, 0,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8035 &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
8036 if (err != noErr)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8037 goto open_error;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8038
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8039 if (!graphic_p && !movie_p)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8040 goto open_error;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8041 if (prefer_graphic_p)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8042 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
8043 err = OpenMovieFile (&fss, &refnum, fsRdPerm);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8044 if (err != noErr)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8045 goto open_error;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8046 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
8047 CloseMovieFile (refnum);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8048 if (err != noErr)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8049 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8050 image_error ("Error reading `%s'", file, Qnil);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8051 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8052 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8053 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8054 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8055 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8056 /* Memory source! */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8057 Handle dref = NULL;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8058 long file_type_atom[3];
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8059
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8060 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
8061 if (err != noErr)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8062 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8063 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
8064 img->spec, Qnil);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8065 goto error;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8066 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8067
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8068 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
8069 file_type_atom[1] = EndianU32_NtoB (kDataRefExtensionMacOSFileType);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8070 file_type_atom[2] = EndianU32_NtoB (kQTFileTypeGIF);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8071 err = PtrToHand (&dh, &dref, sizeof (Handle));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8072 if (err == noErr)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8073 /* no file name */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8074 err = PtrAndHand ("\p", dref, 1);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8075 if (err == noErr)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8076 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
8077 if (err != noErr)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8078 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8079 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
8080 goto error;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8081 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8082 err = CanQuickTimeOpenDataRef (dref, HandleDataHandlerSubType, &graphic_p,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8083 &movie_p, &prefer_graphic_p, 0);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8084 if (err != noErr)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8085 goto open_error;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8086
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8087 if (!graphic_p && !movie_p)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8088 goto open_error;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8089 if (prefer_graphic_p)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8090 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8091 int success_p;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8092
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8093 DisposeHandle (dref);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8094 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
8095 DisposeHandle (dh);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8096 return success_p;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8097 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8098 err = NewMovieFromDataRef (&movie, 0, NULL, dref,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8099 HandleDataHandlerSubType);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8100 DisposeHandle (dref);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8101 if (err != noErr)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8102 goto open_error;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8103 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8104
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8105 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
8106 ino = INTEGERP (image) ? XFASTINT (image) : 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8107 track = GetMovieIndTrack (movie, 1);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8108 media = GetTrackMedia (track);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8109 nsamples = GetMediaSampleCount (media);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8110 if (ino >= nsamples)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8111 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8112 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
8113 image, img->spec);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8114 goto error;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8115 }
70431
7c25b386a4c3 (Qduration) [MAC_OS]: New variable.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70168
diff changeset
8116 time_scale = GetMediaTimeScale (media);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8117
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8118 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
8119 if (!STRINGP (specified_bg) ||
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8120 !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
8121 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8122 color.pixel = FRAME_BACKGROUND_PIXEL (f);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8123 color.red = RED16_FROM_ULONG (color.pixel);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8124 color.green = GREEN16_FROM_ULONG (color.pixel);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8125 color.blue = BLUE16_FROM_ULONG (color.pixel);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8126 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8127 GetMovieBox (movie, &rect);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8128 width = img->width = rect.right - rect.left;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8129 height = img->height = rect.bottom - rect.top;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8130 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
8131 goto error;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8132
55412
53a1a79a33f9 macterm.c (mac_check_for_quit_char): Adding BLOCK_INPUT
Steven Tamm <steventamm@mac.com>
parents: 55375
diff changeset
8133 GetGWorld (&old_port, &old_gdh);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8134 SetGWorld (ximg, NULL);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8135 bg_color.red = color.red;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8136 bg_color.green = color.green;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8137 bg_color.blue = color.blue;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8138 RGBBackColor (&bg_color);
55412
53a1a79a33f9 macterm.c (mac_check_for_quit_char): Adding BLOCK_INPUT
Steven Tamm <steventamm@mac.com>
parents: 55375
diff changeset
8139 SetGWorld (old_port, old_gdh);
58846
4d7444f1a64c (our_fill_input_buffer, jpeg_load, CHECK_LIB_AVAILABLE, init_image):
Richard M. Stallman <rms@gnu.org>
parents: 58752
diff changeset
8140 SetMovieActive (movie, 1);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8141 SetMovieGWorld (movie, ximg, NULL);
70431
7c25b386a4c3 (Qduration) [MAC_OS]: New variable.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70168
diff changeset
8142 SampleNumToMediaTime (media, ino + 1, &time, &duration);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8143 SetMovieTimeValue (movie, time);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8144 MoviesTask (movie, 0L);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8145 DisposeTrackMedia (media);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8146 DisposeMovieTrack (track);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8147 DisposeMovie (movie);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8148 if (dh)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8149 DisposeHandle (dh);
70431
7c25b386a4c3 (Qduration) [MAC_OS]: New variable.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70168
diff changeset
8150
7c25b386a4c3 (Qduration) [MAC_OS]: New variable.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70168
diff changeset
8151 /* Save GIF image extension data for `image-extension-data'.
70560
de135c2adb2f (Qduration) [MAC_OS]: Undo previous change.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70431
diff changeset
8152 Format is (count IMAGES 0xf9 GRAPHIC_CONTROL_EXTENSION_BLOCK). */
de135c2adb2f (Qduration) [MAC_OS]: Undo previous change.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70431
diff changeset
8153 {
70733
998a6aaa87bf (gif_load): Allocate Lisp string first.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70560
diff changeset
8154 Lisp_Object gce = make_uninit_string (4);
70560
de135c2adb2f (Qduration) [MAC_OS]: Undo previous change.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70431
diff changeset
8155 int centisec = ((float)duration / time_scale) * 100.0f + 0.5f;
de135c2adb2f (Qduration) [MAC_OS]: Undo previous change.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70431
diff changeset
8156
de135c2adb2f (Qduration) [MAC_OS]: Undo previous change.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70431
diff changeset
8157 /* Fill the delay time field. */
70733
998a6aaa87bf (gif_load): Allocate Lisp string first.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70560
diff changeset
8158 SSET (gce, 1, centisec & 0xff);
998a6aaa87bf (gif_load): Allocate Lisp string first.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70560
diff changeset
8159 SSET (gce, 2, (centisec >> 8) & 0xff);
70560
de135c2adb2f (Qduration) [MAC_OS]: Undo previous change.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70431
diff changeset
8160 /* We don't know about other fields. */
70733
998a6aaa87bf (gif_load): Allocate Lisp string first.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70560
diff changeset
8161 SSET (gce, 0, 0);
998a6aaa87bf (gif_load): Allocate Lisp string first.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70560
diff changeset
8162 SSET (gce, 3, 0);
70560
de135c2adb2f (Qduration) [MAC_OS]: Undo previous change.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70431
diff changeset
8163
de135c2adb2f (Qduration) [MAC_OS]: Undo previous change.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70431
diff changeset
8164 img->data.lisp_val = list4 (Qcount, make_number (nsamples),
70733
998a6aaa87bf (gif_load): Allocate Lisp string first.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70560
diff changeset
8165 make_number (0xf9), gce);
70560
de135c2adb2f (Qduration) [MAC_OS]: Undo previous change.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70431
diff changeset
8166 }
70431
7c25b386a4c3 (Qduration) [MAC_OS]: New variable.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70168
diff changeset
8167
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8168 /* 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
8169 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
8170 IMAGE_BACKGROUND (img, f, ximg);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8171
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8172 /* Put the image into the pixmap. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8173 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
8174 x_destroy_x_image (ximg);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8175 return 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8176
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8177 open_error:
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8178 image_error ("Cannot open `%s'", file, Qnil);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8179 error:
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8180 if (media)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8181 DisposeTrackMedia (media);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8182 if (track)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8183 DisposeMovieTrack (track);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8184 if (movie)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8185 DisposeMovie (movie);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8186 if (dh)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8187 DisposeHandle (dh);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8188 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8189 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8190 #endif /* MAC_OS */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8191
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8192 #endif /* HAVE_GIF */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8193
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8194
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8195
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8196 /***********************************************************************
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8197 Ghostscript
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8198 ***********************************************************************/
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8199
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8200 #ifdef HAVE_X_WINDOWS
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8201 #define HAVE_GHOSTSCRIPT 1
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8202 #endif /* HAVE_X_WINDOWS */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8203
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8204 /* 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
8205
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8206 Lisp_Object Qpostscript;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8207
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8208 #ifdef HAVE_GHOSTSCRIPT
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8209
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8210 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
8211 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
8212 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
8213
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8214 /* Keyword symbols. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8215
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8216 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
8217
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8218 /* 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
8219
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8220 enum gs_keyword_index
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8221 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8222 GS_TYPE,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8223 GS_PT_WIDTH,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8224 GS_PT_HEIGHT,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8225 GS_FILE,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8226 GS_LOADER,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8227 GS_BOUNDING_BOX,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8228 GS_ASCENT,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8229 GS_MARGIN,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8230 GS_RELIEF,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8231 GS_ALGORITHM,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8232 GS_HEURISTIC_MASK,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8233 GS_MASK,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8234 GS_BACKGROUND,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8235 GS_LAST
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8236 };
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8237
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8238 /* 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
8239 of valid user-defined image specifications. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8240
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8241 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
8242 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8243 {":type", IMAGE_SYMBOL_VALUE, 1},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8244 {":pt-width", IMAGE_POSITIVE_INTEGER_VALUE, 1},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8245 {":pt-height", IMAGE_POSITIVE_INTEGER_VALUE, 1},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8246 {":file", IMAGE_STRING_VALUE, 1},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8247 {":loader", IMAGE_FUNCTION_VALUE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8248 {":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
8249 {":ascent", IMAGE_ASCENT_VALUE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8250 {":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
8251 {":relief", IMAGE_INTEGER_VALUE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8252 {":conversion", IMAGE_DONT_CHECK_VALUE_TYPE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8253 {":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
8254 {":mask", IMAGE_DONT_CHECK_VALUE_TYPE, 0},
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8255 {":background", IMAGE_STRING_OR_NIL_VALUE, 0}
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8256 };
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8257
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8258 /* Structure describing the image type `ghostscript'. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8259
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8260 static struct image_type gs_type =
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8261 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8262 &Qpostscript,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8263 gs_image_p,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8264 gs_load,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8265 gs_clear_image,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8266 NULL
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8267 };
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8268
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8269
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8270 /* 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
8271
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8272 static void
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8273 gs_clear_image (f, img)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8274 struct frame *f;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8275 struct image *img;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8276 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8277 /* 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
8278 xfree (img->data.ptr_val);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8279 x_clear_image (f, img);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8280 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8281
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8282
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8283 /* 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
8284 specification. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8285
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8286 static int
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8287 gs_image_p (object)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8288 Lisp_Object object;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8289 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8290 struct image_keyword fmt[GS_LAST];
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8291 Lisp_Object tem;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8292 int i;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8293
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8294 bcopy (gs_format, fmt, sizeof fmt);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8295
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8296 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
8297 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8298
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8299 /* 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
8300 tem = fmt[GS_BOUNDING_BOX].value;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8301 if (CONSP (tem))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8302 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8303 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
8304 if (!CONSP (tem) || !INTEGERP (XCAR (tem)))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8305 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8306 if (!NILP (tem))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8307 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8308 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8309 else if (VECTORP (tem))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8310 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8311 if (XVECTOR (tem)->size != 4)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8312 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8313 for (i = 0; i < 4; ++i)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8314 if (!INTEGERP (XVECTOR (tem)->contents[i]))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8315 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8316 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8317 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8318 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8319
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8320 return 1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8321 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8322
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8323
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8324 /* 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
8325 if successful. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8326
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8327 static int
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8328 gs_load (f, img)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8329 struct frame *f;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8330 struct image *img;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8331 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8332 char buffer[100];
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8333 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
8334 struct gcpro gcpro1, gcpro2;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8335 Lisp_Object frame;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8336 double in_width, in_height;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8337 Lisp_Object pixel_colors = Qnil;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8338
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8339 /* 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
8340 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
8341 = 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
8342 info. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8343 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
8344 in_width = XFASTINT (pt_width) / 72.0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8345 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
8346 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
8347 in_height = XFASTINT (pt_height) / 72.0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8348 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
8349
66195
ad1acaef1abb * image.c (Vmax_image_size): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 66013
diff changeset
8350 if (!check_image_size (f, img->width, img->height))
ad1acaef1abb * image.c (Vmax_image_size): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 66013
diff changeset
8351 {
ad1acaef1abb * image.c (Vmax_image_size): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 66013
diff changeset
8352 image_error ("Invalid image size", Qnil, Qnil);
ad1acaef1abb * image.c (Vmax_image_size): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 66013
diff changeset
8353 return 0;
ad1acaef1abb * image.c (Vmax_image_size): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 66013
diff changeset
8354 }
ad1acaef1abb * image.c (Vmax_image_size): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 66013
diff changeset
8355
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8356 /* Create the pixmap. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8357 xassert (img->pixmap == NO_PIXMAP);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8358
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8359 /* 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
8360 BLOCK_INPUT;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8361 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
8362 img->width, img->height,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8363 DefaultDepthOfScreen (FRAME_X_SCREEN (f)));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8364 UNBLOCK_INPUT;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8365
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8366 if (!img->pixmap)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8367 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8368 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
8369 return 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8370 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8371
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8372 /* 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
8373 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
8374 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
8375 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
8376 GCPRO2 (window_and_pixmap_id, pixel_colors);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8377
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8378 sprintf (buffer, "%lu %lu",
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8379 (unsigned long) FRAME_X_WINDOW (f),
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8380 (unsigned long) img->pixmap);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8381 window_and_pixmap_id = build_string (buffer);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8382
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8383 sprintf (buffer, "%lu %lu",
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8384 FRAME_FOREGROUND_PIXEL (f),
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8385 FRAME_BACKGROUND_PIXEL (f));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8386 pixel_colors = build_string (buffer);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8387
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8388 XSETFRAME (frame, f);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8389 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
8390 if (NILP (loader))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8391 loader = intern ("gs-load-image");
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8392
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8393 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
8394 make_number (img->width),
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8395 make_number (img->height),
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8396 window_and_pixmap_id,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8397 pixel_colors);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8398 UNGCPRO;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8399 return PROCESSP (img->data.lisp_val);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8400 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8401
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8402
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8403 /* 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
8404 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
8405 telling Emacs that Ghostscript has finished drawing. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8406
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8407 void
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8408 x_kill_gs_process (pixmap, f)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8409 Pixmap pixmap;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8410 struct frame *f;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8411 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8412 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
8413 int class, i;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8414 struct image *img;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8415
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8416 /* Find the image containing PIXMAP. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8417 for (i = 0; i < c->used; ++i)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8418 if (c->images[i]->pixmap == pixmap)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8419 break;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8420
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8421 /* 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
8422 instance, give up. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8423 if (i == c->used)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8424 return;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8425
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8426 /* 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
8427 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
8428 img = c->images[i];
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8429 xassert (PROCESSP (img->data.lisp_val));
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8430 Fkill_process (img->data.lisp_val, Qnil);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8431 img->data.lisp_val = Qnil;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8432
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8433 #if defined (HAVE_X_WINDOWS)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8434
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8435 /* 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
8436 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
8437 img->pixmap. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8438 class = FRAME_X_VISUAL (f)->class;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8439 if (class != StaticColor && class != StaticGray && class != TrueColor)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8440 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8441 XImagePtr ximg;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8442
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8443 BLOCK_INPUT;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8444
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8445 /* 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
8446 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
8447 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
8448 if (ximg)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8449 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8450 int x, y;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8451
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8452 /* Initialize the color table. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8453 init_color_table ();
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8454
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8455 /* 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
8456 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
8457 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
8458 for (y = 0; y < img->height; ++y)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8459 for (x = 0; x < img->width; ++x)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8460 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8461 unsigned long pixel = XGetPixel (ximg, x, y);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8462 lookup_pixel_color (f, pixel);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8463 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8464
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8465 /* 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
8466 #ifdef COLOR_TABLE_SUPPORT
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8467 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
8468 free_color_table ();
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8469 #endif
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8470 XDestroyImage (ximg);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8471
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8472 #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
8473 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
8474 freeing the colors. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8475 /* 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
8476 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
8477 reference counts right, free them once. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8478 if (img->ncolors)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8479 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
8480 #endif
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8481 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8482 else
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8483 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
8484 img->spec, Qnil);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8485
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8486 UNBLOCK_INPUT;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8487 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8488 #endif /* HAVE_X_WINDOWS */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8489
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8490 /* 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
8491 image if requested. */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8492 BLOCK_INPUT;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8493 postprocess_image (f, img);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8494 UNBLOCK_INPUT;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8495 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8496
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8497 #endif /* HAVE_GHOSTSCRIPT */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8498
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8499
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8500 /***********************************************************************
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8501 Tests
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8502 ***********************************************************************/
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8503
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8504 #if GLYPH_DEBUG
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8505
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8506 DEFUN ("imagep", Fimagep, Simagep, 1, 1, 0,
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8507 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
8508 (spec)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8509 Lisp_Object spec;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8510 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8511 return valid_image_p (spec) ? Qt : Qnil;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8512 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8513
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8514
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8515 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
8516 (spec)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8517 Lisp_Object spec;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8518 {
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8519 int id = -1;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8520
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8521 if (valid_image_p (spec))
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8522 id = lookup_image (SELECTED_FRAME (), spec);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8523
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8524 debug_print (spec);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8525 return make_number (id);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8526 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8527
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8528 #endif /* GLYPH_DEBUG != 0 */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8529
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8530
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8531 /***********************************************************************
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8532 Initialization
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8533 ***********************************************************************/
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8534
56104
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
8535 #ifdef HAVE_NTGUI
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
8536 /* Image types that rely on external libraries are loaded dynamically
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
8537 if the library is available. */
56288
7acb38a05354 (CHECK_LIB_AVAILABLE): Add third parameter LIBRARIES.
Andreas Schwab <schwab@suse.de>
parents: 56132
diff changeset
8538 #define CHECK_LIB_AVAILABLE(image_type, init_lib_fn, libraries) \
56104
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
8539 define_image_type (image_type, init_lib_fn (libraries))
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
8540 #else
56288
7acb38a05354 (CHECK_LIB_AVAILABLE): Add third parameter LIBRARIES.
Andreas Schwab <schwab@suse.de>
parents: 56132
diff changeset
8541 #define CHECK_LIB_AVAILABLE(image_type, init_lib_fn, libraries) \
58846
4d7444f1a64c (our_fill_input_buffer, jpeg_load, CHECK_LIB_AVAILABLE, init_image):
Richard M. Stallman <rms@gnu.org>
parents: 58752
diff changeset
8542 define_image_type (image_type, 1)
56104
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
8543 #endif /* HAVE_NTGUI */
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
8544
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
8545 DEFUN ("init-image-library", Finit_image_library, Sinit_image_library, 2, 2, 0,
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
8546 doc: /* Initialize image library implementing image type TYPE.
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
8547 Return non-nil if TYPE is a supported image type.
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
8548
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
8549 Image types pbm and xbm are prebuilt; other types are loaded here.
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
8550 Libraries to load are specified in alist LIBRARIES (usually, the value
56288
7acb38a05354 (CHECK_LIB_AVAILABLE): Add third parameter LIBRARIES.
Andreas Schwab <schwab@suse.de>
parents: 56132
diff changeset
8551 of `image-library-alist', which see). */)
56104
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
8552 (type, libraries)
56288
7acb38a05354 (CHECK_LIB_AVAILABLE): Add third parameter LIBRARIES.
Andreas Schwab <schwab@suse.de>
parents: 56132
diff changeset
8553 Lisp_Object type, libraries;
56104
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
8554 {
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
8555 Lisp_Object tested;
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
8556
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
8557 /* Don't try to reload the library. */
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
8558 tested = Fassq (type, Vimage_type_cache);
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
8559 if (CONSP (tested))
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
8560 return XCDR (tested);
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
8561
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
8562 #if defined (HAVE_XPM) || defined (MAC_OS)
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
8563 if (EQ (type, Qxpm))
56288
7acb38a05354 (CHECK_LIB_AVAILABLE): Add third parameter LIBRARIES.
Andreas Schwab <schwab@suse.de>
parents: 56132
diff changeset
8564 return CHECK_LIB_AVAILABLE (&xpm_type, init_xpm_functions, libraries);
56104
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
8565 #endif
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
8566
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
8567 #if defined (HAVE_JPEG) || defined (MAC_OS)
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
8568 if (EQ (type, Qjpeg))
56288
7acb38a05354 (CHECK_LIB_AVAILABLE): Add third parameter LIBRARIES.
Andreas Schwab <schwab@suse.de>
parents: 56132
diff changeset
8569 return CHECK_LIB_AVAILABLE (&jpeg_type, init_jpeg_functions, libraries);
56104
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
8570 #endif
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
8571
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
8572 #if defined (HAVE_TIFF) || defined (MAC_OS)
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
8573 if (EQ (type, Qtiff))
56288
7acb38a05354 (CHECK_LIB_AVAILABLE): Add third parameter LIBRARIES.
Andreas Schwab <schwab@suse.de>
parents: 56132
diff changeset
8574 return CHECK_LIB_AVAILABLE (&tiff_type, init_tiff_functions, libraries);
56104
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
8575 #endif
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
8576
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
8577 #if defined (HAVE_GIF) || defined (MAC_OS)
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
8578 if (EQ (type, Qgif))
56288
7acb38a05354 (CHECK_LIB_AVAILABLE): Add third parameter LIBRARIES.
Andreas Schwab <schwab@suse.de>
parents: 56132
diff changeset
8579 return CHECK_LIB_AVAILABLE (&gif_type, init_gif_functions, libraries);
56104
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
8580 #endif
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
8581
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
8582 #if defined (HAVE_PNG) || defined (MAC_OS)
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
8583 if (EQ (type, Qpng))
56288
7acb38a05354 (CHECK_LIB_AVAILABLE): Add third parameter LIBRARIES.
Andreas Schwab <schwab@suse.de>
parents: 56132
diff changeset
8584 return CHECK_LIB_AVAILABLE (&png_type, init_png_functions, libraries);
56104
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
8585 #endif
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
8586
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
8587 #ifdef HAVE_GHOSTSCRIPT
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
8588 if (EQ (type, Qpostscript))
56288
7acb38a05354 (CHECK_LIB_AVAILABLE): Add third parameter LIBRARIES.
Andreas Schwab <schwab@suse.de>
parents: 56132
diff changeset
8589 return CHECK_LIB_AVAILABLE (&gs_type, init_gs_functions, libraries);
56104
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
8590 #endif
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
8591
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
8592 /* If the type is not recognized, avoid testing it ever again. */
56288
7acb38a05354 (CHECK_LIB_AVAILABLE): Add third parameter LIBRARIES.
Andreas Schwab <schwab@suse.de>
parents: 56132
diff changeset
8593 CACHE_IMAGE_TYPE (type, Qnil);
56104
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
8594 return Qnil;
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
8595 }
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
8596
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8597 void
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8598 syms_of_image ()
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8599 {
62815
94db1d097527 (Vimage_library_alist): Moved from image.el.
Juanma Barranquero <lekktu@gmail.com>
parents: 62561
diff changeset
8600 extern Lisp_Object Qrisky_local_variable; /* Syms_of_xdisp has already run. */
94db1d097527 (Vimage_library_alist): Moved from image.el.
Juanma Barranquero <lekktu@gmail.com>
parents: 62561
diff changeset
8601
64910
eef3e25f6aed (syms_of_image): Init image_types here, and call define_image_type.
Richard M. Stallman <rms@gnu.org>
parents: 64770
diff changeset
8602 /* Initialize this only once, since that's what we do with Vimage_types
eef3e25f6aed (syms_of_image): Init image_types here, and call define_image_type.
Richard M. Stallman <rms@gnu.org>
parents: 64770
diff changeset
8603 and they are supposed to be in sync. Initializing here gives correct
eef3e25f6aed (syms_of_image): Init image_types here, and call define_image_type.
Richard M. Stallman <rms@gnu.org>
parents: 64770
diff changeset
8604 operation on GNU/Linux of calling dump-emacs after loading some images. */
eef3e25f6aed (syms_of_image): Init image_types here, and call define_image_type.
Richard M. Stallman <rms@gnu.org>
parents: 64770
diff changeset
8605 image_types = NULL;
eef3e25f6aed (syms_of_image): Init image_types here, and call define_image_type.
Richard M. Stallman <rms@gnu.org>
parents: 64770
diff changeset
8606
56104
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
8607 /* Must be defined now becase we're going to update it below, while
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
8608 defining the supported image types. */
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
8609 DEFVAR_LISP ("image-types", &Vimage_types,
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
8610 doc: /* List of potentially supported image types.
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
8611 Each element of the list is a symbol for a image type, like 'jpeg or 'png.
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
8612 To check whether it is really supported, use `image-type-available-p'. */);
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
8613 Vimage_types = Qnil;
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
8614
62815
94db1d097527 (Vimage_library_alist): Moved from image.el.
Juanma Barranquero <lekktu@gmail.com>
parents: 62561
diff changeset
8615 DEFVAR_LISP ("image-library-alist", &Vimage_library_alist,
94db1d097527 (Vimage_library_alist): Moved from image.el.
Juanma Barranquero <lekktu@gmail.com>
parents: 62561
diff changeset
8616 doc: /* Alist of image types vs external libraries needed to display them.
94db1d097527 (Vimage_library_alist): Moved from image.el.
Juanma Barranquero <lekktu@gmail.com>
parents: 62561
diff changeset
8617
94db1d097527 (Vimage_library_alist): Moved from image.el.
Juanma Barranquero <lekktu@gmail.com>
parents: 62561
diff changeset
8618 Each element is a list (IMAGE-TYPE LIBRARY...), where the car is a symbol
94db1d097527 (Vimage_library_alist): Moved from image.el.
Juanma Barranquero <lekktu@gmail.com>
parents: 62561
diff changeset
8619 representing a supported image type, and the rest are strings giving
94db1d097527 (Vimage_library_alist): Moved from image.el.
Juanma Barranquero <lekktu@gmail.com>
parents: 62561
diff changeset
8620 alternate filenames for the corresponding external libraries.
94db1d097527 (Vimage_library_alist): Moved from image.el.
Juanma Barranquero <lekktu@gmail.com>
parents: 62561
diff changeset
8621
94db1d097527 (Vimage_library_alist): Moved from image.el.
Juanma Barranquero <lekktu@gmail.com>
parents: 62561
diff changeset
8622 Emacs tries to load the libraries in the order they appear on the
94db1d097527 (Vimage_library_alist): Moved from image.el.
Juanma Barranquero <lekktu@gmail.com>
parents: 62561
diff changeset
8623 list; if none is loaded, the running session of Emacs won't
94db1d097527 (Vimage_library_alist): Moved from image.el.
Juanma Barranquero <lekktu@gmail.com>
parents: 62561
diff changeset
8624 support the image type. Types 'pbm and 'xbm don't need to be
94db1d097527 (Vimage_library_alist): Moved from image.el.
Juanma Barranquero <lekktu@gmail.com>
parents: 62561
diff changeset
8625 listed; they're always supported. */);
94db1d097527 (Vimage_library_alist): Moved from image.el.
Juanma Barranquero <lekktu@gmail.com>
parents: 62561
diff changeset
8626 Vimage_library_alist = Qnil;
94db1d097527 (Vimage_library_alist): Moved from image.el.
Juanma Barranquero <lekktu@gmail.com>
parents: 62561
diff changeset
8627 Fput (intern ("image-library-alist"), Qrisky_local_variable, Qt);
94db1d097527 (Vimage_library_alist): Moved from image.el.
Juanma Barranquero <lekktu@gmail.com>
parents: 62561
diff changeset
8628
66195
ad1acaef1abb * image.c (Vmax_image_size): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 66013
diff changeset
8629 DEFVAR_LISP ("max-image-size", &Vmax_image_size,
66208
5414bd89ffde (check_image_size): Handle integer Vmax_image_size value
Kim F. Storm <storm@cua.dk>
parents: 66195
diff changeset
8630 doc: /* Maximum size of images.
5414bd89ffde (check_image_size): Handle integer Vmax_image_size value
Kim F. Storm <storm@cua.dk>
parents: 66195
diff changeset
8631 Emacs will not load an image into memory if its pixel width or
5414bd89ffde (check_image_size): Handle integer Vmax_image_size value
Kim F. Storm <storm@cua.dk>
parents: 66195
diff changeset
8632 pixel height exceeds this limit.
5414bd89ffde (check_image_size): Handle integer Vmax_image_size value
Kim F. Storm <storm@cua.dk>
parents: 66195
diff changeset
8633
5414bd89ffde (check_image_size): Handle integer Vmax_image_size value
Kim F. Storm <storm@cua.dk>
parents: 66195
diff changeset
8634 If the value is an integer, it directly specifies the maximum
5414bd89ffde (check_image_size): Handle integer Vmax_image_size value
Kim F. Storm <storm@cua.dk>
parents: 66195
diff changeset
8635 image height and width, measured in pixels. If it is a floating
5414bd89ffde (check_image_size): Handle integer Vmax_image_size value
Kim F. Storm <storm@cua.dk>
parents: 66195
diff changeset
8636 point number, it specifies the maximum image height and width
5414bd89ffde (check_image_size): Handle integer Vmax_image_size value
Kim F. Storm <storm@cua.dk>
parents: 66195
diff changeset
8637 as a ratio to the frame height and width. If the value is
5414bd89ffde (check_image_size): Handle integer Vmax_image_size value
Kim F. Storm <storm@cua.dk>
parents: 66195
diff changeset
8638 non-numeric, there is no explicit limit on the size of images. */);
66195
ad1acaef1abb * image.c (Vmax_image_size): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 66013
diff changeset
8639 Vmax_image_size = make_float (MAX_IMAGE_SIZE);
ad1acaef1abb * image.c (Vmax_image_size): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 66013
diff changeset
8640
56104
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
8641 Vimage_type_cache = Qnil;
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
8642 staticpro (&Vimage_type_cache);
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
8643
64967
30b17a96bd90 (syms_of_image): Init Qxbm, Qpbm before calling define_image_type.
Richard M. Stallman <rms@gnu.org>
parents: 64910
diff changeset
8644 Qpbm = intern ("pbm");
30b17a96bd90 (syms_of_image): Init Qxbm, Qpbm before calling define_image_type.
Richard M. Stallman <rms@gnu.org>
parents: 64910
diff changeset
8645 staticpro (&Qpbm);
30b17a96bd90 (syms_of_image): Init Qxbm, Qpbm before calling define_image_type.
Richard M. Stallman <rms@gnu.org>
parents: 64910
diff changeset
8646 ADD_IMAGE_TYPE(Qpbm);
30b17a96bd90 (syms_of_image): Init Qxbm, Qpbm before calling define_image_type.
Richard M. Stallman <rms@gnu.org>
parents: 64910
diff changeset
8647
30b17a96bd90 (syms_of_image): Init Qxbm, Qpbm before calling define_image_type.
Richard M. Stallman <rms@gnu.org>
parents: 64910
diff changeset
8648 Qxbm = intern ("xbm");
30b17a96bd90 (syms_of_image): Init Qxbm, Qpbm before calling define_image_type.
Richard M. Stallman <rms@gnu.org>
parents: 64910
diff changeset
8649 staticpro (&Qxbm);
30b17a96bd90 (syms_of_image): Init Qxbm, Qpbm before calling define_image_type.
Richard M. Stallman <rms@gnu.org>
parents: 64910
diff changeset
8650 ADD_IMAGE_TYPE(Qxbm);
30b17a96bd90 (syms_of_image): Init Qxbm, Qpbm before calling define_image_type.
Richard M. Stallman <rms@gnu.org>
parents: 64910
diff changeset
8651
30b17a96bd90 (syms_of_image): Init Qxbm, Qpbm before calling define_image_type.
Richard M. Stallman <rms@gnu.org>
parents: 64910
diff changeset
8652 define_image_type (&xbm_type, 1);
30b17a96bd90 (syms_of_image): Init Qxbm, Qpbm before calling define_image_type.
Richard M. Stallman <rms@gnu.org>
parents: 64910
diff changeset
8653 define_image_type (&pbm_type, 1);
30b17a96bd90 (syms_of_image): Init Qxbm, Qpbm before calling define_image_type.
Richard M. Stallman <rms@gnu.org>
parents: 64910
diff changeset
8654
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8655 QCascent = intern (":ascent");
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8656 staticpro (&QCascent);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8657 QCmargin = intern (":margin");
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8658 staticpro (&QCmargin);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8659 QCrelief = intern (":relief");
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8660 staticpro (&QCrelief);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8661 QCconversion = intern (":conversion");
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8662 staticpro (&QCconversion);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8663 QCcolor_symbols = intern (":color-symbols");
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8664 staticpro (&QCcolor_symbols);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8665 QCheuristic_mask = intern (":heuristic-mask");
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8666 staticpro (&QCheuristic_mask);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8667 QCindex = intern (":index");
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8668 staticpro (&QCindex);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8669 QCmatrix = intern (":matrix");
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8670 staticpro (&QCmatrix);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8671 QCcolor_adjustment = intern (":color-adjustment");
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8672 staticpro (&QCcolor_adjustment);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8673 QCmask = intern (":mask");
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8674 staticpro (&QCmask);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8675
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8676 Qlaplace = intern ("laplace");
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8677 staticpro (&Qlaplace);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8678 Qemboss = intern ("emboss");
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8679 staticpro (&Qemboss);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8680 Qedge_detection = intern ("edge-detection");
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8681 staticpro (&Qedge_detection);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8682 Qheuristic = intern ("heuristic");
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8683 staticpro (&Qheuristic);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8684
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8685 Qpostscript = intern ("postscript");
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8686 staticpro (&Qpostscript);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8687 #ifdef HAVE_GHOSTSCRIPT
56104
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
8688 ADD_IMAGE_TYPE(Qpostscript);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8689 QCloader = intern (":loader");
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8690 staticpro (&QCloader);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8691 QCbounding_box = intern (":bounding-box");
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8692 staticpro (&QCbounding_box);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8693 QCpt_width = intern (":pt-width");
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8694 staticpro (&QCpt_width);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8695 QCpt_height = intern (":pt-height");
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8696 staticpro (&QCpt_height);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8697 #endif /* HAVE_GHOSTSCRIPT */
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8698
55540
30c03f9042b8 Support XPM on Carbon Emacs. Does not
Steven Tamm <steventamm@mac.com>
parents: 55412
diff changeset
8699 #if defined (HAVE_XPM) || defined (MAC_OS)
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8700 Qxpm = intern ("xpm");
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8701 staticpro (&Qxpm);
56104
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
8702 ADD_IMAGE_TYPE(Qxpm);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8703 #endif
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8704
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8705 #if defined (HAVE_JPEG) || defined (MAC_OS)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8706 Qjpeg = intern ("jpeg");
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8707 staticpro (&Qjpeg);
56104
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
8708 ADD_IMAGE_TYPE(Qjpeg);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8709 #endif
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8710
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8711 #if defined (HAVE_TIFF) || defined (MAC_OS)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8712 Qtiff = intern ("tiff");
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8713 staticpro (&Qtiff);
56104
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
8714 ADD_IMAGE_TYPE(Qtiff);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8715 #endif
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8716
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8717 #if defined (HAVE_GIF) || defined (MAC_OS)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8718 Qgif = intern ("gif");
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8719 staticpro (&Qgif);
56104
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
8720 ADD_IMAGE_TYPE(Qgif);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8721 #endif
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8722
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8723 #if defined (HAVE_PNG) || defined (MAC_OS)
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8724 Qpng = intern ("png");
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8725 staticpro (&Qpng);
56104
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
8726 ADD_IMAGE_TYPE(Qpng);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8727 #endif
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8728
56104
a450e67752ed (Vimage_types): Move from xdisp.c.
Juanma Barranquero <lekktu@gmail.com>
parents: 56065
diff changeset
8729 defsubr (&Sinit_image_library);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8730 defsubr (&Sclear_image_cache);
81017
e2ef7cb33308 (uncache_image): New function.
Chong Yidong <cyd@stupidchicken.com>
parents: 80916
diff changeset
8731 defsubr (&Simage_refresh);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8732 defsubr (&Simage_size);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8733 defsubr (&Simage_mask_p);
70168
60bff6b0c656 (four_corners_best): New arg CORNERS specifies what pixels
Kim F. Storm <storm@cua.dk>
parents: 70147
diff changeset
8734 defsubr (&Simage_extension_data);
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8735
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8736 #if GLYPH_DEBUG
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8737 defsubr (&Simagep);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8738 defsubr (&Slookup_image);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8739 #endif
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8740
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8741 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
8742 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
8743 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
8744 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
8745 cross_disabled_images = 0;
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8746
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8747 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
8748 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
8749 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
8750
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8751 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
8752 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
8753 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
8754 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
8755 meaning don't clear the cache. */);
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8756 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
8757 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8758
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8759 void
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8760 init_image ()
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8761 {
67454
939281029286 (init_image) [MAC_OS]: Don't call EnterMovies.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 66994
diff changeset
8762 #if defined (MAC_OSX) && TARGET_API_MAC_CARBON
54341
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8763 init_image_func_pointer ();
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8764 #endif
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8765 }
80dfe07a1d65 New file (image.c) for Image consolidation:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8766
54348
c0422921b537 Add arch tagline
Miles Bader <miles@gnu.org>
parents: 54341
diff changeset
8767 /* arch-tag: 123c2a5e-14a8-4c53-ab95-af47d7db49b9
c0422921b537 Add arch tagline
Miles Bader <miles@gnu.org>
parents: 54341
diff changeset
8768 (do not change this comment) */