Function psscale_plot_cycle

src/psscale.c:685–717

}

GMT_LOCAL void psscale_plot_cycle (struct GMT_CTRL *GMT, double x, double y, double width) {
	/* Use the color of MAP_FRAME_PEN to draw the symbol stem and head fill.
	 * Use the symbol width to estimate pen width as 0.5p times (width/0.05) [in inches]  */
	double vdim[PSL_MAX_DIMS], s = width / 0.05, p_width, circum;
	struct GMT_SYMBOL S;
	struct GMT_FILL head;
	struct GMT_PEN pen;
	gmt_init_pen (GMT, &pen, 0.5);	/* Sets pen to 0.5p */
	gmt_M_memcpy (pen.rgb, GMT->current.setting.map_frame_pen.rgb, 4U, double);
	gmt_init_fill (GMT, &head, pen.rgb[0], pen.rgb[1], pen.rgb[2]);	/* Default fill for points, if needed */
	gmt_init_vector_param (GMT, &S, false, false, NULL, false, NULL);	/* Update vector head parameters */
	gmt_M_memset (vdim, PSL_MAX_DIMS, double);
	circum = 2.0 * M_PI * width;	/* Circumference of symbol in inches */
	p_width = (float)(s * pen.width * GMT->session.u2u[GMT_PT][GMT_INCH]);
	pen.width = p_width * GMT->session.u2u[GMT_INCH][GMT_PT];
	vdim[PSL_MATHARC_RADIUS] = width;	/* Circular symbol radius is 0.45 of bar width */
	vdim[PSL_MATHARC_ANGLE_BEGIN] = 50.0;	/* Angular start and stop for one arrow */
	vdim[PSL_MATHARC_ANGLE_END]   = 210.0;
	vdim[PSL_MATHARC_HEAD_LENGTH] = circum / 6.0;	/* Head-length is 1/6 of circumference */
	vdim[PSL_MATHARC_HEAD_WIDTH] = vdim[PSL_MATHARC_HEAD_LENGTH] * tand (25.0);	/* Head width assumes 25 degree apex */
	vdim[PSL_MATHARC_ARC_PENWIDTH] = p_width;	/* Passing in pen width */
	vdim[PSL_MATHARC_HEAD_SHAPE] = 0.75;		/* Vector shape */
	vdim[PSL_MATHARC_STATUS] = (double)(PSL_VEC_END|PSL_VEC_FILL);
	vdim[PSL_MATHARC_HEAD_TYPE_END] = (double)PSL_VEC_ARROW;
	gmt_setfill (GMT, &head, 0);
	gmt_setpen (GMT, &pen);
	PSL_defpen (GMT->PSL, "PSL_vecheadpen", 0.0, "", 0, head.rgb);
	x += 0.15 * vdim[3];	/* Shift center to account for the width of the circular arrow */
	PSL_plotsymbol (GMT->PSL, x, y, vdim, PSL_MARC);
	vdim[PSL_MATHARC_ANGLE_BEGIN] = 230.0;	/* Angular start and stop for the other circular arrow */
	vdim[PSL_MATHARC_ANGLE_END]   = 390.0;
	PSL_plotsymbol (GMT->PSL, x, y, vdim, PSL_MARC);
}

GMT_LOCAL unsigned int psscale_cpt_transparency (struct GMT_CTRL *GMT, struct GMT_PALETTE *P) {
	/* Determine the status of transparency in the CPT: