annotate pkg-src/tree-x/dbl.c @ 169:15872534500d r20-3b11

Import from CVS: tag r20-3b11
author cvs
date Mon, 13 Aug 2007 09:46:53 +0200
parents 85ec50267440
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
163
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
1 /* ----------------------------------------------------------------------------
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
2 * Double buffering code
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
3 * ----------------------------------------------------------------------------
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
4 */
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
5
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
6
167
85ec50267440 Import from CVS: tag r20-3b10
cvs
parents: 163
diff changeset
7 #include <stdlib.h>
163
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
8 #include "dbl.h"
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
9
167
85ec50267440 Import from CVS: tag r20-3b10
cvs
parents: 163
diff changeset
10 struct {
85ec50267440 Import from CVS: tag r20-3b10
cvs
parents: 163
diff changeset
11 unsigned short red;
163
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
12 unsigned short green;
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
13 unsigned short blue;
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
14 } color[] = {
167
85ec50267440 Import from CVS: tag r20-3b10
cvs
parents: 163
diff changeset
15 { 65280, 65280, 65280 }, /* white */
163
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
16 { 0, 0, 65280 }, /* blue */
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
17 { 0, 65280, 0 }, /* green */
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
18 { 65280, 0, 0 }, /* red */
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
19 { 42240, 10752, 10752 }, /* brown */
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
20 { 65280, 32512, 0 }, /* orange */
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
21 { 32512, 32512, 32512 }, /* gray */
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
22 { 0, 0, 0 } /* black */
167
85ec50267440 Import from CVS: tag r20-3b10
cvs
parents: 163
diff changeset
23 };
163
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
24
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
25 /* ------------------------------------------------------------------------- */
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
26
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
27 DoubleBuffer *
167
85ec50267440 Import from CVS: tag r20-3b10
cvs
parents: 163
diff changeset
28 DBLcreate_double_buffer (Display *display,
85ec50267440 Import from CVS: tag r20-3b10
cvs
parents: 163
diff changeset
29 Window window,
85ec50267440 Import from CVS: tag r20-3b10
cvs
parents: 163
diff changeset
30 int backing_store,
85ec50267440 Import from CVS: tag r20-3b10
cvs
parents: 163
diff changeset
31 XColor *colors,
85ec50267440 Import from CVS: tag r20-3b10
cvs
parents: 163
diff changeset
32 int num_colors)
85ec50267440 Import from CVS: tag r20-3b10
cvs
parents: 163
diff changeset
33 {
169
15872534500d Import from CVS: tag r20-3b11
cvs
parents: 167
diff changeset
34 int i, j, k, l, offset, mask, size;
163
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
35 int max_planes;
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
36
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
37 char *string;
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
38 Surface *surface;
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
39 DoubleBuffer *db;
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
40 XGCValues xgcv;
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
41 unsigned long xgcvmask;
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
42
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
43 /* allocate the double buffer structure, and then open the display */
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
44
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
45 if ((db = (DoubleBuffer *)calloc(1, sizeof(DoubleBuffer))) == 0) {
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
46 printf("DBLopen_double_buffer : memory allocation error\n");
169
15872534500d Import from CVS: tag r20-3b11
cvs
parents: 167
diff changeset
47 return NULL;
167
85ec50267440 Import from CVS: tag r20-3b10
cvs
parents: 163
diff changeset
48 }
163
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
49
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
50 /* note the display */
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
51
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
52 db->display = display;
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
53
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
54 /* first some information about our display */
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
55
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
56 db->screen = DefaultScreenOfDisplay(db->display);
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
57 db->window = window;
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
58
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
59 /* now get some information on color resources */
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
60
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
61 db->visual = DefaultVisualOfScreen(db->screen);
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
62 db->depth = DefaultDepthOfScreen(db->screen);
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
63 db->colormap = DefaultColormapOfScreen(db->screen);
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
64
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
65 /* set up colors */
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
66
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
67 for (i = 0 ; i < num_colors; i++) {
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
68 color[i].red = colors[i].red;
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
69 color[i].green = colors[i].green;
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
70 color[i].blue = colors[i].blue;
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
71 }
167
85ec50267440 Import from CVS: tag r20-3b10
cvs
parents: 163
diff changeset
72
163
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
73 /* see if the user wanted to limit the number of planes used
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
74 then see how many are available, make it a multiple of 2 */
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
75
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
76 if ((string = getenv("DBL_MAX_PLANES")) == NULL)
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
77 max_planes = DBL_MAX_PLANES;
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
78 else {
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
79 max_planes = atoi(string);
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
80 }
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
81
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
82 if ((db->num_planes = PlanesOfScreen(db->screen)) > max_planes) {
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
83 db->num_planes = max_planes;
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
84 }
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
85
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
86 db->num_planes = (db->num_planes >> 1) << 1;
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
87
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
88
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
89 /* otherwise allocate contiguous planes to do double buffering */
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
90
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
91 while (db->num_planes >= DBL_MIN_PLANES) {
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
92 if (XAllocColorCells (db->display, db->colormap, 1, db->planes,
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
93 db->num_planes, db->pixels, 1)) {
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
94 break;
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
95 }
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
96
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
97 db->num_planes -= 2;
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
98 }
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
99
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
100 /* if we have at least minimum planes, then we can do double
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
101 buffering and we want to setup our surfaces and colormaps */
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
102
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
103 if (db->num_planes < DBL_MIN_PLANES)
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
104 db->num_surfaces = 0;
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
105 else {
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
106 db->num_colors = 1 << (db->num_planes >> 1);
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
107 db->num_surfaces = DBL_MAX_SURFACES;
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
108
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
109 /* if the number of colors is less than DBL_MAX_COLORS,
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
110 then we want to make sure black is the last color */
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
111
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
112 for (i = db->num_colors - 1; i < DBL_MAX_COLORS; i++) {
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
113 color[i].red = color[DBL_MAX_COLORS - 1].red;
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
114 color[i].green = color[DBL_MAX_COLORS - 1].green;
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
115 color[i].blue = color[DBL_MAX_COLORS - 1].blue;
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
116 }
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
117
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
118 /* we have a set of contiguous planes. compute a mask for
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
119 the planes, and figure out the offset in the hardware */
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
120
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
121 for (i = 0; i < db->num_planes; i++) {
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
122 db->mask |= db->planes[i];
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
123 }
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
124
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
125 mask = db->mask;
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
126 offset = 0;
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
127
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
128 while ((mask & 1) == 0) {
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
129 mask = mask >> 1;
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
130 offset = offset + 1;
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
131 }
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
132
167
85ec50267440 Import from CVS: tag r20-3b10
cvs
parents: 163
diff changeset
133 mask = (1 << (db->num_planes >> 1)) - 1;
163
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
134
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
135 /* now create the surfaces that will contain plane mask and
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
136 colormap information that we use to do double buffering */
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
137
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
138 for (i = 0; i < db->num_surfaces; i++) {
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
139 size = sizeof(Surface) + sizeof(XColor) * (1 << db->num_planes);
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
140
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
141 if ((surface = (Surface *)malloc(size)) != NULL)
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
142 db->surface[i] = surface;
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
143 else {
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
144 printf("DBLcreate_double_buffer : memory allocation error\n");
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
145 DBLdelete_double_buffer(db);
169
15872534500d Import from CVS: tag r20-3b11
cvs
parents: 167
diff changeset
146 return NULL;
163
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
147 }
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
148
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
149 surface->offset = offset + i * (db->num_planes >> 1);
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
150 surface->mask = mask << surface->offset;
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
151 surface->num_colors = 1 << db->num_planes;
167
85ec50267440 Import from CVS: tag r20-3b10
cvs
parents: 163
diff changeset
152
163
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
153 /* compute our pixel values by taking every permutation
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
154 of the pixel and planes returned by XAllocColorCells */
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
155
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
156 for (j = 0; j < (surface->num_colors); j++) {
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
157 surface->color[j].pixel = db->pixels[0];
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
158 }
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
159
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
160 for (j = 0; j < db->num_planes; j++) {
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
161 for (k = (1 << j); k < (surface->num_colors); k += (2 << j)) {
167
85ec50267440 Import from CVS: tag r20-3b10
cvs
parents: 163
diff changeset
162 for (l = k; l < (k + (1 << j)); l++) {
163
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
163 surface->color[l].pixel |= db->planes[j];
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
164 }
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
165 }
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
166 }
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
167
167
85ec50267440 Import from CVS: tag r20-3b10
cvs
parents: 163
diff changeset
168 /* now populate those pixels with the proper colors so
163
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
169 that we can do animation by banging in a new colormap */
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
170
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
171 for (j = 0; j < surface->num_colors; j++) {
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
172 k = (j & surface->mask) >> surface->offset;
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
173
167
85ec50267440 Import from CVS: tag r20-3b10
cvs
parents: 163
diff changeset
174 surface->color[j].red = color[k].red;
163
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
175 surface->color[j].green = color[k].green;
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
176 surface->color[j].blue = color[k].blue;
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
177
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
178 surface->color[j].flags = DoRed | DoGreen | DoBlue;
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
179 }
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
180 }
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
181
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
182 db->current_surface = 0;
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
183 }
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
184
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
185
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
186 /* now figure out what pixel values we will use to draw with
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
187 and store them in the double buffer structure */
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
188
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
189 if (db->num_surfaces == 0) {
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
190 db->num_colors = DBL_MAX_COLORS;
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
191 db->colors[0] = WhitePixelOfScreen(db->screen);
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
192
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
193 for (i = 1; i < db->num_colors; i++) {
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
194 db->colors[i] = BlackPixelOfScreen(db->screen);
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
195 }
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
196 }
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
197 else {
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
198 for (i = 0; i < db->num_colors; i++) {
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
199 j = (i << (db->num_planes >> 1)) + i;
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
200 db->colors[i] = db->surface[0]->color[j].pixel;
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
201 }
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
202 }
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
203
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
204 /* fill out the remaining colors with the last color */
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
205
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
206 for (; i < DBL_MAX_COLORS; i++) {
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
207 db->colors[i] = db->colors[db->num_colors - 1];
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
208 }
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
209
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
210 db->width = WidthOfScreen(db->screen);
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
211 db->height = HeightOfScreen(db->screen);
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
212
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
213 /* if there are no surfaces then we are doing animation with
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
214 a frame buffer, so create a pixmap as our frame buffer */
167
85ec50267440 Import from CVS: tag r20-3b10
cvs
parents: 163
diff changeset
215
163
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
216 if (db->num_surfaces > 0)
167
85ec50267440 Import from CVS: tag r20-3b10
cvs
parents: 163
diff changeset
217 db->drawable = db->window;
163
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
218 else {
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
219 db->frame = XCreatePixmap(db->display, db->window,
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
220 db->width, db->height, db->depth);
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
221 db->drawable = db->frame;
167
85ec50267440 Import from CVS: tag r20-3b10
cvs
parents: 163
diff changeset
222 }
163
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
223
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
224 /* if they have requested backing store, then create an extra
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
225 pixmap which we can use as backing store to handle exposures */
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
226
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
227 if (backing_store) {
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
228 db->backing = XCreatePixmap(db->display, db->window,
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
229 db->width, db->height, db->depth);
167
85ec50267440 Import from CVS: tag r20-3b10
cvs
parents: 163
diff changeset
230 }
163
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
231
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
232 /* use the 0 pixel from one of the surfaces for the background */
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
233
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
234 xgcv.background = DBLinq_background(db);
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
235 xgcv.line_style = LineSolid;
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
236 xgcv.line_width = 0;
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
237 xgcv.cap_style = CapButt;
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
238 xgcv.join_style = JoinRound;
167
85ec50267440 Import from CVS: tag r20-3b10
cvs
parents: 163
diff changeset
239 xgcvmask = GCBackground | GCLineStyle | GCLineWidth | GCCapStyle |
163
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
240 GCJoinStyle;
167
85ec50267440 Import from CVS: tag r20-3b10
cvs
parents: 163
diff changeset
241
163
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
242 db->gc = XCreateGC(db->display, db->drawable, xgcvmask, &xgcv);
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
243
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
244 /* do an initial frame to setup the colormap, and return */
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
245
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
246 DBLbegin_frame(db);
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
247 DBLend_frame(db, 1);
169
15872534500d Import from CVS: tag r20-3b11
cvs
parents: 167
diff changeset
248 return db;
163
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
249 }
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
250
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
251 /* ------------------------------------------------------------------------- */
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
252
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
253 void
167
85ec50267440 Import from CVS: tag r20-3b10
cvs
parents: 163
diff changeset
254 DBLdelete_double_buffer (DoubleBuffer *db)
163
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
255 {
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
256 int i;
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
257
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
258 /* remove and and all surfaces that are out there */
167
85ec50267440 Import from CVS: tag r20-3b10
cvs
parents: 163
diff changeset
259
163
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
260 for (i = 0; i < DBL_MAX_SURFACES; i++) {
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
261 if (db->surface[i] != 0) {
167
85ec50267440 Import from CVS: tag r20-3b10
cvs
parents: 163
diff changeset
262 free(db->surface[i]);
163
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
263 }
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
264 }
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
265
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
266 /* now clean up the various resources used for this double buffer */
167
85ec50267440 Import from CVS: tag r20-3b10
cvs
parents: 163
diff changeset
267
163
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
268 if (db->frame != 0) {
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
269 XFreePixmap(db->display, db->frame);
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
270 }
167
85ec50267440 Import from CVS: tag r20-3b10
cvs
parents: 163
diff changeset
271
163
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
272 if (db->backing != 0) {
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
273 XFreePixmap(db->display, db->backing);
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
274 }
167
85ec50267440 Import from CVS: tag r20-3b10
cvs
parents: 163
diff changeset
275
163
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
276 /* if we created our own private colormap, then free the colormap */
167
85ec50267440 Import from CVS: tag r20-3b10
cvs
parents: 163
diff changeset
277
163
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
278 if (db->colormap != DefaultColormapOfScreen(db->screen)) {
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
279 XFreeColormap(db->display, db->colormap);
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
280 }
167
85ec50267440 Import from CVS: tag r20-3b10
cvs
parents: 163
diff changeset
281
163
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
282 free (db);
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
283 }
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
284
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
285 /* ------------------------------------------------------------------------- */
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
286
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
287 unsigned long
167
85ec50267440 Import from CVS: tag r20-3b10
cvs
parents: 163
diff changeset
288 DBLinq_background(DoubleBuffer *db)
163
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
289 {
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
290 if (db->num_surfaces > 0)
169
15872534500d Import from CVS: tag r20-3b11
cvs
parents: 167
diff changeset
291 return db->surface[0]->color[0].pixel;
167
85ec50267440 Import from CVS: tag r20-3b10
cvs
parents: 163
diff changeset
292 else
169
15872534500d Import from CVS: tag r20-3b11
cvs
parents: 167
diff changeset
293 return WhitePixelOfScreen(db->screen);
163
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
294 }
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
295
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
296 /* ------------------------------------------------------------------------- */
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
297
167
85ec50267440 Import from CVS: tag r20-3b10
cvs
parents: 163
diff changeset
298 void
85ec50267440 Import from CVS: tag r20-3b10
cvs
parents: 163
diff changeset
299 DBLbegin_frame(DoubleBuffer *db)
163
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
300 {
167
85ec50267440 Import from CVS: tag r20-3b10
cvs
parents: 163
diff changeset
301 /* there will be at most two surfaces optimized with "&"*/
85ec50267440 Import from CVS: tag r20-3b10
cvs
parents: 163
diff changeset
302
85ec50267440 Import from CVS: tag r20-3b10
cvs
parents: 163
diff changeset
303 if (db->num_surfaces > 0) {
85ec50267440 Import from CVS: tag r20-3b10
cvs
parents: 163
diff changeset
304 db->current_surface = (db->current_surface + 1) & 1;
85ec50267440 Import from CVS: tag r20-3b10
cvs
parents: 163
diff changeset
305
85ec50267440 Import from CVS: tag r20-3b10
cvs
parents: 163
diff changeset
306 /* clear the back surface of the window which may actually be a pixmap */
85ec50267440 Import from CVS: tag r20-3b10
cvs
parents: 163
diff changeset
307
85ec50267440 Import from CVS: tag r20-3b10
cvs
parents: 163
diff changeset
308 XSetPlaneMask (db->display, db->gc, db->surface[db->current_surface]->mask);
163
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
309 }
167
85ec50267440 Import from CVS: tag r20-3b10
cvs
parents: 163
diff changeset
310
163
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
311 /* clear out the back surface or frame buffer as appropriate */
167
85ec50267440 Import from CVS: tag r20-3b10
cvs
parents: 163
diff changeset
312
163
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
313 XSetFunction(db->display, db->gc, GXclear);
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
314 XFillRectangle(db->display, db->drawable, db->gc,
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
315 0, 0, db->width, db->height);
167
85ec50267440 Import from CVS: tag r20-3b10
cvs
parents: 163
diff changeset
316
163
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
317 /* set writing mode back to copy */
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
318 XSetFunction (db->display, db->gc, GXcopy);
167
85ec50267440 Import from CVS: tag r20-3b10
cvs
parents: 163
diff changeset
319
163
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
320 XSync(db->display, False);
167
85ec50267440 Import from CVS: tag r20-3b10
cvs
parents: 163
diff changeset
321 }
85ec50267440 Import from CVS: tag r20-3b10
cvs
parents: 163
diff changeset
322
163
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
323
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
324 /* ------------------------------------------------------------------------- */
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
325
167
85ec50267440 Import from CVS: tag r20-3b10
cvs
parents: 163
diff changeset
326 void
85ec50267440 Import from CVS: tag r20-3b10
cvs
parents: 163
diff changeset
327 DBLend_frame(DoubleBuffer *db, short init)
163
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
328 {
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
329 Surface *surface;
167
85ec50267440 Import from CVS: tag r20-3b10
cvs
parents: 163
diff changeset
330
85ec50267440 Import from CVS: tag r20-3b10
cvs
parents: 163
diff changeset
331 /* if there are no drawing surfaces, then we are doing animation
163
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
332 with a frame buffer, copy the frame buffers to their viewports */
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
333
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
334 if (db->num_surfaces == 0) {
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
335 if (! init)
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
336 XCopyArea (db->display, db->frame, db->window,
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
337 db->gc, 0,0, db->width, db->height, 0,0);
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
338 } else {
167
85ec50267440 Import from CVS: tag r20-3b10
cvs
parents: 163
diff changeset
339
163
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
340 /* otherwise, we can flip the surface by banging in the new colormap */
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
341
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
342 XSync(db->display, False);
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
343 surface = db->surface[db->current_surface];
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
344 XStoreColors (db->display, db->colormap,
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
345 surface->color, surface->num_colors);
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
346 }
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
347
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
348 if (db->backing != 0) {
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
349 XCopyArea (db->display, db->window, db->backing,
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
350 db->gc, 0,0, db->width, db->height, 0,0);
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
351 }
167
85ec50267440 Import from CVS: tag r20-3b10
cvs
parents: 163
diff changeset
352
163
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
353 /* make sure this all goes off to the server, right away */
167
85ec50267440 Import from CVS: tag r20-3b10
cvs
parents: 163
diff changeset
354
163
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
355 XSync(db->display, False);
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
356 }