Return to movegen.c CVS log

Up to [Research Unix] / researchv10no / cmd / picasso

Annotation of researchv10no/cmd/picasso/movegen.c, revision 1.1

1.1     ! root        1: /*     Copyright (c) 1988 AT&T */
        !             2: /*       All Rights Reserved   */
        !             3: 
        !             4: /*     THIS IS UNPUBLISHED PROPRIETARY SOURCE CODE OF AT&T     */
        !             5: /*     The copyright notice above does not evidence any        */
        !             6: /*     actual or intended publication of such source code.     */
        !             7: 
        !             8: /*     @(#)picasso:movegen.c   1.0     */
        !             9: #include       "picasso.h"
        !            10: #include       "y.tab.h"
        !            11: 
        !            12: obj *movegen()
        !            13: {
        !            14: static double prevdx, prevdy;
        !            15: static int     xtab[] = { 1, 0, -1, 0 };       /* R=0, U=1, L=2, D=3 */
        !            16: static int     ytab[] = { 0, 1, 0, -1 };
        !            17: 
        !            18: struct objattr obat;
        !            19:        double  defx, defy, dx, dy, tcolor;
        !            20:        int     i, some;
        !            21:        obj     *p;
        !            22:        obj     *ppos;
        !            23:        Attr    *ap;
        !            24: 
        !            25:        defx = getfval("movewid");
        !            26:        defy = getfval("moveht");
        !            27:        tcolor = -1;
        !            28:        set_text();
        !            29:        dx = dy = some = 0;
        !            30:        for (i = 0; i < nattr; i++) {
        !            31:                ap = &attr[i];
        !            32:                switch (ap->a_type) {
        !            33:                case FONT:
        !            34:                case SIZE:
        !            35:                case SPACE:
        !            36:                case TEXTATTR:
        !            37:                        miscattrs(ap, &obat);   /* obat not really used here */ 
        !            38:                        break;
        !            39:                case TCOLOR:
        !            40:                        tcolor = ap->a_val.f;
        !            41:                        break;
        !            42:                case SAME:
        !            43:                        dx = prevdx;
        !            44:                        dy = prevdy;
        !            45:                        some++;
        !            46:                        break;
        !            47:                case LEFT:
        !            48:                        dx -= (ap->a_sub==DEFAULT) ? defx : ap->a_val.f;
        !            49:                        some++;
        !            50:                        hvmode = L_DIR;
        !            51:                        break;
        !            52:                case RIGHT:
        !            53:                        dx += (ap->a_sub==DEFAULT) ? defx : ap->a_val.f;
        !            54:                        some++;
        !            55:                        hvmode = R_DIR;
        !            56:                        break;
        !            57:                case UP:
        !            58:                        dy += (ap->a_sub==DEFAULT) ? defy : ap->a_val.f;
        !            59:                        some++;
        !            60:                        hvmode = U_DIR;
        !            61:                        break;
        !            62:                case DOWN:
        !            63:                        dy -= (ap->a_sub==DEFAULT) ? defy : ap->a_val.f;
        !            64:                        some++;
        !            65:                        hvmode = D_DIR;
        !            66:                        break;
        !            67:                case TO:
        !            68:                        ppos = ap->a_val.o;
        !            69:                        dx = Xformx(ppos, 1, ppos->o_x, ppos->o_y) - curx;
        !            70:                        dy = Xformy(ppos, 0, ppos->o_x, ppos->o_y) - cury;
        !            71:                        some++;
        !            72:                        break;
        !            73:                case BY:
        !            74:                        ppos = ap->a_val.o;
        !            75:                        dx = Xformx(ppos, 1, ppos->o_x, ppos->o_y);
        !            76:                        dy = Xformy(ppos, 0, ppos->o_x, ppos->o_y);
        !            77:                        some++;
        !            78:                        break;
        !            79:                case FROM:
        !            80:                case AT:
        !            81:                        ppos = ap->a_val.o;
        !            82:                        curx = Xformx(ppos, 1, ppos->o_x, ppos->o_y);
        !            83:                        cury = Xformy(ppos, 0, ppos->o_x, ppos->o_y);
        !            84:                        break;
        !            85:                }
        !            86:        }
        !            87:        if (some) {
        !            88:                defx = dx;
        !            89:                defy = dy;
        !            90:        } else {
        !            91:                defx *= xtab[hvmode];
        !            92:                defy *= ytab[hvmode];
        !            93:        }
        !            94:        prevdx = defx;
        !            95:        prevdy = defy;
        !            96:        extreme(curx, cury, Gbox);
        !            97:        curx += defx;
        !            98:        cury += defy;
        !            99:        extreme(curx, cury, Gbox);
        !           100:        p = makenode(MOVE, 0, 0);
        !           101:        if (p->o_nt2 > p->o_nt1) {
        !           102:                p->o_text = tcolor;
        !           103:                checktextcolor(p);
        !           104:                text_bounds(p);
        !           105:        }
        !           106:        return(p);
        !           107: }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.