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     ! 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.