| 3674 | } |
| 3675 | |
| 3676 | int PSL_plotarc (struct PSL_CTRL *PSL, double x, double y, double radius, double az1, double az2, int type) { |
| 3677 | /* Plot an arc with radius running in azimuth from az1 to az2. |
| 3678 | * Type is a combination of the following: |
| 3679 | * PSL_DRAW (0) : Draw a line segment |
| 3680 | * PSL_MOVE (1) : Move to the new anchor point (x,y) first |
| 3681 | * PSL_STROKE (2) : Stroke the line |
| 3682 | */ |
| 3683 | int ir; |
| 3684 | |
| 3685 | if (fabs (az1 - az2) > 360.0) return (PSL_BAD_RANGE); |
| 3686 | if (radius < 0.0) return (PSL_BAD_SIZE); |
| 3687 | ir = psl_iz (PSL, radius); |
| 3688 | if (type & PSL_MOVE) PSL_command (PSL, "N "); |
| 3689 | PSL_command (PSL, "%d %d %d %.12g %.12g arc", psl_ix(PSL, x), psl_iy(PSL, y), ir, az1, az2); |
| 3690 | if (az1 > az2) PSL_command(PSL, "n"); |
| 3691 | PSL_command (PSL, (type & PSL_STROKE) ? " S\n" : "\n"); |
| 3692 | return (PSL_NO_ERROR); |
| 3693 | } |
| 3694 | |
| 3695 | int PSL_plotaxis (struct PSL_CTRL *PSL, double annotation_int, char *label, double annotfontsize, int side) { |
| 3696 | /* Expects PSL_beginaxes to have been called first */ |
no test coverage detected