xref: /csrg-svn/lib/libplot/f77plot/box.c (revision 61374)
148506Sbostic /*-
2*61374Sbostic  * Copyright (c) 1980, 1993
3*61374Sbostic  *	The Regents of the University of California.  All rights reserved.
448506Sbostic  *
548506Sbostic  * %sccs.include.proprietary.c%
622629Sdist  */
722629Sdist 
817627Sjak #ifndef lint
9*61374Sbostic static char sccsid[] = "@(#)box.c	8.1 (Berkeley) 06/04/93";
1048506Sbostic #endif /* not lint */
1122629Sdist 
box_(x0,y0,x1,y1)1217627Sjak box_(x0, y0, x1, y1)
1317627Sjak int *x0, *y0, *x1, *y1;
1417627Sjak {
1523125Smckusick 	move(*x0, *y0);
1623125Smckusick 	cont(*x0, *y1);
1723125Smckusick 	cont(*x1, *y1);
1823125Smckusick 	cont(*x1, *y0);
1923125Smckusick 	cont(*x0, *y0);
2023125Smckusick 	move(*x1, *y1);
2117627Sjak }
22