Return to restore.c CVS log

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

Annotation of researchv10no/libplot/libpen/restore.c, revision 1.1.1.1

1.1       root        1: #include "pen.h"
                      2: restore(){
                      3:        if(--e1 == e0)
                      4:                fprintf(stderr,"stack underflow\n");
                      5:        fprintf(pltout,"SR %8.2f,%8.2f \n",
                      6:                e1->charsz*CH_RATIO,e1->charsz);
                      7:        if(noscale){
                      8:        fprintf(pltout,"IP %8.2f,%8.2f %8.2f,%8.2f\n",
                      9:                e1->p1x,e1->p1y,e1->p2x,e1->p2y);
                     10:        }
                     11:        fprintf(pltout,"SC %8.2f,%8.2f %8.2f,%8.2f\n",
                     12:                e1->xmin,e1->xmax,e1->ymin,e1->ymax);
                     13:        penUp();
                     14:        fprintf(pltout,"SP %d PA %8.2f,%8.2f\n",
                     15:                (e1->pen>0)?e1->pen:1,
                     16:                e1->copyx, e1->copyy);
                     17:        if(!e1->pentype)
                     18:                fprintf(pltout,"LT\n");
                     19:        else fprintf(pltout,"LT %d\n",e1->pentype);
                     20:        ckerr(1);
                     21: }

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