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
|
/* This file contains the savestate method, which is a GNU extension to
libplot. It creates a new drawing state and pushes it onto the stack of
drawing states. By definition, a `drawing state' comprises the set of
drawing attributes, and the state of any polyline being incrementally
drawn.
The new state will have the same drawing attributes as the old state.
If a polyline was being drawn incrementally in the old state, the new
state will not contain it. The old state may be returned to by invoking
the restorestate method, which pops drawing states off the stack. If
the incremental drawing of a polyline was in progress, it may be
returned to at that time. */
/* Note that this version, which is appropriate for XPlotters, constructs
an X gc (i.e. graphics context) for the new drawing state. */
#include "sys-defines.h"
#include "plot.h"
#include "extern.h"
int
#ifdef _HAVE_PROTOS
_x_savestate(void)
#else
_x_savestate()
#endif
{
unsigned long gcmask;
XGCValues gcv;
Drawable drawable;
if (!_plotter->open)
{
_plotter->error ("savestate: invalid operation");
return -1;
}
/* invoke generic method: push new drawing state onto stack, a copy
of the current one, or of the default one if stack is empty */
_g_savestate();
/* determine which if either drawable we'll construct the GC for */
if (_plotter->drawable1)
drawable = _plotter->drawable1;
else if (_plotter->drawable2)
drawable = _plotter->drawable2;
else
drawable = (Drawable)NULL;
if (drawable != (Drawable)NULL)
/* prepare GC for new drawing state, focusing on attributes we use */
{
if (_plotter->drawstate->previous)
/* there was a previous drawing state, can copy contents of old GC */
{
gcmask = GCForeground | GCBackground
| GCPlaneMask | GCFunction | GCArcMode
| GCLineStyle | GCLineWidth | GCJoinStyle | GCCapStyle | GCFont;
XGetGCValues (_plotter->dpy, _plotter->drawstate->previous->gc,
gcmask, &gcv);
_plotter->drawstate->gc = XCreateGC (_plotter->dpy, drawable,
gcmask, &gcv);
}
else
/* stack must have been empty, must build new GC from scratch */
{
gcmask = GCForeground | GCBackground
| GCPlaneMask | GCFunction | GCArcMode;
/* set foreground, background colors (det'd in openpl.c) */
gcv.background = _plotter->default_drawstate->x_bgcolor;
gcv.foreground = _plotter->default_drawstate->x_fgcolor;
gcv.plane_mask = AllPlanes;
gcv.function = GXcopy;
gcv.arc_mode = ArcChord; /* libplot convention */
_plotter->drawstate->gc =
XCreateGC (_plotter->dpy, drawable, gcmask, &gcv);
/* We no longer retrieve a default font from the X server here. */
/* space(), when invoked (which we require after invoking
openpl()), will do this. */
/* _plotter->retrieve_font(); */
}
}
_handle_x_events();
return 0;
}
|
