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
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
|
// Copyright (C) 1999-2016
// Smithsonian Astrophysical Observatory, Cambridge, MA, USA
// For conditions of distribution and use, see copyright notice in "copyright"
#include <tk.h>
#include "basefill.h"
// BaseFill
BaseFill::BaseFill(const BaseFill& a)
{
fill_ = a.fill_;
}
BaseFill::BaseFill()
{
fill_ =0;
}
BaseFill::BaseFill(int ff)
{
fill_ =ff;
}
// BaseFillEllipse
BaseFillEllipse::BaseFillEllipse(const BaseFillEllipse& a) : BaseFill(a) {}
BaseFillEllipse::BaseFillEllipse() : BaseFill() {}
BaseFillEllipse::BaseFillEllipse(int ff) : BaseFill(ff) {}
void BaseFillEllipse::renderXCircleDraw(Display* display, Drawable drawable,
GC lgc,
Vector& st, Vector& size,
int a1, int aa)
{
if (fill_)
XFillArc(display, drawable, lgc, st[0], st[1], size[0], size[1], a1, aa);
else
XDrawArc(display, drawable, lgc, st[0], st[1], size[0], size[1], a1, aa);
}
void BaseFillEllipse::renderXEllipseDraw(Display* display, Drawable drawable,
GC lgc,
XPoint* pts, int cnt)
{
if (fill_)
XFillPolygon(display, drawable, lgc, pts, cnt, Convex, CoordModeOrigin);
else
XDrawLines(display, drawable, lgc, pts, cnt, CoordModeOrigin);
}
void BaseFillEllipse::renderPSCircleDraw(Base* parent,
Vector& cc, double l,
float a1, float a2)
{
ostringstream str;
str << "newpath "
<< cc.TkCanvasPs(parent->getCanvas()) << ' '
<< l << ' '
<< a1 << ' ' << a2 << ' '
<< "arc ";
if (fill_)
str << "fill";
else
str << "stroke";
str << endl << ends;
Tcl_AppendResult(parent->interp, str.str().c_str(), NULL);
}
void BaseFillEllipse::renderPSEllipseArcDraw(Base* parent, Vector& center,
Vector& tt0, Vector& xx1,
Vector& xx2, Vector& tt1)
{
ostringstream str;
if (fill_) {
Vector cc = parent->mapFromRef(center,Coord::CANVAS);
str << "newpath "
<< tt0.TkCanvasPs(parent->getCanvas()) << ' '
<< "moveto "
<< xx1.TkCanvasPs(parent->getCanvas()) << ' '
<< xx2.TkCanvasPs(parent->getCanvas()) << ' '
<< tt1.TkCanvasPs(parent->getCanvas()) << ' '
<< "curveto fill" << endl
<< "newpath "
<< cc.TkCanvasPs(parent->getCanvas()) << ' '
<< "moveto "
<< tt0.TkCanvasPs(parent->getCanvas()) << ' '
<< "lineto "
<< tt1.TkCanvasPs(parent->getCanvas()) << ' '
<< "lineto closepath gsave" << endl
<< "1 setlinejoin .75 setlinewidth stroke" << endl
<< "grestore fill" << endl << ends;
}
else
str << "newpath "
<< tt0.TkCanvasPs(parent->getCanvas()) << ' '
<< "moveto "
<< xx1.TkCanvasPs(parent->getCanvas()) << ' '
<< xx2.TkCanvasPs(parent->getCanvas()) << ' '
<< tt1.TkCanvasPs(parent->getCanvas()) << ' '
<< "curveto stroke" << endl << ends;
Tcl_AppendResult(parent->interp, str.str().c_str(), NULL);
}
|
