148511Sbostic /*- 2*61389Sbostic * Copyright (c) 1980, 1986, 1993 3*61389Sbostic * The Regents of the University of California. All rights reserved. 448511Sbostic * 548511Sbostic * %sccs.include.proprietary.c% 629810Ssklower */ 729810Ssklower 829810Ssklower #ifndef lint 9*61389Sbostic static char sccsid[] = "@(#)erase.c 8.1 (Berkeley) 06/04/93"; 1048511Sbostic #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 */ erase()2229810Ssklowererase() 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