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

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

/* Advance to subpage "page", or to the next one if "page" = 0 */

#include "plplot.h"

void pladv(page)
int page;
{
      int cursub, nsubx, nsuby;
      int device, termin, graphx;
      int level;

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

      gdev(&device,&termin,&graphx);
      gsub(&nsubx,&nsuby,&cursub);
      if (page > 0 && page <= nsubx*nsuby)
        cursub = page;
      else if (page == 0) {
        if (cursub == nsubx*nsuby) {
          plclr();
          plpage();
          cursub = 1;
        }
        else
          cursub = cursub + 1;
      }
      else
        plexit("Invalid subpage number in pladv.");

      ssub(nsubx,nsuby,cursub);
      setsub();
}

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