]> cvs.zerfleddert.de Git - micropolis/blob - src/sim/g_setup.c
let bundled tcl compile with recent tools
[micropolis] / src / sim / g_setup.c
1 /* g_setup.c
2 *
3 * Micropolis, Unix Version. This game was released for the Unix platform
4 * in or about 1990 and has been modified for inclusion in the One Laptop
5 * Per Child program. Copyright (C) 1989 - 2007 Electronic Arts Inc. If
6 * you need assistance with this program, you may contact:
7 * http://wiki.laptop.org/go/Micropolis or email micropolis@laptop.org.
8 *
9 * This program is free software: you can redistribute it and/or modify
10 * it under the terms of the GNU General Public License as published by
11 * the Free Software Foundation, either version 3 of the License, or (at
12 * your option) any later version.
13 *
14 * This program is distributed in the hope that it will be useful, but
15 * WITHOUT ANY WARRANTY; without even the implied warranty of
16 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
17 * General Public License for more details. You should have received a
18 * copy of the GNU General Public License along with this program. If
19 * not, see <http://www.gnu.org/licenses/>.
20 *
21 * ADDITIONAL TERMS per GNU GPL Section 7
22 *
23 * No trademark or publicity rights are granted. This license does NOT
24 * give you any right, title or interest in the trademark SimCity or any
25 * other Electronic Arts trademark. You may not distribute any
26 * modification of this program using the trademark SimCity or claim any
27 * affliation or association with Electronic Arts Inc. or its employees.
28 *
29 * Any propagation or conveyance of this program must include this
30 * copyright notice and these terms.
31 *
32 * If you convey this program (or any modifications of it) and assume
33 * contractual liability for the program to recipients of it, you agree
34 * to indemnify Electronic Arts for any liability that those contractual
35 * assumptions impose on Electronic Arts.
36 *
37 * You may not misrepresent the origins of this program; modified
38 * versions of the program must be marked as such and not identified as
39 * the original program.
40 *
41 * This disclaimer supplements the one included in the General Public
42 * License. TO THE FULLEST EXTENT PERMISSIBLE UNDER APPLICABLE LAW, THIS
43 * PROGRAM IS PROVIDED TO YOU "AS IS," WITH ALL FAULTS, WITHOUT WARRANTY
44 * OF ANY KIND, AND YOUR USE IS AT YOUR SOLE RISK. THE ENTIRE RISK OF
45 * SATISFACTORY QUALITY AND PERFORMANCE RESIDES WITH YOU. ELECTRONIC ARTS
46 * DISCLAIMS ANY AND ALL EXPRESS, IMPLIED OR STATUTORY WARRANTIES,
47 * INCLUDING IMPLIED WARRANTIES OF MERCHANTABILITY, SATISFACTORY QUALITY,
48 * FITNESS FOR A PARTICULAR PURPOSE, NONINFRINGEMENT OF THIRD PARTY
49 * RIGHTS, AND WARRANTIES (IF ANY) ARISING FROM A COURSE OF DEALING,
50 * USAGE, OR TRADE PRACTICE. ELECTRONIC ARTS DOES NOT WARRANT AGAINST
51 * INTERFERENCE WITH YOUR ENJOYMENT OF THE PROGRAM; THAT THE PROGRAM WILL
52 * MEET YOUR REQUIREMENTS; THAT OPERATION OF THE PROGRAM WILL BE
53 * UNINTERRUPTED OR ERROR-FREE, OR THAT THE PROGRAM WILL BE COMPATIBLE
54 * WITH THIRD PARTY SOFTWARE OR THAT ANY ERRORS IN THE PROGRAM WILL BE
55 * CORRECTED. NO ORAL OR WRITTEN ADVICE PROVIDED BY ELECTRONIC ARTS OR
56 * ANY AUTHORIZED REPRESENTATIVE SHALL CREATE A WARRANTY. SOME
57 * JURISDICTIONS DO NOT ALLOW THE EXCLUSION OF OR LIMITATIONS ON IMPLIED
58 * WARRANTIES OR THE LIMITATIONS ON THE APPLICABLE STATUTORY RIGHTS OF A
59 * CONSUMER, SO SOME OR ALL OF THE ABOVE EXCLUSIONS AND LIMITATIONS MAY
60 * NOT APPLY TO YOU.
61 */
62 #include "sim.h"
63
64
65 #define SIM_SMTILE 385
66 #define SIM_BWTILE 386
67 #define SIM_GSMTILE 388
68 #define SIM_LGTILE 544
69
70
71 #define gray25_width 16
72 #define gray25_height 16
73 static unsigned char gray25_bits[] = {
74 0x77, 0x77,
75 0xdd, 0xdd,
76 0x77, 0x77,
77 0xdd, 0xdd,
78 0x77, 0x77,
79 0xdd, 0xdd,
80 0x77, 0x77,
81 0xdd, 0xdd,
82 0x77, 0x77,
83 0xdd, 0xdd,
84 0x77, 0x77,
85 0xdd, 0xdd,
86 0x77, 0x77,
87 0xdd, 0xdd,
88 0x77, 0x77,
89 0xdd, 0xdd,
90 };
91
92
93 #define gray50_width 16
94 #define gray50_height 16
95 static unsigned char gray50_bits[] = {
96 0x55, 0x55,
97 0xaa, 0xaa,
98 0x55, 0x55,
99 0xaa, 0xaa,
100 0x55, 0x55,
101 0xaa, 0xaa,
102 0x55, 0x55,
103 0xaa, 0xaa,
104 0x55, 0x55,
105 0xaa, 0xaa,
106 0x55, 0x55,
107 0xaa, 0xaa,
108 0x55, 0x55,
109 0xaa, 0xaa,
110 0x55, 0x55,
111 0xaa, 0xaa,
112 };
113
114
115 #define gray75_width 16
116 #define gray75_height 16
117 static unsigned char gray75_bits[] = {
118 0x88, 0x88,
119 0x22, 0x22,
120 0x88, 0x88,
121 0x22, 0x22,
122 0x88, 0x88,
123 0x22, 0x22,
124 0x88, 0x88,
125 0x22, 0x22,
126 0x88, 0x88,
127 0x22, 0x22,
128 0x88, 0x88,
129 0x22, 0x22,
130 0x88, 0x88,
131 0x22, 0x22,
132 0x88, 0x88,
133 0x22, 0x22,
134 };
135
136 #define vert_width 16
137 #define vert_height 16
138 static unsigned char vert_bits[] = {
139 0xaa, 0xaa,
140 0xaa, 0xaa,
141 0xaa, 0xaa,
142 0xaa, 0xaa,
143 0xaa, 0xaa,
144 0xaa, 0xaa,
145 0xaa, 0xaa,
146 0xaa, 0xaa,
147 0xaa, 0xaa,
148 0xaa, 0xaa,
149 0xaa, 0xaa,
150 0xaa, 0xaa,
151 0xaa, 0xaa,
152 0xaa, 0xaa,
153 0xaa, 0xaa,
154 0xaa, 0xaa,
155 };
156
157
158 #define horiz_width 16
159 #define horiz_height 16
160 static unsigned char horiz_bits[] = {
161 0xff, 0xff,
162 0x00, 0x00,
163 0xff, 0xff,
164 0x00, 0x00,
165 0xff, 0xff,
166 0x00, 0x00,
167 0xff, 0xff,
168 0x00, 0x00,
169 0xff, 0xff,
170 0x00, 0x00,
171 0xff, 0xff,
172 0x00, 0x00,
173 0xff, 0xff,
174 0x00, 0x00,
175 0xff, 0xff,
176 0x00, 0x00,
177 };
178
179
180 #define diag_width 16
181 #define diag_height 16
182 static unsigned char diag_bits[] = {
183 0x55, 0x55,
184 0xee, 0xee,
185 0x55, 0x55,
186 0xba, 0xbb,
187 0x55, 0x55,
188 0xee, 0xee,
189 0x55, 0x55,
190 0xba, 0xbb,
191 0x55, 0x55,
192 0xee, 0xee,
193 0x55, 0x55,
194 0xba, 0xbb,
195 0x55, 0x55,
196 0xee, 0xee,
197 0x55, 0x55,
198 0xba, 0xbb,
199 };
200
201
202 Ptr MickGetHexa(short theID)
203 {
204 Handle theData;
205
206 theData = GetResource("hexa", theID);
207 return ((Ptr)*theData);
208 }
209
210
211 Pixmap *
212 GetObjectXpms(XDisplay *xd, int id, int frames)
213 {
214 int i;
215 Pixmap *pixmaps = (Pixmap *)ckalloc(2 * frames * sizeof (Pixmap));
216 XpmAttributes attributes;
217 char name[256];
218
219 attributes.visual = Tk_DefaultVisual(xd->screen);
220 attributes.colormap = Tk_DefaultColormap(xd->screen);
221 attributes.depth = Tk_DefaultDepth(xd->screen);
222 attributes.valuemask = XpmVisual | XpmColormap | XpmDepth;
223
224 for (i = 0; i < frames; i++) {
225 sprintf(name, "%s/images/obj%d-%d.xpm", HomeDir, id, i);
226 if (XpmReadFileToPixmap(xd->dpy,
227 RootWindowOfScreen(xd->screen),
228 name,
229 &pixmaps[i + i], &pixmaps[i + i + 1],
230 &attributes) < 0) {
231 fprintf(stderr,
232 "Uh oh, Micropolis couldn't read the pixmap file \"%s\".\n",
233 name);
234 sim_exit(1); // Just sets tkMustExit and ExitReturn
235 return NULL;
236 }
237 }
238 return (pixmaps);
239 }
240
241
242 GetPixmaps(XDisplay *xd)
243 {
244 if (xd->gray25_stipple == None) {
245 xd->gray25_stipple =
246 XCreatePixmapFromBitmapData(xd->dpy, xd->root,
247 gray25_bits, gray25_width, gray25_height,
248 1, 0, 1);
249 xd->gray50_stipple =
250 XCreatePixmapFromBitmapData(xd->dpy, xd->root,
251 gray50_bits, gray50_width, gray50_height,
252 1, 0, 1);
253 xd->gray75_stipple =
254 XCreatePixmapFromBitmapData(xd->dpy, xd->root,
255 gray75_bits, gray75_width, gray75_height,
256 1, 0, 1);
257 xd->vert_stipple =
258 XCreatePixmapFromBitmapData(xd->dpy, xd->root,
259 vert_bits, vert_width, vert_height,
260 1, 0, 1);
261 xd->horiz_stipple =
262 XCreatePixmapFromBitmapData(xd->dpy, xd->root,
263 horiz_bits, horiz_width, horiz_height,
264 1, 0, 1);
265 xd->diag_stipple =
266 XCreatePixmapFromBitmapData(xd->dpy, xd->root,
267 diag_bits, diag_width, diag_height,
268 1, 0, 1);
269 }
270
271 if (xd->objects == NULL) {
272 Pixmap **pm;
273
274 xd->objects = pm = (Pixmap **)ckalloc(OBJN * sizeof (Pixmap *));
275
276 pm[0] = NULL; /* no object number 0 */
277 pm[TRA] = GetObjectXpms(xd, TRA, 5);
278 pm[COP] = GetObjectXpms(xd, COP, 8);
279 pm[AIR] = GetObjectXpms(xd, AIR, 11);
280 pm[SHI] = GetObjectXpms(xd, SHI, 8);
281 pm[GOD] = GetObjectXpms(xd, GOD, 16);
282 pm[TOR] = GetObjectXpms(xd, TOR, 3);
283 pm[EXP] = GetObjectXpms(xd, EXP, 6);
284 pm[BUS] = GetObjectXpms(xd, BUS, 4);
285 }
286 }
287
288
289 GetViewTiles(SimView *view)
290 {
291 char name[256];
292 XpmAttributes attributes;
293
294 attributes.visual = Tk_DefaultVisual(view->x->screen);
295 attributes.colormap = Tk_DefaultColormap(view->x->screen);
296 attributes.depth = Tk_DefaultDepth(view->x->screen);
297 attributes.valuemask = XpmVisual | XpmColormap | XpmDepth;
298
299 if (view->class == Editor_Class) {
300
301 sprintf(name, "%s/images/%s", HomeDir,
302 view->x->color ? "tiles.xpm" : "tilesbw.xpm");
303
304 switch (view->type) {
305
306 case X_Mem_View:
307 if (view->x->big_tile_image == NULL) {
308 if (XpmReadFileToImage(view->x->dpy, name,
309 &view->x->big_tile_image, NULL,
310 &attributes) < 0) {
311 fprintf(stderr,
312 "Uh oh, Micropolis couldn't read the pixmap file \"%s\".\n",
313 name);
314 sim_exit(1); // Just sets tkMustExit and ExitReturn
315 return;
316 }
317 }
318 view->bigtiles = (unsigned char *)view->x->big_tile_image->data;
319 break;
320
321 case X_Wire_View:
322 if (view->x->big_tile_pixmap == None) {
323 if (XpmReadFileToPixmap(view->x->dpy,
324 RootWindowOfScreen(view->x->screen),
325 name,
326 &view->x->big_tile_pixmap, NULL,
327 &attributes) < 0) {
328 fprintf(stderr,
329 "Uh oh, Micropolis couldn't read the pixmap file \"%s\".\n",
330 name);
331 sim_exit(1); // Just sets tkMustExit and ExitReturn
332 return;
333 }
334 }
335 break;
336
337 }
338
339 } else if (view->class == Map_Class) {
340
341 if (view->x->small_tile_image == NULL) {
342 if (view->x->color) {
343
344 sprintf(name, "%s/images/%s", HomeDir, "tilessm.xpm");
345 if (XpmReadFileToImage(view->x->dpy, name,
346 &view->x->small_tile_image, NULL,
347 &attributes) < 0) {
348 fprintf(stderr,
349 "Uh oh, Micropolis couldn't read the pixmap file \"%s\".\n",
350 name);
351 sim_exit(1); // Just sets tkMustExit and ExitReturn
352 return;
353 }
354
355 } else {
356
357 view->x->small_tile_image =
358 XCreateImage(view->x->dpy, view->x->visual, 8,
359 ZPixmap,
360 0, (char *)MickGetHexa(SIM_GSMTILE),
361 4, 3 * TILE_COUNT, 8, 4);
362
363 }
364 }
365
366 { int x, y, b, tile;
367 unsigned char *from, *to;
368 int pixelBytes = view->pixel_bytes;
369 int rowBytes = view->x->small_tile_image->bytes_per_line;
370
371 if (pixelBytes == 0) {
372 /* handle the case of monochrome display (8 bit map) */
373 pixelBytes = 1;
374 }
375
376 /* from is 4 pixels wide per 3 pixel wide tile */
377 from = (unsigned char *)view->x->small_tile_image->data;
378 to = (unsigned char *)ckalloc(4 * 4 * TILE_COUNT * pixelBytes);
379 view->smalltiles = to;
380
381 switch (pixelBytes) {
382
383 case 1:
384 for (tile = 0; tile < TILE_COUNT; tile++) {
385 for (y = 0; y < 3; y++) {
386 for (x = 0; x < 4; x++) {
387 *to++ = *from++;
388 }
389 }
390 for (x = 0; x < 4; x++) {
391 *to++ = 0;
392 }
393 }
394 break;
395
396 case 2:
397 for (tile = 0; tile < TILE_COUNT; tile++) {
398 for (y = 0; y < 3; y++) {
399 for (x = 0; x < 4; x++) {
400 *to++ = *from++;
401 *to++ = *from++;
402 }
403 }
404 for (x = 0; x < 4; x++) {
405 *to++ = 0;
406 *to++ = 0;
407 }
408 }
409 break;
410
411 case 3:
412 case 4:
413 for (tile = 0; tile < TILE_COUNT; tile++) {
414 for (y = 0; y < 3; y++) {
415 for (x = 0; x < 4; x++) {
416 *to++ = *from++;
417 *to++ = *from++;
418 *to++ = *from++;
419 if (pixelBytes == 4) {
420 *to++ = *from++;
421 }
422 }
423 }
424 for (x = 0; x < 4; x++) {
425 *to++ = 0;
426 *to++ = 0;
427 *to++ = 0;
428 if (pixelBytes == 4) {
429 *to++ = 0;
430 }
431 }
432 }
433 break;
434
435 default:
436 assert(0); /* Undefined depth */
437 break;
438
439 }
440
441 }
442 }
443 }
Impressum, Datenschutz