ftp.nice.ch/pub/next/unix/developer/plplot.3.0.s.tar.gz#/plplot/src/plvsta.c

This is plvsta.c in view mode; [Download] [Up]

/* Defines a "standard" viewport with seven character heights for   */
/* the left margin and four character heights everywhere else       */

#include "plplot.h"

void plvsta()
{
    double xmin, xmax, ymin, ymax;
    double chrdef, chrht, spdxmi, spdxma, spdymi, spdyma;
    int level;

    glev(&level);
    if (level < 1) plexit("Please call plstar before calling plvsta.");

    gchr(&chrdef,&chrht);
    gspd(&spdxmi,&spdxma,&spdymi,&spdyma);

/*  Find out position of subpage boundaries in millimetres, reduce by */
/*  the desired border, and convert back into normalized subpage */
/*  coordinates */

    xmin = dcscx(mmdcx((double)(dcmmx(spdxmi) + 8 * chrht)));
    xmax = dcscx(mmdcx((double)(dcmmx(spdxma) - 5 * chrht)));
    ymin = dcscy(mmdcy((double)(dcmmy(spdymi) + 5 * chrht)));
    ymax = dcscy(mmdcy((double)(dcmmy(spdyma) - 5 * chrht)));

    plvpor(xmin,xmax,ymin,ymax);
}

These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.