Return to 4014.c CVS log

Up to [Research Unix] / researchv10no / cmd / ideal / idfilt

Annotation of researchv10no/cmd/ideal/idfilt/4014.c, revision 1.1

1.1     ! root        1: #include "idfilt.h"
        !             2: 
        !             3: float xscale, yscale;
        !             4: 
        !             5: boolean wanterase = TRUE;
        !             6: 
        !             7: void idjusttext (str)
        !             8: char *str;
        !             9: {
        !            10: }
        !            11: 
        !            12: void idstart ()
        !            13: {
        !            14:        openpl ();
        !            15:        if (wanterase)
        !            16:                erase ();
        !            17: }
        !            18: 
        !            19: void idendbound ()
        !            20: {
        !            21:        if (boundset)
        !            22:                return;
        !            23:        idminx (-6.0);
        !            24:        idmaxy (6.0);
        !            25:        idmaxx (6.0);
        !            26:        idminy (-6.0);
        !            27:        if (!banzai && maxx - minx < 0.01) {
        !            28:                maxx += 1;
        !            29:                minx -= 1;
        !            30:        }
        !            31:        if (!banzai && maxy - miny < 0.01) {
        !            32:                maxy += 1;
        !            33:                miny -= 1;
        !            34:        }
        !            35:        xscale = maxx - minx;
        !            36:        yscale = maxy - miny;
        !            37:        if (!heightset) {
        !            38:                if (xscale < yscale) {
        !            39:                        maxx += (yscale - xscale)/2.0;
        !            40:                        minx -= (yscale - xscale)/2.0;
        !            41:                        xscale = yscale;
        !            42:                } else {
        !            43:                        maxy += (xscale - yscale)/2.0;
        !            44:                        miny -= (xscale - yscale)/2.0;
        !            45:                        yscale = xscale;
        !            46:                }
        !            47:        }
        !            48:        xscale = 3000.0/xscale;
        !            49:        yscale = 3000.0/yscale;
        !            50:        space (round(minx*xscale) - 20, round(miny*yscale) - 20, round(maxx*xscale) + 20, round(maxy*yscale) + 20);
        !            51:        boundset = TRUE;
        !            52: }
        !            53: 
        !            54: void idline (x1, y1, x2, y2)
        !            55: float x1;
        !            56: float y1;
        !            57: float x2;
        !            58: float y2;
        !            59: {
        !            60:        line (
        !            61:                round(x1*xscale),
        !            62:                round(y1*yscale),
        !            63:                round(x2*xscale),
        !            64:                round(y2*yscale)
        !            65:        );
        !            66: }
        !            67: 
        !            68: void idcircle (x0, y0, r)
        !            69: float x0;
        !            70: float y0;
        !            71: float r;
        !            72: {
        !            73:        circle (
        !            74:                round(x0*xscale),
        !            75:                round(y0*yscale),
        !            76:                round(r*xscale)
        !            77:        );
        !            78: }
        !            79: 
        !            80: void idarc (x0, y0, x1, y1, x2, y2, t1, t2, r)
        !            81: float x0;
        !            82: float y0;
        !            83: float x1;
        !            84: float y1;
        !            85: float x2;
        !            86: float y2;
        !            87: float t1;
        !            88: float t2;
        !            89: float r;
        !            90: {
        !            91:        if (r*xscale > 20000.0)
        !            92:                idline (x1, y1, x2, y2);
        !            93:        else
        !            94:                arc (
        !            95:                        round(x0*xscale),
        !            96:                        round(y0*yscale),
        !            97:                        round(x1*xscale),
        !            98:                        round(y1*yscale),
        !            99:                        round(x2*xscale),
        !           100:                        round(y2*yscale)
        !           101:                );
        !           102: }
        !           103: 
        !           104: void idleft (x, y, str)
        !           105: float x;
        !           106: float y;
        !           107: char *str;
        !           108: {
        !           109:        move (
        !           110:                round(x*xscale),
        !           111:                round(y*yscale)
        !           112:        );
        !           113:        label (
        !           114:                ++str
        !           115:        );
        !           116: }
        !           117: 
        !           118: void idcenter (x, y, str)
        !           119: float x;
        !           120: float y;
        !           121: char *str;
        !           122: {
        !           123:        idleft (x, y, str);
        !           124: }
        !           125: 
        !           126: void idright (x, y, str)
        !           127: float x;
        !           128: float y;
        !           129: char *str;
        !           130: {
        !           131:        idleft (x, y, str);
        !           132: }
        !           133: 
        !           134: void idspline ()
        !           135: {
        !           136: }
        !           137: 
        !           138: void idknot ()
        !           139: {
        !           140: }
        !           141: 
        !           142: void idendspline ()
        !           143: {
        !           144: }
        !           145: 
        !           146: void idendE ()
        !           147: {
        !           148:        closepl ();
        !           149:        if (infile != stdin) {
        !           150:        FILE *term;
        !           151:                term = fopen ("/dev/tty", "r");
        !           152:                getc (term);
        !           153:                fclose (term);
        !           154:        }
        !           155: }
        !           156: 
        !           157: void idendF ()
        !           158: {
        !           159:        idendE ();
        !           160: }
        !           161: 
        !           162: void idnoerase ()
        !           163: {
        !           164:        wanterase = FALSE;
        !           165: }
        !           166: 
        !           167: void idyeserase ()
        !           168: {
        !           169:        wanterase = TRUE;
        !           170: }

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