Return to range.c CVS log

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

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

1.1       root        1: #include "pen.h"
                      2: range(x0, y0, x1, y1)
                      3: double x0, y0, x1, y1;
                      4: {
                      5:        double dx, dy, step;
                      6:        if(noscale){
                      7:        dx = x1 - x0;
                      8:        dy = y1 - y0;
                      9:        if(dx <= 2. || dy <= 2.)
                     10:                e1->scale = 1000.;
                     11:        else if(dx <= 100. || dy <= 100.)
                     12:                e1->scale = 100.;
                     13:        else e1->scale = 1.;
                     14:        if(!res){
                     15:                dx *= e1->scale;
                     16:                dy *= e1->scale;
                     17:                step = (((dy*DX)/dx)>DY) ? DY/dy : DX/dx;       
                     18:                e1->p2x = e0->p1x + dx*step;
                     19:                e1->p2y = e0->p1y + dy*step;
                     20:                fprintf(pltout,"IP %8.2f,%8.2f %8.2f,%8.2f\n",
                     21:                          e1->p1x,e1->p1y,e1->p2x,e1->p2y);
                     22:                        DX = e1->p2x - e1->p1x;
                     23:                        DY = e1->p2y - e1->p1y;
                     24:                        res = 1;
                     25:        }
                     26:        }
                     27:        e1->xmin = SCX(x0);
                     28:        e1->ymin = SCY(y0);
                     29:        e1->xmax = SCX(x1);
                     30:        e1->ymax = SCY(y1);
                     31:        fprintf(pltout,"SC %8.2f,%8.2f %8.2f,%8.2f\n",
                     32:                e1->xmin,e1->xmax,e1->ymin,e1->ymax);
                     33:        ckerr(1);
                     34: }

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