Return to text.c CVS log

Up to [CSRG BSD Unix] / 41BSD / cmd / cifplot

Annotation of 41BSD/cmd/cifplot/text.c, revision 1.1

1.1     ! root        1: /*******************************************************************
        !             2: *                                                                  *
        !             3: *    File: CIFPLOT/text.c                                          *
        !             4: *    Written by Dan Fitzpatrick                                    *
        !             5: *    copyright 1980 -- Regents of the University of California     *
        !             6: *                                                                  *
        !             7: ********************************************************************/
        !             8: 
        !             9: #include <stdio.h>
        !            10: #include "defs.h"
        !            11: #include "globals.h"
        !            12: #include "parser_defs.h"
        !            13: #include "structs.h"
        !            14: #include "out_structs.h"
        !            15: #include "alloc.h"
        !            16: 
        !            17: IMPORT GetList();
        !            18: FORWARD real TCompare();
        !            19: 
        !            20: Text(xcurrent)
        !            21: int xcurrent;
        !            22: {
        !            23:     TextStruct *p;
        !            24: 
        !            25:     p = (TextStruct *) TextList.Link;
        !            26:     while(p != NIL && p->xpos-xcurrent < -TextDown-1) {
        !            27:        p = (TextStruct *) GetList(&TextList);
        !            28:        p = (TextStruct *) TextList.Link;
        !            29:        }
        !            30:     for(; p != NIL; p = (TextStruct *) p->Link) {
        !            31:        if(p->xpos-xcurrent > TextUp+1) return;
        !            32:        DrawText(p->str,p->xpos-xcurrent,p->ypos,xcurrent);
        !            33:        }
        !            34:     }
        !            35: 
        !            36: real
        !            37: TCompare(t1,t2)
        !            38: TextStruct *t1,*t2;
        !            39: {
        !            40:     return((float) (t1->xpos - t2->xpos));
        !            41:     }

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