Return to text.c CVS log

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

Annotation of 40BSD/cmd/cifplot/text.c, revision 1.1.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.