![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to blitterm.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Research Unix] / researchv10no / cmd / movie / oldstuff|
Return to blitterm.c CVS log | Up to [Research Unix] / researchv10no / cmd / movie / oldstuff |
1.1 ! root 1: #include <jerq.h> ! 2: #include <font.h> ! 3: #include "anim.h" ! 4: ! 5: #define PTR (Texture *)0 ! 6: ! 7: Texture danger = { ! 8: 0x0180, 0x0240, 0x0420, 0x0990, 0x1188, 0x2184, 0x4182, 0x8181, ! 9: 0x8181, 0x4182, 0x2004, 0x1188, 0x0990, 0x0420, 0x0240, 0x0180, }; ! 10: Texture bullseye = { ! 11: 0x07E0, 0x1FF8, 0x399C, 0x63C6, 0x6FF6, 0xCDB3, 0xD99B, 0xFFFF, ! 12: 0xFFFF, 0xD99B, 0xCDB3, 0x6FF6, 0x63C6, 0x399C, 0x1FF8, 0x07E0, }; ! 13: Texture coffee = { ! 14: 0x0000, 0x0380, 0x0400, 0x03E0, 0x0010, 0x07E0, 0x1FFC, 0x1002, ! 15: 0x101A, 0x101A, 0x1002, 0x103C, 0x1810, 0x0FE0, 0x0000, 0x3FFC, }; ! 16: Texture deadmouse = { ! 17: 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x000C, 0x0082, 0x0441, ! 18: 0xFFE1, 0x5FF1, 0x3FFE, 0x17F0, 0x03E0, 0x0000, 0x0000, 0x0000, }; ! 19: Texture skull ={ ! 20: 0x0000, 0x0000, 0x0000, 0xC003, 0xE7E7, 0x3FFC, 0x0FF0, 0x0DB0, ! 21: 0x07E0, 0x0660, 0x37EC, 0xE427, 0xC3C3, 0x0000, 0x0000, 0x0000, }; ! 22: ! 23: #define Do Drect.origin ! 24: #define Dc Drect.corner ! 25: #define kbdrect Rect(Do.x+4, Do.y+4, Dc.x+4, Do.y+16+4) ! 26: ! 27: char kbdline[100]; /* keyboard input collects here */ ! 28: char *pkbd = kbdline; ! 29: ! 30: typedef unsigned char uchar; ! 31: ! 32: #define PUT { char buf[100]; sprintf(buf, ! 33: #define END ); putstring(buf); } ! 34: #define readpoint(p) { p.x = readint(); p.y = readint(); } ! 35: #define readpair(p1,p2) { readpoint(p1); readpoint(p2); } ! 36: ! 37: /* holds data for all input objects */ ! 38: ! 39: unsigned memsize; /* bytes */ ! 40: uchar *inbuf; /* input collected here */ ! 41: uchar *input; /* leave a null at front */ ! 42: uchar *inp; /* next free slot in input */ ! 43: int nobj = 0; /* number of objects in input */ ! 44: int overflow = 0; /* 1 => too much input */ ! 45: ! 46: long slot[2000]; /* slots */ ! 47: int slotnum; ! 48: ! 49: extern uchar *savechar(), *draw_obj(), *click_obj(), *step_obj(); ! 50: extern uchar *prev_obj(), *next_obj(); ! 51: ! 52: extern Point readpt(), fetchpt(), scalept(); ! 53: int xmax, ymax; ! 54: ! 55: #define MAXVIEW 10 ! 56: char *viewname[MAXVIEW]; ! 57: typedef struct { ! 58: Rectangle vr; ! 59: int xmax; ! 60: int ymax; ! 61: } View; ! 62: View viewpt[MAXVIEW]; ! 63: int curview = 0; ! 64: int nview = 0; ! 65: #define INSET 4 /* picture inset from frame */ ! 66: ! 67: #define AW 8 /* arrowhead width and height */ ! 68: #define AH 10 ! 69: ! 70: #define MARGINPCT 6 ! 71: int margin = MARGINPCT; /* percent margin around edges */ ! 72: ! 73: #define MAXCLICK 20 ! 74: char *clickname[MAXCLICK]; /* click names */ ! 75: int clickval[MAXCLICK]; /* 1 => click on this */ ! 76: int clicking = 0; /* number of active clicks */ ! 77: int nclick = 0; ! 78: ! 79: char buf[200]; ! 80: char *pbuf; ! 81: ! 82: #define Again 0 /* Menu items -- must be 0.. */ ! 83: #define Faster (Again+1) ! 84: #define Slower (Faster+1) ! 85: #define Step (Slower+1) ! 86: #define Forward (Step+1) ! 87: #define Fatter (Forward+1) ! 88: #define Thinner (Fatter+1) ! 89: #define Xor (Thinner+1) ! 90: #define File (Xor+1) ! 91: #define Quit (File+1) /* ... down this far */ ! 92: #define Backward (Quit+1) /* subsequent names are arbitrary */ ! 93: #define Proceed (Backward+1) ! 94: #define Hit (Proceed+1) ! 95: ! 96: int delay = 1; /* how long to delay between things */ ! 97: int singstep = 0; /* single step if 1 */ ! 98: #define Fwd 1 ! 99: #define Back 0 ! 100: int dir = Fwd; /* 1 = fwd, 0 = backward */ ! 101: int fatness = 0; /* n => draw with 2n+1 lines */ ! 102: int xormode = F_XOR; /* otherwise OR/CLR */ ! 103: ! 104: char *m3[] = { "again", "faster", "slower", "1 step", "backward", ! 105: "fatter", "thinner", "or mode", "new file", "Quit?", 0 }; ! 106: char *stepmenu[] = { "1 step", "run" }; ! 107: char *dirmenu[] = { "forward", "backward" }; ! 108: char *modemenu[] = { "or mode", "xor mode" }; ! 109: ! 110: char *m3gen(n) ! 111: { ! 112: static char buf[50]; ! 113: extern int delay; ! 114: ! 115: if (n < 0 || n > Quit) ! 116: return 0; ! 117: else if (n == Faster) { ! 118: sprintf(buf, "faster %d", delay); ! 119: return buf; ! 120: } else if (n == Slower) { ! 121: sprintf(buf, "slower %d", delay); ! 122: return buf; ! 123: } else if (n == Step) { ! 124: return stepmenu[singstep]; ! 125: } else if (n == Forward) { ! 126: return dirmenu[dir]; ! 127: } else if (n == Fatter) { ! 128: sprintf(buf, "fatter %d", fatness+1); ! 129: return buf; ! 130: } else if (n == Thinner) { ! 131: sprintf(buf, "thinner %d", fatness+1); ! 132: return buf; ! 133: } else if (n == Xor) { ! 134: return xormode == F_XOR ? modemenu[0] : modemenu[1]; ! 135: } else ! 136: return m3[n]; ! 137: } ! 138: ! 139: char *m2gen(n) ! 140: { ! 141: static char buf[50]; ! 142: ! 143: if (n < 0 || n >= nview+nclick) ! 144: return 0; ! 145: else if (n < nview) { ! 146: sprintf(buf, "view %s", viewname[n]); ! 147: return buf; ! 148: } else { ! 149: sprintf(buf, "click %s%s", ! 150: clickname[n-nview], clickval[n-nview] ? "*" : ""); ! 151: return buf; ! 152: } ! 153: } ! 154: ! 155: #ifdef V9 ! 156: Menu mbut3 = { (char **) 0, m3gen }; ! 157: Menu mbut2 = { (char **) 0, m2gen }; ! 158: #else ! 159: Menu mbut3 = { (char **) 0, 0,0,m3gen }; ! 160: Menu mbut2 = { (char **) 0, 0,0,m2gen }; ! 161: #endif ! 162: int last_hit; ! 163: int last_but; ! 164: ! 165: init_params() ! 166: { ! 167: int i; ! 168: ! 169: for (i = 0; i < MAXCLICK; i++) ! 170: if (clickname[i]) { ! 171: free(clickname[i]); ! 172: clickname[i] = 0; ! 173: clickval[i] = 0; ! 174: } ! 175: for (i = 0; i < MAXVIEW; i++) ! 176: if (viewname[i]) { ! 177: free(viewname[i]); ! 178: viewname[i] = 0; ! 179: } ! 180: nclick = nview = curview = nobj = clicking = overflow = slotnum = 0; ! 181: } ! 182: ! 183: main() ! 184: { ! 185: uchar *ip; ! 186: int i, n, c; ! 187: ! 188: request(KBD|MOUSE|SEND|RCV); ! 189: ! 190: top: ! 191: clear(); ! 192: init_params(); ! 193: putstring("terminal alive"); ! 194: memsize = readint(); ! 195: if (inbuf == (uchar*)NULL && (inbuf = (uchar *) alloc(memsize)) == (uchar*)NULL) { ! 196: PUT "can't allocate %d bytes", memsize END ! 197: sleep(1000); ! 198: exit(1); ! 199: } ! 200: input = inbuf+1; /* leave a null at front */ ! 201: inp = inbuf+1; /* next free slot in input */ ! 202: ! 203: cursswitch(&deadmouse); ! 204: do_rcv(); ! 205: PUT "%d objects, %d/%d bytes", nobj, inp-input, memsize END ! 206: cursswitch(PTR); ! 207: ! 208: dir = Fwd; ! 209: ip = inp; /* pointing at the end */ ! 210: again: ! 211: for ( ; ip; wait(CPU)) { ! 212: while (checkmouse() == 0) ! 213: wait(CPU); ! 214: n = domouse(); ! 215: if (n == Quit) { ! 216: send1char(P_QUIT); ! 217: flushproto(); ! 218: exit(); ! 219: } ! 220: if (n == Hit) /* wait for another mouse hit */ ! 221: continue; ! 222: if (n == Forward) { /* change from fwd to back -- fiddle ip */ ! 223: ip = next_obj(ip); ! 224: continue; ! 225: } ! 226: if (n == Backward) { ! 227: ip = prev_obj(ip); ! 228: continue; ! 229: } ! 230: if (n == File) { ! 231: putstring("filename? "); ! 232: if (do_kbd() == 0) ! 233: continue; ! 234: send1char(P_FILE); ! 235: sendstring(kbdline); ! 236: if ((c = readchar()) == P_FILE) ! 237: goto top; ! 238: PUT "can't open file %s", kbdline END; ! 239: continue; ! 240: } ! 241: if (n == Again) { ! 242: if (P->state & RESHAPED) { ! 243: view_setup(nview); ! 244: P->state &= ~RESHAPED; ! 245: } ! 246: clear(); ! 247: dir = Fwd; ! 248: ip = input; ! 249: } ! 250: if (singstep) { ! 251: if (clicking > 0) ! 252: ip = click_obj(ip, xormode, dir); ! 253: else ! 254: ip = step_obj(ip, xormode, dir); ! 255: } else { /* free running */ ! 256: while (ip) { ! 257: if (clicking > 0) ! 258: ip = click_obj(ip, xormode, dir); ! 259: else ! 260: ip = step_obj(ip, xormode, dir); ! 261: if (checkmouse()) ! 262: break; /* back round main loop */ ! 263: sleep(delay-1); ! 264: wait(CPU); ! 265: } ! 266: } ! 267: } ! 268: if (ip == 0) ! 269: ip = dir == Fwd ? inp : input; ! 270: goto again; ! 271: } ! 272: ! 273: domouse() ! 274: { ! 275: int n; ! 276: ! 277: if (last_but == 1) ! 278: return Proceed; ! 279: if (last_but == 3) { ! 280: switch (last_hit) { ! 281: case Again: ! 282: return Again; ! 283: case Faster: ! 284: if (delay > 1) ! 285: delay /= 2; ! 286: return Hit; ! 287: case Slower: ! 288: delay *= 2; ! 289: return Hit; ! 290: case Step: ! 291: singstep = 1 - singstep; ! 292: n = Step; ! 293: return Hit; ! 294: case Forward: ! 295: dir = 1 - dir; ! 296: if (xormode == F_OR) ! 297: xormode = F_CLR; ! 298: else if (xormode == F_CLR) ! 299: xormode = F_OR; ! 300: return dir == Fwd ? Forward : Backward; ! 301: case Fatter: ! 302: fatness++; ! 303: return Hit; ! 304: case Thinner: ! 305: if (fatness > 0) ! 306: fatness--; ! 307: return Hit; ! 308: case Xor: ! 309: if (xormode == F_OR || xormode == F_CLR) ! 310: xormode = F_XOR; ! 311: else if (dir == Fwd) ! 312: xormode = F_OR; ! 313: else ! 314: xormode = F_CLR; ! 315: return Hit; ! 316: case File: ! 317: return File; ! 318: case Quit: ! 319: return Quit; ! 320: default: ! 321: return Hit; ! 322: } ! 323: } else if (last_but == 2) { ! 324: Rectangle r, shrink(); ! 325: if (last_hit == -1) ! 326: return Hit; ! 327: else if (last_hit < nview) { ! 328: #ifdef V9 ! 329: r = getrect23(); ! 330: #else ! 331: r = getrect(); ! 332: #endif ! 333: if (r.origin.x == 0 && r.corner.x == 0) /* bailed out */ ! 334: return Hit; ! 335: if (eqpt(r.origin, r.corner)) ! 336: r = Drect; ! 337: drawrect(inset(viewpt[last_hit].vr, -(INSET+fatness)), F_CLR); ! 338: drawrect(r, F_OR); ! 339: viewpt[last_hit].vr = r = inset(r, INSET+fatness); ! 340: viewpt[last_hit].xmax = r.corner.x - r.origin.x; ! 341: viewpt[last_hit].ymax = r.corner.y - r.origin.y; ! 342: return Hit; ! 343: } else { /* a click */ ! 344: if (clickval[last_hit-nview]) { /* was on, so turn off */ ! 345: clickval[last_hit-nview] = 0; ! 346: clicking--; ! 347: } else { ! 348: clickval[last_hit-nview] = 1; ! 349: clicking++; ! 350: } ! 351: return Hit; ! 352: } ! 353: } ! 354: } ! 355: ! 356: Point pt(x, y) { Point p; p.x = x; p.y = y; return p; } ! 357: ! 358: Rectangle shrink(r, pct) /* shrink rectangle by 2*pct */ ! 359: Rectangle r; ! 360: { ! 361: int dx = muldiv(r.corner.x-r.origin.x, pct, 100); ! 362: int dy = muldiv(r.corner.y-r.origin.y, pct, 100); ! 363: r.origin = add(r.origin, Pt(dx,dy)); ! 364: r.corner = sub(r.corner, Pt(dx,dy)); ! 365: return r; ! 366: } ! 367: ! 368: view_setup(n) ! 369: int n; ! 370: { ! 371: int i, dx, dy; ! 372: ! 373: dx = (Dc.x - Do.x) / 2; ! 374: dy = (Dc.y - Do.y) / 2; ! 375: viewpt[0].vr = Drect; ! 376: switch (n) { ! 377: case 2: ! 378: viewpt[1].vr = Drect; ! 379: viewpt[0].vr.corner.y -= dy; ! 380: viewpt[1].vr.origin.y += dy; ! 381: break; ! 382: case 3: case 4: ! 383: viewpt[0].vr.corner = add(Drect.origin, Pt(dx,dy)); ! 384: viewpt[1].vr = raddp(viewpt[0].vr, Pt(0,dy)); ! 385: viewpt[2].vr = raddp(viewpt[0].vr, Pt(dx,0)); ! 386: viewpt[3].vr = raddp(viewpt[0].vr, Pt(dx,dy)); ! 387: break; ! 388: } ! 389: for (i = 0; i < n; i++) { ! 390: viewpt[i].vr = shrink(viewpt[i].vr, MARGINPCT); ! 391: viewpt[i].xmax = viewpt[i].vr.corner.x - viewpt[i].vr.origin.x; ! 392: viewpt[i].ymax = viewpt[i].vr.corner.y - viewpt[i].vr.origin.y; ! 393: } ! 394: } ! 395: ! 396: drawrect(r, mode) ! 397: Rectangle r; ! 398: { ! 399: segment(&display, r.origin, Pt(r.origin.x,r.corner.y), mode); ! 400: segment(&display, r.origin, Pt(r.corner.x,r.origin.y), mode); ! 401: segment(&display, r.corner, Pt(r.origin.x,r.corner.y), mode); ! 402: segment(&display, r.corner, Pt(r.corner.x,r.origin.y), mode); ! 403: } ! 404: ! 405: do_rcv() ! 406: { ! 407: int c, n, b, m, i; ! 408: uchar *ip; ! 409: ! 410: top: ! 411: switch (c = readchar()) { ! 412: case P_INIT: /* initialize */ ! 413: break; ! 414: case P_ENDFILE: ! 415: *inp = 0; ! 416: return; ! 417: case P_CLEAR: ! 418: clear(); ! 419: break; ! 420: case P_DEFINE: ! 421: /* view, click, ... */ ! 422: c = readchar(); ! 423: assert(c == 'c' || c == 'v', "illegal define"); ! 424: i = readint(); ! 425: readstring(buf); ! 426: if (c == 'c') { ! 427: clickname[i] = alloc(strlen(buf)+1); ! 428: strcpy(clickname[i], buf); ! 429: nclick++; ! 430: } else { /* c == 'v' */ ! 431: viewname[i] = alloc(strlen(buf)+1); ! 432: strcpy(viewname[i], buf); ! 433: nview++; ! 434: } ! 435: break; ! 436: case P_OBJECT: /* read an object */ ! 437: ip = inp; ! 438: if (nobj++ == 0) ! 439: view_setup(nview); ! 440: if (nobj % 100 == 0) ! 441: PUT "%d objects, %d/%d bytes", nobj, inp-input, memsize END ! 442: read_obj(); ! 443: draw_obj(ip, F_XOR, Fwd); ! 444: break; ! 445: case P_PRINT: /* print a string */ ! 446: readstring(buf); ! 447: putstring(buf); ! 448: break; ! 449: default: ! 450: if (overflow) ! 451: break; ! 452: putstring("do_rcv error; unrecognized command: "); ! 453: for (pbuf = buf; c != '\n'; c = readchar()) ! 454: *pbuf++ = c; ! 455: *pbuf = 0; ! 456: putstring(buf); ! 457: break; ! 458: } ! 459: goto top; ! 460: } ! 461: ! 462: clear() ! 463: { ! 464: rectf(&display, Drect, F_CLR); /* clear screen */ ! 465: } ! 466: ! 467: ! 468: read_obj() /* read an object, stick it in input[] */ ! 469: { ! 470: int c, n, m; ! 471: uchar *p; ! 472: ! 473: if (inp > input+memsize-50) { /* eat up at least one */ ! 474: PUT "overflow at %d bytes, limit %d", inp - input, memsize END ! 475: overflow++; ! 476: return; ! 477: } ! 478: c = readchar(); ! 479: switch (c) { ! 480: case ' ': ! 481: case '\n': ! 482: break; ! 483: case 'b': ! 484: case 'l': ! 485: slotnum = readint(); ! 486: slot[slotnum] = inp-input; ! 487: p = savechar(c); ! 488: savechar(curview = readint()); ! 489: savechar(readint()); /* options */ ! 490: savept(readpt()); ! 491: savept(readpt()); ! 492: savect(inp-p); ! 493: break; ! 494: case 'o': ! 495: slotnum = readint(); ! 496: slot[slotnum] = inp-input; ! 497: p = savechar(c); ! 498: savechar(curview = readint()); ! 499: savechar(readint()); /* options */ ! 500: savept(readpt()); ! 501: saveint(readint()); /* radius */ ! 502: savect(inp-p); ! 503: break; ! 504: case 't': ! 505: slotnum = readint(); ! 506: slot[slotnum] = inp-input; ! 507: p = savechar(c); ! 508: savechar(curview = readint()); ! 509: savechar(readint()); /* options */ ! 510: savept(readpt()); ! 511: n = readstring(inp+1); /* +1 leaves a hole */ ! 512: *inp = n; /* insert count before string */ ! 513: inp += n + 2; /* +2 = count before and \0 on end */ ! 514: savect(inp-p); ! 515: break; ! 516: case 'e': ! 517: p = savechar(c); ! 518: savelong(slot[readint()]); ! 519: savect(inp-p); ! 520: break; ! 521: case 'c': ! 522: p = savechar(c); ! 523: savechar(readint()); ! 524: savect(inp-p); ! 525: break; ! 526: } ! 527: } ! 528: ! 529: Point readpt() /* read a Point */ ! 530: { ! 531: Point p; ! 532: ! 533: p.x = readint(); ! 534: p.y = readint(); ! 535: return p; ! 536: } ! 537: ! 538: uchar *savechar(c) ! 539: { ! 540: *inp++ = c; ! 541: return inp-1; ! 542: } ! 543: ! 544: savect(n) ! 545: { ! 546: if (n > 255) ! 547: putstring("text string too long"); ! 548: *inp++ = n; ! 549: } ! 550: ! 551: saveint(n) ! 552: { ! 553: *inp++ = n >> 8; ! 554: *inp++ = n & 0377; ! 555: } ! 556: ! 557: savelong(n) ! 558: long n; ! 559: { ! 560: *inp++ = n >> 24; ! 561: *inp++ = n >> 16; ! 562: *inp++ = n >> 8; ! 563: *inp++ = n; ! 564: } ! 565: ! 566: savept(p) ! 567: Point p; ! 568: { ! 569: *inp++ = p.x >> 8; ! 570: *inp++ = p.x & 0377; ! 571: *inp++ = p.y >> 8; ! 572: *inp++ = p.y & 0377; ! 573: } ! 574: ! 575: getpoint(ip) ! 576: uchar *ip; ! 577: { ! 578: return *ip << 8 | *(ip+1); ! 579: } ! 580: ! 581: long getlong(ip) ! 582: uchar *ip; ! 583: { ! 584: return *ip << 24 | *(ip+1) << 16 | *(ip+2) << 8 | *(ip+3); ! 585: } ! 586: ! 587: Point scalept(v, p) ! 588: Point p; ! 589: { ! 590: p.x = p.x * viewpt[v].xmax / 10000; ! 591: p.y = viewpt[v].ymax - p.y * viewpt[v].ymax / 10000; ! 592: return p; ! 593: } ! 594: ! 595: scalex(v, n) ! 596: { ! 597: return n * viewpt[v].xmax / 10000; ! 598: } ! 599: ! 600: Point fetchpt(v, ip) ! 601: int v; ! 602: uchar *ip; ! 603: { ! 604: Point pt; ! 605: ! 606: pt.x = *ip << 8 | *(ip+1); ! 607: pt.y = *(ip+2) << 8 | *(ip+3); ! 608: pt = scalept(v, pt); ! 609: return add(pt, viewpt[v].vr.origin); ! 610: } ! 611: ! 612: /* ! 613: Encoding: type, view#, opts, coords, chars, etc., # = length of group ! 614: bvoxxyyxxyy# ! 615: lvoxxyyxxyy# ! 616: ovoxxyyrr# ! 617: tvoxxyynccc0# ! 618: ennnn# ! 619: cn# ! 620: ! 621: */ ! 622: ! 623: uchar *prev_obj(ip) ! 624: uchar *ip; ! 625: { ! 626: if (ip <= input) ! 627: return 0; ! 628: return ip - ip[-1] - 1; ! 629: } ! 630: ! 631: uchar *next_obj(ip) ! 632: uchar *ip; ! 633: { ! 634: if (ip < input || ip >= inp) ! 635: return 0; ! 636: switch (*ip) { ! 637: case 0: ! 638: return 0; ! 639: case 'b': ! 640: case 'l': ! 641: return ip + 12; ! 642: case 'o': ! 643: return ip + 10; ! 644: case 't': ! 645: return ip + ip[7] + 10; ! 646: case 'c': ! 647: return ip + 3; ! 648: case 'e': ! 649: return ip + 6; ! 650: default: ! 651: return 0; ! 652: } ! 653: } ! 654: ! 655: uchar *step_obj(ip, mode, dir) /* draw objs until one that changes something */ ! 656: uchar *ip; ! 657: { ! 658: int c; ! 659: ! 660: while (ip) { ! 661: c = *ip; ! 662: ip = draw_obj(ip, mode, dir); ! 663: if (c == 'b' || c == 'l' || c == 't' || c == 'e' || c == 'o') ! 664: return ip; ! 665: } ! 666: return ip; ! 667: } ! 668: ! 669: uchar *click_obj(ip, mode, dir) /* draw objs until matching click */ ! 670: uchar *ip; ! 671: { ! 672: int c; ! 673: uchar *oip; ! 674: ! 675: for (;;) { ! 676: oip = ip; ! 677: ip = draw_obj(ip, mode, dir); ! 678: if (ip == 0 || (oip && *oip == 'c' && clickval[oip[1]])) ! 679: return ip; ! 680: } ! 681: } ! 682: ! 683: uchar *draw_obj(ip, mode, dir) /* draw obj from coords at ip */ ! 684: uchar *ip; ! 685: int mode, dir; ! 686: { ! 687: int c, r, thick, n, shift, head; ! 688: Point p0, p1, p2; ! 689: ! 690: if (ip < input || ip >= inp) ! 691: return 0; ! 692: switch (c = *ip++) { ! 693: case 'b': ! 694: p0 = fetchpt(*ip, ip+2); ! 695: p1 = fetchpt(*ip, ip+6); ! 696: if (ip[1] == Bfill) { ! 697: if (p0.y < p1.y) ! 698: rectf(&display, Rpt(p0, p1), mode); ! 699: else ! 700: rectf(&display, Rect(p0.x,p1.y,p1.x,p0.y), mode); ! 701: } else { ! 702: segment(&display, p0, Pt(p0.x,p1.y), mode); ! 703: segment(&display, Pt(p0.x,p1.y), p1, mode); ! 704: segment(&display, p1, Pt(p1.x,p0.y), mode); ! 705: segment(&display, Pt(p1.x,p0.y), p0, mode); ! 706: } ! 707: if (dir == Fwd) ! 708: ip += 1+9+1; ! 709: else ! 710: ip -= (*(ip-2) + 2); ! 711: break; ! 712: case 'l': ! 713: p0 = fetchpt(*ip, ip+2); ! 714: p1 = fetchpt(*ip, ip+6); ! 715: thick = ip[1]/10; /* ought to be a macro! */ ! 716: if (thick == Ldotted/10 || thick == Ldashed/10) ! 717: thick = 1; ! 718: thick = 2 * thick - 1; /* 1,3,5 */ ! 719: fatline(p0, p1, mode, thick); ! 720: head = ip[1]%10; /* ditto */ ! 721: if (head == Larrow1 || head == Larrow3) ! 722: arrow(p0, p1, AW, AH, mode); ! 723: if (head == Larrow2 || head == Larrow3) ! 724: arrow(p1, p0, AW, AH, mode); ! 725: if (dir == Fwd) ! 726: ip += 1+9+1; ! 727: else ! 728: ip -= (*(ip-2) + 2); ! 729: break; ! 730: case 'o': ! 731: p0 = fetchpt(*ip, ip+2); ! 732: r = scalex(*ip, getpoint(ip+6)); ! 733: if (ip[1] == Cnofill) ! 734: circle(&display, p0, r, mode); ! 735: else ! 736: disc(&display, p0, r, mode); ! 737: if (dir == Fwd) ! 738: ip += 1+7+1; ! 739: else ! 740: ip -= (*(ip-2) + 2); ! 741: break; ! 742: case 't': ! 743: p0 = fetchpt(*ip, ip+2); ! 744: n = ip[6]; ! 745: shift = (ip[1]/10) * 10; /* ought to be a macro! */ ! 746: if (shift == Tljust) ! 747: shift = 0; ! 748: else if (shift == Tcenter) ! 749: shift = (9 * n) / 2; /* 9 = char width */ ! 750: else ! 751: shift = 9 * n; ! 752: string(&defont, ip+7, &display, sub(p0, Pt(shift,8)), mode); ! 753: if (dir == Fwd) ! 754: ip += 1+5 + *(ip+6)+2 + 1; ! 755: else ! 756: ip -= (*(ip-2) + 2); ! 757: break; ! 758: case 'e': ! 759: erase(ip-1); ! 760: if (dir == Fwd) ! 761: ip += 5; ! 762: else ! 763: ip -= (*(ip-2) + 2); ! 764: break; ! 765: case 'c': ! 766: if (dir == Fwd) ! 767: ip += 2; ! 768: else ! 769: ip -= (*(ip-2) + 2); ! 770: break; ! 771: default: ! 772: ip = 0; ! 773: break; ! 774: } ! 775: return ip; ! 776: } ! 777: ! 778: erase(ip) ! 779: uchar *ip; ! 780: { ! 781: long target = getlong(ip+1); /* target label index */ ! 782: int mode = F_XOR; ! 783: ! 784: if (xormode == F_OR || xormode == F_CLR) ! 785: mode = dir == Fwd ? F_CLR : F_OR; ! 786: draw_obj(input+target, mode, Fwd); ! 787: } ! 788: ! 789: #define abs(x) ((x) >= 0 ? (x) : -(x)) ! 790: ! 791: fatline(p0, p1, mode, thick) ! 792: Point p0, p1; ! 793: { ! 794: int i, fat, beg, nl; ! 795: ! 796: fat = thick * (2 * fatness + 1); ! 797: beg = fat / 2; ! 798: if (abs(p1.x-p0.x) >= abs(p1.y-p0.y)) { /* horizontal */ ! 799: for (nl = 0, i = -beg; nl < fat; nl++, i++) ! 800: segment(&display, add(p0, Pt(0,i)), add(p1, Pt(0,i)), mode); ! 801: } else { ! 802: for (nl = 0, i = -beg; nl < fat; nl++, i++) ! 803: segment(&display, add(p0, Pt(i,0)), add(p1, Pt(i,0)), mode); ! 804: } ! 805: } ! 806: ! 807: arrow(p1, p2, w, h, c) ! 808: Point p1, p2; ! 809: int w, h, c; ! 810: /* ! 811: ** draw arrow of height,width (h,w) at p2 of segment p1,p2. ! 812: */ ! 813: { ! 814: Point d; ! 815: int norm, qx, qy, lx, ly; ! 816: ! 817: d = sub(p2, p1); ! 818: norm = sqrt((long)d.x*d.x + (long)d.y*d.y); ! 819: if (norm == 0) /* shouldn't happen, but ... */ ! 820: return; ! 821: qx = p2.x - h*d.x/norm; ! 822: qy = p2.y - h*d.y/norm; ! 823: lx = w/2 * -d.y/norm; ! 824: ly = w/2 * d.x/norm; ! 825: /* segment(&display, p1, p2, c); */ ! 826: segment(&display, Pt(qx+lx, qy+ly), p2, c); ! 827: segment(&display, Pt(qx-lx, qy-ly), p2, c); ! 828: } ! 829: ! 830: but(n) /* parameterize button1(), etc. */ ! 831: int n; ! 832: { ! 833: switch (n) { ! 834: case 1: return button1(); ! 835: case 2: return button2(); ! 836: case 3: return button3(); ! 837: case 12: return button12(); ! 838: case 13: return button1()|button3(); /* not built in */ ! 839: case 23: return button23(); ! 840: case 123: return button123(); ! 841: default: return 0; ! 842: } ! 843: } ! 844: ! 845: checkmouse() /* return button touched if any */ ! 846: { ! 847: int c, b; ! 848: char *p = NULL; ! 849: Point dp; ! 850: #ifdef V9 ! 851: Texture *tp; ! 852: #else ! 853: Texture16 *tp; ! 854: #endif ! 855: ! 856: if (!(own()&MOUSE) || !button123()) ! 857: return 0; /* no hit at all */ ! 858: tp = cursswitch(PTR); ! 859: last_but = 0; ! 860: last_hit = -1; ! 861: c = 0; ! 862: if (button3()) { ! 863: last_hit = menuhit(&mbut3, 3); ! 864: last_but = 3; ! 865: } else if (button2()) { ! 866: last_hit = menuhit(&mbut2, 2); ! 867: last_but = 2; ! 868: } else { /* button1() */ ! 869: last_but = 1; ! 870: } ! 871: while (button123()) ! 872: wait(MOUSE); ! 873: if (last_but == 3) { ! 874: p = m3[last_hit]; ! 875: c = p[strlen(p) - 1]; ! 876: } ! 877: if (c == '?' && !confirm(last_but)) ! 878: last_hit = -1; ! 879: cursswitch(tp); ! 880: return last_but; ! 881: } ! 882: ! 883: confirm(but) /* ask for confirmation if menu item ends with '?' */ ! 884: { ! 885: int c; ! 886: static int but_cvt[8] = { 0, 3, 2, 0, 1, 0, 0, 0 }; ! 887: #ifdef V9 ! 888: Texture *tp; ! 889: #else ! 890: Texture16 *tp; ! 891: #endif ! 892: ! 893: tp = cursswitch(&skull); ! 894: while (!button123()) ! 895: wait(MOUSE); ! 896: c = mouse.buttons & 7; ! 897: while (button123()) ! 898: wait(MOUSE); ! 899: cursswitch(tp); ! 900: return but == but_cvt[c]; ! 901: } ! 902: ! 903: putstring(a1, a2, a3, a4, a5) ! 904: char *a1, *a2, *a3, *a4, *a5; ! 905: { ! 906: static Point p = {0, 0}; ! 907: static int jmax = 0, l; ! 908: char buf[100], *s; ! 909: ! 910: p = Drect.origin; ! 911: sprintf(buf, a1, a2, a3, a4, a5); ! 912: rectf(&display, Rect(p.x,p.y,p.x+jmax,p.y+16), F_CLR); ! 913: string(&defont, buf, &display, p, F_OR); ! 914: if ((l = jstrwidth(buf)) > jmax) ! 915: jmax = l; ! 916: } ! 917: ! 918: assert(c, s) /* poor man's assertion */ ! 919: char *s; ! 920: { ! 921: if (!c) { ! 922: putstring("assertion %s failed\n", s); ! 923: sleep(60); ! 924: } ! 925: } ! 926: ! 927: readbyte() ! 928: { ! 929: int c; ! 930: ! 931: if ((c = rcvchar()) == -1) { ! 932: wait(RCV); ! 933: c = rcvchar(); ! 934: } ! 935: return c; ! 936: } ! 937: ! 938: sendbuf(buf, p) ! 939: char *buf, *p; ! 940: { ! 941: sendnchars((int) (p-buf), buf); ! 942: } ! 943: ! 944: do_kbd() ! 945: { ! 946: int c; ! 947: ! 948: pkbd = kbdline; ! 949: for (wait(KBD); (c = kbdchar()) != -1; wait(KBD)) { ! 950: if (c == '\b' && pkbd > kbdline) ! 951: --pkbd; ! 952: else if (c == '@') ! 953: pkbd = kbdline; ! 954: else ! 955: *pkbd++ = c; ! 956: *pkbd = '\0'; ! 957: rectf(&display, Rect(Do.x,Do.y,Dc.x,Do.y+16), F_CLR); ! 958: string(&defont, kbdline, &display, Do, F_STORE); ! 959: if (c == '\n' || c == '\r') { ! 960: pkbd[-1] = '\0'; ! 961: return '\n'; ! 962: } ! 963: } ! 964: } ! 965:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.