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