1*48511Sbostic /*- 2*48511Sbostic * Copyright (c) 1980, 1986 The Regents of the University of California. 3*48511Sbostic * All rights reserved. 4*48511Sbostic * 5*48511Sbostic * %sccs.include.proprietary.c% 629810Ssklower */ 729810Ssklower 829810Ssklower #ifndef lint 9*48511Sbostic static char sccsid[] = "@(#)erase.c 6.2 (Berkeley) 04/22/91"; 10*48511Sbostic #endif /* not lint */ 1129810Ssklower 1229810Ssklower #include "grnplot.h" 1329810Ssklower 1429810Ssklower /*--------------------------------------------------------- 1529810Ssklower * This routine erases the screen. 1629810Ssklower * 1729810Ssklower * Results: None. 1829810Ssklower * Side Effects: A new grn file is begun 1929810Ssklower * but: it is concatentated to the old one. 2029810Ssklower *--------------------------------------------------------- 2129810Ssklower */ 2229810Ssklower erase() 2329810Ssklower { 2429810Ssklower if (ingrnfile) 2529810Ssklower { 2629810Ssklower closepl(); 2729810Ssklower fputs("multiple grn files in output must be separated by hand!\n",stderr); 2829810Ssklower } 2929810Ssklower printf("sungremlinfile\n0.00 0.00\n"); 3029810Ssklower ingrnfile = 1; 3129810Ssklower invector = 0; 3229810Ssklower scale = 1; 3329810Ssklower curx = cury = xbot = ybot = 0; 3429810Ssklower } 35