BSD 4_2 release

[unix-history] / usr / src / usr.bin / plot / driver.c

#ifndef lint
static char sccsid[] = "@(#)driver.c    4.1 (Berkeley) 8/11/83";
#endif

#include <stdio.h>

float deltx;
float delty;

main(argc,argv)  char **argv; {
       int std=1;
       FILE *fin;

       while(argc-- > 1) {
               if(*argv[1] == '-')
                       switch(argv[1][1]) {
                               case 'l':
                                       deltx = atoi(&argv[1][2]) - 1;
                                       break;
                               case 'w':
                                       delty = atoi(&argv[1][2]) - 1;
                                       break;
                               }

               else {
                       std = 0;
                       if ((fin = fopen(argv[1], "r")) == NULL) {
                               fprintf(stderr, "can't open %s\n", argv[1]);
                               exit(1);
                               }
                       fplt(fin);
                       }
               argv++;
               }
       if (std)
               fplt( stdin );
       exit(0);
       }


fplt(fin)  FILE *fin; {
       int c;
       char s[256];
       int xi,yi,x0,y0,x1,y1,r,dx,n,i;
       int pat[256];

       openpl();
       while((c=getc(fin)) != EOF){
               switch(c){
               case 'm':
                       xi = getsi(fin);
                       yi = getsi(fin);
                       move(xi,yi);
                       break;
               case 'l':
                       x0 = getsi(fin);
                       y0 = getsi(fin);
                       x1 = getsi(fin);
                       y1 = getsi(fin);
                       line(x0,y0,x1,y1);
                       break;
               case 't':
                       gets(s,fin);
                       label(s);
                       break;
               case 'e':
                       erase();
                       break;
               case 'p':
                       xi = getsi(fin);
                       yi = getsi(fin);
                       point(xi,yi);
                       break;
               case 'n':
                       xi = getsi(fin);
                       yi = getsi(fin);
                       cont(xi,yi);
                       break;
               case 's':
                       x0 = getsi(fin);
                       y0 = getsi(fin);
                       x1 = getsi(fin);
                       y1 = getsi(fin);
                       space(x0,y0,x1,y1);
                       break;
               case 'a':
                       xi = getsi(fin);
                       yi = getsi(fin);
                       x0 = getsi(fin);
                       y0 = getsi(fin);
                       x1 = getsi(fin);
                       y1 = getsi(fin);
                       arc(xi,yi,x0,y0,x1,y1);
                       break;
               case 'c':
                       xi = getsi(fin);
                       yi = getsi(fin);
                       r = getsi(fin);
                       circle(xi,yi,r);
                       break;
               case 'f':
                       gets(s,fin);
                       linemod(s);
                       break;
               case 'd':
                       xi = getsi(fin);
                       yi = getsi(fin);
                       dx = getsi(fin);
                       n = getsi(fin);
                       for(i=0; i<n; i++)pat[i] = getsi(fin);
                       dot(xi,yi,dx,n,pat);
                       break;
                       }
               }
       closepl();
       }
getsi(fin)  FILE *fin; {        /* get an integer stored in 2 ascii bytes. */
       short a, b;
       if((b = getc(fin)) == EOF)
               return(EOF);
       if((a = getc(fin)) == EOF)
               return(EOF);
       a = a<<8;
       return(a|b);
}
gets(s,fin)  char *s;  FILE *fin; {
       for( ; *s = getc(fin); s++)
               if(*s == '\n')
                       break;
       *s = '\0';
       return;
}