Return to plot.c CVS log

Up to [Research Unix] / researchv10no / cmd / basic / bas

Annotation of researchv10no/cmd/basic/bas/plot.c, revision 1.1.1.1

1.1       root        1: #include <stdio.h>
                      2: #include "typedef.h"
                      3: #include "basic.h"
                      4: 
                      5: #define MAXPLOT        32      /* number of bytes in plot buffer */
                      6: #define SFLAG          035
                      7: #define EFLAG          0377
                      8: #define CLEAR          030
                      9: #define UP             0
                     10: #define DOWN           1
                     11: 
                     12: #define LIMIT          1024.   /* Screen limit */
                     13: #define XMAX           280
                     14: #define YMAX           192
                     15: #define XSCALE         (LIMIT/XMAX)
                     16: #define YSCALE         (LIMIT/YMAX)
                     17: 
                     18: static struct plotinfo {
                     19:        int             p_des;          /* plot file descriptor */
                     20:        char            *p_file;        /* the plot file name */
                     21:        char            p_buff[MAXPLOT];        /* the plot buffer */
                     22:        int             p_pen;          /* current pen position */
                     23:        char            *p_ptr;         /* plot buffer pointer */
                     24:        int             p_x;            /* current x position */
                     25:        int             p_y;            /* current y position */
                     26:        }       p;
                     27: 
                     28: 
                     29: /*
                     30:  * pltini --- initialize the plot structure
                     31:  */
                     32: 
                     33: pltini(file)
                     34: char   *file;
                     35: {
                     36:        if (p.p_des > 0)
                     37:                pltcls();       /* close it if open */
                     38:        if (file == NULL)
                     39:                file = p.p_file;
                     40:        if (file == NULL)
                     41:                file = "!plot";
                     42:        if (file[0] == '!')
                     43:                p.p_des = pipeout("/bin/sh", "sh", "-c", &file[1], 0);
                     44:        else
                     45:                p.p_des = creat(file, 0666);
                     46:        if (p.p_des < 0)
                     47:                err("cannot open %s for plotting", file);
                     48:        p.p_ptr = p.p_buff;
                     49:        p.p_pen = UP;
                     50:        p.p_file = file;
                     51: }
                     52: 
                     53: 
                     54: /*
                     55:  * pltcls --- close the plot file
                     56:  */
                     57: 
                     58: pltcls()
                     59: {
                     60: 
                     61:        if (p.p_des > 0) {
                     62:                penup();
                     63:                pltflush();
                     64:                close(p.p_des);
                     65:                }
                     66:        p.p_des = 0;
                     67: }
                     68: 
                     69: 
                     70: /*
                     71:  * pltflush --- flush the plot buffer
                     72:  */
                     73: 
                     74: pltflush()
                     75: {
                     76:        register int    l;
                     77: 
                     78:        l = p.p_ptr - p.p_buff;
                     79:        if (l)
                     80:                if (write(p.p_des, p.p_buff, l) < 0)
                     81:                        err("write error during plotting");
                     82:        p.p_ptr = p.p_buff;
                     83: }
                     84: 
                     85: 
                     86: /*
                     87:  * plot --- move the pen to the specified coordinates
                     88:  */
                     89: 
                     90: plot(x, y)
                     91: {
                     92:        register int    ix, iy;
                     93: 
                     94:        if (tflg)
                     95:                fprintf(stderr, "plot %d %d\n", x, y);
                     96:        if (x < 0 || x >= XMAX)
                     97:                err("invalid x co-ordinate %d", x);
                     98:        if (y < 0 || y >= YMAX)
                     99:                err("invalid y co-ordinate %d", y);
                    100:        if (p.p_pen == DOWN) {
                    101:                ix = x * XSCALE;
                    102:                iy = (YMAX - y) * YSCALE;
                    103:                plotc((ix >> 6) & 077);
                    104:                plotc(ix & 077);
                    105:                plotc((iy >> 6) & 077);
                    106:                plotc(iy & 077);
                    107:                }
                    108:        p.p_x = x;
                    109:        p.p_y = y;
                    110: }
                    111: 
                    112: 
                    113: /*
                    114:  * plotc --- enter a character into the plot buffer
                    115:  */
                    116: 
                    117: plotc(ch)
                    118: {
                    119: 
                    120:        *p.p_ptr++ = ch;
                    121:        if (p.p_ptr >= &p.p_buff[MAXPLOT])
                    122:                pltflush();
                    123: }
                    124: 
                    125: 
                    126: /*
                    127:  * penup --- raise the pen
                    128:  */
                    129: 
                    130: penup()
                    131: {
                    132: 
                    133:        if (p.p_pen == DOWN)
                    134:                plotc(EFLAG);
                    135:        p.p_pen = UP;
                    136:        pltflush();
                    137: }
                    138: 
                    139: 
                    140: /*
                    141:  * pendn --- lower the pen
                    142:  */
                    143: 
                    144: pendn()
                    145: {
                    146: 
                    147:        if (p.p_pen == UP) {
                    148:                plotc(SFLAG);
                    149:                p.p_pen = DOWN;
                    150:                plot(p.p_x, p.p_y);
                    151:                }
                    152: }
                    153: 
                    154: 
                    155: /*
                    156:  * erase --- erase the plot display
                    157:  */
                    158: 
                    159: erase()
                    160: {
                    161: 
                    162:        penup();
                    163:        plotc(CLEAR);
                    164:        plotc(EFLAG);
                    165:        pltflush();
                    166: }

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