Return to text.c CVS log

Up to [Research Unix] / researchv10no / libplot / libtr

Annotation of researchv10no/libplot/libtr/text.c, revision 1.1

1.1     ! root        1: #include <stdio.h>
        !             2: #include "tr.h"
        !             3: /*     arrange by incremental plotting that an initial
        !             4:  *     character such as +, X, *, etc will fall
        !             5:  *     right on the point, and undo it so that further
        !             6:  *     labels will fall properly in place
        !             7:  */
        !             8: text(s)
        !             9: char   *s;
        !            10: {
        !            11:        register int    n;
        !            12:        register char *p;
        !            13:        int centered, right, newline, more, tweek;
        !            14:        double y;
        !            15: 
        !            16:        while(1){
        !            17:        n = centered = right = newline = more = tweek = 0;
        !            18:        for(p=s; *p != '\0'; p++){
        !            19:                if(*p == '\\'){
        !            20:                        switch(*(++p)){
        !            21:                        case 'C': centered++;
        !            22:                                s = p+1;
        !            23:                                continue;
        !            24:                        case 'R': right++;
        !            25:                                s = p+1;
        !            26:                                continue;
        !            27:                        case 'n': newline++;
        !            28:                                *(p-1) = '\0';
        !            29:                                if(*(p+1) != '\0')more++;
        !            30:                                goto output;
        !            31:                        case 'L': s=p+1;
        !            32:                                continue;
        !            33:                        }
        !            34:                }
        !            35:                else if( (n==0) && (*p=='+' || *p == '*' || *p == 'x' ||
        !            36:                        *p == 'X' || *p == '.' || *p == 'o'))tweek++;
        !            37:                else n = 1;
        !            38:        }
        !            39: output:
        !            40:        if(tweek)
        !            41:                printf("\\h'-0.m'\\v'.2m'"); /*shift down & left */
        !            42:        *p = '\0';
        !            43:        if(right)
        !            44:                printf("\\h\\(ts-\\w\\(ts%s\\(tsu\\(ts%s", s, s);
        !            45:        else if(centered)
        !            46:                printf("\\h\\(ts-\\w\\(ts%s\\(tsu/2u\\(ts%s\\h\\(ts-\\w\\(ts%s\\(tsu/2u\\(ts", s, s, s);
        !            47:        else
        !            48:                printf("%s", s);
        !            49:        if(newline){
        !            50:                y = SCY(e1->copyy) ;
        !            51:                y -= e1->psize * linespace;
        !            52:                e1->copyy = (y - e1->bottom)/e1->scaley + e1->ymin;
        !            53:        }
        !            54:        move(e1->copyx, e1->copyy);
        !            55:        if(!more)break;
        !            56:        s = p+1;
        !            57:        }
        !            58: }

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