Function gmtplot_draw_eps_symbol

src/gmt_plot.c:7497–7521

}

GMT_LOCAL void gmtplot_draw_eps_symbol (struct GMT_CTRL *GMT, double x0, double y0, double size[], struct GMT_CUSTOM_SYMBOL_ITEM *symbol) {
	/* Special Encapsulated PostScript-only symbol */
	struct GMT_CUSTOM_SYMBOL_EPS *E = symbol->eps;	/* SHorthand */
	double off = 0.5*size[0], fy = (E->BB[3] - E->BB[2]) / (E->BB[1] - E->BB[0]);
	struct PSL_CTRL *PSL= GMT->PSL;
	if (!E->placed) {	/* First time we must dump the PS code definition */
		double scl = 72.0 / (E->BB[1] - E->BB[0]);
		PSL_comment (PSL, "Start of symbol %s\n", E->name);
		PSL_command (PSL, "/Sk_%s {\nPSL_eps_begin\n", E->name);
		/* We use the symbol's bounding box and scale its width to 1 inch since PSL uses inches */
		PSL_command (PSL, "%.8f dup scale\n", scl);
		if (!E->GMT_made)	/* Non-GMT-produced EPS macro - must scale points to GMT's unit */
			PSL_command (PSL, "1200 72 div dup scale\n");
		PSL_command (PSL, "%%%%BeginDocument: %s.eps\n", E->name);
		PSL_copy (PSL, E->macro);	/* Since it may be quite large */
		PSL_command (PSL, "%%%%EndDocument\n");
		PSL_command (PSL, "PSL_eps_end } def\n");
		PSL_comment (PSL, "End of symbol %s\n", E->name);
		E->placed = true;	/* Flag now says we have dumped the EPS code */
	}
	PSL_command (PSL, "V ");
	PSL_setorigin (PSL, x0-off, y0-fy*off, 0.0, PSL_FWD);
	PSL_command (PSL, "%.12g dup scale ", size[0]);
	PSL_command (PSL, "Sk_%s U\n", E->name);
}

GMT_LOCAL bool gmtplot_is_azimuth (struct GMT_CUSTOM_SYMBOL *symbol, struct GMT_CUSTOM_SYMBOL_ITEM *s, unsigned int var_no) {
	/* We either know a particular column has variable azimuths or we were given a constant angle flagged by a trailing 'a' */