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
76
77
78
79
80
81
82
83
84
85
86
87
|
/* This file contains the translate, rotate and scale methods, which are
GNU extensions to libplot. They affect the affine transformation from
user coordinates to device coordinates, as in Postscript. */
#include "sys-defines.h"
#include "extern.h"
int
#ifdef _HAVE_PROTOS
_API_ftranslate (R___(Plotter *_plotter) double x, double y)
#else
_API_ftranslate (R___(_plotter) x, y)
S___(Plotter *_plotter;)
double x, y;
#endif
{
double m0, m1, m2, m3, m4, m5;
if (!_plotter->data->open)
{
_plotter->error (R___(_plotter)
"ftranslate: invalid operation");
return -1;
}
m0 = m3 = 1.0;
m1 = m2 = 0.0;
m4 = x;
m5 = y;
_API_fconcat (R___(_plotter) m0, m1, m2, m3, m4, m5);
return 0;
}
int
#ifdef _HAVE_PROTOS
_API_frotate (R___(Plotter *_plotter) double theta)
#else
_API_frotate (R___(_plotter) theta)
S___(Plotter *_plotter;)
double theta;
#endif
{
double m0, m1, m2, m3, m4, m5;
double radians = M_PI * theta / 180.0;
if (!_plotter->data->open)
{
_plotter->error (R___(_plotter)
"frotate: invalid operation");
return -1;
}
m0 = m3 = cos (radians);
m1 = sin (radians);
m2 = - sin (radians);
m4 = m5 = 0.0;
_API_fconcat (R___(_plotter) m0, m1, m2, m3, m4, m5);
return 0;
}
int
#ifdef _HAVE_PROTOS
_API_fscale (R___(Plotter *_plotter) double x, double y)
#else
_API_fscale (R___(_plotter) x, y)
S___(Plotter *_plotter;)
double x, y;
#endif
{
double m0, m1, m2, m3, m4, m5;
if (!_plotter->data->open)
{
_plotter->error (R___(_plotter)
"fscale: invalid operation");
return -1;
}
m0 = x;
m3 = y;
m1 = m2 = m4 = m5 = 0.0;
_API_fconcat (R___(_plotter) m0, m1, m2, m3, m4, m5);
return 0;
}
|
