summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/window/epsf.c
blob: e5ed8e55c437941610bb1faeb413b5198b018fd8 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
/* 
 * epsf.c -- Encapsulated PostScript window server.
 * Copyright (C) 1998  Mathias Herberts <herberts@infini.fr>
 *
 * These functions generate an Encapsulated PostScript File
 * representing the graphics normally shown online. They are
 * selected by setting MFTERM to epsf.
 *
 * The name of the file defaults to metafont.eps but can be
 * changed by setting the MFEPSF environment variable.
 *
 * The file is closed when the program exits.
 */

/* 
 * This library is free software; you can redistribute it and/or
 * modify it under the terms of the GNU General Public License as
 * published by the Free Software Foundation; either version 2 of
 * the License, or (at your option) any later version.
 *
 * This library is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this library; if not, write to the Free Software
 * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
 */



#define	EXTERN		extern

#include "../mfd.h"

#ifdef EPSFWIN

#include <stdio.h>

static FILE * psout = NULL;

/*
 * Arrays epsf_{left,right,top,bottom} hold the coordinates of
 * open windows.
 *
 * When a new window is opened, i.e. when blankrectangle is
 * called, we check the arrays to see if the blank rectangle
 * clears an open window. If it is the case a showpage and an %%EOF is
 * appended To the PostScript file and a new header is output thus
 * making it easy to separate the pages.
 *
 * The last page of the file is not terminated by a showpage and
 * an %%EOF, the user should add them himself.
 *
 */

static screencol epsf_left[16];
static screencol epsf_right[16];
static screenrow epsf_top[16];
static screenrow epsf_bottom[16];

static short epsf_window = 0;
static unsigned int epsf_page = 1;

void
mf_epsf_header ()
{
  fprintf (psout, "%%!PS-Adobe-3.0 EPSF-3.0\n");
  fprintf (psout, "%%%%BoundingBox: -1 -1 %d %d\n", screenwidth, screendepth);
  fprintf (psout, "%%%%Creator: METAFONT\n");
  fprintf (psout, "%%%%Page: %d %d\n\n", epsf_page, epsf_page);
  fprintf (psout, "1 dup scale\n");
  fprintf (psout, "1 setlinewidth\n\n");

  epsf_page++;
}

#include <mfdisplay.h>

int
mf_epsf_initscreen (void)
{
  if (getenv ("MFEPSF") != (char *) NULL)
    {
      psout = fopen ((char *) getenv ("MFEPSF"), "w");
    }
  else
    {
      psout = fopen ("metafont.eps", "w");
    }
   
   if (psout == (FILE *) NULL)
    {
      return 0;
    }
  else
    {
      mf_epsf_header ();
      epsf_window = 0;
      return 1;
    }
}

void
mf_epsf_updatescreen (void)
{
  fflush (psout);
}

void
mf_epsf_blankrectangle (screencol left,
                        screencol right,
                        screenrow top,
                        screenrow bottom)
{
  int i;

  for (i = 0; i < epsf_window; i++)
    {
      if (! ((right - 1 < epsf_left[i]) || (epsf_right[i] < left)) ) /* new window is neither left nor right of window i */
	if ( ! ((top > epsf_bottom[i]) || (epsf_top[i] > bottom - 1))) /* new window is neither below nor above window i */
	  {	    
	    fprintf (psout, "\nshowpage\n%%%%EOF\n");
	    mf_epsf_header ();
	    epsf_window = 0;
	    break;
	  }
    }
  
  epsf_left[epsf_window] = left;
  epsf_right[epsf_window] = right - 1;
  epsf_top[epsf_window] = top;
  epsf_bottom[epsf_window] = bottom - 1;

  epsf_window++;

  fprintf (psout, "1 setgray %d %d %d %d rectfill 0 setgray\n", left, screendepth - 1 - bottom, right - left, bottom - top);

  fflush (psout);
}


void
mf_epsf_paintrow (screenrow row,
		  pixelcolor init_color,
		  transspec transition_vector,
		  screencol vector_size)
{
  int col;
  int color;

  color = (init_color == 0) ? 1 : 0;

  do
    {
      col = *transition_vector++;

      if (!color)
	{
	  fprintf (psout, "newpath %d %d moveto %d %d lineto stroke\n", 
		   col, 
		   screendepth - 1 - row,
		   *transition_vector,
		   screendepth - 1 - row);
	}

      color = (color == 0) ? 1 : 0;
    }
  while (--vector_size > 0);
}


#else /* !EPSFWIN */

int epsf_dummy;

#endif /* !EPSFWIN */