1 /* Function: make_procs
2 **
3 ** This function creates some commonly used PostScript procedures.
4 **
5 ** Author: Paul W. Carlson March 1992
6 */
7
8 #include <grass/gis.h>
9 #include <grass/glocale.h>
10 #include "ps_info.h"
11
make_procs(void)12 int make_procs(void)
13 {
14 char filename[1024];
15 FILE *fp;
16 int level;
17
18 /* begin procs */
19 fprintf(PS.fp, "\n%%%%BeginProlog\n");
20
21 /* level 2 is default PostScript level */
22 level = (PS.level != 1) ? 2 : 1;
23 fprintf(PS.fp, "/level %d def\n", level);
24
25 sprintf(filename, "%s/etc/paint/prolog.ps", G_gisbase());
26
27 fp = fopen(filename, "r");
28 if (!fp)
29 G_fatal_error(_("Unable to open prolog <%s>"), filename);
30
31 for (;;) {
32 char buff[80];
33
34 if (!fgets(buff, sizeof(buff), fp))
35 break;
36 fputs(buff, PS.fp);
37 }
38
39 fclose(fp);
40
41 /* all procs should be defined above this line */
42 fprintf(PS.fp, "%%%%EndProlog\n\n");
43
44 return 0;
45 }
46