home *** CD-ROM | disk | FTP | other *** search
- /*
- * plot.c : PD implementation of the UNIX plot package.
- *
- * by Joel Swank 4-20-88
- */
-
- #include <stdio.h>
-
- openpl()
- {
- /* nothing for it to do */
- }
-
- erase()
- {
- putchar('e');
- }
-
- label(s)
- char *s;
- {
- putchar('t');
- puts(s);
- }
-
- line(x1,y1,x2,y2)
- int x1,y1,x2,y2;
- {
- putchar('l');
- put_xy(x1,y1);
- put_xy(x2,y2);
- }
-
- circle(x,y,r)
- int x,y,r;
- {
- putchar('c');
- put_xy(x,y);
- put_int(r);
- }
-
- arc(x,y,x0,y0,x1,y1)
- int x,y,x0,y0,x1,y1;
- {
- putchar('a');
- put_xy(x,y);
- put_xy(x0,y0);
- put_xy(x1,y1);
- }
-
- move(x,y)
- int x,y;
- {
- putchar('m');
- put_xy(x,y);
- }
-
- cont(x,y)
- int x,y;
- {
- putchar('n');
- put_xy(x,y);
- }
-
- point(x,y)
- int x,y;
- {
- putchar('p');
- put_xy(x,y);
- }
-
- linemod(s)
- char *s;
- {
- putchar('f');
- puts(s);
- }
-
- space(x1,y1,x2,y2)
- int x1,y1,x2,y2;
- {
- putchar('s');
- put_xy(x1,y1);
- put_xy(x2,y2);
- }
-
- closepl()
- {
- fclose(stdout);
- }
-
- put_xy(x,y)
- int x,y;
- {
- put_int(x);
- put_int(y);
- }
-
- put_int(i)
- int i;
- {
- putchar(i & 0xff);
- putchar((i >> 8) & 0xff);
- }
-