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
|
/* XNECVIEW - a program for visualizing NEC2 input and output data
*
* Copyright (C) 1998-2003, Pieter-Tjerk de Boer -- pa3fwm@amsat.org
*
* Distributed on the conditions of version 2 of the GPL: see the files
* README and COPYING, which accompany this source file.
*
* This module contains all low level postscript drawing routines.
*/
#include <stdio.h>
#include <gdk/gdk.h>
#include <time.h>
#include <string.h>
#include "xnecview.h"
FILE *psfile=NULL;
int needstroke;
int needmoveto;
GdkColor *xcprev=NULL;
void ps_DrawLine(double x1,double y1,double x2,double y2)
{
static double lastx=-1,lasty=-1;
if (x1!=lastx || y1!=lasty || needmoveto) {
if (needstroke) fprintf(psfile,"stroke\n");
fprintf(psfile,"%g %g m\n",x1,y1);
needmoveto=0;
}
fprintf(psfile,"%g %g l\n",x2,y2);
lastx=x2; lasty=y2;
needstroke=1;
}
void ps_SetLineAttributes(unsigned line_width,int line_style,int cap_style,int join_style)
{
if (needstroke) { fprintf(psfile,"stroke\n"); needstroke=0; }
if (line_width==0) line_width++; /* Zero width lines for X11 speed of drawing but in
postscript don't really want the thinnest lines
which are possible on the device! */
fprintf(psfile,"%u setlinewidth ",line_width);
switch (line_style) {
case GDK_LINE_SOLID:
fprintf(psfile,"[] 0 setdash\n");
break;
case GDK_LINE_ON_OFF_DASH:
fprintf(psfile,"[5 5] 0 setdash\n");
break;
}
if (cap_style!=GDK_CAP_ROUND || join_style!=GDK_JOIN_ROUND || line_style==GDK_LINE_DOUBLE_DASH) {
puts("Error in ps_SetLineAttributes!");
}
needmoveto=1;
}
void ps_SetForeground(GdkColor *xc)
{
if (xc==xcprev) return;
xcprev=xc;
if (needstroke) { fprintf(psfile,"stroke\n"); needstroke=0; }
fprintf(psfile,"%g %g %g setrgbcolor\n",xc->red/65535.,xc->green/65535.,xc->blue/65535.);
needmoveto=1;
}
void ps_ClearWindow(void)
{
}
void ps_DrawString(double a,double b,char *s,double d,double e)
{
fprintf(psfile,"gsave (%s) dup stringwidth pop %g mul %g add\n",s,-d,a);
fprintf(psfile,"%g descent sub ascent descent add %g mul add m 1 -1 scale show grestore\n", b, e);
}
void ps_Complete(void)
{
}
void ps_SetClipRectangle(double x1,double y1,double x2,double y2)
{
if (needstroke) { fprintf(psfile,"stroke\n"); needstroke=0; }
xcprev=NULL;
fprintf(psfile,"grestore gsave\n");
fprintf(psfile,"newpath %g %g moveto %g %g lineto %g %g lineto %g %g lineto closepath clip newpath\n",
x1,y1, x1,y2, x2,y2, x2,y1 );
}
Outdev out_ps = {
ps_SetLineAttributes,
ps_DrawLine,
ps_SetForeground,
ps_ClearWindow,
ps_DrawString,
ps_Complete,
ps_SetClipRectangle,
NULL,
} ;
#define PSsize 400
#define PSllx 50
#define PSlly 150
int write_postscript(char *filename,void (*drawfn)(int),int xsize,int ysize)
{
Outdev *oldout;
time_t ti;
psfile=fopen(filename,"w");
if (!psfile) return 1;
oldout=out;
out=&out_ps;
time(&ti);
fprintf(psfile,"%%!PS-Adobe-2.0 EPSF-2.0\n"
"%%%%DocumentFonts: %s\n"
"%%%%Title: Xnecview output\n"
"%%%%Creator: Xnecview %s\n"
"%%%%CreationDate: %s"
"%%%%Pages: 1\n"
"%%%%BoundingBox: %g %g %g %g\n"
"%%%%EndComments\n",
PSFONT,
VERSION,
ctime(&ti),
(double)PSllx,(double)PSlly,(double)PSllx+xsize,(double)PSlly+ysize);
fprintf(psfile,"/xnecview 10 dict def\n xnecview begin \n"); /* use a private dictionary as recommended in EPSF-3.0 standard */
fprintf(psfile,"/l /lineto load def\n"); /* define abbreviations l and m for lineto and moveto */
fprintf(psfile,"/m /moveto load def\n");
fprintf(psfile,"end\n"); /* end use (definition) of local dictionary */
fprintf(psfile,"%%%%EndProlog\n");
fprintf(psfile,"%%%%Page: 1 1\n");
fprintf(psfile,"xnecview begin\n"); /* use local dictionary again */
fprintf(psfile,"%g %g translate 1 -1 scale\n", /* set scaling and translation such that our Xwindow coordinates can be used */
(double)PSllx,
(double)PSlly+ysize );
fprintf(psfile,"newpath 0 0 moveto 0 %g lineto %g %g lineto %g 0 lineto closepath clip newpath\n",
(double)ysize, (double)xsize, (double)ysize, (double)xsize );
fprintf(psfile,"1 setlinejoin 1 setlinecap\n");
fprintf(psfile,"/%s findfont %i scalefont setfont\n",PSFONT,fontheight); /* prepare the font */
fprintf(psfile,"gsave 0 0 moveto (10ALIZgjy) true charpath pathbbox grestore /ascent exch def pop -1 mul /descent exch def pop\n"); /* estimate ascent and descent of font */
fprintf(psfile,"gsave\n"); /* this gsave will be grestore'd by the first SetClipRectangle call */
needstroke=0;
needmoveto=0;
xcprev=NULL;
drawfn(0);
#if 0
fprintf(psfile,"save 0 setgray 10 %i moveto 1 -1 scale (Antenna: %s) show restore\n",
fontheight,inputfilename);
if (gainplot!=GPnone) {
fprintf(psfile,"save 0 setgray 10 %i moveto 1 -1 scale (Scale: %s%s%s) show restore\n",
2*fontheight,
GSnames[gainscale],
scaleplot ? ", " : "",
scaleplot ? GSnumbers[gainscale] : "");
}
#endif
if (needstroke) fprintf(psfile,"stroke\n");
fprintf(psfile,"grestore\n");
fprintf(psfile,"end\n"); /* end use of local dictionary */
fprintf(psfile,"showpage\n");
out=oldout;
return ferror(psfile) | fclose(psfile);
}
|
