git.zerfleddert.de Git - micropolis/blob - src/sim/g_map.c

   1 /* g_map.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 VAL_NONE        0
  66 #define VAL_LOW         1
  67 #define VAL_MEDIUM      2
  68 #define VAL_HIGH        3
  69 #define VAL_VERYHIGH    4
  70 #define VAL_PLUS        5
  71 #define VAL_VERYPLUS    6
  72 #define VAL_MINUS       7
  73 #define VAL_VERYMINUS   8
  74
  75 short valMap[] = {
  76   -1, COLOR_LIGHTGRAY, COLOR_YELLOW, COLOR_ORANGE, COLOR_RED,
  77   COLOR_DARKGREEN, COLOR_LIGHTGREEN, COLOR_ORANGE, COLOR_YELLOW
  78 };
  79
  80 short valGrayMap[] = {
  81   -1, 31, 127, 191, 255,
  82   223, 255, 31, 0
  83 };
  84
  85
  86 void (*mapProcs[NMAPS])();
  87
  88 void drawPopDensity(SimView *view);
  89 void drawRateOfGrowth(SimView *view);
  90 void drawTrafMap(SimView *view);
  91 void drawPolMap(SimView *view);
  92 void drawCrimeMap(SimView *view);
  93 void drawLandMap(SimView *view);
  94 void drawFireRadius(SimView *view);
  95 void drawPoliceRadius(SimView *view);
  96 void ditherMap(SimView *view);
  97 void drawRect(SimView *view, int pixel, int solid,
  98          int x, int y, int w, int h);
  99 void maybeDrawRect(SimView *view, int val,
 100             int x, int y, int w, int h);
 101
 102
 103 short GetCI(short x)
 104 {
 105   if (x < 50)   return(VAL_NONE);
 106   if (x < 100)  return(VAL_LOW);
 107   if (x < 150)  return(VAL_MEDIUM);
 108   if (x < 200)  return(VAL_HIGH);
 109   return(VAL_VERYHIGH);
 110 }
 111
 112
 113 void
 114 drawPopDensity(SimView *view)
 115 {
 116   short x, y;
 117
 118   drawAll(view);
 119   for (x = 0; x < HWLDX; x++) {
 120     for (y = 0; y < HWLDY; y++) {
 121       maybeDrawRect(view, GetCI(PopDensity[x][y]),
 122                     x * 6, y * 6, 6, 6);
 123     }
 124   }
 125 }
 126
 127
 128 void
 129 drawRateOfGrowth(SimView *view)
 130 {
 131   short x, y;
 132
 133   drawAll(view);
 134   for (x = 0; x < SmX; x++) {
 135     for (y = 0; y < SmY; y++) {
 136       short val, z = RateOGMem[x][y];
 137
 138       if (z > 100) val = VAL_VERYPLUS;
 139       else {
 140         if (z > 20)  val = VAL_PLUS;
 141         else {
 142           if (z < -100) val = VAL_VERYMINUS;
 143           else {
 144             if (z < -20) val = VAL_MINUS;
 145             else val = VAL_NONE;
 146           }
 147         }
 148       }
 149       maybeDrawRect(view, val,
 150                     x * 24, y * 24, 24, 24);
 151     }
 152   }
 153 }
 154
 155
 156 void
 157 drawTrafMap(SimView *view)
 158 {
 159   short x;
 160   short y;
 161
 162   drawLilTransMap(view);
 163
 164   for (x = 0; x < HWLDX; x++) {
 165     for (y = 0; y < HWLDY; y++) {
 166       maybeDrawRect(view, GetCI(TrfDensity[x][y]),
 167                     x * 6, y * 6, 6, 6);
 168     }
 169   }
 170 }
 171
 172
 173 void
 174 drawPolMap(SimView *view)
 175 {
 176   short x, y;
 177
 178   drawAll(view);
 179
 180   for (x = 0; x < HWLDX; x++) {
 181     for (y = 0; y < HWLDY; y++) {
 182       maybeDrawRect(view, GetCI(10 + PollutionMem[x][y]),
 183                     x * 6, y * 6, 6, 6);
 184     }
 185   }
 186 }
 187
 188
 189 void
 190 drawCrimeMap(SimView *view)
 191 {
 192   short x, y;
 193
 194   drawAll(view);
 195
 196   for (x = 0; x < HWLDX; x++) {
 197     for (y = 0; y < HWLDY; y++) {
 198       maybeDrawRect(view, GetCI(CrimeMem[x][y]),
 199                     x * 6, y * 6, 6, 6);
 200     }
 201   }
 202 }
 203
 204
 205 void
 206 drawLandMap(SimView *view)
 207 {
 208   short x, y;
 209
 210   drawAll(view);
 211
 212   for (x = 0; x < HWLDX; x++) {
 213     for (y = 0; y < HWLDY; y++) {
 214       maybeDrawRect(view, GetCI(LandValueMem[x][y]),
 215                     x * 6, y * 6, 6, 6);
 216     }
 217   }
 218 }
 219
 220
 221 void
 222 drawFireRadius(SimView *view)
 223 {
 224   short x, y;
 225
 226   drawAll(view);
 227   for (x = 0; x < SmX; x++) {
 228     for (y = 0; y < SmY; y++) {
 229       maybeDrawRect(view, GetCI(FireRate[x][y]),
 230                     x * 24, y * 24, 24, 24);
 231     }
 232   }
 233 }
 234
 235
 236 void
 237 drawPoliceRadius(SimView *view)
 238 {
 239   short x, y;
 240
 241   drawAll(view);
 242   for (x = 0; x < SmX; x++) {
 243     for (y = 0; y < SmY; y++) {
 244       maybeDrawRect(view, GetCI(PoliceMapEffect[x][y]),
 245                     x * 24, y * 24, 24, 24);
 246     }
 247   }
 248 }
 249
 250
 251 void
 252 setUpMapProcs(void)
 253 {
 254   mapProcs[ALMAP] = drawAll;
 255   mapProcs[REMAP] = drawRes;
 256   mapProcs[COMAP] = drawCom;
 257   mapProcs[INMAP] = drawInd;
 258   mapProcs[PRMAP] = drawPower;
 259   mapProcs[RDMAP] = drawLilTransMap;
 260   mapProcs[PDMAP] = drawPopDensity;
 261   mapProcs[RGMAP] = drawRateOfGrowth;
 262   mapProcs[TDMAP] = drawTrafMap;
 263   mapProcs[PLMAP] = drawPolMap;
 264   mapProcs[CRMAP] = drawCrimeMap;
 265   mapProcs[LVMAP] = drawLandMap;
 266   mapProcs[FIMAP] = drawFireRadius;
 267   mapProcs[POMAP] = drawPoliceRadius;
 268   mapProcs[DYMAP] = drawDynamic;
 269 }
 270
 271
 272 void
 273 MemDrawMap(SimView *view)
 274 {
 275   (*mapProcs[view->map_state])(view);
 276   if (!view->x->color) {
 277     ditherMap(view);
 278     XSetForeground(view->x->dpy, view->x->gc, view->pixels[COLOR_BLACK]);
 279     XSetBackground(view->x->dpy, view->x->gc, view->pixels[COLOR_WHITE]);
 280     XPutImage(view->x->dpy, view->pixmap, view->x->gc, view->image,
 281               0, 0, 0, 0, view->m_width, view->m_height);
 282   }
 283 }
 284
 285
 286 void
 287 ditherMap(SimView *view)
 288 {
 289   int i, x, y, width, height;
 290   int err, pixel1, pixel8;
 291   int line_bytes1 = view->line_bytes;
 292   int line_bytes8 = view->line_bytes8;
 293   unsigned char *image1 = view->data;
 294   unsigned char *image8 = view->data8;
 295   int *errors;
 296
 297   width = view->m_width; height = view->m_height;
 298
 299   errors = (int *)malloc(sizeof(int) * (width));
 300
 301   for (i = 0; i < width; i++)
 302     errors[i] = (Rand16() & 15) - 7;
 303
 304   err = (Rand16() & 15) - 7;
 305
 306   for (y = 0; y < height; y += 2) {
 307     unsigned char *i1 = image1;
 308     unsigned char *i8 = image8;
 309
 310     image1 += line_bytes1;
 311     image8 += line_bytes8;
 312
 313     for (x = 0; x < width; x += 8) {
 314       pixel1 = 0;
 315       for (i = 0; i < 8; i++) {
 316         pixel1 <<= 1;
 317         pixel8 = *(i8++) + err + errors[x + i];
 318         if (pixel8 > 127) {
 319           err = pixel8 - 255;
 320         } else {
 321           pixel1 |= 1;
 322           err = pixel8;
 323         }
 324         errors[x + i] = err/2;
 325         err = err/2;
 326       }
 327       *(i1++) = pixel1;
 328     }
 329
 330     i1 = image1 + (width / 8) - 1;
 331     i8 = image8 + width - 1;
 332
 333     image1 += line_bytes1;
 334     image8 += line_bytes8;
 335
 336     for (x = width - 8; x >= 0; x -= 8) {
 337       pixel1 = 0;
 338       for (i = 7; i >= 0; i--) {
 339         pixel1 >>= 1;
 340         pixel8 = *(i8--) + err + errors[x + i];
 341         if (pixel8 > 127) {
 342           err = pixel8 - 255;
 343         } else {
 344           pixel1 |= 128;
 345           err = pixel8;
 346         }
 347         errors[x + i] = err/2;
 348         err = err/2;
 349       }
 350       *(i1--) = pixel1;
 351     }
 352   }
 353
 354   free(errors);
 355 }
 356
 357
 358 void
 359 maybeDrawRect(SimView *view, int val,
 360             int x, int y, int w, int h)
 361 {
 362   if (val == VAL_NONE) return;
 363
 364   if (view->x->color) {
 365     drawRect(view, view->pixels[valMap[val]], 0, x, y, w, h);
 366   } else {
 367     drawRect(view, valGrayMap[val], 1, x, y, w, h);
 368   }
 369 }
 370
 371
 372 void
 373 drawRect(SimView *view, int pixel, int solid,
 374          int x, int y, int w, int h)
 375 {
 376   int W = view->m_width, H = view->m_height;
 377
 378   if (x < 0) {
 379     if ((w += x) < 0) w = 0;
 380     x = 0;
 381   } else if (x > W) {
 382     x = 0; w = 0;
 383   }
 384   if (x + w > W) {
 385     w = W - x;
 386   }
 387   if (y < 0) {
 388     if ((h += y) < 0) h = 0;
 389     y = 0;
 390   } else if (y > H) {
 391     y = 0; h = 0;
 392   }
 393   if (y + h > H) {
 394     h = H - y;
 395   }
 396
 397   if (w && h) {
 398     int i, j, stipple = (x ^ y) & 1;
 399 #if 0
 400     unsigned char *data =
 401       view->x->color ? view->data : view->data8;
 402 #endif
 403
 404     /* In the case of black and white, we use an 8 bit buffer and dither it. */
 405     int pixelBytes =
 406       view->x->color ? view->pixel_bytes : 1;
 407     QUAD line =
 408       view->x->color ? view->line_bytes : view->line_bytes8;
 409
 410 #if 0
 411     unsigned char *image =
 412       &(data[(line * y) + (x * pixelBytes)]);
 413 #endif
 414
 415     switch (pixelBytes) {
 416
 417     case 1:
 418       {
 419         unsigned char *data =
 420           view->data8;
 421         unsigned char *image =
 422           &data[(line * y) + (x * pixelBytes)];
 423
 424         for (i = h; i > 0; i--) {
 425           for (j = w; j > 0; j--) {
 426             if (solid || stipple++ & 1)
 427               *image = pixel;
 428             image++;
 429           }
 430           if (!(w & 1))
 431             stipple++;
 432           image += line - w;
 433         }
 434       }
 435       break;
 436
 437     case 2:
 438       {
 439         unsigned short *data =
 440           (unsigned short *)view->data;
 441         unsigned short *image;
 442         line >>= 1; /* Convert from byte offset to short offset */
 443         image =
 444           &data[(line * y) + x];
 445
 446         for (i = h; i > 0; i--) {
 447           for (j = w; j > 0; j--) {
 448             if (solid || stipple++ & 1) {
 449               if (view->x->x_big_endian) {
 450                 *image = ((pixel & 0xff) << 8) | ((pixel & 0xff00) >> 8);
 451               } else {
 452                 *image = pixel;
 453               }
 454             }
 455             image++;
 456           }
 457           if (!(w & 1))
 458             stipple++;
 459           image += line - w;
 460         }
 461
 462       }
 463       break;
 464
 465     case 3:
 466     case 4:
 467       {
 468         unsigned char *data =
 469           (unsigned char *)view->data;
 470         unsigned char *image;
 471         image =
 472           &data[(line * y) + x * pixelBytes];
 473
 474         for (i = h; i > 0; i--) {
 475           for (j = w; j > 0; j--) {
 476             if (view->x->x_big_endian) {
 477               if (pixelBytes == 4) {
 478                 image++;
 479               }
 480               if (solid || stipple++ & 1) {
 481                 *(image++) = (pixel >> 16) & 0xff;
 482                 *(image++) = (pixel >> 8) & 0xff;
 483                 *(image++) = (pixel >> 0) & 0xff;
 484               } else {
 485                 image += 3;
 486               }
 487             } else {
 488               if (solid || stipple++ & 1) {
 489                 *(image++) = (pixel >> 0) & 0xff;
 490                 *(image++) = (pixel >> 8) & 0xff;
 491                 *(image++) = (pixel >> 16) & 0xff;
 492               } else {
 493                 image += 3;
 494               }
 495               if (pixelBytes == 4) {
 496                 image++;
 497               }
 498             }
 499           }
 500           if (!(w & 1)) {
 501             stipple++;
 502           }
 503           image += line - w * pixelBytes;
 504         }
 505       }
 506       break;
 507
 508     default:
 509       assert(0); /* Undefined depth */
 510       break;
 511     }
 512
 513   }
 514 }
 515
 516
 517