Blame


1 24c02865 2005-01-04 devnull /*
2 24c02865 2005-01-04 devnull * the actual viewer that handles screen stuff
3 24c02865 2005-01-04 devnull */
4 24c02865 2005-01-04 devnull
5 24c02865 2005-01-04 devnull #include <u.h>
6 24c02865 2005-01-04 devnull #include <libc.h>
7 05a4d855 2007-03-26 devnull #include <9pclient.h>
8 24c02865 2005-01-04 devnull #include <draw.h>
9 24c02865 2005-01-04 devnull #include <cursor.h>
10 05a4d855 2007-03-26 devnull #include <mouse.h>
11 05a4d855 2007-03-26 devnull #include <keyboard.h>
12 05a4d855 2007-03-26 devnull #include <thread.h>
13 24c02865 2005-01-04 devnull #include <bio.h>
14 24c02865 2005-01-04 devnull #include <plumb.h>
15 24c02865 2005-01-04 devnull #include <ctype.h>
16 24c02865 2005-01-04 devnull #include "page.h"
17 24c02865 2005-01-04 devnull
18 24c02865 2005-01-04 devnull Document *doc;
19 05a4d855 2007-03-26 devnull Mousectl *mc;
20 24c02865 2005-01-04 devnull Image *im;
21 24c02865 2005-01-04 devnull int page;
22 17157e4a 2006-03-20 devnull int angle = 0;
23 24c02865 2005-01-04 devnull int showbottom = 0; /* on the next showpage, move the image so the bottom is visible. */
24 24c02865 2005-01-04 devnull
25 24c02865 2005-01-04 devnull Rectangle ulrange; /* the upper left corner of the image must be in this rectangle */
26 24c02865 2005-01-04 devnull Point ul; /* the upper left corner of the image is at this point on the screen */
27 24c02865 2005-01-04 devnull
28 24c02865 2005-01-04 devnull Point pclip(Point, Rectangle);
29 24c02865 2005-01-04 devnull Rectangle mkrange(Rectangle screenr, Rectangle imr);
30 24c02865 2005-01-04 devnull void redraw(Image*);
31 05a4d855 2007-03-26 devnull void plumbproc(void*);
32 24c02865 2005-01-04 devnull
33 24c02865 2005-01-04 devnull Cursor reading={
34 24c02865 2005-01-04 devnull {-1, -1},
35 24c02865 2005-01-04 devnull {0xff, 0x80, 0xff, 0x80, 0xff, 0x00, 0xfe, 0x00,
36 24c02865 2005-01-04 devnull 0xff, 0x00, 0xff, 0x80, 0xff, 0xc0, 0xef, 0xe0,
37 24c02865 2005-01-04 devnull 0xc7, 0xf0, 0x03, 0xf0, 0x01, 0xe0, 0x00, 0xc0,
38 24c02865 2005-01-04 devnull 0x03, 0xff, 0x03, 0xff, 0x03, 0xff, 0x03, 0xff, },
39 24c02865 2005-01-04 devnull {0x00, 0x00, 0x7f, 0x00, 0x7e, 0x00, 0x7c, 0x00,
40 24c02865 2005-01-04 devnull 0x7e, 0x00, 0x7f, 0x00, 0x6f, 0x80, 0x47, 0xc0,
41 24c02865 2005-01-04 devnull 0x03, 0xe0, 0x01, 0xf0, 0x00, 0xe0, 0x00, 0x40,
42 24c02865 2005-01-04 devnull 0x00, 0x00, 0x01, 0xb6, 0x01, 0xb6, 0x00, 0x00, }
43 24c02865 2005-01-04 devnull };
44 24c02865 2005-01-04 devnull
45 24c02865 2005-01-04 devnull Cursor query = {
46 24c02865 2005-01-04 devnull {-7,-7},
47 24c02865 2005-01-04 devnull {0x0f, 0xf0, 0x1f, 0xf8, 0x3f, 0xfc, 0x7f, 0xfe,
48 24c02865 2005-01-04 devnull 0x7c, 0x7e, 0x78, 0x7e, 0x00, 0xfc, 0x01, 0xf8,
49 24c02865 2005-01-04 devnull 0x03, 0xf0, 0x07, 0xe0, 0x07, 0xc0, 0x07, 0xc0,
50 24c02865 2005-01-04 devnull 0x07, 0xc0, 0x07, 0xc0, 0x07, 0xc0, 0x07, 0xc0, },
51 24c02865 2005-01-04 devnull {0x00, 0x00, 0x0f, 0xf0, 0x1f, 0xf8, 0x3c, 0x3c,
52 24c02865 2005-01-04 devnull 0x38, 0x1c, 0x00, 0x3c, 0x00, 0x78, 0x00, 0xf0,
53 24c02865 2005-01-04 devnull 0x01, 0xe0, 0x03, 0xc0, 0x03, 0x80, 0x03, 0x80,
54 24c02865 2005-01-04 devnull 0x00, 0x00, 0x03, 0x80, 0x03, 0x80, 0x00, 0x00, }
55 24c02865 2005-01-04 devnull };
56 24c02865 2005-01-04 devnull
57 24c02865 2005-01-04 devnull enum {
58 24c02865 2005-01-04 devnull Left = 1,
59 24c02865 2005-01-04 devnull Middle = 2,
60 24c02865 2005-01-04 devnull Right = 4,
61 24c02865 2005-01-04 devnull
62 05a4d855 2007-03-26 devnull RMenu = 3,
63 24c02865 2005-01-04 devnull };
64 24c02865 2005-01-04 devnull
65 24c02865 2005-01-04 devnull void
66 24c02865 2005-01-04 devnull unhide(void)
67 24c02865 2005-01-04 devnull {
68 05a4d855 2007-03-26 devnull USED(nil);
69 24c02865 2005-01-04 devnull }
70 24c02865 2005-01-04 devnull
71 24c02865 2005-01-04 devnull int
72 24c02865 2005-01-04 devnull max(int a, int b)
73 24c02865 2005-01-04 devnull {
74 24c02865 2005-01-04 devnull return a > b ? a : b;
75 24c02865 2005-01-04 devnull }
76 24c02865 2005-01-04 devnull
77 24c02865 2005-01-04 devnull int
78 24c02865 2005-01-04 devnull min(int a, int b)
79 24c02865 2005-01-04 devnull {
80 24c02865 2005-01-04 devnull return a < b ? a : b;
81 24c02865 2005-01-04 devnull }
82 24c02865 2005-01-04 devnull
83 24c02865 2005-01-04 devnull
84 24c02865 2005-01-04 devnull char*
85 24c02865 2005-01-04 devnull menugen(int n)
86 24c02865 2005-01-04 devnull {
87 24c02865 2005-01-04 devnull static char menustr[32];
88 24c02865 2005-01-04 devnull char *p;
89 24c02865 2005-01-04 devnull int len;
90 24c02865 2005-01-04 devnull
91 24c02865 2005-01-04 devnull if(n == doc->npage)
92 24c02865 2005-01-04 devnull return "exit";
93 24c02865 2005-01-04 devnull if(n > doc->npage)
94 24c02865 2005-01-04 devnull return nil;
95 24c02865 2005-01-04 devnull
96 24c02865 2005-01-04 devnull if(reverse)
97 24c02865 2005-01-04 devnull n = doc->npage-1-n;
98 24c02865 2005-01-04 devnull
99 24c02865 2005-01-04 devnull p = doc->pagename(doc, n);
100 24c02865 2005-01-04 devnull len = (sizeof menustr)-2;
101 24c02865 2005-01-04 devnull
102 24c02865 2005-01-04 devnull if(strlen(p) > len && strrchr(p, '/'))
103 24c02865 2005-01-04 devnull p = strrchr(p, '/')+1;
104 24c02865 2005-01-04 devnull if(strlen(p) > len)
105 24c02865 2005-01-04 devnull p = p+strlen(p)-len;
106 24c02865 2005-01-04 devnull
107 24c02865 2005-01-04 devnull strcpy(menustr+1, p);
108 24c02865 2005-01-04 devnull if(page == n)
109 24c02865 2005-01-04 devnull menustr[0] = '>';
110 24c02865 2005-01-04 devnull else
111 24c02865 2005-01-04 devnull menustr[0] = ' ';
112 24c02865 2005-01-04 devnull return menustr;
113 24c02865 2005-01-04 devnull }
114 24c02865 2005-01-04 devnull
115 24c02865 2005-01-04 devnull void
116 24c02865 2005-01-04 devnull showpage(int page, Menu *m)
117 24c02865 2005-01-04 devnull {
118 24c02865 2005-01-04 devnull Image *tmp;
119 24c02865 2005-01-04 devnull
120 24c02865 2005-01-04 devnull if(doc->fwdonly)
121 24c02865 2005-01-04 devnull m->lasthit = 0; /* this page */
122 24c02865 2005-01-04 devnull else
123 24c02865 2005-01-04 devnull m->lasthit = reverse ? doc->npage-1-page : page;
124 24c02865 2005-01-04 devnull
125 05a4d855 2007-03-26 devnull setcursor(mc, &reading);
126 24c02865 2005-01-04 devnull freeimage(im);
127 24c02865 2005-01-04 devnull if((page < 0 || page >= doc->npage) && !doc->fwdonly){
128 24c02865 2005-01-04 devnull im = nil;
129 24c02865 2005-01-04 devnull return;
130 24c02865 2005-01-04 devnull }
131 24c02865 2005-01-04 devnull im = doc->drawpage(doc, page);
132 24c02865 2005-01-04 devnull if(im == nil) {
133 24c02865 2005-01-04 devnull if(doc->fwdonly) /* this is how we know we're out of pages */
134 24c02865 2005-01-04 devnull wexits(0);
135 24c02865 2005-01-04 devnull
136 24c02865 2005-01-04 devnull im = xallocimage(display, Rect(0,0,50,50), GREY1, 1, DBlack);
137 24c02865 2005-01-04 devnull if(im == nil) {
138 24c02865 2005-01-04 devnull fprint(2, "out of memory: %r\n");
139 24c02865 2005-01-04 devnull wexits("memory");
140 24c02865 2005-01-04 devnull }
141 24c02865 2005-01-04 devnull string(im, ZP, display->white, ZP, display->defaultfont, "?");
142 24c02865 2005-01-04 devnull }else if(resizing){
143 24c02865 2005-01-04 devnull resize(Dx(im->r), Dy(im->r));
144 24c02865 2005-01-04 devnull }
145 24c02865 2005-01-04 devnull if(im->r.min.x > 0 || im->r.min.y > 0) {
146 24c02865 2005-01-04 devnull tmp = xallocimage(display, Rect(0, 0, Dx(im->r), Dy(im->r)), im->chan, 0, DNofill);
147 24c02865 2005-01-04 devnull if(tmp == nil) {
148 24c02865 2005-01-04 devnull fprint(2, "out of memory during showpage: %r\n");
149 24c02865 2005-01-04 devnull wexits("memory");
150 24c02865 2005-01-04 devnull }
151 24c02865 2005-01-04 devnull drawop(tmp, tmp->r, im, nil, im->r.min, S);
152 24c02865 2005-01-04 devnull freeimage(im);
153 24c02865 2005-01-04 devnull im = tmp;
154 24c02865 2005-01-04 devnull }
155 24c02865 2005-01-04 devnull
156 17157e4a 2006-03-20 devnull switch(angle){
157 17157e4a 2006-03-20 devnull case 90:
158 17157e4a 2006-03-20 devnull im = rot90(im);
159 17157e4a 2006-03-20 devnull break;
160 17157e4a 2006-03-20 devnull case 180:
161 24c02865 2005-01-04 devnull rot180(im);
162 17157e4a 2006-03-20 devnull break;
163 17157e4a 2006-03-20 devnull case 270:
164 17157e4a 2006-03-20 devnull im = rot270(im);
165 17157e4a 2006-03-20 devnull break;
166 17157e4a 2006-03-20 devnull }
167 24c02865 2005-01-04 devnull
168 05a4d855 2007-03-26 devnull setcursor(mc, nil);
169 24c02865 2005-01-04 devnull if(showbottom){
170 24c02865 2005-01-04 devnull ul.y = screen->r.max.y - Dy(im->r);
171 24c02865 2005-01-04 devnull showbottom = 0;
172 24c02865 2005-01-04 devnull }
173 24c02865 2005-01-04 devnull
174 24c02865 2005-01-04 devnull redraw(screen);
175 24c02865 2005-01-04 devnull flushimage(display, 1);
176 24c02865 2005-01-04 devnull }
177 24c02865 2005-01-04 devnull
178 24c02865 2005-01-04 devnull char*
179 24c02865 2005-01-04 devnull writebitmap(void)
180 24c02865 2005-01-04 devnull {
181 24c02865 2005-01-04 devnull char basename[64];
182 24c02865 2005-01-04 devnull char name[64+30];
183 24c02865 2005-01-04 devnull static char result[200];
184 24c02865 2005-01-04 devnull char *p, *q;
185 05a4d855 2007-03-26 devnull int fd = -1;
186 24c02865 2005-01-04 devnull
187 24c02865 2005-01-04 devnull if(im == nil)
188 24c02865 2005-01-04 devnull return "no image";
189 24c02865 2005-01-04 devnull
190 24c02865 2005-01-04 devnull memset(basename, 0, sizeof basename);
191 24c02865 2005-01-04 devnull if(doc->docname)
192 24c02865 2005-01-04 devnull strncpy(basename, doc->docname, sizeof(basename)-1);
193 24c02865 2005-01-04 devnull else if((p = menugen(page)) && p[0] != '\0')
194 24c02865 2005-01-04 devnull strncpy(basename, p+1, sizeof(basename)-1);
195 24c02865 2005-01-04 devnull
196 24c02865 2005-01-04 devnull if(basename[0]) {
197 24c02865 2005-01-04 devnull if(q = strrchr(basename, '/'))
198 24c02865 2005-01-04 devnull q++;
199 24c02865 2005-01-04 devnull else
200 24c02865 2005-01-04 devnull q = basename;
201 24c02865 2005-01-04 devnull if(p = strchr(q, '.'))
202 24c02865 2005-01-04 devnull *p = 0;
203 24c02865 2005-01-04 devnull
204 24c02865 2005-01-04 devnull memset(name, 0, sizeof name);
205 24c02865 2005-01-04 devnull snprint(name, sizeof(name)-1, "%s.%d.bit", q, page+1);
206 24c02865 2005-01-04 devnull if(access(name, 0) >= 0) {
207 24c02865 2005-01-04 devnull strcat(name, "XXXX");
208 05a4d855 2007-03-26 devnull fd = mkstemp(name);
209 24c02865 2005-01-04 devnull }
210 05a4d855 2007-03-26 devnull if(fd < 0)
211 24c02865 2005-01-04 devnull return "couldn't think of a name for bitmap";
212 24c02865 2005-01-04 devnull } else {
213 24c02865 2005-01-04 devnull strcpy(name, "bitXXXX");
214 05a4d855 2007-03-26 devnull mkstemp(name);
215 05a4d855 2007-03-26 devnull if(fd < 0)
216 24c02865 2005-01-04 devnull return "couldn't think of a name for bitmap";
217 24c02865 2005-01-04 devnull }
218 24c02865 2005-01-04 devnull
219 05a4d855 2007-03-26 devnull if(fd < 0) {
220 24c02865 2005-01-04 devnull snprint(result, sizeof result, "cannot create %s: %r", name);
221 24c02865 2005-01-04 devnull return result;
222 24c02865 2005-01-04 devnull }
223 24c02865 2005-01-04 devnull
224 24c02865 2005-01-04 devnull if(writeimage(fd, im, 0) < 0) {
225 24c02865 2005-01-04 devnull snprint(result, sizeof result, "cannot writeimage: %r");
226 24c02865 2005-01-04 devnull close(fd);
227 24c02865 2005-01-04 devnull return result;
228 24c02865 2005-01-04 devnull }
229 24c02865 2005-01-04 devnull close(fd);
230 24c02865 2005-01-04 devnull
231 24c02865 2005-01-04 devnull snprint(result, sizeof result, "wrote %s", name);
232 24c02865 2005-01-04 devnull return result;
233 24c02865 2005-01-04 devnull }
234 24c02865 2005-01-04 devnull
235 24c02865 2005-01-04 devnull static void translate(Point);
236 24c02865 2005-01-04 devnull
237 24c02865 2005-01-04 devnull static int
238 24c02865 2005-01-04 devnull showdata(Plumbmsg *msg)
239 24c02865 2005-01-04 devnull {
240 24c02865 2005-01-04 devnull char *s;
241 24c02865 2005-01-04 devnull
242 24c02865 2005-01-04 devnull s = plumblookup(msg->attr, "action");
243 24c02865 2005-01-04 devnull return s && strcmp(s, "showdata")==0;
244 24c02865 2005-01-04 devnull }
245 24c02865 2005-01-04 devnull
246 24c02865 2005-01-04 devnull /* correspond to entries in miditems[] below,
247 24c02865 2005-01-04 devnull * changing one means you need to change
248 24c02865 2005-01-04 devnull */
249 24c02865 2005-01-04 devnull enum{
250 24c02865 2005-01-04 devnull Restore = 0,
251 24c02865 2005-01-04 devnull Zin,
252 24c02865 2005-01-04 devnull Fit,
253 24c02865 2005-01-04 devnull Rot,
254 24c02865 2005-01-04 devnull Upside,
255 24c02865 2005-01-04 devnull Empty1,
256 24c02865 2005-01-04 devnull Next,
257 24c02865 2005-01-04 devnull Prev,
258 24c02865 2005-01-04 devnull Zerox,
259 24c02865 2005-01-04 devnull Empty2,
260 24c02865 2005-01-04 devnull Reverse,
261 24c02865 2005-01-04 devnull Del,
262 24c02865 2005-01-04 devnull Write,
263 24c02865 2005-01-04 devnull Empty3,
264 05a4d855 2007-03-26 devnull Exit,
265 24c02865 2005-01-04 devnull };
266 24c02865 2005-01-04 devnull
267 24c02865 2005-01-04 devnull void
268 24c02865 2005-01-04 devnull viewer(Document *dd)
269 24c02865 2005-01-04 devnull {
270 24c02865 2005-01-04 devnull int i, fd, n, oldpage;
271 24c02865 2005-01-04 devnull int nxt;
272 05a4d855 2007-03-26 devnull Channel *cp;
273 24c02865 2005-01-04 devnull Menu menu, midmenu;
274 24c02865 2005-01-04 devnull Mouse m;
275 05a4d855 2007-03-26 devnull Keyboardctl *kc;
276 24c02865 2005-01-04 devnull Point dxy, oxy, xy0;
277 05a4d855 2007-03-26 devnull Rune run;
278 24c02865 2005-01-04 devnull Rectangle r;
279 05a4d855 2007-03-26 devnull int size[2];
280 24c02865 2005-01-04 devnull Image *tmp;
281 24c02865 2005-01-04 devnull static char *fwditems[] = { "this page", "next page", "exit", 0 };
282 24c02865 2005-01-04 devnull static char *miditems[] = {
283 24c02865 2005-01-04 devnull "orig size",
284 24c02865 2005-01-04 devnull "zoom in",
285 24c02865 2005-01-04 devnull "fit window",
286 24c02865 2005-01-04 devnull "rotate 90",
287 24c02865 2005-01-04 devnull "upside down",
288 24c02865 2005-01-04 devnull "",
289 24c02865 2005-01-04 devnull "next",
290 24c02865 2005-01-04 devnull "prev",
291 24c02865 2005-01-04 devnull "zerox",
292 24c02865 2005-01-04 devnull "",
293 24c02865 2005-01-04 devnull "reverse",
294 24c02865 2005-01-04 devnull "discard",
295 24c02865 2005-01-04 devnull "write",
296 24c02865 2005-01-04 devnull "",
297 24c02865 2005-01-04 devnull "quit",
298 24c02865 2005-01-04 devnull 0
299 24c02865 2005-01-04 devnull };
300 24c02865 2005-01-04 devnull char *s;
301 05a4d855 2007-03-26 devnull enum {
302 05a4d855 2007-03-26 devnull CMouse,
303 05a4d855 2007-03-26 devnull CResize,
304 05a4d855 2007-03-26 devnull CKeyboard,
305 05a4d855 2007-03-26 devnull CPlumb,
306 05a4d855 2007-03-26 devnull CN
307 05a4d855 2007-03-26 devnull };
308 05a4d855 2007-03-26 devnull Alt alts[CN+1];
309 24c02865 2005-01-04 devnull Plumbmsg *pm;
310 24c02865 2005-01-04 devnull
311 05a4d855 2007-03-26 devnull cp = chancreate(sizeof pm, 0);
312 05a4d855 2007-03-26 devnull assert(cp);
313 05a4d855 2007-03-26 devnull
314 24c02865 2005-01-04 devnull doc = dd; /* save global for menuhit */
315 24c02865 2005-01-04 devnull ul = screen->r.min;
316 05a4d855 2007-03-26 devnull mc = initmouse(nil, screen);
317 05a4d855 2007-03-26 devnull kc = initkeyboard(nil);
318 05a4d855 2007-03-26 devnull alts[CMouse].c = mc->c;
319 05a4d855 2007-03-26 devnull alts[CMouse].v = &m;
320 05a4d855 2007-03-26 devnull alts[CMouse].op = CHANRCV;
321 05a4d855 2007-03-26 devnull alts[CResize].c = mc->resizec;
322 05a4d855 2007-03-26 devnull alts[CResize].v = &size;
323 05a4d855 2007-03-26 devnull alts[CResize].op = CHANRCV;
324 05a4d855 2007-03-26 devnull alts[CKeyboard].c = kc->c;
325 05a4d855 2007-03-26 devnull alts[CKeyboard].v = &run;
326 05a4d855 2007-03-26 devnull alts[CKeyboard].op = CHANRCV;
327 05a4d855 2007-03-26 devnull alts[CPlumb].c = cp;
328 05a4d855 2007-03-26 devnull alts[CPlumb].v = &pm;
329 05a4d855 2007-03-26 devnull alts[CPlumb].op = CHANNOP;
330 05a4d855 2007-03-26 devnull alts[CN].op = CHANEND;
331 24c02865 2005-01-04 devnull
332 05a4d855 2007-03-26 devnull /* XXX: Event */
333 05a4d855 2007-03-26 devnull if(doc->addpage != nil) {
334 05a4d855 2007-03-26 devnull alts[CPlumb].op = CHANRCV;
335 05a4d855 2007-03-26 devnull proccreate(plumbproc, cp, 16384);
336 05a4d855 2007-03-26 devnull }
337 05a4d855 2007-03-26 devnull
338 05a4d855 2007-03-26 devnull setcursor(mc, &reading);
339 24c02865 2005-01-04 devnull r.min = ZP;
340 24c02865 2005-01-04 devnull
341 24c02865 2005-01-04 devnull /*
342 24c02865 2005-01-04 devnull * im is a global pointer to the current image.
343 24c02865 2005-01-04 devnull * eventually, i think we will have a layer between
344 24c02865 2005-01-04 devnull * the display routines and the ps/pdf/whatever routines
345 24c02865 2005-01-04 devnull * to perhaps cache and handle images of different
346 24c02865 2005-01-04 devnull * sizes, etc.
347 24c02865 2005-01-04 devnull */
348 24c02865 2005-01-04 devnull im = 0;
349 24c02865 2005-01-04 devnull page = reverse ? doc->npage-1 : 0;
350 24c02865 2005-01-04 devnull
351 24c02865 2005-01-04 devnull if(doc->fwdonly) {
352 24c02865 2005-01-04 devnull menu.item = fwditems;
353 24c02865 2005-01-04 devnull menu.gen = 0;
354 24c02865 2005-01-04 devnull menu.lasthit = 0;
355 24c02865 2005-01-04 devnull } else {
356 24c02865 2005-01-04 devnull menu.item = 0;
357 24c02865 2005-01-04 devnull menu.gen = menugen;
358 24c02865 2005-01-04 devnull menu.lasthit = 0;
359 24c02865 2005-01-04 devnull }
360 24c02865 2005-01-04 devnull
361 24c02865 2005-01-04 devnull midmenu.item = miditems;
362 24c02865 2005-01-04 devnull midmenu.gen = 0;
363 24c02865 2005-01-04 devnull midmenu.lasthit = Next;
364 24c02865 2005-01-04 devnull
365 24c02865 2005-01-04 devnull showpage(page, &menu);
366 05a4d855 2007-03-26 devnull setcursor(mc, nil);
367 24c02865 2005-01-04 devnull
368 24c02865 2005-01-04 devnull nxt = 0;
369 24c02865 2005-01-04 devnull for(;;) {
370 24c02865 2005-01-04 devnull /*
371 24c02865 2005-01-04 devnull * throughout, if doc->fwdonly is set, we restrict the functionality
372 24c02865 2005-01-04 devnull * a fair amount. we don't care about doc->npage anymore, and
373 24c02865 2005-01-04 devnull * all that can be done is select the next page.
374 24c02865 2005-01-04 devnull */
375 05a4d855 2007-03-26 devnull switch(alt(alts)) {
376 05a4d855 2007-03-26 devnull case CKeyboard:
377 05a4d855 2007-03-26 devnull if(run <= 0xFF && isdigit(run)) {
378 05a4d855 2007-03-26 devnull nxt = nxt*10+run-'0';
379 05a4d855 2007-03-26 devnull break;
380 05a4d855 2007-03-26 devnull } else if(run != '\n')
381 24c02865 2005-01-04 devnull nxt = 0;
382 05a4d855 2007-03-26 devnull switch(run) {
383 24c02865 2005-01-04 devnull case 'r': /* reverse page order */
384 24c02865 2005-01-04 devnull if(doc->fwdonly)
385 24c02865 2005-01-04 devnull break;
386 24c02865 2005-01-04 devnull reverse = !reverse;
387 24c02865 2005-01-04 devnull menu.lasthit = doc->npage-1-menu.lasthit;
388 24c02865 2005-01-04 devnull
389 24c02865 2005-01-04 devnull /*
390 24c02865 2005-01-04 devnull * the theory is that if we are reversing the
391 24c02865 2005-01-04 devnull * document order and are on the first or last
392 24c02865 2005-01-04 devnull * page then we're just starting and really want
393 24c02865 2005-01-04 devnull * to view the other end. maybe the if
394 24c02865 2005-01-04 devnull * should be dropped and this should happen always.
395 24c02865 2005-01-04 devnull */
396 24c02865 2005-01-04 devnull if(page == 0 || page == doc->npage-1) {
397 24c02865 2005-01-04 devnull page = doc->npage-1-page;
398 24c02865 2005-01-04 devnull showpage(page, &menu);
399 24c02865 2005-01-04 devnull }
400 24c02865 2005-01-04 devnull break;
401 24c02865 2005-01-04 devnull case 'w': /* write bitmap of current screen */
402 05a4d855 2007-03-26 devnull setcursor(mc, &reading);
403 24c02865 2005-01-04 devnull s = writebitmap();
404 24c02865 2005-01-04 devnull if(s)
405 24c02865 2005-01-04 devnull string(screen, addpt(screen->r.min, Pt(5,5)), display->black, ZP,
406 24c02865 2005-01-04 devnull display->defaultfont, s);
407 05a4d855 2007-03-26 devnull setcursor(mc, nil);
408 24c02865 2005-01-04 devnull flushimage(display, 1);
409 24c02865 2005-01-04 devnull break;
410 24c02865 2005-01-04 devnull case 'd': /* remove image from working set */
411 24c02865 2005-01-04 devnull if(doc->rmpage && page < doc->npage) {
412 24c02865 2005-01-04 devnull if(doc->rmpage(doc, page) >= 0) {
413 24c02865 2005-01-04 devnull if(doc->npage < 0)
414 24c02865 2005-01-04 devnull wexits(0);
415 24c02865 2005-01-04 devnull if(page >= doc->npage)
416 24c02865 2005-01-04 devnull page = doc->npage-1;
417 24c02865 2005-01-04 devnull showpage(page, &menu);
418 24c02865 2005-01-04 devnull }
419 24c02865 2005-01-04 devnull }
420 24c02865 2005-01-04 devnull break;
421 24c02865 2005-01-04 devnull case 'q':
422 24c02865 2005-01-04 devnull case 0x04: /* ctrl-d */
423 24c02865 2005-01-04 devnull wexits(0);
424 24c02865 2005-01-04 devnull case 'u':
425 24c02865 2005-01-04 devnull if(im==nil)
426 24c02865 2005-01-04 devnull break;
427 05a4d855 2007-03-26 devnull setcursor(mc, &reading);
428 24c02865 2005-01-04 devnull rot180(im);
429 05a4d855 2007-03-26 devnull setcursor(mc, nil);
430 17157e4a 2006-03-20 devnull angle = (angle+180) % 360;
431 24c02865 2005-01-04 devnull redraw(screen);
432 24c02865 2005-01-04 devnull flushimage(display, 1);
433 24c02865 2005-01-04 devnull break;
434 24c02865 2005-01-04 devnull case '-':
435 24c02865 2005-01-04 devnull case '\b':
436 24c02865 2005-01-04 devnull case Kleft:
437 24c02865 2005-01-04 devnull if(page > 0 && !doc->fwdonly) {
438 24c02865 2005-01-04 devnull --page;
439 24c02865 2005-01-04 devnull showpage(page, &menu);
440 24c02865 2005-01-04 devnull }
441 24c02865 2005-01-04 devnull break;
442 24c02865 2005-01-04 devnull case '\n':
443 24c02865 2005-01-04 devnull if(nxt) {
444 24c02865 2005-01-04 devnull nxt--;
445 24c02865 2005-01-04 devnull if(nxt >= 0 && nxt < doc->npage && !doc->fwdonly)
446 24c02865 2005-01-04 devnull showpage(page=nxt, &menu);
447 24c02865 2005-01-04 devnull nxt = 0;
448 24c02865 2005-01-04 devnull break;
449 24c02865 2005-01-04 devnull }
450 24c02865 2005-01-04 devnull goto Gotonext;
451 24c02865 2005-01-04 devnull case Kright:
452 24c02865 2005-01-04 devnull case ' ':
453 24c02865 2005-01-04 devnull Gotonext:
454 24c02865 2005-01-04 devnull if(doc->npage && ++page >= doc->npage && !doc->fwdonly)
455 24c02865 2005-01-04 devnull wexits(0);
456 24c02865 2005-01-04 devnull showpage(page, &menu);
457 24c02865 2005-01-04 devnull break;
458 24c02865 2005-01-04 devnull
459 24c02865 2005-01-04 devnull /*
460 24c02865 2005-01-04 devnull * The upper y coordinate of the image is at ul.y in screen->r.
461 24c02865 2005-01-04 devnull * Panning up means moving the upper left corner down. If the
462 24c02865 2005-01-04 devnull * upper left corner is currently visible, we need to go back a page.
463 24c02865 2005-01-04 devnull */
464 24c02865 2005-01-04 devnull case Kup:
465 24c02865 2005-01-04 devnull if(screen->r.min.y <= ul.y && ul.y < screen->r.max.y){
466 24c02865 2005-01-04 devnull if(page > 0 && !doc->fwdonly){
467 24c02865 2005-01-04 devnull --page;
468 24c02865 2005-01-04 devnull showbottom = 1;
469 24c02865 2005-01-04 devnull showpage(page, &menu);
470 24c02865 2005-01-04 devnull }
471 24c02865 2005-01-04 devnull } else {
472 24c02865 2005-01-04 devnull i = Dy(screen->r)/2;
473 24c02865 2005-01-04 devnull if(i > 10)
474 24c02865 2005-01-04 devnull i -= 10;
475 24c02865 2005-01-04 devnull if(i+ul.y > screen->r.min.y)
476 24c02865 2005-01-04 devnull i = screen->r.min.y - ul.y;
477 24c02865 2005-01-04 devnull translate(Pt(0, i));
478 24c02865 2005-01-04 devnull }
479 24c02865 2005-01-04 devnull break;
480 24c02865 2005-01-04 devnull
481 24c02865 2005-01-04 devnull /*
482 24c02865 2005-01-04 devnull * If the lower y coordinate is on the screen, we go to the next page.
483 24c02865 2005-01-04 devnull * The lower y coordinate is at ul.y + Dy(im->r).
484 24c02865 2005-01-04 devnull */
485 24c02865 2005-01-04 devnull case Kdown:
486 24c02865 2005-01-04 devnull i = ul.y + Dy(im->r);
487 24c02865 2005-01-04 devnull if(screen->r.min.y <= i && i <= screen->r.max.y){
488 24c02865 2005-01-04 devnull ul.y = screen->r.min.y;
489 24c02865 2005-01-04 devnull goto Gotonext;
490 24c02865 2005-01-04 devnull } else {
491 24c02865 2005-01-04 devnull i = -Dy(screen->r)/2;
492 24c02865 2005-01-04 devnull if(i < -10)
493 24c02865 2005-01-04 devnull i += 10;
494 24c02865 2005-01-04 devnull if(i+ul.y+Dy(im->r) <= screen->r.max.y)
495 24c02865 2005-01-04 devnull i = screen->r.max.y - Dy(im->r) - ul.y - 1;
496 24c02865 2005-01-04 devnull translate(Pt(0, i));
497 24c02865 2005-01-04 devnull }
498 24c02865 2005-01-04 devnull break;
499 24c02865 2005-01-04 devnull default:
500 05a4d855 2007-03-26 devnull setcursor(mc, &query);
501 24c02865 2005-01-04 devnull sleep(1000);
502 05a4d855 2007-03-26 devnull setcursor(mc, nil);
503 24c02865 2005-01-04 devnull break;
504 24c02865 2005-01-04 devnull }
505 24c02865 2005-01-04 devnull break;
506 24c02865 2005-01-04 devnull
507 05a4d855 2007-03-26 devnull case CMouse:
508 24c02865 2005-01-04 devnull switch(m.buttons){
509 24c02865 2005-01-04 devnull case Left:
510 24c02865 2005-01-04 devnull oxy = m.xy;
511 24c02865 2005-01-04 devnull xy0 = oxy;
512 24c02865 2005-01-04 devnull do {
513 24c02865 2005-01-04 devnull dxy = subpt(m.xy, oxy);
514 24c02865 2005-01-04 devnull oxy = m.xy;
515 24c02865 2005-01-04 devnull translate(dxy);
516 05a4d855 2007-03-26 devnull recv(mc->c, &m);
517 24c02865 2005-01-04 devnull } while(m.buttons == Left);
518 24c02865 2005-01-04 devnull if(m.buttons) {
519 24c02865 2005-01-04 devnull dxy = subpt(xy0, oxy);
520 24c02865 2005-01-04 devnull translate(dxy);
521 24c02865 2005-01-04 devnull }
522 24c02865 2005-01-04 devnull break;
523 24c02865 2005-01-04 devnull
524 24c02865 2005-01-04 devnull case Middle:
525 24c02865 2005-01-04 devnull if(doc->npage == 0)
526 24c02865 2005-01-04 devnull break;
527 24c02865 2005-01-04 devnull
528 05a4d855 2007-03-26 devnull n = menuhit(Middle, mc, &midmenu, nil);
529 24c02865 2005-01-04 devnull if(n == -1)
530 24c02865 2005-01-04 devnull break;
531 24c02865 2005-01-04 devnull switch(n){
532 24c02865 2005-01-04 devnull case Next: /* next */
533 24c02865 2005-01-04 devnull if(reverse)
534 24c02865 2005-01-04 devnull page--;
535 24c02865 2005-01-04 devnull else
536 24c02865 2005-01-04 devnull page++;
537 24c02865 2005-01-04 devnull if(page < 0) {
538 24c02865 2005-01-04 devnull if(reverse) return;
539 24c02865 2005-01-04 devnull else page = 0;
540 24c02865 2005-01-04 devnull }
541 24c02865 2005-01-04 devnull
542 24c02865 2005-01-04 devnull if((page >= doc->npage) && !doc->fwdonly)
543 24c02865 2005-01-04 devnull return;
544 24c02865 2005-01-04 devnull
545 24c02865 2005-01-04 devnull showpage(page, &menu);
546 24c02865 2005-01-04 devnull nxt = 0;
547 24c02865 2005-01-04 devnull break;
548 24c02865 2005-01-04 devnull case Prev: /* prev */
549 24c02865 2005-01-04 devnull if(reverse)
550 24c02865 2005-01-04 devnull page++;
551 24c02865 2005-01-04 devnull else
552 24c02865 2005-01-04 devnull page--;
553 24c02865 2005-01-04 devnull if(page < 0) {
554 24c02865 2005-01-04 devnull if(reverse) return;
555 24c02865 2005-01-04 devnull else page = 0;
556 24c02865 2005-01-04 devnull }
557 24c02865 2005-01-04 devnull
558 24c02865 2005-01-04 devnull if((page >= doc->npage) && !doc->fwdonly && !reverse)
559 24c02865 2005-01-04 devnull return;
560 24c02865 2005-01-04 devnull
561 24c02865 2005-01-04 devnull showpage(page, &menu);
562 24c02865 2005-01-04 devnull nxt = 0;
563 24c02865 2005-01-04 devnull break;
564 24c02865 2005-01-04 devnull case Zerox: /* prev */
565 24c02865 2005-01-04 devnull zerox();
566 24c02865 2005-01-04 devnull break;
567 24c02865 2005-01-04 devnull case Zin: /* zoom in */
568 24c02865 2005-01-04 devnull {
569 24c02865 2005-01-04 devnull double delta;
570 24c02865 2005-01-04 devnull Rectangle r;
571 24c02865 2005-01-04 devnull
572 05a4d855 2007-03-26 devnull r = getrect(Middle, mc);
573 24c02865 2005-01-04 devnull if((rectclip(&r, rectaddpt(im->r, ul)) == 0) ||
574 24c02865 2005-01-04 devnull Dx(r) == 0 || Dy(r) == 0)
575 24c02865 2005-01-04 devnull break;
576 24c02865 2005-01-04 devnull /* use the smaller side to expand */
577 24c02865 2005-01-04 devnull if(Dx(r) < Dy(r))
578 24c02865 2005-01-04 devnull delta = (double)Dx(im->r)/(double)Dx(r);
579 24c02865 2005-01-04 devnull else
580 24c02865 2005-01-04 devnull delta = (double)Dy(im->r)/(double)Dy(r);
581 24c02865 2005-01-04 devnull
582 05a4d855 2007-03-26 devnull setcursor(mc, &reading);
583 24c02865 2005-01-04 devnull tmp = xallocimage(display,
584 24c02865 2005-01-04 devnull Rect(0, 0, (int)((double)Dx(im->r)*delta), (int)((double)Dy(im->r)*delta)),
585 24c02865 2005-01-04 devnull im->chan, 0, DBlack);
586 24c02865 2005-01-04 devnull if(tmp == nil) {
587 24c02865 2005-01-04 devnull fprint(2, "out of memory during zoom: %r\n");
588 24c02865 2005-01-04 devnull wexits("memory");
589 24c02865 2005-01-04 devnull }
590 24c02865 2005-01-04 devnull resample(im, tmp);
591 24c02865 2005-01-04 devnull freeimage(im);
592 24c02865 2005-01-04 devnull im = tmp;
593 05a4d855 2007-03-26 devnull setcursor(mc, nil);
594 24c02865 2005-01-04 devnull ul = screen->r.min;
595 24c02865 2005-01-04 devnull redraw(screen);
596 24c02865 2005-01-04 devnull flushimage(display, 1);
597 24c02865 2005-01-04 devnull break;
598 24c02865 2005-01-04 devnull }
599 24c02865 2005-01-04 devnull case Fit: /* fit */
600 24c02865 2005-01-04 devnull {
601 24c02865 2005-01-04 devnull double delta;
602 24c02865 2005-01-04 devnull Rectangle r;
603 24c02865 2005-01-04 devnull
604 24c02865 2005-01-04 devnull delta = (double)Dx(screen->r)/(double)Dx(im->r);
605 24c02865 2005-01-04 devnull if((double)Dy(im->r)*delta > Dy(screen->r))
606 24c02865 2005-01-04 devnull delta = (double)Dy(screen->r)/(double)Dy(im->r);
607 24c02865 2005-01-04 devnull
608 24c02865 2005-01-04 devnull r = Rect(0, 0, (int)((double)Dx(im->r)*delta), (int)((double)Dy(im->r)*delta));
609 05a4d855 2007-03-26 devnull setcursor(mc, &reading);
610 24c02865 2005-01-04 devnull tmp = xallocimage(display, r, im->chan, 0, DBlack);
611 24c02865 2005-01-04 devnull if(tmp == nil) {
612 24c02865 2005-01-04 devnull fprint(2, "out of memory during fit: %r\n");
613 24c02865 2005-01-04 devnull wexits("memory");
614 24c02865 2005-01-04 devnull }
615 24c02865 2005-01-04 devnull resample(im, tmp);
616 24c02865 2005-01-04 devnull freeimage(im);
617 24c02865 2005-01-04 devnull im = tmp;
618 05a4d855 2007-03-26 devnull setcursor(mc, nil);
619 24c02865 2005-01-04 devnull ul = screen->r.min;
620 24c02865 2005-01-04 devnull redraw(screen);
621 24c02865 2005-01-04 devnull flushimage(display, 1);
622 24c02865 2005-01-04 devnull break;
623 24c02865 2005-01-04 devnull }
624 24c02865 2005-01-04 devnull case Rot: /* rotate 90 */
625 05a4d855 2007-03-26 devnull setcursor(mc, &reading);
626 24c02865 2005-01-04 devnull im = rot90(im);
627 05a4d855 2007-03-26 devnull setcursor(mc, nil);
628 17157e4a 2006-03-20 devnull angle = (angle+90) % 360;
629 24c02865 2005-01-04 devnull redraw(screen);
630 24c02865 2005-01-04 devnull flushimage(display, 1);
631 24c02865 2005-01-04 devnull break;
632 24c02865 2005-01-04 devnull case Upside: /* upside-down */
633 24c02865 2005-01-04 devnull if(im==nil)
634 24c02865 2005-01-04 devnull break;
635 05a4d855 2007-03-26 devnull setcursor(mc, &reading);
636 24c02865 2005-01-04 devnull rot180(im);
637 05a4d855 2007-03-26 devnull setcursor(mc, nil);
638 17157e4a 2006-03-20 devnull angle = (angle+180) % 360;
639 24c02865 2005-01-04 devnull redraw(screen);
640 24c02865 2005-01-04 devnull flushimage(display, 1);
641 24c02865 2005-01-04 devnull break;
642 24c02865 2005-01-04 devnull case Restore: /* restore */
643 24c02865 2005-01-04 devnull showpage(page, &menu);
644 24c02865 2005-01-04 devnull break;
645 24c02865 2005-01-04 devnull case Reverse: /* reverse */
646 24c02865 2005-01-04 devnull if(doc->fwdonly)
647 24c02865 2005-01-04 devnull break;
648 24c02865 2005-01-04 devnull reverse = !reverse;
649 24c02865 2005-01-04 devnull menu.lasthit = doc->npage-1-menu.lasthit;
650 24c02865 2005-01-04 devnull
651 24c02865 2005-01-04 devnull if(page == 0 || page == doc->npage-1) {
652 24c02865 2005-01-04 devnull page = doc->npage-1-page;
653 24c02865 2005-01-04 devnull showpage(page, &menu);
654 24c02865 2005-01-04 devnull }
655 24c02865 2005-01-04 devnull break;
656 24c02865 2005-01-04 devnull case Write: /* write */
657 05a4d855 2007-03-26 devnull setcursor(mc, &reading);
658 24c02865 2005-01-04 devnull s = writebitmap();
659 24c02865 2005-01-04 devnull if(s)
660 24c02865 2005-01-04 devnull string(screen, addpt(screen->r.min, Pt(5,5)), display->black, ZP,
661 24c02865 2005-01-04 devnull display->defaultfont, s);
662 05a4d855 2007-03-26 devnull setcursor(mc, nil);
663 24c02865 2005-01-04 devnull flushimage(display, 1);
664 24c02865 2005-01-04 devnull break;
665 24c02865 2005-01-04 devnull case Del: /* delete */
666 24c02865 2005-01-04 devnull if(doc->rmpage && page < doc->npage) {
667 24c02865 2005-01-04 devnull if(doc->rmpage(doc, page) >= 0) {
668 24c02865 2005-01-04 devnull if(doc->npage < 0)
669 24c02865 2005-01-04 devnull wexits(0);
670 24c02865 2005-01-04 devnull if(page >= doc->npage)
671 24c02865 2005-01-04 devnull page = doc->npage-1;
672 24c02865 2005-01-04 devnull showpage(page, &menu);
673 24c02865 2005-01-04 devnull }
674 24c02865 2005-01-04 devnull }
675 24c02865 2005-01-04 devnull break;
676 24c02865 2005-01-04 devnull case Exit: /* exit */
677 24c02865 2005-01-04 devnull return;
678 24c02865 2005-01-04 devnull case Empty1:
679 24c02865 2005-01-04 devnull case Empty2:
680 24c02865 2005-01-04 devnull case Empty3:
681 24c02865 2005-01-04 devnull break;
682 24c02865 2005-01-04 devnull
683 24c02865 2005-01-04 devnull };
684 24c02865 2005-01-04 devnull
685 24c02865 2005-01-04 devnull
686 24c02865 2005-01-04 devnull
687 24c02865 2005-01-04 devnull case Right:
688 24c02865 2005-01-04 devnull if(doc->npage == 0)
689 24c02865 2005-01-04 devnull break;
690 24c02865 2005-01-04 devnull
691 24c02865 2005-01-04 devnull oldpage = page;
692 05a4d855 2007-03-26 devnull n = menuhit(RMenu, mc, &menu, nil);
693 24c02865 2005-01-04 devnull if(n == -1)
694 24c02865 2005-01-04 devnull break;
695 24c02865 2005-01-04 devnull
696 24c02865 2005-01-04 devnull if(doc->fwdonly) {
697 24c02865 2005-01-04 devnull switch(n){
698 24c02865 2005-01-04 devnull case 0: /* this page */
699 24c02865 2005-01-04 devnull break;
700 24c02865 2005-01-04 devnull case 1: /* next page */
701 24c02865 2005-01-04 devnull showpage(++page, &menu);
702 24c02865 2005-01-04 devnull break;
703 24c02865 2005-01-04 devnull case 2: /* exit */
704 24c02865 2005-01-04 devnull return;
705 24c02865 2005-01-04 devnull }
706 24c02865 2005-01-04 devnull break;
707 24c02865 2005-01-04 devnull }
708 24c02865 2005-01-04 devnull
709 24c02865 2005-01-04 devnull if(n == doc->npage)
710 24c02865 2005-01-04 devnull return;
711 24c02865 2005-01-04 devnull else
712 24c02865 2005-01-04 devnull page = reverse ? doc->npage-1-n : n;
713 24c02865 2005-01-04 devnull
714 24c02865 2005-01-04 devnull if(oldpage != page)
715 24c02865 2005-01-04 devnull showpage(page, &menu);
716 24c02865 2005-01-04 devnull nxt = 0;
717 24c02865 2005-01-04 devnull break;
718 24c02865 2005-01-04 devnull }
719 24c02865 2005-01-04 devnull break;
720 05a4d855 2007-03-26 devnull case CResize:
721 05a4d855 2007-03-26 devnull r = screen->r;
722 05a4d855 2007-03-26 devnull if(getwindow(display, Refnone) < 0)
723 05a4d855 2007-03-26 devnull fprint(2,"can't reattach to window");
724 05a4d855 2007-03-26 devnull ul = addpt(ul, subpt(screen->r.min, r.min));
725 05a4d855 2007-03-26 devnull redraw(screen);
726 05a4d855 2007-03-26 devnull flushimage(display, 1);
727 05a4d855 2007-03-26 devnull break;
728 05a4d855 2007-03-26 devnull case CPlumb:
729 24c02865 2005-01-04 devnull if(pm->ndata <= 0){
730 24c02865 2005-01-04 devnull plumbfree(pm);
731 24c02865 2005-01-04 devnull break;
732 24c02865 2005-01-04 devnull }
733 24c02865 2005-01-04 devnull if(showdata(pm)) {
734 24c02865 2005-01-04 devnull s = estrdup("/tmp/pageplumbXXXXXXX");
735 24c02865 2005-01-04 devnull fd = opentemp(s);
736 24c02865 2005-01-04 devnull write(fd, pm->data, pm->ndata);
737 24c02865 2005-01-04 devnull /* lose fd reference on purpose; the file is open ORCLOSE */
738 24c02865 2005-01-04 devnull } else if(pm->data[0] == '/') {
739 24c02865 2005-01-04 devnull s = estrdup(pm->data);
740 24c02865 2005-01-04 devnull } else {
741 24c02865 2005-01-04 devnull s = emalloc(strlen(pm->wdir)+1+pm->ndata+1);
742 24c02865 2005-01-04 devnull sprint(s, "%s/%s", pm->wdir, pm->data);
743 24c02865 2005-01-04 devnull cleanname(s);
744 24c02865 2005-01-04 devnull }
745 24c02865 2005-01-04 devnull if((i = doc->addpage(doc, s)) >= 0) {
746 24c02865 2005-01-04 devnull page = i;
747 24c02865 2005-01-04 devnull unhide();
748 24c02865 2005-01-04 devnull showpage(page, &menu);
749 24c02865 2005-01-04 devnull }
750 24c02865 2005-01-04 devnull free(s);
751 24c02865 2005-01-04 devnull plumbfree(pm);
752 24c02865 2005-01-04 devnull break;
753 24c02865 2005-01-04 devnull }
754 24c02865 2005-01-04 devnull }
755 24c02865 2005-01-04 devnull }
756 24c02865 2005-01-04 devnull
757 24c02865 2005-01-04 devnull Image *gray;
758 24c02865 2005-01-04 devnull
759 24c02865 2005-01-04 devnull /*
760 24c02865 2005-01-04 devnull * A draw operation that touches only the area contained in bot but not in top.
761 24c02865 2005-01-04 devnull * mp and sp get aligned with bot.min.
762 24c02865 2005-01-04 devnull */
763 24c02865 2005-01-04 devnull static void
764 24c02865 2005-01-04 devnull gendrawdiff(Image *dst, Rectangle bot, Rectangle top,
765 24c02865 2005-01-04 devnull Image *src, Point sp, Image *mask, Point mp, int op)
766 24c02865 2005-01-04 devnull {
767 24c02865 2005-01-04 devnull Rectangle r;
768 24c02865 2005-01-04 devnull Point origin;
769 24c02865 2005-01-04 devnull Point delta;
770 24c02865 2005-01-04 devnull
771 24c02865 2005-01-04 devnull USED(op);
772 24c02865 2005-01-04 devnull
773 24c02865 2005-01-04 devnull if(Dx(bot)*Dy(bot) == 0)
774 24c02865 2005-01-04 devnull return;
775 24c02865 2005-01-04 devnull
776 24c02865 2005-01-04 devnull /* no points in bot - top */
777 24c02865 2005-01-04 devnull if(rectinrect(bot, top))
778 24c02865 2005-01-04 devnull return;
779 24c02865 2005-01-04 devnull
780 24c02865 2005-01-04 devnull /* bot - top ≡ bot */
781 24c02865 2005-01-04 devnull if(Dx(top)*Dy(top)==0 || rectXrect(bot, top)==0){
782 24c02865 2005-01-04 devnull gendrawop(dst, bot, src, sp, mask, mp, op);
783 24c02865 2005-01-04 devnull return;
784 24c02865 2005-01-04 devnull }
785 24c02865 2005-01-04 devnull
786 24c02865 2005-01-04 devnull origin = bot.min;
787 24c02865 2005-01-04 devnull /* split bot into rectangles that don't intersect top */
788 24c02865 2005-01-04 devnull /* left side */
789 24c02865 2005-01-04 devnull if(bot.min.x < top.min.x){
790 24c02865 2005-01-04 devnull r = Rect(bot.min.x, bot.min.y, top.min.x, bot.max.y);
791 24c02865 2005-01-04 devnull delta = subpt(r.min, origin);
792 24c02865 2005-01-04 devnull gendrawop(dst, r, src, addpt(sp, delta), mask, addpt(mp, delta), op);
793 24c02865 2005-01-04 devnull bot.min.x = top.min.x;
794 24c02865 2005-01-04 devnull }
795 24c02865 2005-01-04 devnull
796 24c02865 2005-01-04 devnull /* right side */
797 24c02865 2005-01-04 devnull if(bot.max.x > top.max.x){
798 24c02865 2005-01-04 devnull r = Rect(top.max.x, bot.min.y, bot.max.x, bot.max.y);
799 24c02865 2005-01-04 devnull delta = subpt(r.min, origin);
800 24c02865 2005-01-04 devnull gendrawop(dst, r, src, addpt(sp, delta), mask, addpt(mp, delta), op);
801 24c02865 2005-01-04 devnull bot.max.x = top.max.x;
802 24c02865 2005-01-04 devnull }
803 24c02865 2005-01-04 devnull
804 24c02865 2005-01-04 devnull /* top */
805 24c02865 2005-01-04 devnull if(bot.min.y < top.min.y){
806 24c02865 2005-01-04 devnull r = Rect(bot.min.x, bot.min.y, bot.max.x, top.min.y);
807 24c02865 2005-01-04 devnull delta = subpt(r.min, origin);
808 24c02865 2005-01-04 devnull gendrawop(dst, r, src, addpt(sp, delta), mask, addpt(mp, delta), op);
809 24c02865 2005-01-04 devnull bot.min.y = top.min.y;
810 24c02865 2005-01-04 devnull }
811 24c02865 2005-01-04 devnull
812 24c02865 2005-01-04 devnull /* bottom */
813 24c02865 2005-01-04 devnull if(bot.max.y > top.max.y){
814 24c02865 2005-01-04 devnull r = Rect(bot.min.x, top.max.y, bot.max.x, bot.max.y);
815 24c02865 2005-01-04 devnull delta = subpt(r.min, origin);
816 24c02865 2005-01-04 devnull gendrawop(dst, r, src, addpt(sp, delta), mask, addpt(mp, delta), op);
817 24c02865 2005-01-04 devnull bot.max.y = top.max.y;
818 24c02865 2005-01-04 devnull }
819 24c02865 2005-01-04 devnull }
820 24c02865 2005-01-04 devnull
821 24c02865 2005-01-04 devnull static void
822 24c02865 2005-01-04 devnull drawdiff(Image *dst, Rectangle bot, Rectangle top, Image *src, Image *mask, Point p, int op)
823 24c02865 2005-01-04 devnull {
824 24c02865 2005-01-04 devnull gendrawdiff(dst, bot, top, src, p, mask, p, op);
825 24c02865 2005-01-04 devnull }
826 24c02865 2005-01-04 devnull
827 24c02865 2005-01-04 devnull /*
828 24c02865 2005-01-04 devnull * Translate the image in the window by delta.
829 24c02865 2005-01-04 devnull */
830 24c02865 2005-01-04 devnull static void
831 24c02865 2005-01-04 devnull translate(Point delta)
832 24c02865 2005-01-04 devnull {
833 24c02865 2005-01-04 devnull Point u;
834 24c02865 2005-01-04 devnull Rectangle r, or;
835 24c02865 2005-01-04 devnull
836 24c02865 2005-01-04 devnull if(im == nil)
837 24c02865 2005-01-04 devnull return;
838 24c02865 2005-01-04 devnull
839 24c02865 2005-01-04 devnull u = pclip(addpt(ul, delta), ulrange);
840 24c02865 2005-01-04 devnull delta = subpt(u, ul);
841 24c02865 2005-01-04 devnull if(delta.x == 0 && delta.y == 0)
842 24c02865 2005-01-04 devnull return;
843 24c02865 2005-01-04 devnull
844 24c02865 2005-01-04 devnull /*
845 24c02865 2005-01-04 devnull * The upper left corner of the image is currently at ul.
846 24c02865 2005-01-04 devnull * We want to move it to u.
847 24c02865 2005-01-04 devnull */
848 24c02865 2005-01-04 devnull or = rectaddpt(Rpt(ZP, Pt(Dx(im->r), Dy(im->r))), ul);
849 24c02865 2005-01-04 devnull r = rectaddpt(or, delta);
850 24c02865 2005-01-04 devnull
851 24c02865 2005-01-04 devnull drawop(screen, r, screen, nil, ul, S);
852 24c02865 2005-01-04 devnull ul = u;
853 24c02865 2005-01-04 devnull
854 24c02865 2005-01-04 devnull /* fill in gray where image used to be but isn't. */
855 24c02865 2005-01-04 devnull drawdiff(screen, insetrect(or, -2), insetrect(r, -2), gray, nil, ZP, S);
856 24c02865 2005-01-04 devnull
857 24c02865 2005-01-04 devnull /* fill in black border */
858 24c02865 2005-01-04 devnull drawdiff(screen, insetrect(r, -2), r, display->black, nil, ZP, S);
859 24c02865 2005-01-04 devnull
860 24c02865 2005-01-04 devnull /* fill in image where it used to be off the screen. */
861 24c02865 2005-01-04 devnull if(rectclip(&or, screen->r))
862 24c02865 2005-01-04 devnull drawdiff(screen, r, rectaddpt(or, delta), im, nil, im->r.min, S);
863 24c02865 2005-01-04 devnull else
864 24c02865 2005-01-04 devnull drawop(screen, r, im, nil, im->r.min, S);
865 24c02865 2005-01-04 devnull flushimage(display, 1);
866 24c02865 2005-01-04 devnull }
867 24c02865 2005-01-04 devnull
868 24c02865 2005-01-04 devnull void
869 24c02865 2005-01-04 devnull redraw(Image *screen)
870 24c02865 2005-01-04 devnull {
871 24c02865 2005-01-04 devnull Rectangle r;
872 24c02865 2005-01-04 devnull
873 24c02865 2005-01-04 devnull if(im == nil)
874 24c02865 2005-01-04 devnull return;
875 24c02865 2005-01-04 devnull
876 24c02865 2005-01-04 devnull ulrange.max = screen->r.max;
877 24c02865 2005-01-04 devnull ulrange.min = subpt(screen->r.min, Pt(Dx(im->r), Dy(im->r)));
878 24c02865 2005-01-04 devnull
879 24c02865 2005-01-04 devnull ul = pclip(ul, ulrange);
880 24c02865 2005-01-04 devnull drawop(screen, screen->r, im, nil, subpt(im->r.min, subpt(ul, screen->r.min)), S);
881 24c02865 2005-01-04 devnull
882 24c02865 2005-01-04 devnull if(im->repl)
883 24c02865 2005-01-04 devnull return;
884 24c02865 2005-01-04 devnull
885 24c02865 2005-01-04 devnull /* fill in any outer edges */
886 24c02865 2005-01-04 devnull /* black border */
887 24c02865 2005-01-04 devnull r = rectaddpt(im->r, subpt(ul, im->r.min));
888 24c02865 2005-01-04 devnull border(screen, r, -2, display->black, ZP);
889 24c02865 2005-01-04 devnull r.min = subpt(r.min, Pt(2,2));
890 24c02865 2005-01-04 devnull r.max = addpt(r.max, Pt(2,2));
891 24c02865 2005-01-04 devnull
892 24c02865 2005-01-04 devnull /* gray for the rest */
893 24c02865 2005-01-04 devnull if(gray == nil) {
894 24c02865 2005-01-04 devnull gray = xallocimage(display, Rect(0,0,1,1), RGB24, 1, 0x888888FF);
895 24c02865 2005-01-04 devnull if(gray == nil) {
896 24c02865 2005-01-04 devnull fprint(2, "g out of memory: %r\n");
897 24c02865 2005-01-04 devnull wexits("mem");
898 24c02865 2005-01-04 devnull }
899 24c02865 2005-01-04 devnull }
900 24c02865 2005-01-04 devnull border(screen, r, -4000, gray, ZP);
901 05a4d855 2007-03-26 devnull // flushimage(display, 0);
902 24c02865 2005-01-04 devnull }
903 24c02865 2005-01-04 devnull
904 24c02865 2005-01-04 devnull /* clip p to be in r */
905 24c02865 2005-01-04 devnull Point
906 24c02865 2005-01-04 devnull pclip(Point p, Rectangle r)
907 24c02865 2005-01-04 devnull {
908 24c02865 2005-01-04 devnull if(p.x < r.min.x)
909 24c02865 2005-01-04 devnull p.x = r.min.x;
910 24c02865 2005-01-04 devnull else if(p.x >= r.max.x)
911 24c02865 2005-01-04 devnull p.x = r.max.x-1;
912 24c02865 2005-01-04 devnull
913 24c02865 2005-01-04 devnull if(p.y < r.min.y)
914 24c02865 2005-01-04 devnull p.y = r.min.y;
915 24c02865 2005-01-04 devnull else if(p.y >= r.max.y)
916 24c02865 2005-01-04 devnull p.y = r.max.y-1;
917 24c02865 2005-01-04 devnull
918 24c02865 2005-01-04 devnull return p;
919 24c02865 2005-01-04 devnull }
920 24c02865 2005-01-04 devnull
921 24c02865 2005-01-04 devnull /*
922 24c02865 2005-01-04 devnull * resize is perhaps a misnomer.
923 24c02865 2005-01-04 devnull * this really just grows the window to be at least dx across
924 24c02865 2005-01-04 devnull * and dy high. if the window hits the bottom or right edge,
925 24c02865 2005-01-04 devnull * it is backed up until it hits the top or left edge.
926 24c02865 2005-01-04 devnull */
927 24c02865 2005-01-04 devnull void
928 24c02865 2005-01-04 devnull resize(int dx, int dy)
929 24c02865 2005-01-04 devnull {
930 24c02865 2005-01-04 devnull static Rectangle sr;
931 24c02865 2005-01-04 devnull Rectangle r, or;
932 24c02865 2005-01-04 devnull
933 05a4d855 2007-03-26 devnull r = screen->r;
934 05a4d855 2007-03-26 devnull if(Dx(sr)*Dy(sr) == 0) {
935 05a4d855 2007-03-26 devnull sr = screenrect();
936 05a4d855 2007-03-26 devnull /* Start with the size of the first image */
937 05a4d855 2007-03-26 devnull r.max.x = r.min.x;
938 05a4d855 2007-03-26 devnull r.max.y = r.min.y;
939 24c02865 2005-01-04 devnull }
940 24c02865 2005-01-04 devnull
941 24c02865 2005-01-04 devnull if(Dx(r) >= dx && Dy(r) >= dy)
942 24c02865 2005-01-04 devnull return;
943 24c02865 2005-01-04 devnull
944 24c02865 2005-01-04 devnull or = r;
945 24c02865 2005-01-04 devnull
946 24c02865 2005-01-04 devnull r.max.x = max(r.min.x+dx, r.max.x);
947 24c02865 2005-01-04 devnull r.max.y = max(r.min.y+dy, r.max.y);
948 24c02865 2005-01-04 devnull if(r.max.x > sr.max.x){
949 24c02865 2005-01-04 devnull if(Dx(r) > Dx(sr)){
950 24c02865 2005-01-04 devnull r.min.x = 0;
951 24c02865 2005-01-04 devnull r.max.x = sr.max.x;
952 24c02865 2005-01-04 devnull }else
953 24c02865 2005-01-04 devnull r = rectaddpt(r, Pt(sr.max.x-r.max.x, 0));
954 24c02865 2005-01-04 devnull }
955 24c02865 2005-01-04 devnull if(r.max.y > sr.max.y){
956 24c02865 2005-01-04 devnull if(Dy(r) > Dy(sr)){
957 24c02865 2005-01-04 devnull r.min.y = 0;
958 24c02865 2005-01-04 devnull r.max.y = sr.max.y;
959 24c02865 2005-01-04 devnull }else
960 24c02865 2005-01-04 devnull r = rectaddpt(r, Pt(0, sr.max.y-r.max.y));
961 24c02865 2005-01-04 devnull }
962 24c02865 2005-01-04 devnull
963 24c02865 2005-01-04 devnull /*
964 24c02865 2005-01-04 devnull * Sometimes we can't actually grow the window big enough,
965 24c02865 2005-01-04 devnull * and resizing it to the same shape makes it flash.
966 24c02865 2005-01-04 devnull */
967 24c02865 2005-01-04 devnull if(Dx(r) == Dx(or) && Dy(r) == Dy(or))
968 24c02865 2005-01-04 devnull return;
969 24c02865 2005-01-04 devnull
970 05a4d855 2007-03-26 devnull drawresizewindow(r);
971 24c02865 2005-01-04 devnull }
972 24c02865 2005-01-04 devnull
973 24c02865 2005-01-04 devnull /*
974 24c02865 2005-01-04 devnull * If we allocimage after a resize but before flushing the draw buffer,
975 24c02865 2005-01-04 devnull * we won't have seen the reshape event, and we won't have called
976 24c02865 2005-01-04 devnull * getwindow, and allocimage will fail. So we flushimage before every alloc.
977 24c02865 2005-01-04 devnull */
978 24c02865 2005-01-04 devnull Image*
979 24c02865 2005-01-04 devnull xallocimage(Display *d, Rectangle r, ulong chan, int repl, ulong val)
980 24c02865 2005-01-04 devnull {
981 24c02865 2005-01-04 devnull flushimage(display, 0);
982 24c02865 2005-01-04 devnull return allocimage(d, r, chan, repl, val);
983 24c02865 2005-01-04 devnull }
984 24c02865 2005-01-04 devnull
985 17157e4a 2006-03-20 devnull void
986 05a4d855 2007-03-26 devnull plumbproc(void *c)
987 17157e4a 2006-03-20 devnull {
988 05a4d855 2007-03-26 devnull Channel *cp;
989 05a4d855 2007-03-26 devnull CFid *fd;
990 17157e4a 2006-03-20 devnull
991 05a4d855 2007-03-26 devnull cp = c;
992 05a4d855 2007-03-26 devnull fd = plumbopenfid("image", OREAD|OCEXEC);
993 05a4d855 2007-03-26 devnull if(fd == nil) {
994 05a4d855 2007-03-26 devnull fprint(2, "Cannot connect to the plumber");
995 05a4d855 2007-03-26 devnull threadexits("plumber");
996 17157e4a 2006-03-20 devnull }
997 05a4d855 2007-03-26 devnull for(;;) {
998 05a4d855 2007-03-26 devnull send(cp, plumbrecvfid(fd));
999 17157e4a 2006-03-20 devnull }
1000 24c02865 2005-01-04 devnull }
1001 24c02865 2005-01-04 devnull
1002 05a4d855 2007-03-26 devnull /* XXX: This function is ugly and hacky. There may be a better way... or not */
1003 24c02865 2005-01-04 devnull Rectangle
1004 24c02865 2005-01-04 devnull screenrect(void)
1005 24c02865 2005-01-04 devnull {
1006 05a4d855 2007-03-26 devnull int fd[3], pfd[2];
1007 05a4d855 2007-03-26 devnull int n, w, h;
1008 05a4d855 2007-03-26 devnull char buf[64];
1009 05a4d855 2007-03-26 devnull char *p, *pr;
1010 24c02865 2005-01-04 devnull
1011 05a4d855 2007-03-26 devnull if(pipe(pfd) < 0)
1012 05a4d855 2007-03-26 devnull wexits("pipe failed");
1013 05a4d855 2007-03-26 devnull
1014 05a4d855 2007-03-26 devnull fd[0] = open("/dev/null", OREAD);
1015 05a4d855 2007-03-26 devnull fd[1] = pfd[1];
1016 05a4d855 2007-03-26 devnull fd[2] = dup(2, -1);
1017 05a4d855 2007-03-26 devnull if(threadspawnl(fd, "rc", "rc", "-c", "xdpyinfo | grep 'dimensions:'", nil) == -1)
1018 05a4d855 2007-03-26 devnull wexits("threadspawnl failed");
1019 05a4d855 2007-03-26 devnull
1020 05a4d855 2007-03-26 devnull if((n = read(pfd[0], buf, 63)) <= 0)
1021 05a4d855 2007-03-26 devnull wexits("read xdpyinfo failed");
1022 05a4d855 2007-03-26 devnull close(fd[0]);
1023 05a4d855 2007-03-26 devnull
1024 05a4d855 2007-03-26 devnull buf[n] = '\0';
1025 05a4d855 2007-03-26 devnull for(p = buf; *p; p++)
1026 05a4d855 2007-03-26 devnull if(*p >= '0' && *p <= '9') break;
1027 05a4d855 2007-03-26 devnull if(*p == '\0')
1028 05a4d855 2007-03-26 devnull wexits("xdpyinfo parse failed");
1029 05a4d855 2007-03-26 devnull
1030 05a4d855 2007-03-26 devnull w = strtoul(p, &pr, 10);
1031 05a4d855 2007-03-26 devnull if(p == pr || *pr == '\0' || *(++pr) == '\0')
1032 05a4d855 2007-03-26 devnull wexits("xdpyinfo parse failed");
1033 05a4d855 2007-03-26 devnull h = strtoul(pr, &p, 10);
1034 05a4d855 2007-03-26 devnull if(p == pr)
1035 05a4d855 2007-03-26 devnull wexits("xdpyinfo parse failed");
1036 05a4d855 2007-03-26 devnull
1037 05a4d855 2007-03-26 devnull return Rect(0, 0, w, h);
1038 24c02865 2005-01-04 devnull }
1039 24c02865 2005-01-04 devnull
1040 24c02865 2005-01-04 devnull void
1041 24c02865 2005-01-04 devnull zerox(void)
1042 24c02865 2005-01-04 devnull {
1043 24c02865 2005-01-04 devnull int pfd[2];
1044 05a4d855 2007-03-26 devnull int fd[3];
1045 24c02865 2005-01-04 devnull
1046 24c02865 2005-01-04 devnull pipe(pfd);
1047 05a4d855 2007-03-26 devnull fd[0] = pfd[0];
1048 05a4d855 2007-03-26 devnull fd[1] = dup(1, -1);
1049 05a4d855 2007-03-26 devnull fd[2] = dup(2, -1);
1050 05a4d855 2007-03-26 devnull threadspawnl(fd, "page", "page", "-R", nil);
1051 05a4d855 2007-03-26 devnull
1052 05a4d855 2007-03-26 devnull writeimage(pfd[1], im, 0);
1053 05a4d855 2007-03-26 devnull close(pfd[1]);
1054 24c02865 2005-01-04 devnull }