1*29810Ssklower /* 2*29810Ssklower * Copyright (c) 1980, 1986 Regents of the University of California. 3*29810Ssklower * All rights reserved. The Berkeley software License Agreement 4*29810Ssklower * specifies the terms and conditions for redistribution. 5*29810Ssklower */ 6*29810Ssklower 7*29810Ssklower #ifndef lint 8*29810Ssklower static char sccsid[] = "@(#)erase.c 6.1 (Berkeley) 08/29/86"; 9*29810Ssklower #endif not lint 10*29810Ssklower 11*29810Ssklower 12*29810Ssklower #include "grnplot.h" 13*29810Ssklower 14*29810Ssklower /*--------------------------------------------------------- 15*29810Ssklower * This routine erases the screen. 16*29810Ssklower * 17*29810Ssklower * Results: None. 18*29810Ssklower * Side Effects: A new grn file is begun 19*29810Ssklower * but: it is concatentated to the old one. 20*29810Ssklower *--------------------------------------------------------- 21*29810Ssklower */ 22*29810Ssklower erase() 23*29810Ssklower { 24*29810Ssklower if (ingrnfile) 25*29810Ssklower { 26*29810Ssklower closepl(); 27*29810Ssklower fputs("multiple grn files in output must be separated by hand!\n",stderr); 28*29810Ssklower } 29*29810Ssklower printf("sungremlinfile\n0.00 0.00\n"); 30*29810Ssklower ingrnfile = 1; 31*29810Ssklower invector = 0; 32*29810Ssklower scale = 1; 33*29810Ssklower curx = cury = xbot = ybot = 0; 34*29810Ssklower } 35