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

   1 /* w_editor.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 Tcl_HashTable EditorCmds;
  66 int DoOverlay = 2;
  67 int BobHeight = 8;
  68
  69
  70 extern Tk_ConfigSpec TileViewConfigSpecs[];
  71
  72 void ClipTheOverlay(SimView *view);
  73 void DrawTheOverlay(SimView *view, GC gc, Pixmap pm, int color,
  74                int top, int bottom, int left, int right,
  75                int onoverlay);
  76 void DrawOverlay(SimView *view);
  77 void DrawCursor(SimView *view);
  78 void DrawPending(SimView *view);
  79 void DrawOutside(SimView *view);
  80 void HandleAutoGoto(SimView *view);
  81
  82
  83 int EditorCmdconfigure(VIEW_ARGS)
  84 {
  85   int result = TCL_OK;
  86
  87   if (argc == 2) {
  88     result = Tk_ConfigureInfo(interp, view->tkwin, TileViewConfigSpecs,
  89                               (char *) view, (char *) NULL, 0);
  90   } else if (argc == 3) {
  91     result = Tk_ConfigureInfo(interp, view->tkwin, TileViewConfigSpecs,
  92                               (char *) view, argv[2], 0);
  93   } else {
  94     result = ConfigureTileView(interp, view, argc-2, argv+2,
  95                                TK_CONFIG_ARGV_ONLY);
  96   }
  97   return TCL_OK;
  98 }
  99
 100
 101 int EditorCmdposition(VIEW_ARGS)
 102 {
 103   if ((argc != 2) && (argc != 4)) {
 104     return TCL_ERROR;
 105   }
 106   if (argc == 4) {
 107     if ((Tcl_GetInt(interp, argv[2], &view->w_x) != TCL_OK) ||
 108         (Tcl_GetInt(interp, argv[3], &view->w_y) != TCL_OK)) {
 109       return TCL_ERROR;
 110     }
 111   }
 112   sprintf(interp->result, "%d %d", view->w_x, view->w_y);
 113   return TCL_OK;
 114 }
 115
 116
 117 int EditorCmdsize(VIEW_ARGS)
 118 {
 119   if ((argc != 2) && (argc != 4)) {
 120     return TCL_ERROR;
 121   }
 122   if (argc == 4) {
 123     int w, h;
 124
 125     if (Tcl_GetInt(interp, argv[2], &w) != TCL_OK) {
 126       return TCL_ERROR;
 127     }
 128     if (Tcl_GetInt(interp, argv[3], &h) != TCL_OK) {
 129       return TCL_ERROR;
 130     }
 131     view->w_width = w;
 132     view->w_height = h;
 133   }
 134   sprintf(interp->result, "%d %d", view->w_width, view->w_height);
 135   return TCL_OK;
 136 }
 137
 138
 139 int EditorCmdAutoGoto(VIEW_ARGS)
 140 {
 141   if ((argc != 2) && (argc != 3)) {
 142     return TCL_ERROR;
 143   }
 144   if (argc == 3) {
 145     int val;
 146
 147     if (Tcl_GetInt(interp, argv[2], &val) != TCL_OK) {
 148       return TCL_ERROR;
 149     }
 150     view->auto_goto = val;
 151     view->auto_going = view->auto_x_goal = view->auto_y_goal = 0;
 152   }
 153   sprintf(interp->result, "%d", view->auto_goto);
 154   return TCL_OK;
 155 }
 156
 157
 158 int EditorCmdSound(VIEW_ARGS)
 159 {
 160   if ((argc != 2) && (argc != 3)) {
 161     return TCL_ERROR;
 162   }
 163   if (argc == 3) {
 164     int val;
 165
 166     if (Tcl_GetInt(interp, argv[2], &val) != TCL_OK) {
 167       return TCL_ERROR;
 168     }
 169     view->sound = val;
 170     view->auto_going = view->auto_x_goal = view->auto_y_goal = 0;
 171   }
 172   sprintf(interp->result, "%d", view->sound);
 173   return TCL_OK;
 174 }
 175
 176
 177 int EditorCmdSkip(VIEW_ARGS)
 178 {
 179   if ((argc != 2) && (argc != 3)) {
 180     return TCL_ERROR;
 181   }
 182   if (argc == 3) {
 183     int val;
 184
 185     if (Tcl_GetInt(interp, argv[2], &val) != TCL_OK) {
 186       return TCL_ERROR;
 187     }
 188     view->skip = view->skips = val; // XXX? why setting skips too?
 189   }
 190   sprintf(interp->result, "%d", view->skips);
 191   return TCL_OK;
 192 }
 193
 194
 195 int EditorCmdUpdate(VIEW_ARGS)
 196 {
 197   if (argc != 2) {
 198     return TCL_ERROR;
 199   }
 200   view->skip = 0;
 201   return TCL_OK;
 202 }
 203
 204
 205 int EditorCmdPan(VIEW_ARGS)
 206 {
 207   if ((argc != 2) && (argc != 4)) {
 208     return TCL_ERROR;
 209   }
 210   if (argc == 4) {
 211     int x, y;
 212
 213     if (Tcl_GetInt(interp, argv[2], &x) != TCL_OK) {
 214       return TCL_ERROR;
 215     }
 216     if (Tcl_GetInt(interp, argv[3], &y) != TCL_OK) {
 217       return TCL_ERROR;
 218     }
 219     DoPanTo(view, x, y); Kick();
 220   }
 221   sprintf(interp->result, "%d %d", view->pan_x, view->pan_y);
 222   return TCL_OK;
 223 }
 224
 225
 226 int EditorCmdToolConstrain(VIEW_ARGS)
 227 {
 228   int x = -1, y = -1, tx, ty;
 229
 230   if (argc != 4) {
 231     return TCL_ERROR;
 232   }
 233
 234   if (Tcl_GetInt(interp, argv[2], &x) != TCL_OK) {
 235     return TCL_ERROR;
 236   }
 237   if (Tcl_GetInt(interp, argv[3], &y) != TCL_OK) {
 238     return TCL_ERROR;
 239   }
 240   view->tool_x_const = -1; view->tool_y_const = -1;
 241   ViewToTileCoords(view, x, y, &tx, &ty);
 242   view->tool_x_const = (x == -1) ? -1 : tx;
 243   view->tool_y_const = (y == -1) ? -1 : ty;
 244   return TCL_OK;
 245 }
 246
 247
 248 int EditorCmdToolState(VIEW_ARGS)
 249 {
 250   if ((argc != 2) && (argc != 3)) {
 251     return TCL_ERROR;
 252   }
 253   if (argc == 3) {
 254     int state;
 255
 256     if (Tcl_GetInt(interp, argv[2], &state) != TCL_OK) {
 257       return TCL_ERROR;
 258     }
 259     setWandState(view, state);
 260   }
 261   sprintf(interp->result, "%d", view->tool_state);
 262   return TCL_OK;
 263 }
 264
 265
 266 int EditorCmdToolMode(VIEW_ARGS)
 267 {
 268   if ((argc != 2) && (argc != 3)) {
 269     return TCL_ERROR;
 270   }
 271   if (argc == 3) {
 272     int mode;
 273
 274     if (Tcl_GetInt(interp, argv[2], &mode) != TCL_OK) {
 275       return TCL_ERROR;
 276     }
 277     view->tool_mode = mode;
 278   }
 279   sprintf(interp->result, "%d", view->tool_mode);
 280   return TCL_OK;
 281 }
 282
 283
 284 int EditorCmdDoTool(VIEW_ARGS)
 285 {
 286   int tool, x, y;
 287
 288   if (argc != 5) {
 289     return TCL_ERROR;
 290   }
 291
 292   if ((Tcl_GetInt(interp, argv[2], &tool) != TCL_OK) ||
 293       (tool < 0) ||
 294       (tool > lastState) ||
 295       (Tcl_GetInt(interp, argv[3], &x) != TCL_OK) ||
 296       (Tcl_GetInt(interp, argv[4], &y) != TCL_OK)) {
 297     return TCL_ERROR;
 298   }
 299
 300   DoTool(view, tool, x, y); Kick();
 301   return TCL_OK;
 302 }
 303
 304
 305 int EditorCmdToolDown(VIEW_ARGS)
 306 {
 307   int x, y;
 308
 309   if (argc != 4) {
 310     return TCL_ERROR;
 311   }
 312
 313   if ((Tcl_GetInt(interp, argv[2], &x) != TCL_OK) ||
 314       (Tcl_GetInt(interp, argv[3], &y) != TCL_OK)) {
 315     return TCL_ERROR;
 316   }
 317
 318   ToolDown(view, x, y); Kick();
 319   return TCL_OK;
 320 }
 321
 322
 323 int EditorCmdToolDrag(VIEW_ARGS)
 324 {
 325   int x, y;
 326
 327   if (argc != 4) {
 328     return TCL_ERROR;
 329   }
 330
 331   if ((Tcl_GetInt(interp, argv[2], &x) != TCL_OK) ||
 332       (Tcl_GetInt(interp, argv[3], &y) != TCL_OK)) {
 333     return TCL_ERROR;
 334   }
 335
 336   ToolDrag(view, x, y); Kick();
 337   return TCL_OK;
 338 }
 339
 340
 341 int EditorCmdToolUp(VIEW_ARGS)
 342 {
 343   int x, y;
 344
 345   if (argc != 4) {
 346     return TCL_ERROR;
 347   }
 348
 349   if ((Tcl_GetInt(interp, argv[2], &x) != TCL_OK) ||
 350       (Tcl_GetInt(interp, argv[3], &y) != TCL_OK)) {
 351     return TCL_ERROR;
 352   }
 353
 354   ToolUp(view, x, y); Kick();
 355   return TCL_OK;
 356 }
 357
 358
 359 int EditorCmdPanStart(VIEW_ARGS)
 360 {
 361   int x, y;
 362
 363   if (argc != 4) {
 364     return TCL_ERROR;
 365   }
 366
 367   if ((Tcl_GetInt(interp, argv[2], &x) != TCL_OK) ||
 368       (Tcl_GetInt(interp, argv[3], &y) != TCL_OK)) {
 369     return TCL_ERROR;
 370   }
 371
 372   view->last_x = x;
 373   view->last_y = y;
 374   return TCL_OK;
 375 }
 376
 377
 378 int EditorCmdPanTo(VIEW_ARGS)
 379 {
 380   int x, y, dx, dy;
 381
 382   if (argc != 4) {
 383     return TCL_ERROR;
 384   }
 385
 386   if ((Tcl_GetInt(interp, argv[2], &x) != TCL_OK) ||
 387       (Tcl_GetInt(interp, argv[3], &y) != TCL_OK)) {
 388     return TCL_ERROR;
 389   }
 390
 391   dx = (view->tool_x_const == -1) ? (view->last_x - x) : 0;
 392   dy = (view->tool_y_const == -1) ? (view->last_y - y) : 0;
 393   if (dx || dy) {
 394     view->last_x = x;
 395     view->last_y = y;
 396     DoPanBy(view, dx, dy); Kick();
 397   }
 398   return TCL_OK;
 399 }
 400
 401
 402 int EditorCmdPanBy(VIEW_ARGS)
 403 {
 404   int dx, dy;
 405
 406   if (argc != 4) {
 407     return TCL_ERROR;
 408   }
 409
 410   if ((Tcl_GetInt(interp, argv[2], &dx) != TCL_OK) ||
 411       (Tcl_GetInt(interp, argv[3], &dy) != TCL_OK)) {
 412     return TCL_ERROR;
 413   }
 414
 415   DoPanBy(view, dx, dy); Kick();
 416   return TCL_OK;
 417 }
 418
 419
 420 int EditorCmdTweakCursor(VIEW_ARGS)
 421 {
 422   XWarpPointer (view->x->dpy, None, None, 0, 0, 0, 0, 0, 0);
 423
 424   return TCL_OK;
 425 }
 426
 427
 428 int EditorCmdVisible(VIEW_ARGS)
 429 {
 430   int visible;
 431
 432   if ((argc != 2) && (argc != 3)) {
 433     return TCL_ERROR;
 434   }
 435
 436   if (argc == 3) {
 437     if ((Tcl_GetInt(interp, argv[2], &visible) != TCL_OK) ||
 438         (visible < 0) || (visible > 1)) {
 439       return TCL_ERROR;
 440     }
 441
 442     visible = visible && Tk_IsMapped(view->tkwin);
 443     view->visible = visible;
 444   }
 445
 446   sprintf(interp->result, "%d", view->visible);
 447   return TCL_OK;
 448 }
 449
 450
 451 int EditorCmdKeyDown(VIEW_ARGS)
 452 {
 453
 454   if (argc != 3) {
 455     return TCL_ERROR;
 456   }
 457
 458   doKeyDown(view, argv[2][0]);
 459   return TCL_OK;
 460 }
 461
 462
 463 int EditorCmdKeyUp(VIEW_ARGS)
 464 {
 465
 466   if (argc != 3) {
 467     return TCL_ERROR;
 468   }
 469
 470   doKeyUp(view, argv[2][0]);
 471   return TCL_OK;
 472 }
 473
 474
 475 int EditorCmdTileCoord(VIEW_ARGS)
 476 {
 477   int x, y;
 478
 479   if ((argc != 2) && (argc != 4)) {
 480     return TCL_ERROR;
 481   }
 482
 483   if (Tcl_GetInt(interp, argv[2], &x) != TCL_OK) {
 484     return TCL_ERROR;
 485   }
 486   if (Tcl_GetInt(interp, argv[3], &y) != TCL_OK) {
 487     return TCL_ERROR;
 488   }
 489
 490   ViewToTileCoords(view, x, y, &x, &y);
 491
 492   sprintf(interp->result, "%d %d", x, y);
 493   return TCL_OK;
 494 }
 495
 496
 497 int EditorCmdChalkStart(VIEW_ARGS)
 498 {
 499   int x, y;
 500
 501   if (argc != 4) {
 502     return TCL_ERROR;
 503   }
 504
 505   if ((Tcl_GetInt(interp, argv[2], &x) != TCL_OK) ||
 506       (Tcl_GetInt(interp, argv[3], &y) != TCL_OK)) {
 507     return TCL_ERROR;
 508   }
 509
 510   ChalkStart(view, x, y, COLOR_WHITE);
 511   return TCL_OK;
 512 }
 513
 514
 515 int EditorCmdChalkTo(VIEW_ARGS)
 516 {
 517   int x, y;
 518
 519   if (argc != 4) {
 520     return TCL_ERROR;
 521   }
 522
 523   if ((Tcl_GetInt(interp, argv[2], &x) != TCL_OK) ||
 524       (Tcl_GetInt(interp, argv[3], &y) != TCL_OK)) {
 525     return TCL_ERROR;
 526   }
 527
 528   ChalkTo(view, x, y);
 529   return TCL_OK;
 530 }
 531
 532
 533 int EditorCmdAutoGoing(VIEW_ARGS)
 534 {
 535   int flag;
 536
 537   if ((argc != 2) && (argc != 3)) {
 538     return TCL_ERROR;
 539   }
 540
 541   if (argc == 3) {
 542     if ((Tcl_GetInt(interp, argv[2], &flag) != TCL_OK)) {
 543       return TCL_ERROR;
 544     }
 545
 546     view->auto_going = flag;
 547     if (view->auto_goto == -1)
 548       view->auto_goto = 0;
 549   }
 550
 551   sprintf(interp->result, "%d", view->auto_going);
 552   return TCL_OK;
 553 }
 554
 555
 556 int EditorCmdAutoSpeed(VIEW_ARGS)
 557 {
 558   int speed;
 559
 560   if ((argc != 2) && (argc != 3)) {
 561     return TCL_ERROR;
 562   }
 563
 564   if (argc == 3) {
 565     if ((Tcl_GetInt(interp, argv[2], &speed) != TCL_OK) ||
 566         (speed < 1)) {
 567       return TCL_ERROR;
 568     }
 569
 570     view->auto_speed = speed;
 571   }
 572
 573   sprintf(interp->result, "%d", view->auto_speed);
 574   return TCL_OK;
 575 }
 576
 577
 578 int EditorCmdAutoGoal(VIEW_ARGS)
 579 {
 580   if ((argc != 2) && (argc != 4)) {
 581     return TCL_ERROR;
 582   }
 583   if (argc == 4) {
 584     int x, y, dx, dy;
 585
 586     if (Tcl_GetInt(interp, argv[2], &x) != TCL_OK) {
 587       return TCL_ERROR;
 588     }
 589     if (Tcl_GetInt(interp, argv[3], &y) != TCL_OK) {
 590       return TCL_ERROR;
 591     }
 592     view->auto_x_goal = x;
 593     view->auto_y_goal = y;
 594     /* actually go there if more than a block away */
 595     dx = view->pan_x - x;
 596     dy = view->pan_y - y;
 597     view->auto_going = (((dx * dx) + (dy * dy)) > (64 * 64));
 598     if ((view->auto_going != 0) &&
 599         (view->auto_goto == 0))
 600       view->auto_goto = -1;
 601   }
 602
 603   sprintf(interp->result, "%d %d", view->auto_x_goal, view->auto_y_goal);
 604   return TCL_OK;
 605 }
 606
 607
 608 int EditorCmdSU(VIEW_ARGS)
 609 {
 610   int su;
 611
 612   if ((argc != 2) && (argc != 4)) {
 613     return TCL_ERROR;
 614   }
 615
 616   if (argc == 4) {
 617     if ((strcmp(argv[3], "xyzzy") != 0) ||
 618         (Tcl_GetInt(interp, argv[2], &su) != TCL_OK)) {
 619       return TCL_ERROR;
 620     }
 621
 622     view->super_user = su;
 623   }
 624
 625   sprintf(interp->result, "%d", view->super_user);
 626   return TCL_OK;
 627 }
 628
 629
 630 int EditorCmdShowMe(VIEW_ARGS)
 631 {
 632   int flag;
 633
 634   if ((argc != 2) && (argc != 3)) {
 635     return TCL_ERROR;
 636   }
 637
 638   if (argc == 3) {
 639     if (Tcl_GetInt(interp, argv[2], &flag) != TCL_OK) {
 640       return TCL_ERROR;
 641     }
 642
 643     view->show_me = flag;
 644   }
 645
 646   sprintf(interp->result, "%d", view->show_me);
 647   return TCL_OK;
 648 }
 649
 650
 651 int EditorCmdFollow(VIEW_ARGS)
 652 {
 653   SimSprite *sprite;
 654
 655   if ((argc != 2) && (argc != 3)) {
 656     return TCL_ERROR;
 657   }
 658
 659   if (argc == 3) {
 660     view->follow = NULL;
 661     if (argv[2][0] != '\0') {
 662       for (sprite = sim->sprite; sprite != NULL; sprite = sprite->next) {
 663         if (strcmp(sprite->name, argv[2]) == 0) {
 664           view->follow = sprite;
 665           break;
 666         }
 667       }
 668     }
 669
 670     if (view->follow != NULL) {
 671       HandleAutoGoto(view);
 672     }
 673   }
 674
 675   sprintf(interp->result, "%s",
 676           (view->follow == NULL) ? "" : view->follow->name);
 677   return TCL_OK;
 678 }
 679
 680
 681 int EditorCmdShowOverlay(VIEW_ARGS)
 682 {
 683   int flag;
 684
 685   if ((argc != 2) && (argc != 3)) {
 686     return TCL_ERROR;
 687   }
 688
 689   if (argc == 3) {
 690     if ((Tcl_GetInt(interp, argv[2], &flag) != TCL_OK)) {
 691       return TCL_ERROR;
 692     }
 693
 694     view->show_overlay = flag;
 695   }
 696
 697   sprintf(interp->result, "%d", view->show_overlay);
 698   return TCL_OK;
 699 }
 700
 701
 702 int EditorCmdOverlayMode(VIEW_ARGS)
 703 {
 704   int flag;
 705
 706   if ((argc != 2) && (argc != 3)) {
 707     return TCL_ERROR;
 708   }
 709
 710   if (argc == 3) {
 711     if ((Tcl_GetInt(interp, argv[2], &flag) != TCL_OK)) {
 712       return TCL_ERROR;
 713     }
 714
 715     view->overlay_mode = flag;
 716   }
 717
 718   sprintf(interp->result, "%d", view->overlay_mode);
 719   return TCL_OK;
 720 }
 721
 722
 723 int EditorCmdDynamicFilter(VIEW_ARGS)
 724 {
 725   int val;
 726
 727   if ((argc != 2) && (argc != 3)) {
 728     return TCL_ERROR;
 729   }
 730
 731   if (argc == 3) {
 732     if ((Tcl_GetInt(interp, argv[2], &val) != TCL_OK)) {
 733       return TCL_ERROR;
 734     }
 735
 736     view->dynamic_filter = val;
 737   }
 738
 739   sprintf(interp->result, "%d", view->dynamic_filter);
 740   return TCL_OK;
 741 }
 742
 743
 744 int EditorCmdWriteJpeg(VIEW_ARGS)
 745 {
 746 #if 0
 747   int val;
 748   char *fileName = argv[2];
 749 #endif
 750
 751   if (argc != 3) {
 752     return TCL_ERROR;
 753   }
 754
 755   // Write a jpeg file of this view.
 756
 757   return TCL_OK;
 758 }
 759
 760
 761 void
 762 editor_command_init(void)
 763 {
 764   extern int TileViewCmd(CLIENT_ARGS);
 765
 766   Tcl_CreateCommand(tk_mainInterp, "editorview", TileViewCmd,
 767                     (ClientData)MainWindow, (void (*)()) NULL);
 768
 769   Tcl_InitHashTable(&EditorCmds, TCL_STRING_KEYS);
 770
 771 #define EDITOR_CMD(name) HASHED_CMD(Editor, name)
 772
 773   EDITOR_CMD(configure);
 774   EDITOR_CMD(position);
 775   EDITOR_CMD(size);
 776   EDITOR_CMD(AutoGoto);
 777   EDITOR_CMD(Sound);
 778   EDITOR_CMD(Skip);
 779   EDITOR_CMD(Update);
 780   EDITOR_CMD(Pan);
 781   EDITOR_CMD(ToolConstrain);
 782   EDITOR_CMD(ToolState);
 783   EDITOR_CMD(ToolMode);
 784   EDITOR_CMD(DoTool);
 785   EDITOR_CMD(ToolDown);
 786   EDITOR_CMD(ToolDrag);
 787   EDITOR_CMD(ToolUp);
 788   EDITOR_CMD(PanStart);
 789   EDITOR_CMD(PanTo);
 790   EDITOR_CMD(PanBy);
 791   EDITOR_CMD(TweakCursor);
 792   EDITOR_CMD(Visible);
 793   EDITOR_CMD(KeyDown);
 794   EDITOR_CMD(KeyUp);
 795   EDITOR_CMD(TileCoord);
 796   EDITOR_CMD(ChalkStart);
 797   EDITOR_CMD(ChalkTo);
 798   EDITOR_CMD(AutoGoing);
 799   EDITOR_CMD(AutoSpeed);
 800   EDITOR_CMD(AutoGoal);
 801   EDITOR_CMD(SU);
 802   EDITOR_CMD(ShowMe);
 803   EDITOR_CMD(Follow);
 804   EDITOR_CMD(ShowOverlay);
 805   EDITOR_CMD(OverlayMode);
 806   EDITOR_CMD(DynamicFilter);
 807 }
 808
 809
 810 int
 811 DoEditorCmd(CLIENT_ARGS)
 812 {
 813   SimView *view = (SimView *) clientData;
 814   Tcl_HashEntry *ent;
 815   int result = TCL_OK;
 816   int (*cmd)();
 817
 818   if (argc < 2) {
 819     return TCL_ERROR;
 820   }
 821
 822   if ((ent = Tcl_FindHashEntry(&EditorCmds, argv[1]))) {
 823     cmd = (int (*)())ent->clientData;
 824     Tk_Preserve((ClientData) view);
 825     result = cmd(view, interp, argc, argv);
 826     Tk_Release((ClientData) view);
 827   } else {
 828     Tcl_AppendResult(interp, "unknown command name: \"",
 829                      argv[0], " ", argv[1], "\".", (char *) NULL);
 830     result = TCL_ERROR;
 831   }
 832   return result;
 833 }
 834
 835
 836
 837 /*************************************************************************/
 838
 839
 840 void
 841 DoNewEditor(SimView *view)
 842 {
 843   sim->editors++; view->next = sim->editor; sim->editor = view;
 844   view->invalid = 1;
 845 }
 846
 847
 848 void
 849 DoUpdateEditor(SimView *view)
 850 {
 851   int dx, dy, i;
 852
 853   view->updates++;
 854
 855   if (!view->visible) {
 856     return;
 857   }
 858
 859   if ((!ShakeNow) &&
 860 //      (!view->invalid) &&
 861       (!view->update) &&
 862       (sim_skips ||
 863        view->skips)) {
 864     if (sim_skips) {
 865       if (sim_skip > 0) {
 866         return;
 867       }
 868     } else {
 869       if (view->skip > 0) {
 870         --view->skip;
 871         return;
 872       } else {
 873         view->skip = view->skips;
 874       }
 875     }
 876   }
 877
 878   view->skips = 0;
 879   view->update = 0;
 880
 881   HandleAutoGoto(view);
 882
 883   if (DoAnimation && SimSpeed && !heat_steps && !TilesAnimated) {
 884     TilesAnimated = 1;
 885     animateTiles();
 886   }
 887
 888   if (view->invalid) {
 889
 890     switch (view->type) {
 891
 892     case X_Mem_View:
 893       MemDrawBeegMapRect(view, view->tile_x, view->tile_y,
 894                          view->tile_width, view->tile_height);
 895       break;
 896
 897     case X_Wire_View:
 898       WireDrawBeegMapRect(view, view->tile_x, view->tile_y,
 899                           view->tile_width, view->tile_height);
 900       break;
 901
 902     }
 903
 904     XCopyArea(view->x->dpy, view->pixmap, view->pixmap2, view->x->gc,
 905               0, 0, view->screen_width, view->screen_height,
 906               view->screen_x, view->screen_y);
 907     DrawOutside(view);
 908     if (PendingTool != -1) {
 909       DrawPending(view);
 910     }
 911     DrawObjects(view);
 912     if (view->show_overlay) {
 913       DrawOverlay(view);
 914     }
 915   }
 916
 917   for (dx = dy = i = 0; i < ShakeNow; i++) {
 918     dx += Rand(16) - 8;
 919     dy += Rand(16) - 8;
 920   }
 921
 922   XCopyArea(view->x->dpy, view->pixmap2,
 923             Tk_WindowId(view->tkwin), view->x->gc,
 924             0, 0, view->w_width, view->w_height, dx, dy);
 925
 926   DrawCursor(view);
 927
 928   view->invalid = 0;
 929 }
 930
 931
 932 void
 933 HandleAutoGoto(SimView *view)
 934 {
 935   if (view->follow != NULL) {
 936     int x = view->follow->x + view->follow->x_hot,
 937         y = view->follow->y + view->follow->y_hot;
 938
 939     if ((x != view->pan_x) ||
 940         (y != view->pan_y)) {
 941       DoPanTo(view, x, y);
 942     }
 943   } else if (view->auto_goto &&
 944              view->auto_going &&
 945              (view->tool_mode == 0)) {
 946     int dx, dy;
 947     int speed;
 948     double dist, sloth;
 949
 950     speed = view->auto_speed;
 951
 952     if (view->auto_going < 5) {
 953       sloth = ((double)view->auto_going) / 5.0;
 954     } else {
 955       sloth = 1.0;
 956     }
 957
 958     dx = view->auto_x_goal - view->pan_x;
 959     dy = view->auto_y_goal - view->pan_y;
 960
 961     dist = sqrt((double)((dx * dx) + (dy * dy)));
 962
 963     if (dist < (speed * sloth)) {
 964       view->auto_going = 0;
 965       if (view->auto_goto == -1)
 966         view->auto_goto = 0;
 967       DoPanTo(view, view->auto_x_goal, view->auto_y_goal);
 968       NewMap = 1;
 969       DidStopPan(view);
 970     } else {
 971       double atan2(), cos(), sin();
 972       double direction, vx, vy;
 973       double co, si;
 974
 975       direction = (double)atan2((double)dy, (double)dx);
 976       co = (double)cos(direction);
 977       si = (double)sin(direction);
 978       vx = co * (double)speed;
 979       vy = si * (double)speed;
 980
 981       vx *= sloth; vy *= sloth;
 982       speed *= sloth;
 983
 984       vx += 0.5; vy += 0.5;
 985
 986       DoPanBy(view, (int)(vx), (int)(vy));
 987       view->auto_going++;
 988     }
 989   }
 990 }
 991
 992 void
 993 DrawOutside(SimView *view)
 994 {
 995   Pixmap pm = view->pixmap2;
 996   int left = (view->w_width / 2) - view->pan_x;
 997   int right = left + view->i_width;
 998   int top = (view->w_height / 2) - view->pan_y;
 999   int bottom = top + view->i_height;
1000
1001   if ((top > 0) || (bottom < view->w_height) ||
1002       (left > 0) || (right < view->w_width)) {
1003     if (view->x->color) {
1004       XSetForeground(view->x->dpy, view->x->gc,
1005                      view->pixels[COLOR_BLACK]);
1006     } else {
1007       XSetForeground(view->x->dpy, view->x->gc,
1008                      view->pixels[COLOR_WHITE]);
1009     }
1010
1011     if (top > 0)
1012       XFillRectangle(view->x->dpy, pm, view->x->gc,
1013                      0, 0, view->w_width, top);
1014     if (bottom < view->w_height)
1015       XFillRectangle(view->x->dpy, pm, view->x->gc,
1016                      0, bottom, view->w_width,
1017                      view->w_height - bottom);
1018     if (left > 0)
1019       XFillRectangle(view->x->dpy, pm, view->x->gc,
1020                      0, top, left, bottom - top);
1021     if (right < view->w_width)
1022       XFillRectangle(view->x->dpy, pm, view->x->gc,
1023                      right, top, view->w_width - right, bottom - top);
1024   }
1025 }
1026
1027
1028 char CursorDashes[] = { 4, 4 };
1029
1030 void
1031 DrawPending(SimView *view)
1032 {
1033   Pixmap pm = view->pixmap2;
1034   int left = (view->w_width / 2) - view->pan_x;
1035   int top = (view->w_height / 2) - view->pan_y;
1036   int x, y, size;
1037   char *iconname = NULL;
1038
1039   x = (PendingX - toolOffset[PendingTool]) <<4;
1040   y = (PendingY - toolOffset[PendingTool]) <<4;
1041   size = toolSize[PendingTool] <<4;
1042   x += left; y += top;
1043
1044   XSetStipple(view->x->dpy, view->x->gc, view->x->gray50_stipple);
1045   XSetTSOrigin(view->x->dpy, view->x->gc, 0, 0);
1046   XSetForeground(view->x->dpy, view->x->gc, view->x->pixels[COLOR_BLACK]);
1047   XSetFillStyle(view->x->dpy, view->x->gc, FillStippled);
1048   XFillRectangle(view->x->dpy, pm, view->x->gc,
1049                  x, y, size, size);
1050   XSetFillStyle(view->x->dpy, view->x->gc, FillSolid);
1051
1052   switch (PendingTool) {
1053   case residentialState:
1054     iconname = "@images/res.xpm"; break;
1055   case commercialState:
1056     iconname = "@images/com.xpm"; break;
1057   case industrialState:
1058     iconname = "@images/ind.xpm"; break;
1059   case fireState:
1060     iconname = "@images/fire.xpm"; break;
1061   case policeState:
1062     iconname = "@images/police.xpm"; break;
1063   case stadiumState:
1064     iconname = "@images/stadium.xpm"; break;
1065   case seaportState:
1066     iconname = "@images/seaport.xpm"; break;
1067   case powerState:
1068     iconname = "@images/coal.xpm"; break;
1069   case nuclearState:
1070     iconname = "@images/nuclear.xpm"; break;
1071   case airportState:
1072     iconname = "@images/airport.xpm"; break;
1073   default:
1074     break;
1075   }
1076
1077   if (iconname != NULL) {
1078     Pixmap icon = Tk_GetPixmap(view->interp, view->tkwin, iconname);
1079     float f;
1080     int i;
1081
1082     gettimeofday(&now_time, NULL);
1083     f = (2 * now_time.tv_usec / 1000000.0);
1084     if (f > 1.0) f = 2.0 - f;
1085     i = (int)(f * BobHeight * (Players - Votes));
1086
1087     if (icon != None) {
1088       XCopyArea(view->x->dpy, icon, pm, view->x->gc,
1089                 0, 0, size, size, x + i, y - i);
1090     }
1091   }
1092 }
1093
1094
1095 void
1096 DrawCursor(SimView *view)
1097 {
1098   Pixmap pm = Tk_WindowId(view->tkwin);
1099   int left = (view->w_width / 2) - view->pan_x;
1100   int top = (view->w_height / 2) - view->pan_y;
1101   int x, y, mode, size, offset, fg, bg, light, dark;
1102   SimView *v;
1103
1104   for (v = sim->editor; v != NULL; v = v->next) {
1105     mode = v->tool_mode;
1106     if ((v->show_me != 0) &&
1107         ((mode == -1) || v->tool_showing)) {
1108       x = v->tool_x; y = v->tool_y;
1109       if (mode == -1) { /* pan cursor */
1110
1111         x += left; y += top;
1112
1113         XSetLineAttributes(view->x->dpy, view->x->gc, 3,
1114                            LineSolid, CapRound, JoinMiter);
1115         XSetForeground(view->x->dpy, view->x->gc,
1116                        view->pixels[COLOR_BLACK]);
1117         XDrawLine(view->x->dpy, pm, view->x->gc,
1118                   x - 6, y - 6, x + 6, y + 6);
1119         XDrawLine(view->x->dpy, pm, view->x->gc,
1120                   x - 6, y + 6, x + 6, y - 6);
1121         XDrawLine(view->x->dpy, pm, view->x->gc,
1122                   x - 8, y, x + 8, y);
1123         XDrawLine(view->x->dpy, pm, view->x->gc,
1124                   x, y + 8, x, y - 8);
1125         XSetLineAttributes(view->x->dpy, view->x->gc, 1,
1126                            LineSolid, CapRound, JoinMiter);
1127         XSetForeground(view->x->dpy, view->x->gc,
1128                        view->pixels[COLOR_WHITE]);
1129         XDrawLine(view->x->dpy, pm, view->x->gc,
1130                   x - 6, y - 6, x + 6, y + 6);
1131         XDrawLine(view->x->dpy, pm, view->x->gc,
1132                   x - 6, y + 6, x + 6, y - 6);
1133         XDrawLine(view->x->dpy, pm, view->x->gc,
1134                   x - 8, y, x + 8, y);
1135         XDrawLine(view->x->dpy, pm, view->x->gc,
1136                   x, y + 8, x, y - 8);
1137         XSetLineAttributes(view->x->dpy, view->x->gc, 1,
1138                            LineSolid, CapButt, JoinMiter);
1139
1140       } else { /* edit cursor */
1141
1142         size = toolSize[v->tool_state];
1143         fg = toolColors[v->tool_state] & 0xff;
1144         light = COLOR_WHITE;
1145         dark = COLOR_BLACK;
1146         if (mode == 1) {
1147           int temp = dark;
1148           dark = light;
1149           light = temp;
1150         }
1151         switch (v->tool_state) {
1152
1153         case chalkState:
1154           x += left; y += top;
1155           if (mode == 1) {
1156             offset = 2;
1157           } else {
1158             offset = 0;
1159
1160             if (view->x->color) {
1161               XSetForeground(view->x->dpy, view->x->gc,
1162                              view->pixels[COLOR_MEDIUMGRAY]);
1163               XFillArc(view->x->dpy, pm, view->x->gc,
1164                        x - 8, y + 7, 7, 7, 0, 360 * 64);
1165             } else {
1166               XSetStipple(view->x->dpy, view->x->gc,
1167                           view->x->gray50_stipple);
1168               XSetTSOrigin(view->x->dpy, view->x->gc, 0, 0);
1169               XSetForeground(view->x->dpy, view->x->gc,
1170                              view->x->pixels[COLOR_BLACK]);
1171               XSetBackground(view->x->dpy, view->x->gc,
1172                              view->x->pixels[COLOR_WHITE]);
1173               XSetFillStyle(view->x->dpy, view->x->gc, FillOpaqueStippled);
1174               XFillArc(view->x->dpy, pm, view->x->gc,
1175                        x - 8, y + 7, 7, 7, 0, 360 * 64);
1176               XSetFillStyle(view->x->dpy, view->x->gc, FillSolid);
1177             }
1178           }
1179
1180           if (view->x->color) {
1181             XSetLineAttributes(view->x->dpy, view->x->gc, 3,
1182                                LineSolid, CapRound, JoinMiter);
1183             XSetForeground(view->x->dpy, view->x->gc,
1184                            view->pixels[COLOR_LIGHTGRAY]);
1185             XFillArc(view->x->dpy, pm, view->x->gc,
1186                      x - 6 - offset, y + 5 + offset, 7, 7, 0, 360 * 64);
1187             XDrawLine(view->x->dpy, pm, view->x->gc,
1188                       x + 13 - offset, y - 5 + offset,
1189                       x - 1 - offset, y + 9 + offset);
1190             XSetForeground(view->x->dpy, view->x->gc,
1191                            view->pixels[COLOR_WHITE]);
1192             XDrawLine(view->x->dpy, pm, view->x->gc,
1193                       x + 11 - offset, y - 7 + offset,
1194                       x - 3 - offset, y + 7 + offset);
1195             XFillArc(view->x->dpy, pm, view->x->gc,
1196                      x + 8 - offset, y - 9 + offset, 7, 7, 0, 360 * 64);
1197             XSetLineAttributes(view->x->dpy, view->x->gc, 1,
1198                                LineSolid, CapButt, JoinMiter);
1199           } else {
1200             XSetLineAttributes(view->x->dpy, view->x->gc, 3,
1201                                LineSolid, CapRound, JoinMiter);
1202             XSetStipple(view->x->dpy, view->x->gc,
1203                         view->x->gray25_stipple);
1204             XSetTSOrigin(view->x->dpy, view->x->gc, 0, 0);
1205             XSetForeground(view->x->dpy, view->x->gc,
1206                            view->x->pixels[COLOR_BLACK]);
1207             XSetBackground(view->x->dpy, view->x->gc,
1208                            view->x->pixels[COLOR_WHITE]);
1209             XSetFillStyle(view->x->dpy, view->x->gc, FillOpaqueStippled);
1210             XFillArc(view->x->dpy, pm, view->x->gc,
1211                      x - 6 - offset, y + 5 + offset, 7, 7, 0, 360 * 64);
1212             XDrawLine(view->x->dpy, pm, view->x->gc,
1213                       x + 13 - offset, y - 5 + offset,
1214                       x - 1 - offset, y + 9 + offset);
1215             XSetStipple(view->x->dpy, view->x->gc,
1216                         view->x->gray75_stipple);
1217             XDrawLine(view->x->dpy, pm, view->x->gc,
1218                       x + 11 - offset, y - 7 + offset,
1219                       x - 3 - offset, y + 7 + offset);
1220             XFillArc(view->x->dpy, pm, view->x->gc,
1221                      x + 8 - offset, y - 9 + offset, 7, 7, 0, 360 * 64);
1222             XSetLineAttributes(view->x->dpy, view->x->gc, 1,
1223                                LineSolid, CapButt, JoinMiter);
1224             XSetFillStyle(view->x->dpy, view->x->gc, FillSolid);
1225           }
1226
1227           break;
1228
1229         case eraserState:
1230           x += left; y += top;
1231           if (mode == 1) {
1232             offset = 0;
1233           } else {
1234             offset = 2;
1235
1236             if (view->x->color) {
1237               XSetForeground(view->x->dpy, view->x->gc,
1238                              view->pixels[COLOR_MEDIUMGRAY]);
1239               XFillRectangle(view->x->dpy, pm, view->x->gc,
1240                        x - 8, y - 8, 16, 16);
1241             } else {
1242               XSetStipple(view->x->dpy, view->x->gc,
1243                           view->x->gray50_stipple);
1244               XSetTSOrigin(view->x->dpy, view->x->gc, 0, 0);
1245               XSetForeground(view->x->dpy, view->x->gc,
1246                              view->x->pixels[COLOR_BLACK]);
1247               XSetBackground(view->x->dpy, view->x->gc,
1248                              view->x->pixels[COLOR_WHITE]);
1249               XSetFillStyle(view->x->dpy, view->x->gc, FillOpaqueStippled);
1250               XFillRectangle(view->x->dpy, pm, view->x->gc,
1251                        x - 8, y - 8, 16, 16);
1252               XSetFillStyle(view->x->dpy, view->x->gc, FillSolid);
1253             }
1254           }
1255
1256           if (view->x->color) {
1257             XSetForeground(view->x->dpy, view->x->gc,
1258                            view->pixels[COLOR_LIGHTGRAY]);
1259           } else {
1260             XSetStipple(view->x->dpy, view->x->gc,
1261                         view->x->gray75_stipple);
1262             XSetTSOrigin(view->x->dpy, view->x->gc, 0, 0);
1263             XSetForeground(view->x->dpy, view->x->gc,
1264                            view->x->pixels[COLOR_BLACK]);
1265             XSetBackground(view->x->dpy, view->x->gc,
1266                            view->x->pixels[COLOR_WHITE]);
1267             XSetFillStyle(view->x->dpy, view->x->gc, FillOpaqueStippled);
1268           }
1269
1270           /* top */
1271           XDrawLine(view->x->dpy, pm, view->x->gc,
1272                     x - 8 + offset, y - 8 - offset,
1273                     x + 8 + offset, y - 8 - offset);
1274           XDrawLine(view->x->dpy, pm, view->x->gc,
1275                     x - 7 + offset, y - 7 - offset,
1276                     x + 7 + offset, y - 7 - offset);
1277           XDrawLine(view->x->dpy, pm, view->x->gc,
1278                     x - 6 + offset, y - 6 - offset,
1279                     x + 6 + offset, y - 6 - offset);
1280
1281           /* left */
1282           XDrawLine(view->x->dpy, pm, view->x->gc,
1283                     x - 8 + offset, y - 8 - offset,
1284                     x - 8 + offset, y + 8 - offset);
1285           XDrawLine(view->x->dpy, pm, view->x->gc,
1286                     x - 7 + offset, y - 7 - offset,
1287                     x - 7 + offset, y + 7 - offset);
1288           XDrawLine(view->x->dpy, pm, view->x->gc,
1289                     x - 6 + offset, y - 6 - offset,
1290                     x - 6 + offset, y + 6 - offset);
1291
1292           if (view->x->color) {
1293             XSetForeground(view->x->dpy, view->x->gc,
1294                            view->pixels[COLOR_BLACK]);
1295           } else {
1296             XSetFillStyle(view->x->dpy, view->x->gc, FillSolid);
1297           }
1298
1299           /* bottom */
1300           XDrawLine(view->x->dpy, pm, view->x->gc,
1301                     x - 7 + offset, y + 7 - offset,
1302                     x + 8 + offset, y + 7 - offset);
1303           XDrawLine(view->x->dpy, pm, view->x->gc,
1304                     x - 6 + offset, y + 6 - offset,
1305                     x + 7 + offset, y + 6 - offset);
1306           XDrawLine(view->x->dpy, pm, view->x->gc,
1307                     x - 5 + offset, y + 5 - offset,
1308                     x + 6 + offset, y + 5 - offset);
1309
1310           /* right */
1311           XDrawLine(view->x->dpy, pm, view->x->gc,
1312                     x + 7 + offset, y + 8 - offset,
1313                     x + 7 + offset, y - 7 - offset);
1314           XDrawLine(view->x->dpy, pm, view->x->gc,
1315                     x + 6 + offset, y + 7 - offset,
1316                     x + 6 + offset, y - 6 - offset);
1317           XDrawLine(view->x->dpy, pm, view->x->gc,
1318                     x + 5 + offset, y + 6 - offset,
1319                     x + 5 + offset, y - 5 - offset);
1320
1321           if (view->x->color) {
1322             XSetForeground(view->x->dpy, view->x->gc,
1323                            view->pixels[COLOR_DARKGRAY]);
1324             XFillRectangle(view->x->dpy, pm, view->x->gc,
1325                            x - 5 + offset, y - 5 - offset, 10, 10);
1326           } else {
1327             XSetStipple(view->x->dpy, view->x->gc,
1328                         view->x->gray50_stipple);
1329             XSetForeground(view->x->dpy, view->x->gc,
1330                            view->x->pixels[COLOR_BLACK]);
1331             XSetBackground(view->x->dpy, view->x->gc,
1332                            view->x->pixels[COLOR_WHITE]);
1333             XSetFillStyle(view->x->dpy, view->x->gc, FillOpaqueStippled);
1334             XFillRectangle(view->x->dpy, pm, view->x->gc,
1335                            x - 5 + offset, y - 5 - offset, 10, 10);
1336             XSetFillStyle(view->x->dpy, view->x->gc, FillSolid);
1337           }
1338
1339           break;
1340
1341         default:
1342           offset = toolOffset[v->tool_state];
1343
1344           bg = (toolColors[v->tool_state] >> 8) & 0xff;
1345
1346           x = (x & ~15) - (offset <<4);
1347           y = (y & ~15) - (offset <<4);
1348           size <<= 4;
1349           x += left; y += top;
1350
1351           XSetForeground(view->x->dpy, view->x->gc,
1352                          view->pixels[dark]);
1353           XDrawRectangle(view->x->dpy, pm, view->x->gc,
1354                          x - 1, y - 1, size + 4, size + 4);
1355           XDrawLine(view->x->dpy, pm, view->x->gc,
1356                     x - 3, y + size + 3,
1357                     x - 1, y + size + 3);
1358           XDrawLine(view->x->dpy, pm, view->x->gc,
1359                     x + size + 3, y - 3,
1360                     x + size + 3, y - 1);
1361
1362           XSetForeground(view->x->dpy, view->x->gc,
1363                          view->pixels[light]);
1364           XDrawRectangle(view->x->dpy, pm, view->x->gc,
1365                          x - 4, y - 4, size + 4, size + 4);
1366           XDrawLine(view->x->dpy, pm, view->x->gc,
1367                     x - 4, y + size + 1,
1368                     x - 4, y + size + 3);
1369           XDrawLine(view->x->dpy, pm, view->x->gc,
1370                     x + size + 1, y - 4,
1371                     x + size + 3, y - 4);
1372
1373           if (view->x->color) {
1374             if (fg == bg) {
1375               XSetForeground(view->x->dpy, view->x->gc,
1376                              view->x->pixels[fg]);
1377               XSetLineAttributes(view->x->dpy, view->x->gc, 2,
1378                                  LineSolid, CapButt, JoinMiter);
1379             } else {
1380               XSetForeground(view->x->dpy, view->x->gc,
1381                              view->x->pixels[fg]);
1382               XSetBackground(view->x->dpy, view->x->gc,
1383                              view->pixels[bg]);
1384
1385               XSetLineAttributes(view->x->dpy, view->x->gc, 2,
1386                                  LineDoubleDash, CapButt, JoinMiter);
1387               XSetDashes(view->x->dpy, view->x->gc, 0, CursorDashes, 2);
1388             }
1389           } else {
1390             XSetStipple(view->x->dpy, view->x->gc,
1391                         view->x->gray50_stipple);
1392             XSetForeground(view->x->dpy, view->x->gc,
1393                            view->x->pixels[COLOR_BLACK]);
1394             XSetBackground(view->x->dpy, view->x->gc,
1395                            view->x->pixels[COLOR_WHITE]);
1396             XSetFillStyle(view->x->dpy, view->x->gc, FillOpaqueStippled);
1397             XSetLineAttributes(view->x->dpy, view->x->gc, 2,
1398                                LineSolid, CapButt, JoinMiter);
1399           }
1400
1401           XDrawLine(view->x->dpy, pm, view->x->gc,
1402                     x - 2, y - 1, x - 2, y + size + 3);
1403           XDrawLine(view->x->dpy, pm, view->x->gc,
1404                     x - 1, y + size + 2, x + size + 3, y + size + 2);
1405           XDrawLine(view->x->dpy, pm, view->x->gc,
1406                     x + size + 2, y + size + 1, x + size + 2, y - 3);
1407           XDrawLine(view->x->dpy, pm, view->x->gc,
1408                     x + size + 1, y - 2, x - 3, y - 2);
1409
1410           if (!view->x->color) {
1411             XSetFillStyle(view->x->dpy, view->x->gc, FillSolid);
1412           }
1413           XSetLineAttributes(view->x->dpy, view->x->gc, 1,
1414                              LineSolid, CapButt, JoinMiter);
1415
1416           break;
1417         }
1418       }
1419     }
1420   }
1421 }
1422
1423
1424 void
1425 TimeElapsed(struct timeval *elapsed,
1426             struct timeval *start,
1427             struct timeval *finish)
1428 {
1429   int usec = finish->tv_usec - start->tv_usec;
1430   int sec = finish->tv_sec - start->tv_sec;
1431
1432   while (usec < 0) {
1433     usec += 1000000;
1434     sec--;
1435   }
1436   elapsed->tv_usec = usec;
1437   elapsed->tv_sec = sec;
1438 }
1439
1440
1441
1442 void
1443 DrawOverlay(SimView *view)
1444 {
1445   int width = view->w_width;
1446   int height = view->w_height;
1447   int left = view->pan_x - (width / 2);
1448   int top = view->pan_y - (height / 2);
1449   int right = left + width;
1450   int bottom = top + height;
1451   int showing = 0;
1452   Ink *ink;
1453   struct timeval start, finished, elapsed;
1454
1455   for (ink = sim->overlay; ink != NULL; ink = ink->next) {
1456     if ((ink->bottom >= top) && (ink->top <= bottom) &&
1457         (ink->right >= left) && (ink->left <= right)) {
1458       showing = 1;
1459       break;
1460     }
1461   }
1462
1463   if (!showing) return;
1464
1465 /* overlay_mode state machine:
1466    0 => overlay invalid:
1467         draw lines to pm => 1
1468    1 => overlay stable:
1469         sync, time draw lines to pm => 2
1470    2 => overlay stable:
1471         draw lines to ol,
1472         sync, time clip ol to pm,
1473         lines faster? => 3,
1474         clipping faster? => 4
1475    3 => lines faster:
1476         draw lines to pm => 3
1477    4 => clipping faster:
1478         clip ol to pm => 4
1479 */
1480
1481   switch (view->overlay_mode) {
1482   case 0:
1483     DrawTheOverlay(view, view->x->gc,
1484                    view->pixmap2, view->pixels[COLOR_WHITE],
1485                    top, bottom, left, right, 0);
1486     view->overlay_mode = 1;
1487     break;
1488   case 1:
1489     XSync(view->x->dpy, False);
1490     gettimeofday(&start, NULL);
1491     DrawTheOverlay(view, view->x->gc,
1492                    view->pixmap2, view->pixels[COLOR_WHITE],
1493                    top, bottom, left, right, 0);
1494     XSync(view->x->dpy, False);
1495     gettimeofday(&finished, NULL);
1496     TimeElapsed(&view->overlay_time, &start, &finished);
1497     view->overlay_mode = 2;
1498     break;
1499   case 2:
1500     XSetForeground(view->x->dpy, view->x->overlay_gc, 0);
1501     XFillRectangle(view->x->dpy, view->overlay_pixmap, view->x->overlay_gc,
1502                    0, 0, view->m_width, view->m_height);
1503     DrawTheOverlay(view, view->x->overlay_gc,
1504                    view->overlay_pixmap, 1,
1505                    top, bottom, left, right, 1);
1506     XSync(view->x->dpy, False);
1507     gettimeofday(&start, NULL);
1508     ClipTheOverlay(view);
1509     XSync(view->x->dpy, False);
1510     gettimeofday(&finished, NULL);
1511     TimeElapsed(&elapsed, &start, &finished);
1512     if ((elapsed.tv_sec > view->overlay_time.tv_sec) ||
1513         ((elapsed.tv_sec == view->overlay_time.tv_sec) &&
1514          ((elapsed.tv_usec > view->overlay_time.tv_usec)))) {
1515       view->overlay_mode = 3;
1516     } else {
1517       view->overlay_mode = 4;
1518     }
1519     break;
1520   case 3:
1521     DrawTheOverlay(view, view->x->gc,
1522                    view->pixmap2, view->pixels[COLOR_WHITE],
1523                    top, bottom, left, right, 0);
1524     break;
1525   case 4:
1526     ClipTheOverlay(view);
1527     break;
1528   }
1529 }
1530
1531
1532 void
1533 DrawTheOverlay(SimView *view, GC gc, Pixmap pm, int color,
1534                int top, int bottom, int left, int right,
1535                int onoverlay)
1536 {
1537   Ink *ink;
1538
1539   if (view->x->color) {
1540     XSetForeground(view->x->dpy, gc, color);
1541     XSetLineAttributes(view->x->dpy, gc, 3,
1542                        LineSolid, CapButt, JoinBevel);
1543   } else {
1544     if (!onoverlay) {
1545       XSetStipple(view->x->dpy, gc, view->x->gray50_stipple);
1546       XSetTSOrigin(view->x->dpy, gc, view->updates & 1, 0);
1547       XSetBackground(view->x->dpy, gc, 0);
1548       XSetFillStyle(view->x->dpy, gc, FillOpaqueStippled);
1549     }
1550     XSetForeground(view->x->dpy, gc, 1);
1551     XSetLineAttributes(view->x->dpy, gc, 3,
1552                        LineSolid, CapButt, JoinBevel);
1553   }
1554   for (ink = sim->overlay; ink != NULL; ink = ink->next) {
1555     if ((ink->bottom >= top) && (ink->top <= bottom) &&
1556         (ink->right >= left) && (ink->left <= right)) {
1557       if (ink->length <= 1) {
1558         XFillArc(view->x->dpy, pm, gc,
1559                  ink->x - 3, ink->y - 3, 6, 6, 0, 360 * 64);
1560       } else {
1561         ink->points[0].x = ink->x - left;
1562         ink->points[0].y = ink->y - top;
1563         XDrawLines(view->x->dpy, pm, gc,
1564                    ink->points, ink->length, CoordModePrevious);
1565       }
1566     }
1567   }
1568   if (!view->x->color) {
1569     XSetFillStyle(view->x->dpy, gc, FillSolid);
1570   }
1571   XSetLineAttributes(view->x->dpy, gc, 1,
1572                      LineSolid, CapButt, JoinMiter);
1573 }
1574
1575
1576 void
1577 ClipTheOverlay(SimView *view)
1578 {
1579   if (view->x->color) {
1580     XSetForeground(view->x->dpy, view->x->gc, view->pixels[COLOR_WHITE]);
1581     XSetFillStyle(view->x->dpy, view->x->gc, FillStippled);
1582     XSetStipple(view->x->dpy, view->x->gc, view->overlay_pixmap);
1583     XSetTSOrigin(view->x->dpy, view->x->gc, 0, 0);
1584     XFillRectangle(view->x->dpy, view->pixmap2, view->x->gc,
1585                    0, 0, view->w_width, view->w_height);
1586     XSetFillStyle(view->x->dpy, view->x->gc, FillSolid);
1587   } else {
1588     XSetStipple(view->x->dpy, view->x->gc, view->x->gray50_stipple);
1589     XSetTSOrigin(view->x->dpy, view->x->gc, view->updates & 1, 0);
1590     XSetForeground(view->x->dpy, view->x->gc, view->pixels[COLOR_WHITE]);
1591     XSetBackground(view->x->dpy, view->x->gc, view->pixels[COLOR_BLACK]);
1592     XSetFillStyle(view->x->dpy, view->x->gc, FillOpaqueStippled);
1593     XSetLineAttributes(view->x->dpy, view->x->gc, 3,
1594                        LineSolid, CapButt, JoinBevel);
1595     XSetClipOrigin(view->x->dpy, view->x->gc, 0, 0);
1596     XSetClipMask(view->x->dpy, view->x->gc, view->overlay_pixmap);
1597     XFillRectangle(view->x->dpy, view->pixmap2, view->x->gc,
1598                    0, 0, view->w_width, view->w_height);
1599     XSetFillStyle(view->x->dpy, view->x->gc, FillSolid);
1600     XSetClipMask(view->x->dpy, view->x->gc, None);
1601   }
1602 }