luke
/
xschem
mirror of https://github.com/StefanSchippers/xschem.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

eps export

This commit is contained in:
stefan schippers 2023-12-12 01:14:40 +01:00
parent 441e27e8ca
commit ed477b90a5
9 changed files with 73 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
doc/xschem_man/developer_info.html
View File

@ -545,7 +545,6 @@ C {verilog_timescale.sym} 1050 -100 0 0 {name=s1 timestep="1ns" precision="1ns"
<li><kbd> abort_operation</kbd></li><pre>
@ -1055,6 +1054,7 @@ C {verilog_timescale.sym} 1050 -100 0 0 {name=s1 timestep="1ns" precision="1ns"
xschem print png file.png [400 300] [ -300 -200 300 200 ]
xschem print svg file.svg [400 300] [ -300 -200 300 200 ]
xschem print ps file.ps [400 300] [ -300 -200 300 200 ]
xschem print eps file.eps [400 300] [ -300 -200 300 200 ]
xschem print pdf file.pdf [400 300] [ -300 -200 300 200 ]
xschem print ps_full file.ps
xschem print pdf_full file.pdf</pre>
@ -1465,6 +1465,8 @@ C {verilog_timescale.sym} 1050 -100 0 0 {name=s1 timestep="1ns" precision="1ns"

13
src/callback.c
View File

@ -1568,18 +1568,21 @@ int rstate; /* (reduced state, without ShiftMask) */
draw();
break;
}
if(key == '+' && state&ControlMask) /* change line width */
if(key == '+' && state & ControlMask) /* change line width */
{
xctx->lw+=0.1;
xctx->lw = round_to_n_digits(xctx->lw + 0.5, 2);
change_linewidth(xctx->lw);
tclsetboolvar("change_lw", 0);
draw();
break;
}
if(key == '-' && state&ControlMask) /* change line width */
if(key == '-' && state & ControlMask) /* change line width */
{
xctx->lw-=0.1;if(xctx->lw<0.0) xctx->lw=0.0;
xctx->lw = round_to_n_digits(xctx->lw - 0.5, 2);
if(xctx->lw < 0.0) xctx->lw = 0.0;
change_linewidth(xctx->lw);
tclsetboolvar("change_lw", 0);
draw();
break;
}
@ -2186,7 +2189,7 @@ int rstate; /* (reduced state, without ShiftMask) */
if(key=='*' && rstate == 0 ) /* postscript print */
{
if(xctx->semaphore >= 2) break;
ps_draw(7, 0);
ps_draw(7, 0, 0);
break;
}
if(key=='*' && rstate == ControlMask) /* xpm print */

2
src/draw.c
View File

@ -149,7 +149,7 @@ void print_image()
} else tcleval( "convert_to_png plot.xpm plot.png");
#else
char *psfile = NULL;
create_ps(&psfile, 7, 0);
create_ps(&psfile, 7, 0, 0);
if (xctx->plotfile[0]) {
my_snprintf(cmd, S(cmd), "convert_to_png {%s} {%s}", psfile, xctx->plotfile);
tcleval(cmd);

46
src/psprint.c
View File

@ -977,7 +977,7 @@ static void fill_ps_colors()
* 1: Do a full zoom before generating ps/pdf
* 2: set paper size to bounding box instead of a4/letter
*/
void create_ps(char **psfile, int what, int fullzoom)
void create_ps(char **psfile, int what, int fullzoom, int eps)
{
double dx, dy, scale, scaley;
int landscape=1;
@ -1079,22 +1079,49 @@ void create_ps(char **psfile, int what, int fullzoom)
pagey = tmp;
}
if(fullzoom == 2) { /* set media size to bbox */
double sc;
my_strncpy(papername, "bbox", S(papername));
pagex = xctx->xrect[0].width;
pagey = xctx->xrect[0].height;
if(pagex > pagey) {
sc = 842. / pagex;
pagex = my_round(pagex * sc);
pagey = my_round(pagey * sc);
} else {
sc = 842. / pagey;
pagex = my_round(pagex * sc);
pagey = my_round(pagey * sc);
}
margin = 0.0;
}
if(what & 1) {/* prolog */
dbg(1, "ps_draw(): bbox: x1=%g y1=%g x2=%g y2=%g\n", boundbox.x1, boundbox.y1, boundbox.x2, boundbox.y2);
fprintf(fd, "%%!PS-Adobe-3.0\n");
if(!eps) {
fprintf(fd, "%%!PS-Adobe-3.0\n");
} else {
fprintf(fd, "%%!PS-Adobe-2.0 EPSF-2.0\n");
fprintf(fd, "%%%%BoundingBox: 0 0 %g %g\n", pagex, pagey);
}
/* fprintf(fd, "%%%%DocumentMedia: %s %g %g 80 () ()\n", landscape ? "a4land" : "a4", pagex, pagey); */
fprintf(fd, "%%%%DocumentMedia: %s %g %g 80 () ()\n", papername, pagex, pagey);
fprintf(fd, "%%%%PageOrientation: %s\n", landscape ? "Landscape" : "Portrait");
fprintf(fd, "%%%%Title: xschem plot\n");
fprintf(fd, "%%%%Creator: xschem\n");
fprintf(fd, "%%%%Pages: (atend)\n");
if(!eps) fprintf(fd, "%%%%Pages: (atend)\n");
fprintf(fd, "%%%%EndComments\n");
if(eps) {
fprintf(fd, "%%%%BeginProlog\n");
fprintf(fd, "save\n");
fprintf(fd, "countdictstack\n");
fprintf(fd, "mark\n");
fprintf(fd, "newpath\n");
fprintf(fd, "/showpage {} def\n");
fprintf(fd, "/setpagedevice {pop} def\n");
fprintf(fd, "%%%%EndProlog\n");
fprintf(fd, "%%%%Page 1 1\n");
}
fprintf(fd, "%%%%BeginProlog\n\n");
for(i = 0; i < sizeof(utf8_enc)/sizeof(char *); ++i) {
@ -1289,6 +1316,13 @@ void create_ps(char **psfile, int what, int fullzoom)
if(what & 4) { /* trailer */
fprintf(fd, "%%%%trailer\n");
fprintf(fd, "%%%%Pages: %d\n", numpages);
if(eps) {
fprintf(fd, "%%%%Trailer\n");
fprintf(fd, "cleartomark\n");
fprintf(fd, "countdictstack\n");
fprintf(fd, "exch sub { end } repeat\n");
fprintf(fd, "restore\n");
}
fprintf(fd, "%%%%EOF\n");
fclose(fd);
}
@ -1303,7 +1337,7 @@ void create_ps(char **psfile, int what, int fullzoom)
}
int ps_draw(int what, int fullzoom)
int ps_draw(int what, int fullzoom, int eps)
{
char tmp[2*PATH_MAX+40];
static char lastdir[PATH_MAX] = "";
@ -1316,7 +1350,7 @@ int ps_draw(int what, int fullzoom)
/* tclvareval("tk_getSaveFile -title {Select destination file} -initialfile {",
* get_cell(xctx->sch[xctx->currsch], 0) , ".pdf} -initialdir {", lastdir, "}", NULL); */
tclvareval("save_file_dialog {Select destination file} *.{ps,pdf} INITIALLOADDIR {", pwd_dir, "/",
get_cell(xctx->sch[xctx->currsch], 0), ".pdf}", NULL);
get_cell(xctx->sch[xctx->currsch], 0), eps ? ".eps}": ".pdf}", NULL);
r = tclresult();
if(r[0]) {
my_strncpy(xctx->plotfile, r, S(xctx->plotfile));
@ -1326,7 +1360,7 @@ int ps_draw(int what, int fullzoom)
else return 0;
}
}
create_ps(&psfile, what, fullzoom);
create_ps(&psfile, what, fullzoom, eps);
if(what & 4) { /* trailer */
if(xctx->plotfile[0]) {
my_snprintf(tmp, S(tmp), "convert_to_pdf {%s} {%s}", psfile, xctx->plotfile);

19
src/scheduler.c
View File

@ -3050,6 +3050,7 @@ int xschem(ClientData clientdata, Tcl_Interp *interp, int argc, const char * arg
* xschem print png file.png [400 300] [ -300 -200 300 200 ]
* xschem print svg file.svg [400 300] [ -300 -200 300 200 ]
* xschem print ps file.ps [400 300] [ -300 -200 300 200 ]
* xschem print eps file.eps [400 300] [ -300 -200 300 200 ]
* xschem print pdf file.pdf [400 300] [ -300 -200 300 200 ]
* xschem print ps_full file.ps
* xschem print pdf_full file.pdf
@ -3066,12 +3067,18 @@ int xschem(ClientData clientdata, Tcl_Interp *interp, int argc, const char * arg
tclvareval("file normalize {", argv[3], "}", NULL);
my_strncpy(xctx->plotfile, Tcl_GetStringResult(interp), S(xctx->plotfile));
}
if(!strcmp(argv[2], "pdf") || !strcmp(argv[2],"ps")) {
if(!strcmp(argv[2], "pdf") || !strcmp(argv[2],"ps") || !strcmp(argv[2],"eps")) {
double save_lw = xctx->lw;
int fullzoom = 0;
int w = 0, h = 0;
int eps = 0;
double x1, y1, x2, y2;
if(argc == 6 && xctx->lastsel == 0) {
if(!strcmp(argv[2],"eps")) eps = 1;
if(eps && xctx->lastsel == 0) {
if(has_x) tcleval("alert_ {EPS export works only on a selection} {}");
else dbg(0, "EPS export works only on a selection\n");
} else if(argc == 6 && xctx->lastsel == 0 && eps == 0) {
fullzoom = 2;
w = atoi(argv[4]);
h = atoi(argv[5]);
@ -3081,7 +3088,7 @@ int xschem(ClientData clientdata, Tcl_Interp *interp, int argc, const char * arg
set_viewport_size(w, h, xctx->lw);
zoom_full(0, 0, 2 * tclgetboolvar("zoom_full_center"), 0.97);
resetwin(1, 1, 1, w, h);
ps_draw(7, fullzoom);
ps_draw(7, fullzoom, eps);
save_restore_zoom(0, &zi);
resetwin(1, 1, 1, 0, 0);
change_linewidth(save_lw);
@ -3111,18 +3118,18 @@ int xschem(ClientData clientdata, Tcl_Interp *interp, int argc, const char * arg
set_viewport_size(w, h, xctx->lw);
zoom_box(x1, y1, x2, y2, 1.0);
resetwin(1, 1, 1, w, h);
ps_draw(7, fullzoom);
ps_draw(7, fullzoom, eps);
save_restore_zoom(0, &zi);
resetwin(1, 1, 1, 0, 0);
change_linewidth(save_lw);
} else {
fullzoom = 0;
ps_draw(7, fullzoom);
ps_draw(7, fullzoom, eps);
}
}
else if(!strcmp(argv[2], "pdf_full") || !strcmp(argv[2],"ps_full")) {
int fullzoom = 1;
ps_draw(7, fullzoom);
ps_draw(7, fullzoom, 0);
}
else if(!strcmp(argv[2], "png")) {
double save_lw = xctx->lw;

8
src/spice_netlist.c
View File

@ -55,11 +55,11 @@ void hier_psprint(char **res, int what) /* netlister driver */
save = xctx->do_copy_area;
xctx->do_copy_area = 0;
if((what & 1) && !ps_draw(1, 1)) return; /* prolog */
if((what & 1) && !ps_draw(1, 1, 0)) return; /* prolog */
xctx->push_undo();
str_hash_init(&subckt_table, HASHSIZE);
zoom_full(0, 0, 1 + 2 * tclgetboolvar("zoom_full_center"), 0.97);
if(what & 1) ps_draw(2, 1); /* page */
if(what & 1) ps_draw(2, 1, 0); /* page */
if(what & 2) { /* print cellname */
my_strcat(_ALLOC_ID_, res, hier_psprint_mtime(xctx->sch[xctx->currsch]));
my_strcat(_ALLOC_ID_, res, " {");
@ -108,7 +108,7 @@ void hier_psprint(char **res, int what) /* netlister driver */
load_schematic(1,filename, 0, 1);
get_additional_symbols(1);
zoom_full(0, 0, 1 + 2 * tclgetboolvar("zoom_full_center"), 0.97);
if(what & 1) ps_draw(2, 1); /* page */
if(what & 1) ps_draw(2, 1, 0); /* page */
if(what & 2) { /* print cellname */
my_strcat(_ALLOC_ID_, res, hier_psprint_mtime(xctx->sch[xctx->currsch]));
my_strcat(_ALLOC_ID_, res, " {");
@ -133,7 +133,7 @@ void hier_psprint(char **res, int what) /* netlister driver */
xctx->prev_set_modify = save_prev_mod;
my_strncpy(xctx->current_name, rel_sym_path(xctx->sch[xctx->currsch]), S(xctx->current_name));
xctx->do_copy_area = save;
if(what & 1) ps_draw(4, 1); /* trailer */
if(what & 1) ps_draw(4, 1, 0); /* trailer */
zoom_full(0, 0, 1 + 2 * tclgetboolvar("zoom_full_center"), 0.97);
draw();
}

2
src/xinit.c
View File

@ -2843,7 +2843,7 @@ int Tcl_AppInit(Tcl_Interp *inter)
xctx->areaw = xctx->areax2-xctx->areax1;
xctx->areah = xctx->areay2-xctx->areay1;
zoom_full(0, 0, 2 * tclgetboolvar("zoom_full_center"), 0.97);
ps_draw(7, 0);
ps_draw(7, 0, 0);
} else if(cli_opt_do_print == 2) {
if(!has_x) {
dbg(0, "xschem: can not do a png export if no X11 present / Xserver running (check if DISPLAY set).\n");

4
src/xschem.h
View File

@ -1281,7 +1281,7 @@ extern Hilight_hashentry *hilight_lookup(const char *token, int value, int what)
extern int search(const char *tok, const char *val, int sub, int sel, int match_case);
extern int process_options(int argc, char **argv);
extern void calc_drawing_bbox(xRect *boundbox, int selected);
extern int ps_draw(int what, int fullzoom);
extern int ps_draw(int what, int fullzoom, int eps);
extern void svg_draw(void);
extern void svg_embedded_graph(FILE *fd, xRect *r, double rx1, double ry1, double rx2, double ry2);
extern void set_viewport_size(int w, int h, double lw);
@ -1692,6 +1692,6 @@ extern int pending_events(void);
extern void get_square(double x, double y, int *xx, int *yy);
extern const char *create_tmpdir(char *prefix);
extern FILE *open_tmpfile(char *prefix, char **filename);
extern void create_ps(char** psfile, int what, int fullzoom);
extern void create_ps(char** psfile, int what, int fullzoom, int eps);
extern void MyXCopyArea(Display* display, Drawable src, Drawable dest, GC gc, int src_x, int src_y, unsigned int width, unsigned int height, int dest_x, int dest_y);
#endif /*CADGLOBALS */

1
src/xschem.tcl
View File

@ -6917,6 +6917,7 @@ proc build_widgets { {topwin {} } } {
# added svg, png 20171022
$topwin.menubar.file.menu add cascade -label "Image export" -menu $topwin.menubar.file.menu.im_exp
menu $topwin.menubar.file.menu.im_exp -tearoff 0
$topwin.menubar.file.menu.im_exp add command -label "EPS Selection Export" -command "xschem print eps"
$topwin.menubar.file.menu.im_exp add command -label "PDF/PS Export" -command "xschem print pdf" -accelerator {*}
$topwin.menubar.file.menu.im_exp add command -label "PDF/PS Export Full" -command "xschem print pdf_full"
$topwin.menubar.file.menu.im_exp add command -label "Hierarchical PDF/PS Export" -command "xschem hier_psprint"