1 76193d7c 2003-09-30 devnull #include <u.h>
2 76193d7c 2003-09-30 devnull #include <libc.h>
3 76193d7c 2003-09-30 devnull #include <draw.h>
4 54bebe6a 2012-09-17 rsc #include <mouse.h>
6 76193d7c 2003-09-30 devnull Display *display;
7 76193d7c 2003-09-30 devnull Font *font;
8 76193d7c 2003-09-30 devnull Image *screen;
9 76193d7c 2003-09-30 devnull int _drawdebug;
11 76193d7c 2003-09-30 devnull static char deffontname[] = "*default*";
12 76193d7c 2003-09-30 devnull Screen *_screen;
14 b20f06ab 2004-12-26 devnull int debuglockdisplay = 1;
15 74dc60da 2006-06-25 devnull char *winsize;
17 54bebe6a 2012-09-17 rsc int visibleclicks = 0;
18 54bebe6a 2012-09-17 rsc Image *mousebuttons;
19 54bebe6a 2012-09-17 rsc Image *mousesave;
20 54bebe6a 2012-09-17 rsc Mouse _drawmouse;
23 9e0d3750 2017-01-06 rsc needdisplay(void)
28 76193d7c 2003-09-30 devnull static void
29 76193d7c 2003-09-30 devnull drawshutdown(void)
31 76193d7c 2003-09-30 devnull Display *d;
33 76193d7c 2003-09-30 devnull d = display;
35 76193d7c 2003-09-30 devnull display = nil;
36 76193d7c 2003-09-30 devnull closedisplay(d);
42 74dc60da 2006-06-25 devnull geninitdraw(char *devdir, void(*error)(Display*, char*), char *fontname, char *label, char *windir, int ref)
44 76193d7c 2003-09-30 devnull Subfont *df;
45 54bebe6a 2012-09-17 rsc char buf[128], *p;
47 74dc60da 2006-06-25 devnull if(label == nil)
48 74dc60da 2006-06-25 devnull label = argv0;
49 74dc60da 2006-06-25 devnull display = _initdisplay(error, label);
50 76193d7c 2003-09-30 devnull if(display == nil)
51 76193d7c 2003-09-30 devnull return -1;
54 76193d7c 2003-09-30 devnull * Set up default font
56 76193d7c 2003-09-30 devnull df = getdefont(display);
57 76193d7c 2003-09-30 devnull display->defaultsubfont = df;
58 76193d7c 2003-09-30 devnull if(df == nil){
59 76193d7c 2003-09-30 devnull fprint(2, "imageinit: can't open default subfont: %r\n");
61 76193d7c 2003-09-30 devnull closedisplay(display);
62 76193d7c 2003-09-30 devnull display = nil;
63 76193d7c 2003-09-30 devnull return -1;
65 76193d7c 2003-09-30 devnull if(fontname == nil)
66 74dc60da 2006-06-25 devnull fontname = getenv("font");
69 76193d7c 2003-09-30 devnull * Build fonts with caches==depth of screen, for speed.
70 76193d7c 2003-09-30 devnull * If conversion were faster, we'd use 0 and save memory.
72 76193d7c 2003-09-30 devnull if(fontname == nil){
73 76193d7c 2003-09-30 devnull snprint(buf, sizeof buf, "%d %d\n0 %d\t%s\n", df->height, df->ascent,
74 76193d7c 2003-09-30 devnull df->n-1, deffontname);
75 74dc60da 2006-06-25 devnull //BUG: Need something better for this installsubfont("*default*", df);
76 76193d7c 2003-09-30 devnull font = buildfont(display, buf, deffontname);
77 76193d7c 2003-09-30 devnull if(font == nil){
78 74dc60da 2006-06-25 devnull fprint(2, "imageinit: can't open default font: %r\n");
79 76193d7c 2003-09-30 devnull goto Error;
82 76193d7c 2003-09-30 devnull font = openfont(display, fontname); /* BUG: grey fonts */
83 76193d7c 2003-09-30 devnull if(font == nil){
84 74dc60da 2006-06-25 devnull fprint(2, "imageinit: can't open font %s: %r\n", fontname);
85 76193d7c 2003-09-30 devnull goto Error;
88 76193d7c 2003-09-30 devnull display->defaultfont = font;
90 670dd11a 2005-03-18 devnull _screen = allocscreen(display->image, display->white, 0);
91 74dc60da 2006-06-25 devnull display->screenimage = display->image; /* _allocwindow wants screenimage->chan */
92 670dd11a 2005-03-18 devnull screen = _allocwindow(nil, _screen, display->image->r, Refnone, DWhite);
93 74dc60da 2006-06-25 devnull if(screen == nil){
94 74dc60da 2006-06-25 devnull fprint(2, "_allocwindow: %r\n");
95 74dc60da 2006-06-25 devnull goto Error;
97 670dd11a 2005-03-18 devnull display->screenimage = screen;
98 7ba8aa0c 2005-07-24 devnull draw(screen, screen->r, display->white, nil, ZP);
99 670dd11a 2005-03-18 devnull flushimage(display, 1);
101 54bebe6a 2012-09-17 rsc p = getenv("visibleclicks");
102 54bebe6a 2012-09-17 rsc visibleclicks = p != nil && *p == '1';
103 54bebe6a 2012-09-17 rsc if(visibleclicks) {
106 54bebe6a 2012-09-17 rsc f = display->defaultfont;
107 54bebe6a 2012-09-17 rsc mousebuttons = allocimage(display, Rect(0,0,64,22), screen->chan, 0, DWhite);
108 54bebe6a 2012-09-17 rsc border(mousebuttons, mousebuttons->r, 1, display->black, ZP);
109 54bebe6a 2012-09-17 rsc border(mousebuttons, Rect(0, 0, 22, 22), 1, display->black, ZP);
110 54bebe6a 2012-09-17 rsc border(mousebuttons, Rect(42, 0, 64, 22), 1, display->black, ZP);
111 54bebe6a 2012-09-17 rsc string(mousebuttons, Pt(10-stringwidth(display->defaultfont, "1")/2, 11-f->height/2), display->black, ZP, display->defaultfont, "1");
112 54bebe6a 2012-09-17 rsc string(mousebuttons, Pt(21+10-stringwidth(display->defaultfont, "2")/2, 11-f->height/2), display->black, ZP, display->defaultfont, "2");
113 54bebe6a 2012-09-17 rsc string(mousebuttons, Pt(42+10-stringwidth(display->defaultfont, "3")/2, 11-f->height/2), display->black, ZP, display->defaultfont, "3");
114 54bebe6a 2012-09-17 rsc mousesave = allocimage(display, Rect(0,0,64,22), screen->chan, 0, 0);
118 abe4cd41 2005-07-27 devnull * I don't see any reason to go away gracefully,
119 abe4cd41 2005-07-27 devnull * and if some other proc exits holding the display
120 abe4cd41 2005-07-27 devnull * lock, this atexit call never finishes.
122 abe4cd41 2005-07-27 devnull * atexit(drawshutdown);
124 76193d7c 2003-09-30 devnull return 1;
128 74dc60da 2006-06-25 devnull initdraw(void (*error)(Display*, char*), char *fontname, char *label)
130 74dc60da 2006-06-25 devnull return geninitdraw("/dev", error, fontname, label, "/dev", Refnone);
133 74dc60da 2006-06-25 devnull extern int _freeimage1(Image*);
135 74dc60da 2006-06-25 devnull static Image*
136 74dc60da 2006-06-25 devnull getimage0(Display *d, Image *image)
138 74dc60da 2006-06-25 devnull char info[12*12+1];
139 74dc60da 2006-06-25 devnull uchar *a;
143 74dc60da 2006-06-25 devnull * If there's an old screen, it has id 0. The 'J' request below
144 74dc60da 2006-06-25 devnull * will try to install the new screen as id 0, so the old one
145 74dc60da 2006-06-25 devnull * must be freed first.
147 74dc60da 2006-06-25 devnull if(image){
148 74dc60da 2006-06-25 devnull _freeimage1(image);
149 74dc60da 2006-06-25 devnull memset(image, 0, sizeof(Image));
152 74dc60da 2006-06-25 devnull a = bufimage(d, 2);
153 74dc60da 2006-06-25 devnull a[0] = 'J';
154 74dc60da 2006-06-25 devnull a[1] = 'I';
155 74dc60da 2006-06-25 devnull if(flushimage(d, 0) < 0){
156 74dc60da 2006-06-25 devnull fprint(2, "cannot read screen info: %r\n");
157 74dc60da 2006-06-25 devnull return nil;
160 74dc60da 2006-06-25 devnull n = _displayrddraw(d, info, sizeof info);
161 74dc60da 2006-06-25 devnull if(n != 12*12){
162 74dc60da 2006-06-25 devnull fprint(2, "short screen info\n");
163 74dc60da 2006-06-25 devnull return nil;
166 74dc60da 2006-06-25 devnull if(image == nil){
167 74dc60da 2006-06-25 devnull image = mallocz(sizeof(Image), 1);
168 74dc60da 2006-06-25 devnull if(image == nil){
169 74dc60da 2006-06-25 devnull fprint(2, "cannot allocate image: %r\n");
170 74dc60da 2006-06-25 devnull return nil;
174 74dc60da 2006-06-25 devnull image->display = d;
175 74dc60da 2006-06-25 devnull image->id = 0;
176 74dc60da 2006-06-25 devnull image->chan = strtochan(info+2*12);
177 74dc60da 2006-06-25 devnull image->depth = chantodepth(image->chan);
178 74dc60da 2006-06-25 devnull image->repl = atoi(info+3*12);
179 74dc60da 2006-06-25 devnull image->r.min.x = atoi(info+4*12);
180 74dc60da 2006-06-25 devnull image->r.min.y = atoi(info+5*12);
181 74dc60da 2006-06-25 devnull image->r.max.x = atoi(info+6*12);
182 74dc60da 2006-06-25 devnull image->r.max.y = atoi(info+7*12);
183 74dc60da 2006-06-25 devnull image->clipr.min.x = atoi(info+8*12);
184 74dc60da 2006-06-25 devnull image->clipr.min.y = atoi(info+9*12);
185 74dc60da 2006-06-25 devnull image->clipr.max.x = atoi(info+10*12);
186 74dc60da 2006-06-25 devnull image->clipr.max.y = atoi(info+11*12);
188 d0e07019 2012-11-26 rsc a = bufimage(d, 3);
192 d0e07019 2012-11-26 rsc d->dpi = 100;
193 d0e07019 2012-11-26 rsc if(flushimage(d, 0) >= 0 && _displayrddraw(d, info, 12) == 12)
194 d0e07019 2012-11-26 rsc d->dpi = atoi(info);
196 74dc60da 2006-06-25 devnull return image;
200 74dc60da 2006-06-25 devnull * Attach, or possibly reattach, to window.
201 74dc60da 2006-06-25 devnull * If reattaching, maintain value of screen pointer.
204 74dc60da 2006-06-25 devnull getwindow(Display *d, int ref)
206 74dc60da 2006-06-25 devnull Image *i, *oi;
209 74dc60da 2006-06-25 devnull /* XXX check for destroyed? */
212 74dc60da 2006-06-25 devnull * Libdraw promises not to change the value of "screen",
213 74dc60da 2006-06-25 devnull * so we have to reuse the image structure
214 74dc60da 2006-06-25 devnull * memory we already have.
216 74dc60da 2006-06-25 devnull oi = d->image;
217 74dc60da 2006-06-25 devnull i = getimage0(d, oi);
218 74dc60da 2006-06-25 devnull if(i == nil)
219 74dc60da 2006-06-25 devnull sysfatal("getwindow failed");
220 74dc60da 2006-06-25 devnull d->image = i;
221 74dc60da 2006-06-25 devnull /* fprint(2, "getwindow %p -> %p\n", oi, i); */
223 74dc60da 2006-06-25 devnull freescreen(_screen);
224 74dc60da 2006-06-25 devnull _screen = allocscreen(i, d->white, 0);
225 74dc60da 2006-06-25 devnull _freeimage1(screen);
226 74dc60da 2006-06-25 devnull screen = _allocwindow(screen, _screen, i->r, ref, DWhite);
227 74dc60da 2006-06-25 devnull d->screenimage = screen;
230 213fc4f6 2015-02-17 rsc if(d->dpi >= DefaultDPI*3/2) {
231 213fc4f6 2015-02-17 rsc for(f=d->firstfont; f != nil; f=f->next)
232 213fc4f6 2015-02-17 rsc loadhidpi(f);
234 213fc4f6 2015-02-17 rsc for(f=d->firstfont; f != nil; f=f->next)
235 213fc4f6 2015-02-17 rsc if(f->lodpi != nil && f->lodpi != f)
236 213fc4f6 2015-02-17 rsc swapfont(f, &f->hidpi, &f->lodpi);
239 74dc60da 2006-06-25 devnull return 0;
242 74dc60da 2006-06-25 devnull Display*
243 74dc60da 2006-06-25 devnull _initdisplay(void (*error)(Display*, char*), char *label)
245 74dc60da 2006-06-25 devnull Display *disp;
246 74dc60da 2006-06-25 devnull Image *image;
248 74dc60da 2006-06-25 devnull fmtinstall('P', Pfmt);
249 74dc60da 2006-06-25 devnull fmtinstall('R', Rfmt);
251 74dc60da 2006-06-25 devnull disp = mallocz(sizeof(Display), 1);
252 74dc60da 2006-06-25 devnull if(disp == nil){
254 74dc60da 2006-06-25 devnull return nil;
256 74dc60da 2006-06-25 devnull disp->srvfd = -1;
257 74dc60da 2006-06-25 devnull image = nil;
260 74dc60da 2006-06-25 devnull free(image);
261 74dc60da 2006-06-25 devnull free(disp);
262 74dc60da 2006-06-25 devnull goto Error1;
264 74dc60da 2006-06-25 devnull disp->bufsize = 65500;
265 74dc60da 2006-06-25 devnull disp->buf = malloc(disp->bufsize+5); /* +5 for flush message */
266 74dc60da 2006-06-25 devnull disp->bufp = disp->buf;
267 74dc60da 2006-06-25 devnull disp->error = error;
268 74dc60da 2006-06-25 devnull qlock(&disp->qlock);
270 74dc60da 2006-06-25 devnull if(disp->buf == nil)
271 74dc60da 2006-06-25 devnull goto Error2;
274 74dc60da 2006-06-25 devnull free(disp->buf);
275 74dc60da 2006-06-25 devnull goto Error2;
278 74dc60da 2006-06-25 devnull if(_displaymux(disp) < 0
279 74dc60da 2006-06-25 devnull || _displayconnect(disp) < 0
280 74dc60da 2006-06-25 devnull || _displayinit(disp, label, winsize) < 0)
281 74dc60da 2006-06-25 devnull goto Error3;
284 74dc60da 2006-06-25 devnull close(disp->srvfd);
285 74dc60da 2006-06-25 devnull goto Error3;
288 74dc60da 2006-06-25 devnull image = getimage0(disp, nil);
289 74dc60da 2006-06-25 devnull if(image == nil)
290 74dc60da 2006-06-25 devnull goto Error4;
292 74dc60da 2006-06-25 devnull disp->image = image;
293 74dc60da 2006-06-25 devnull disp->white = allocimage(disp, Rect(0, 0, 1, 1), GREY1, 1, DWhite);
294 74dc60da 2006-06-25 devnull disp->black = allocimage(disp, Rect(0, 0, 1, 1), GREY1, 1, DBlack);
295 74dc60da 2006-06-25 devnull if(disp->white == nil || disp->black == nil){
296 74dc60da 2006-06-25 devnull free(disp->white);
297 74dc60da 2006-06-25 devnull free(disp->black);
298 74dc60da 2006-06-25 devnull goto Error4;
301 74dc60da 2006-06-25 devnull disp->opaque = disp->white;
302 74dc60da 2006-06-25 devnull disp->transparent = disp->black;
304 74dc60da 2006-06-25 devnull return disp;
308 76193d7c 2003-09-30 devnull * Call with d unlocked.
309 76193d7c 2003-09-30 devnull * Note that disp->defaultfont and defaultsubfont are not freed here.
312 76193d7c 2003-09-30 devnull closedisplay(Display *disp)
315 76193d7c 2003-09-30 devnull char buf[128];
317 76193d7c 2003-09-30 devnull if(disp == nil)
319 76193d7c 2003-09-30 devnull if(disp == display)
320 76193d7c 2003-09-30 devnull display = nil;
321 76193d7c 2003-09-30 devnull if(disp->oldlabel[0]){
322 76193d7c 2003-09-30 devnull snprint(buf, sizeof buf, "%s/label", disp->windir);
323 76193d7c 2003-09-30 devnull fd = open(buf, OWRITE);
324 76193d7c 2003-09-30 devnull if(fd >= 0){
325 76193d7c 2003-09-30 devnull write(fd, disp->oldlabel, strlen(disp->oldlabel));
326 76193d7c 2003-09-30 devnull close(fd);
330 76193d7c 2003-09-30 devnull free(disp->devdir);
331 76193d7c 2003-09-30 devnull free(disp->windir);
332 297cded7 2005-12-29 devnull if(disp->white)
333 297cded7 2005-12-29 devnull freeimage(disp->white);
334 297cded7 2005-12-29 devnull if(disp->black)
335 297cded7 2005-12-29 devnull freeimage(disp->black);
336 74dc60da 2006-06-25 devnull if(disp->srvfd >= 0)
337 74dc60da 2006-06-25 devnull close(disp->srvfd);
338 76193d7c 2003-09-30 devnull free(disp);
342 76193d7c 2003-09-30 devnull lockdisplay(Display *disp)
344 76193d7c 2003-09-30 devnull if(debuglockdisplay){
345 76193d7c 2003-09-30 devnull /* avoid busy looping; it's rare we collide anyway */
346 76193d7c 2003-09-30 devnull while(!canqlock(&disp->qlock)){
347 76193d7c 2003-09-30 devnull fprint(1, "proc %d waiting for display lock...\n", getpid());
348 76193d7c 2003-09-30 devnull sleep(1000);
351 76193d7c 2003-09-30 devnull qlock(&disp->qlock);
355 76193d7c 2003-09-30 devnull unlockdisplay(Display *disp)
357 76193d7c 2003-09-30 devnull qunlock(&disp->qlock);
361 76193d7c 2003-09-30 devnull drawerror(Display *d, char *s)
363 76193d7c 2003-09-30 devnull char err[ERRMAX];
365 76193d7c 2003-09-30 devnull if(d->error)
366 76193d7c 2003-09-30 devnull d->error(d, s);
368 76193d7c 2003-09-30 devnull errstr(err, sizeof err);
369 76193d7c 2003-09-30 devnull fprint(2, "draw: %s: %s\n", s, err);
370 76193d7c 2003-09-30 devnull exits(s);
376 76193d7c 2003-09-30 devnull doflush(Display *d)
380 76193d7c 2003-09-30 devnull n = d->bufp-d->buf;
381 76193d7c 2003-09-30 devnull if(n <= 0)
382 76193d7c 2003-09-30 devnull return 1;
384 74dc60da 2006-06-25 devnull if(_displaywrdraw(d, d->buf, n) != n){
385 76193d7c 2003-09-30 devnull if(_drawdebug)
386 76193d7c 2003-09-30 devnull fprint(2, "flushimage fail: d=%p: %r\n", d); /**/
387 76193d7c 2003-09-30 devnull d->bufp = d->buf; /* might as well; chance of continuing */
388 76193d7c 2003-09-30 devnull return -1;
390 76193d7c 2003-09-30 devnull d->bufp = d->buf;
391 76193d7c 2003-09-30 devnull return 1;
395 76193d7c 2003-09-30 devnull flushimage(Display *d, int visible)
397 54bebe6a 2012-09-17 rsc if(visible == 1 && visibleclicks && mousebuttons && _drawmouse.buttons) {
398 54bebe6a 2012-09-17 rsc Rectangle r, r1;
401 54bebe6a 2012-09-17 rsc r = mousebuttons->r;
402 54bebe6a 2012-09-17 rsc r = rectaddpt(r, _drawmouse.xy);
403 54bebe6a 2012-09-17 rsc r = rectaddpt(r, Pt(-Dx(mousebuttons->r)/2, -Dy(mousebuttons->r)-3));
404 54bebe6a 2012-09-17 rsc drawop(mousesave, mousesave->r, screen, nil, r.min, S);
406 54bebe6a 2012-09-17 rsc r1 = rectaddpt(Rect(0, 0, 22, 22), r.min);
407 54bebe6a 2012-09-17 rsc if(_drawmouse.buttons & 1)
408 54bebe6a 2012-09-17 rsc drawop(screen, r1, mousebuttons, nil, ZP, S);
409 54bebe6a 2012-09-17 rsc r1 = rectaddpt(r1, Pt(21, 0));
410 54bebe6a 2012-09-17 rsc if(_drawmouse.buttons & 2)
411 54bebe6a 2012-09-17 rsc drawop(screen, r1, mousebuttons, nil, Pt(21, 0), S);
412 54bebe6a 2012-09-17 rsc r1 = rectaddpt(r1, Pt(21, 0));
413 54bebe6a 2012-09-17 rsc if(_drawmouse.buttons & 4)
414 54bebe6a 2012-09-17 rsc drawop(screen, r1, mousebuttons, nil, Pt(42, 0), S);
415 54bebe6a 2012-09-17 rsc ret = flushimage(d, 2);
416 54bebe6a 2012-09-17 rsc drawop(screen, r, mousesave, nil, ZP, S);
420 76193d7c 2003-09-30 devnull if(visible){
421 76193d7c 2003-09-30 devnull *d->bufp++ = 'v'; /* five bytes always reserved for this */
422 76193d7c 2003-09-30 devnull if(d->_isnewdisplay){
423 76193d7c 2003-09-30 devnull BPLONG(d->bufp, d->screenimage->id);
424 76193d7c 2003-09-30 devnull d->bufp += 4;
427 76193d7c 2003-09-30 devnull return doflush(d);
431 76193d7c 2003-09-30 devnull bufimage(Display *d, int n)
433 76193d7c 2003-09-30 devnull uchar *p;
435 148f25d3 2005-11-07 devnull if(n<0 || d == nil || n>d->bufsize){
436 148f25d3 2005-11-07 devnull abort();
437 76193d7c 2003-09-30 devnull werrstr("bad count in bufimage");
438 76193d7c 2003-09-30 devnull return 0;
440 76193d7c 2003-09-30 devnull if(d->bufp+n > d->buf+d->bufsize)
441 76193d7c 2003-09-30 devnull if(doflush(d) < 0)
442 76193d7c 2003-09-30 devnull return 0;
443 76193d7c 2003-09-30 devnull p = d->bufp;
444 76193d7c 2003-09-30 devnull d->bufp += n;
445 76193d7c 2003-09-30 devnull return p;
449 9f385187 2012-11-26 rsc scalesize(Display *d, int n)
451 9f385187 2012-11-26 rsc if(d == nil || d->dpi <= DefaultDPI)
453 9f385187 2012-11-26 rsc return (n*d->dpi+DefaultDPI/2)/DefaultDPI;