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 Screen *_screen;
13 b20f06ab 2004-12-26 devnull int debuglockdisplay = 1;
14 74dc60da 2006-06-25 devnull char *winsize;
16 54bebe6a 2012-09-17 rsc int visibleclicks = 0;
17 54bebe6a 2012-09-17 rsc Image *mousebuttons;
18 54bebe6a 2012-09-17 rsc Image *mousesave;
19 54bebe6a 2012-09-17 rsc Mouse _drawmouse;
22 9e0d3750 2017-01-06 rsc needdisplay(void)
27 76193d7c 2003-09-30 devnull static void
28 76193d7c 2003-09-30 devnull drawshutdown(void)
30 76193d7c 2003-09-30 devnull Display *d;
32 76193d7c 2003-09-30 devnull d = display;
34 76193d7c 2003-09-30 devnull display = nil;
35 76193d7c 2003-09-30 devnull closedisplay(d);
41 74dc60da 2006-06-25 devnull geninitdraw(char *devdir, void(*error)(Display*, char*), char *fontname, char *label, char *windir, int ref)
45 74dc60da 2006-06-25 devnull if(label == nil)
46 74dc60da 2006-06-25 devnull label = argv0;
47 74dc60da 2006-06-25 devnull display = _initdisplay(error, label);
48 76193d7c 2003-09-30 devnull if(display == nil)
49 76193d7c 2003-09-30 devnull return -1;
52 76193d7c 2003-09-30 devnull * Set up default font
54 16d00819 2018-11-16 rsc if(openfont(display, "*default*") == 0) {
55 76193d7c 2003-09-30 devnull fprint(2, "imageinit: can't open default subfont: %r\n");
57 76193d7c 2003-09-30 devnull closedisplay(display);
58 76193d7c 2003-09-30 devnull display = nil;
59 76193d7c 2003-09-30 devnull return -1;
61 76193d7c 2003-09-30 devnull if(fontname == nil)
62 74dc60da 2006-06-25 devnull fontname = getenv("font");
65 76193d7c 2003-09-30 devnull * Build fonts with caches==depth of screen, for speed.
66 76193d7c 2003-09-30 devnull * If conversion were faster, we'd use 0 and save memory.
68 16d00819 2018-11-16 rsc if(fontname == nil)
69 16d00819 2018-11-16 rsc fontname = strdup("*default*");
71 16d00819 2018-11-16 rsc font = openfont(display, fontname);
72 16d00819 2018-11-16 rsc if(font == nil){
73 16d00819 2018-11-16 rsc fprint(2, "imageinit: can't open font %s: %r\n", fontname);
76 76193d7c 2003-09-30 devnull display->defaultfont = font;
78 670dd11a 2005-03-18 devnull _screen = allocscreen(display->image, display->white, 0);
79 74dc60da 2006-06-25 devnull display->screenimage = display->image; /* _allocwindow wants screenimage->chan */
80 670dd11a 2005-03-18 devnull screen = _allocwindow(nil, _screen, display->image->r, Refnone, DWhite);
81 74dc60da 2006-06-25 devnull if(screen == nil){
82 74dc60da 2006-06-25 devnull fprint(2, "_allocwindow: %r\n");
83 74dc60da 2006-06-25 devnull goto Error;
85 670dd11a 2005-03-18 devnull display->screenimage = screen;
86 7ba8aa0c 2005-07-24 devnull draw(screen, screen->r, display->white, nil, ZP);
87 670dd11a 2005-03-18 devnull flushimage(display, 1);
89 54bebe6a 2012-09-17 rsc p = getenv("visibleclicks");
90 54bebe6a 2012-09-17 rsc visibleclicks = p != nil && *p == '1';
91 54bebe6a 2012-09-17 rsc if(visibleclicks) {
94 54bebe6a 2012-09-17 rsc f = display->defaultfont;
95 54bebe6a 2012-09-17 rsc mousebuttons = allocimage(display, Rect(0,0,64,22), screen->chan, 0, DWhite);
96 54bebe6a 2012-09-17 rsc border(mousebuttons, mousebuttons->r, 1, display->black, ZP);
97 54bebe6a 2012-09-17 rsc border(mousebuttons, Rect(0, 0, 22, 22), 1, display->black, ZP);
98 54bebe6a 2012-09-17 rsc border(mousebuttons, Rect(42, 0, 64, 22), 1, display->black, ZP);
99 54bebe6a 2012-09-17 rsc string(mousebuttons, Pt(10-stringwidth(display->defaultfont, "1")/2, 11-f->height/2), display->black, ZP, display->defaultfont, "1");
100 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");
101 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");
102 54bebe6a 2012-09-17 rsc mousesave = allocimage(display, Rect(0,0,64,22), screen->chan, 0, 0);
106 abe4cd41 2005-07-27 devnull * I don't see any reason to go away gracefully,
107 abe4cd41 2005-07-27 devnull * and if some other proc exits holding the display
108 abe4cd41 2005-07-27 devnull * lock, this atexit call never finishes.
110 abe4cd41 2005-07-27 devnull * atexit(drawshutdown);
112 76193d7c 2003-09-30 devnull return 1;
116 74dc60da 2006-06-25 devnull initdraw(void (*error)(Display*, char*), char *fontname, char *label)
118 74dc60da 2006-06-25 devnull return geninitdraw("/dev", error, fontname, label, "/dev", Refnone);
121 74dc60da 2006-06-25 devnull extern int _freeimage1(Image*);
123 74dc60da 2006-06-25 devnull static Image*
124 74dc60da 2006-06-25 devnull getimage0(Display *d, Image *image)
126 74dc60da 2006-06-25 devnull char info[12*12+1];
127 74dc60da 2006-06-25 devnull uchar *a;
131 74dc60da 2006-06-25 devnull * If there's an old screen, it has id 0. The 'J' request below
132 fa325e9b 2020-01-10 cross * will try to install the new screen as id 0, so the old one
133 74dc60da 2006-06-25 devnull * must be freed first.
135 74dc60da 2006-06-25 devnull if(image){
136 74dc60da 2006-06-25 devnull _freeimage1(image);
137 74dc60da 2006-06-25 devnull memset(image, 0, sizeof(Image));
140 74dc60da 2006-06-25 devnull a = bufimage(d, 2);
141 74dc60da 2006-06-25 devnull a[0] = 'J';
142 74dc60da 2006-06-25 devnull a[1] = 'I';
143 74dc60da 2006-06-25 devnull if(flushimage(d, 0) < 0){
144 74dc60da 2006-06-25 devnull fprint(2, "cannot read screen info: %r\n");
145 74dc60da 2006-06-25 devnull return nil;
148 74dc60da 2006-06-25 devnull n = _displayrddraw(d, info, sizeof info);
149 74dc60da 2006-06-25 devnull if(n != 12*12){
150 74dc60da 2006-06-25 devnull fprint(2, "short screen info\n");
151 74dc60da 2006-06-25 devnull return nil;
154 74dc60da 2006-06-25 devnull if(image == nil){
155 74dc60da 2006-06-25 devnull image = mallocz(sizeof(Image), 1);
156 74dc60da 2006-06-25 devnull if(image == nil){
157 74dc60da 2006-06-25 devnull fprint(2, "cannot allocate image: %r\n");
158 74dc60da 2006-06-25 devnull return nil;
162 74dc60da 2006-06-25 devnull image->display = d;
163 74dc60da 2006-06-25 devnull image->id = 0;
164 74dc60da 2006-06-25 devnull image->chan = strtochan(info+2*12);
165 74dc60da 2006-06-25 devnull image->depth = chantodepth(image->chan);
166 74dc60da 2006-06-25 devnull image->repl = atoi(info+3*12);
167 74dc60da 2006-06-25 devnull image->r.min.x = atoi(info+4*12);
168 74dc60da 2006-06-25 devnull image->r.min.y = atoi(info+5*12);
169 74dc60da 2006-06-25 devnull image->r.max.x = atoi(info+6*12);
170 74dc60da 2006-06-25 devnull image->r.max.y = atoi(info+7*12);
171 74dc60da 2006-06-25 devnull image->clipr.min.x = atoi(info+8*12);
172 74dc60da 2006-06-25 devnull image->clipr.min.y = atoi(info+9*12);
173 74dc60da 2006-06-25 devnull image->clipr.max.x = atoi(info+10*12);
174 74dc60da 2006-06-25 devnull image->clipr.max.y = atoi(info+11*12);
176 d0e07019 2012-11-26 rsc a = bufimage(d, 3);
180 d0e07019 2012-11-26 rsc d->dpi = 100;
181 d0e07019 2012-11-26 rsc if(flushimage(d, 0) >= 0 && _displayrddraw(d, info, 12) == 12)
182 d0e07019 2012-11-26 rsc d->dpi = atoi(info);
184 74dc60da 2006-06-25 devnull return image;
188 74dc60da 2006-06-25 devnull * Attach, or possibly reattach, to window.
189 74dc60da 2006-06-25 devnull * If reattaching, maintain value of screen pointer.
192 74dc60da 2006-06-25 devnull getwindow(Display *d, int ref)
194 74dc60da 2006-06-25 devnull Image *i, *oi;
197 74dc60da 2006-06-25 devnull /* XXX check for destroyed? */
200 74dc60da 2006-06-25 devnull * Libdraw promises not to change the value of "screen",
201 74dc60da 2006-06-25 devnull * so we have to reuse the image structure
202 74dc60da 2006-06-25 devnull * memory we already have.
204 74dc60da 2006-06-25 devnull oi = d->image;
205 74dc60da 2006-06-25 devnull i = getimage0(d, oi);
206 74dc60da 2006-06-25 devnull if(i == nil)
207 74dc60da 2006-06-25 devnull sysfatal("getwindow failed");
208 74dc60da 2006-06-25 devnull d->image = i;
209 74dc60da 2006-06-25 devnull /* fprint(2, "getwindow %p -> %p\n", oi, i); */
211 74dc60da 2006-06-25 devnull freescreen(_screen);
212 74dc60da 2006-06-25 devnull _screen = allocscreen(i, d->white, 0);
213 74dc60da 2006-06-25 devnull _freeimage1(screen);
214 74dc60da 2006-06-25 devnull screen = _allocwindow(screen, _screen, i->r, ref, DWhite);
215 74dc60da 2006-06-25 devnull d->screenimage = screen;
218 213fc4f6 2015-02-17 rsc if(d->dpi >= DefaultDPI*3/2) {
219 213fc4f6 2015-02-17 rsc for(f=d->firstfont; f != nil; f=f->next)
220 213fc4f6 2015-02-17 rsc loadhidpi(f);
222 213fc4f6 2015-02-17 rsc for(f=d->firstfont; f != nil; f=f->next)
223 213fc4f6 2015-02-17 rsc if(f->lodpi != nil && f->lodpi != f)
224 213fc4f6 2015-02-17 rsc swapfont(f, &f->hidpi, &f->lodpi);
227 74dc60da 2006-06-25 devnull return 0;
230 74dc60da 2006-06-25 devnull Display*
231 74dc60da 2006-06-25 devnull _initdisplay(void (*error)(Display*, char*), char *label)
233 74dc60da 2006-06-25 devnull Display *disp;
234 74dc60da 2006-06-25 devnull Image *image;
236 74dc60da 2006-06-25 devnull fmtinstall('P', Pfmt);
237 74dc60da 2006-06-25 devnull fmtinstall('R', Rfmt);
239 74dc60da 2006-06-25 devnull disp = mallocz(sizeof(Display), 1);
240 74dc60da 2006-06-25 devnull if(disp == nil){
242 74dc60da 2006-06-25 devnull return nil;
244 74dc60da 2006-06-25 devnull disp->srvfd = -1;
245 74dc60da 2006-06-25 devnull image = nil;
248 74dc60da 2006-06-25 devnull free(image);
249 74dc60da 2006-06-25 devnull free(disp);
250 74dc60da 2006-06-25 devnull goto Error1;
252 74dc60da 2006-06-25 devnull disp->bufsize = 65500;
253 74dc60da 2006-06-25 devnull disp->buf = malloc(disp->bufsize+5); /* +5 for flush message */
254 74dc60da 2006-06-25 devnull disp->bufp = disp->buf;
255 74dc60da 2006-06-25 devnull disp->error = error;
256 74dc60da 2006-06-25 devnull qlock(&disp->qlock);
258 74dc60da 2006-06-25 devnull if(disp->buf == nil)
259 74dc60da 2006-06-25 devnull goto Error2;
262 74dc60da 2006-06-25 devnull free(disp->buf);
263 74dc60da 2006-06-25 devnull goto Error2;
266 74dc60da 2006-06-25 devnull if(_displaymux(disp) < 0
267 74dc60da 2006-06-25 devnull || _displayconnect(disp) < 0
268 74dc60da 2006-06-25 devnull || _displayinit(disp, label, winsize) < 0)
269 74dc60da 2006-06-25 devnull goto Error3;
272 74dc60da 2006-06-25 devnull close(disp->srvfd);
273 74dc60da 2006-06-25 devnull goto Error3;
276 74dc60da 2006-06-25 devnull image = getimage0(disp, nil);
277 74dc60da 2006-06-25 devnull if(image == nil)
278 74dc60da 2006-06-25 devnull goto Error4;
280 74dc60da 2006-06-25 devnull disp->image = image;
281 74dc60da 2006-06-25 devnull disp->white = allocimage(disp, Rect(0, 0, 1, 1), GREY1, 1, DWhite);
282 74dc60da 2006-06-25 devnull disp->black = allocimage(disp, Rect(0, 0, 1, 1), GREY1, 1, DBlack);
283 74dc60da 2006-06-25 devnull if(disp->white == nil || disp->black == nil){
284 74dc60da 2006-06-25 devnull free(disp->white);
285 74dc60da 2006-06-25 devnull free(disp->black);
286 74dc60da 2006-06-25 devnull goto Error4;
289 74dc60da 2006-06-25 devnull disp->opaque = disp->white;
290 74dc60da 2006-06-25 devnull disp->transparent = disp->black;
292 74dc60da 2006-06-25 devnull return disp;
296 76193d7c 2003-09-30 devnull * Call with d unlocked.
297 16d00819 2018-11-16 rsc * Note that disp->defaultfont is not freed here.
300 76193d7c 2003-09-30 devnull closedisplay(Display *disp)
303 76193d7c 2003-09-30 devnull char buf[128];
305 76193d7c 2003-09-30 devnull if(disp == nil)
307 76193d7c 2003-09-30 devnull if(disp == display)
308 76193d7c 2003-09-30 devnull display = nil;
309 76193d7c 2003-09-30 devnull if(disp->oldlabel[0]){
310 76193d7c 2003-09-30 devnull snprint(buf, sizeof buf, "%s/label", disp->windir);
311 76193d7c 2003-09-30 devnull fd = open(buf, OWRITE);
312 76193d7c 2003-09-30 devnull if(fd >= 0){
313 76193d7c 2003-09-30 devnull write(fd, disp->oldlabel, strlen(disp->oldlabel));
314 76193d7c 2003-09-30 devnull close(fd);
318 76193d7c 2003-09-30 devnull free(disp->devdir);
319 76193d7c 2003-09-30 devnull free(disp->windir);
320 297cded7 2005-12-29 devnull if(disp->white)
321 297cded7 2005-12-29 devnull freeimage(disp->white);
322 297cded7 2005-12-29 devnull if(disp->black)
323 297cded7 2005-12-29 devnull freeimage(disp->black);
324 74dc60da 2006-06-25 devnull if(disp->srvfd >= 0)
325 74dc60da 2006-06-25 devnull close(disp->srvfd);
326 76193d7c 2003-09-30 devnull free(disp);
330 76193d7c 2003-09-30 devnull lockdisplay(Display *disp)
332 76193d7c 2003-09-30 devnull if(debuglockdisplay){
333 76193d7c 2003-09-30 devnull /* avoid busy looping; it's rare we collide anyway */
334 76193d7c 2003-09-30 devnull while(!canqlock(&disp->qlock)){
335 76193d7c 2003-09-30 devnull fprint(1, "proc %d waiting for display lock...\n", getpid());
336 76193d7c 2003-09-30 devnull sleep(1000);
339 76193d7c 2003-09-30 devnull qlock(&disp->qlock);
343 76193d7c 2003-09-30 devnull unlockdisplay(Display *disp)
345 76193d7c 2003-09-30 devnull qunlock(&disp->qlock);
349 76193d7c 2003-09-30 devnull drawerror(Display *d, char *s)
351 76193d7c 2003-09-30 devnull char err[ERRMAX];
353 76193d7c 2003-09-30 devnull if(d->error)
354 76193d7c 2003-09-30 devnull d->error(d, s);
356 76193d7c 2003-09-30 devnull errstr(err, sizeof err);
357 76193d7c 2003-09-30 devnull fprint(2, "draw: %s: %s\n", s, err);
358 76193d7c 2003-09-30 devnull exits(s);
364 76193d7c 2003-09-30 devnull doflush(Display *d)
368 76193d7c 2003-09-30 devnull n = d->bufp-d->buf;
369 76193d7c 2003-09-30 devnull if(n <= 0)
370 76193d7c 2003-09-30 devnull return 1;
372 74dc60da 2006-06-25 devnull if(_displaywrdraw(d, d->buf, n) != n){
373 76193d7c 2003-09-30 devnull if(_drawdebug)
374 76193d7c 2003-09-30 devnull fprint(2, "flushimage fail: d=%p: %r\n", d); /**/
375 76193d7c 2003-09-30 devnull d->bufp = d->buf; /* might as well; chance of continuing */
376 76193d7c 2003-09-30 devnull return -1;
378 76193d7c 2003-09-30 devnull d->bufp = d->buf;
379 76193d7c 2003-09-30 devnull return 1;
383 76193d7c 2003-09-30 devnull flushimage(Display *d, int visible)
385 54bebe6a 2012-09-17 rsc if(visible == 1 && visibleclicks && mousebuttons && _drawmouse.buttons) {
386 54bebe6a 2012-09-17 rsc Rectangle r, r1;
389 54bebe6a 2012-09-17 rsc r = mousebuttons->r;
390 54bebe6a 2012-09-17 rsc r = rectaddpt(r, _drawmouse.xy);
391 54bebe6a 2012-09-17 rsc r = rectaddpt(r, Pt(-Dx(mousebuttons->r)/2, -Dy(mousebuttons->r)-3));
392 54bebe6a 2012-09-17 rsc drawop(mousesave, mousesave->r, screen, nil, r.min, S);
394 54bebe6a 2012-09-17 rsc r1 = rectaddpt(Rect(0, 0, 22, 22), r.min);
395 54bebe6a 2012-09-17 rsc if(_drawmouse.buttons & 1)
396 54bebe6a 2012-09-17 rsc drawop(screen, r1, mousebuttons, nil, ZP, S);
397 54bebe6a 2012-09-17 rsc r1 = rectaddpt(r1, Pt(21, 0));
398 54bebe6a 2012-09-17 rsc if(_drawmouse.buttons & 2)
399 54bebe6a 2012-09-17 rsc drawop(screen, r1, mousebuttons, nil, Pt(21, 0), S);
400 54bebe6a 2012-09-17 rsc r1 = rectaddpt(r1, Pt(21, 0));
401 54bebe6a 2012-09-17 rsc if(_drawmouse.buttons & 4)
402 54bebe6a 2012-09-17 rsc drawop(screen, r1, mousebuttons, nil, Pt(42, 0), S);
403 54bebe6a 2012-09-17 rsc ret = flushimage(d, 2);
404 54bebe6a 2012-09-17 rsc drawop(screen, r, mousesave, nil, ZP, S);
408 76193d7c 2003-09-30 devnull if(visible){
409 76193d7c 2003-09-30 devnull *d->bufp++ = 'v'; /* five bytes always reserved for this */
410 76193d7c 2003-09-30 devnull if(d->_isnewdisplay){
411 76193d7c 2003-09-30 devnull BPLONG(d->bufp, d->screenimage->id);
412 76193d7c 2003-09-30 devnull d->bufp += 4;
415 76193d7c 2003-09-30 devnull return doflush(d);
419 76193d7c 2003-09-30 devnull bufimage(Display *d, int n)
421 76193d7c 2003-09-30 devnull uchar *p;
423 148f25d3 2005-11-07 devnull if(n<0 || d == nil || n>d->bufsize){
424 148f25d3 2005-11-07 devnull abort();
425 76193d7c 2003-09-30 devnull werrstr("bad count in bufimage");
426 76193d7c 2003-09-30 devnull return 0;
428 76193d7c 2003-09-30 devnull if(d->bufp+n > d->buf+d->bufsize)
429 76193d7c 2003-09-30 devnull if(doflush(d) < 0)
430 76193d7c 2003-09-30 devnull return 0;
431 76193d7c 2003-09-30 devnull p = d->bufp;
432 76193d7c 2003-09-30 devnull d->bufp += n;
433 76193d7c 2003-09-30 devnull return p;
437 9f385187 2012-11-26 rsc scalesize(Display *d, int n)
439 9f385187 2012-11-26 rsc if(d == nil || d->dpi <= DefaultDPI)
441 9f385187 2012-11-26 rsc return (n*d->dpi+DefaultDPI/2)/DefaultDPI;