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
|
/* This file contains the ellarc method, which is a GNU extension to
libplot. It draws an object: a counterclockwise elliptical arc with the
center at xc,yc, the beginning at x0,y0 and the ending at x1,y1. */
#include "sys-defines.h"
#include "plot.h"
#include "extern.h"
int
#ifdef _HAVE_PROTOS
_m_ellarc (int xc, int yc, int x0, int y0, int x1, int y1)
#else
_m_ellarc (xc, yc, x0, y0, x1, y1)
int xc, yc, x0, y0, x1, y1;
#endif
{
if (!_plotter->open)
{
_plotter->error ("ellarc: invalid operation");
return -1;
}
if (_plotter->outstream)
{
if (_plotter->portable_output)
fprintf (_plotter->outstream, "%c %d %d %d %d %d %d\n",
ELLARC, xc, yc, x0, y0, x1, y1);
else
{
putc (ELLARC, _plotter->outstream);
_emit_integer (xc);
_emit_integer (yc);
_emit_integer (x0);
_emit_integer (y0);
_emit_integer (x1);
_emit_integer (y1);
}
}
return 0;
}
int
#ifdef _HAVE_PROTOS
_m_fellarc (double xc, double yc, double x0, double y0, double x1, double y1)
#else
_m_fellarc (xc, yc, x0, y0, x1, y1)
double xc, yc, x0, y0, x1, y1;
#endif
{
if (!_plotter->open)
{
_plotter->error ("fellarc: invalid operation");
return -1;
}
if (_plotter->outstream)
{
if (_plotter->portable_output)
fprintf (_plotter->outstream, "%c %g %g %g %g %g %g\n",
ELLARC, xc, yc, x0, y0, x1, y1);
else
{
putc (FELLARC, _plotter->outstream);
_emit_float (xc);
_emit_float (yc);
_emit_float (x0);
_emit_float (y0);
_emit_float (x1);
_emit_float (y1);
}
}
return 0;
}
|
