]> git.zerfleddert.de Git - micropolis/blob - src/sim/w_tool.c
rename setenv and unsetenv to not clash with functions provided by libc
[micropolis] / src / sim / w_tool.c
1 /* w_tool.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 short specialBase = CHURCH;
66 int OverRide = 0;
67 int Expensive = 1000;
68 int Players = 1;
69 int Votes = 0;
70 int PendingTool = -1;
71 int PendingX;
72 int PendingY;
73
74
75 QUAD CostOf[] = {
76 100, 100, 100, 500,
77 0, 500, 5, 1,
78 20, 10, 0, 0,
79 5000, 10, 3000, 3000,
80 5000, 10000, 100, 0,
81 };
82
83
84 short toolSize[] = {
85 3, 3, 3, 3,
86 1, 3, 1, 1,
87 1, 1, 0, 0,
88 4, 1, 4, 4,
89 4, 6, 1, 0,
90 };
91
92
93 short toolOffset[] = {
94 1, 1, 1, 1,
95 0, 1, 0, 0,
96 0, 0, 0, 0,
97 1, 0, 1, 1,
98 1, 1, 0, 0,
99 };
100
101
102 QUAD toolColors[] = {
103 COLOR_LIGHTGREEN | (COLOR_LIGHTGREEN << 8), /* residentialState */
104 COLOR_LIGHTBLUE | (COLOR_LIGHTBLUE << 8), /* commercialState */
105 COLOR_YELLOW | (COLOR_YELLOW << 8), /* industrialState */
106 COLOR_LIGHTGREEN | (COLOR_RED << 8), /* fireState */
107 COLOR_ORANGE | (COLOR_ORANGE << 8), /* queryState */
108 COLOR_LIGHTGREEN | (COLOR_LIGHTBLUE << 8), /* policeState */
109 COLOR_DARKGRAY | (COLOR_YELLOW << 8), /* wireState */
110 COLOR_LIGHTBROWN | (COLOR_LIGHTBROWN << 8), /* dozeState */
111 COLOR_DARKGRAY | (COLOR_OLIVE << 8), /* rrState */
112 COLOR_DARKGRAY | (COLOR_WHITE << 8), /* roadState */
113 COLOR_LIGHTGRAY | (COLOR_LIGHTGRAY << 8), /* chalkState */
114 COLOR_DARKGRAY | (COLOR_DARKGRAY << 8), /* eraserState */
115 COLOR_LIGHTGRAY | (COLOR_LIGHTGREEN << 8), /* stadiumState */
116 COLOR_LIGHTBROWN | (COLOR_LIGHTGREEN << 8), /* parkState */
117 COLOR_LIGHTGRAY | (COLOR_LIGHTBLUE << 8), /* seaportState */
118 COLOR_LIGHTGRAY | (COLOR_YELLOW << 8), /* powerState */
119 COLOR_LIGHTGRAY | (COLOR_YELLOW << 8), /* nuclearState */
120 COLOR_LIGHTGRAY | (COLOR_LIGHTBROWN << 8), /* airportState */
121 COLOR_LIGHTGRAY | (COLOR_RED << 8), /* networkState */
122 };
123
124
125 Ink *NewInk();
126
127 short tally(short tileValue);
128 int DoSetWandState(SimView *view, short state);
129
130
131 /*************************************************************************/
132 /* UTILITIES */
133
134
135 setWandState(SimView *view, short state)
136 {
137 #if 0
138 if (state < 0) {
139 specialBase = -state;
140 state = specialState;
141 }
142 #endif
143
144 view->tool_state = state;
145 DoUpdateHeads();
146 DoSetWandState(view, state);
147 }
148
149
150 int
151 putDownPark(SimView *view, short mapH, short mapV)
152 {
153 short value, tile;
154
155 if (TotalFunds - CostOf[parkState] >= 0) {
156 value = Rand(4);
157
158 if (value == 4)
159 tile = FOUNTAIN | BURNBIT | BULLBIT | ANIMBIT;
160 else
161 tile = (value + WOODS2) | BURNBIT | BULLBIT;
162
163 if (Map[mapH][mapV] == 0) {
164 Spend(CostOf[parkState]);
165 UpdateFunds();
166 Map[mapH][mapV] = tile;
167 return 1;
168 }
169 return -1;
170 }
171 return -2;
172 }
173
174
175 int
176 putDownNetwork(SimView *view, short mapH, short mapV)
177 {
178 int tile = Map[mapH][mapV] & LOMASK;
179
180 if ((TotalFunds > 0) && tally(tile)) {
181 Map[mapH][mapV] = tile = 0;
182 Spend(1);
183 }
184
185 if (tile == 0) {
186 if ((TotalFunds - CostOf[view->tool_state]) >= 0) {
187 Map[mapH][mapV] = TELEBASE | CONDBIT | BURNBIT | BULLBIT | ANIMBIT;
188 Spend(CostOf[view->tool_state]);
189 return 1;
190 } else {
191 return -2;
192 }
193 } else {
194 return -1;
195 }
196 }
197
198
199 short
200 checkBigZone(short id, short *deltaHPtr, short *deltaVPtr)
201 {
202 switch (id) {
203 case POWERPLANT: /* check coal plant */
204 case PORT: /* check sea port */
205 case NUCLEAR: /* check nuc plant */
206 case STADIUM: /* check stadium */
207 *deltaHPtr = 0; *deltaVPtr = 0; return (4);
208
209 case POWERPLANT + 1: /* check coal plant */
210 case COALSMOKE3: /* check coal plant, smoke */
211 case COALSMOKE3 + 1: /* check coal plant, smoke */
212 case COALSMOKE3 + 2: /* check coal plant, smoke */
213 case PORT + 1: /* check sea port */
214 case NUCLEAR + 1: /* check nuc plant */
215 case STADIUM + 1: /* check stadium */
216 *deltaHPtr = -1; *deltaVPtr = 0; return (4);
217
218 case POWERPLANT + 4: /* check coal plant */
219 case PORT + 4: /* check sea port */
220 case NUCLEAR + 4: /* check nuc plant */
221 case STADIUM + 4: /* check stadium */
222 *deltaHPtr = 0; *deltaVPtr = -1; return (4);
223
224 case POWERPLANT + 5: /* check coal plant */
225 case PORT + 5: /* check sea port */
226 case NUCLEAR + 5: /* check nuc plant */
227 case STADIUM + 5: /* check stadium */
228 *deltaHPtr = -1; *deltaVPtr = -1; return (4);
229
230 /* check airport */
231 /*** first row ***/
232 case AIRPORT:
233 *deltaHPtr = 0; *deltaVPtr = 0; return (6);
234 case AIRPORT + 1:
235 *deltaHPtr = -1; *deltaVPtr = 0; return (6);
236 case AIRPORT + 2:
237 *deltaHPtr = -2; *deltaVPtr = 0; return (6);
238 case AIRPORT + 3:
239 *deltaHPtr = -3; *deltaVPtr = 0; return (6);
240
241 /*** second row ***/
242 case AIRPORT + 6:
243 *deltaHPtr = 0; *deltaVPtr = -1; return (6);
244 case AIRPORT + 7:
245 *deltaHPtr = -1; *deltaVPtr = -1; return (6);
246 case AIRPORT + 8:
247 *deltaHPtr = -2; *deltaVPtr = -1; return (6);
248 case AIRPORT + 9:
249 *deltaHPtr = -3; *deltaVPtr = -1; return (6);
250
251 /*** third row ***/
252 case AIRPORT + 12:
253 *deltaHPtr = 0; *deltaVPtr = -2; return (6);
254 case AIRPORT + 13:
255 *deltaHPtr = -1; *deltaVPtr = -2; return (6);
256 case AIRPORT + 14:
257 *deltaHPtr = -2; *deltaVPtr = -2; return (6);
258 case AIRPORT + 15:
259 *deltaHPtr = -3; *deltaVPtr = -2; return (6);
260
261 /*** fourth row ***/
262 case AIRPORT + 18:
263 *deltaHPtr = 0; *deltaVPtr = -3; return (6);
264 case AIRPORT + 19:
265 *deltaHPtr = -1; *deltaVPtr = -3; return (6);
266 case AIRPORT + 20:
267 *deltaHPtr = -2; *deltaVPtr = -3; return (6);
268 case AIRPORT + 21:
269 *deltaHPtr = -3; *deltaVPtr = -3; return (6);
270
271 default:
272 *deltaHPtr = 0; *deltaVPtr = 0; return (0);
273 }
274 }
275
276
277 short
278 tally(short tileValue)
279 {
280 /* can we autobulldoze this tile? */
281 if (((tileValue >= FIRSTRIVEDGE) &&
282 (tileValue <= LASTRUBBLE)) ||
283 ((tileValue >= (POWERBASE + 2)) &&
284 (tileValue <= (POWERBASE + 12))) ||
285 ((tileValue >= TINYEXP) &&
286 (tileValue <= (LASTTINYEXP + 2)))) { /* ??? */
287 return (1);
288 } else {
289 return (0);
290 }
291 }
292
293
294 short
295 checkSize(short temp)
296 {
297 /* check for the normal com, resl, ind 3x3 zones & the fireDept & PoliceDept */
298 if (((temp >= (RESBASE - 1)) && (temp <= (PORTBASE - 1))) ||
299 ((temp >= (LASTPOWERPLANT + 1)) && (temp <= (POLICESTATION + 4)))) {
300 return (3);
301 } else if (((temp >= PORTBASE) && (temp <= LASTPORT)) ||
302 ((temp >= COALBASE) && (temp <= LASTPOWERPLANT)) ||
303 ((temp >= STADIUMBASE) && (temp <= LASTZONE))) {
304 return (4);
305 }
306 return (0);
307 }
308
309
310 /* 3x3 */
311
312
313 void
314 check3x3border(short xMap, short yMap)
315 {
316 short xPos, yPos;
317 short cnt;
318
319 xPos = xMap; yPos = yMap - 1;
320 for (cnt = 0; cnt < 3; cnt++) {
321 /*** this will do the upper bordering row ***/
322 ConnecTile(xPos, yPos, &Map[xPos][yPos], 0);
323 xPos++;
324 }
325
326 xPos = xMap - 1; yPos = yMap;
327 for (cnt = 0; cnt < 3; cnt++) {
328 /*** this will do the left bordering row ***/
329 ConnecTile(xPos, yPos, &Map[xPos][yPos], 0);
330 yPos++;
331 }
332
333 xPos = xMap; yPos = yMap + 3;
334 for (cnt = 0; cnt < 3; cnt++) {
335 /*** this will do the bottom bordering row ***/
336 ConnecTile(xPos, yPos, &Map[xPos][yPos], 0);
337 xPos++;
338 }
339
340 xPos = xMap + 3; yPos = yMap;
341 for (cnt = 0; cnt < 3; cnt++) {
342 /*** this will do the right bordering row ***/
343 ConnecTile(xPos, yPos, &Map[xPos][yPos], 0);
344 yPos++;
345 }
346 }
347
348
349 int
350 check3x3(SimView *view, short mapH, short mapV, short base, short tool)
351 {
352 register short rowNum, columnNum;
353 register short holdMapH, holdMapV;
354 short xPos, yPos;
355 short cost = 0;
356 short tileValue;
357 short flag;
358
359 mapH--; mapV--;
360 if ((mapH < 0) || (mapH > (WORLD_X - 3)) ||
361 (mapV < 0) || (mapV > (WORLD_Y - 3))) {
362 return -1;
363 }
364
365 xPos = holdMapH = mapH;
366 yPos = holdMapV = mapV;
367
368 flag = 1;
369
370 for (rowNum = 0; rowNum <= 2; rowNum++) {
371 mapH = holdMapH;
372
373 for (columnNum = 0; columnNum <= 2; columnNum++) {
374 tileValue = Map[mapH++][mapV] & LOMASK;
375
376 if (autoBulldoze) {
377 /* if autoDoze is enabled, add up the cost of bulldozed tiles */
378 if (tileValue != 0) {
379 if (tally(tileValue)) {
380 cost++;
381 } else {
382 flag = 0;
383 }
384 }
385 } else {
386 /* check and see if the tile is clear or not */
387 if (tileValue != 0) {
388 flag = 0;
389 }
390 }
391 }
392 mapV++;
393 }
394
395 if (flag == 0) {
396 return -1;
397 }
398
399 cost += CostOf[tool];
400
401 if ((TotalFunds - cost) < 0) {
402 return -2;
403 }
404
405 if ((Players > 1) &&
406 (OverRide == 0) &&
407 (cost >= Expensive) &&
408 (view != NULL) &&
409 (view->super_user == 0)) {
410 return -3;
411 }
412
413 /* take care of the money situtation here */
414 Spend(cost);
415 UpdateFunds();
416
417 mapV = holdMapV;
418
419 for (rowNum = 0; rowNum <= 2; rowNum++) {
420 mapH = holdMapH;
421
422 for (columnNum = 0; columnNum <= 2; columnNum++) {
423 if (columnNum == 1 && rowNum == 1) {
424 Map[mapH++][mapV] = base + BNCNBIT + ZONEBIT;
425 } else {
426 Map[mapH++][mapV] = base + BNCNBIT;
427 }
428 base++;
429 }
430 mapV++;
431 }
432 check3x3border(xPos, yPos);
433 return 1;
434 }
435
436
437 /* 4x4 */
438
439
440 void
441 check4x4border(short xMap, short yMap)
442 {
443 Ptr tilePtr;
444 short xPos, yPos;
445 short cnt;
446
447 xPos = xMap; yPos = yMap - 1;
448 for (cnt = 0; cnt < 4; cnt++) {
449 /* this will do the upper bordering row */
450 tilePtr = (Ptr) &Map[xPos][yPos];
451 ConnecTile(xPos, yPos, tilePtr, 0);
452 xPos++;
453 }
454
455 xPos = xMap - 1; yPos = yMap;
456 for (cnt = 0; cnt < 4; cnt++) {
457 /* this will do the left bordering row */
458 tilePtr = (Ptr) &Map[xPos][yPos];
459 ConnecTile(xPos, yPos, tilePtr, 0);
460 yPos++;
461 }
462
463 xPos = xMap; yPos = yMap + 4;
464 for (cnt = 0; cnt < 4;cnt++) {
465 /* this will do the bottom bordering row */
466 tilePtr = (Ptr) &Map[xPos][yPos];
467 ConnecTile(xPos, yPos, tilePtr, 0);
468 xPos++;
469 }
470
471 xPos = xMap + 4; yPos = yMap;
472 for (cnt = 0; cnt < 4; cnt++) {
473 /* this will do the right bordering row */
474 tilePtr = (Ptr) &Map[xPos][yPos];
475 ConnecTile(xPos, yPos, tilePtr, 0);
476 yPos++;
477 }
478 }
479
480
481 short
482 check4x4(SimView *view, short mapH, short mapV,
483 short base, short aniFlag, short tool)
484 {
485 register short rowNum, columnNum;
486 short h, v;
487 short holdMapH;
488 short xMap, yMap;
489 short tileValue;
490 short flag;
491 short cost = 0;
492
493 mapH--; mapV--;
494 if ((mapH < 0) || (mapH > (WORLD_X - 4)) ||
495 (mapV < 0) || (mapV > (WORLD_Y - 4))) {
496 return -1;
497 }
498
499 h = xMap = holdMapH = mapH;
500 v = yMap = mapV;
501
502 flag = 1;
503
504 for (rowNum = 0; rowNum <= 3; rowNum++) {
505 mapH = holdMapH;
506
507 for (columnNum = 0; columnNum <= 3; columnNum++) {
508 tileValue = Map[mapH++][mapV] & LOMASK;
509
510 if (autoBulldoze) {
511 /* if autoDoze is enabled, add up the cost of bulldozed tiles */
512 if (tileValue != 0) {
513 if (tally(tileValue)) {
514 cost++;
515 } else {
516 flag = 0;
517 }
518 }
519 } else {
520 /* check and see if the tile is clear or not */
521 if (tileValue != 0) {
522 flag = 0;
523 }
524 }
525 }
526 mapV++;
527 }
528
529 if (flag == 0) {
530 return -1;
531 }
532
533 cost += CostOf[tool];
534
535 if ((TotalFunds - cost) < 0) {
536 return -2;
537 }
538
539 if ((Players > 1) &&
540 (OverRide == 0) &&
541 (cost >= Expensive) &&
542 (view != NULL) &&
543 (view->super_user == 0)) {
544 return -3;
545 }
546
547 /* take care of the money situtation here */
548 Spend(cost);
549 UpdateFunds();
550
551 mapV = v; holdMapH = h;
552
553 for (rowNum = 0; rowNum <= 3; rowNum++) {
554 mapH = holdMapH;
555
556 for (columnNum = 0; columnNum <= 3; columnNum++) {
557 if (columnNum == 1 && rowNum == 1)
558 Map[mapH++][mapV] = base + BNCNBIT + ZONEBIT;
559 else if (columnNum == 1 && rowNum == 2 && aniFlag)
560 Map[mapH++][mapV] = base + BNCNBIT + ANIMBIT;
561 else
562 Map[mapH++][mapV] = base + BNCNBIT;
563 base++;
564 }
565 mapV++;
566 }
567 check4x4border(xMap, yMap);
568 return 1;
569 }
570
571
572 /* 6x6 */
573
574
575 void
576 check6x6border(short xMap, short yMap)
577 {
578 short xPos, yPos;
579 short cnt;
580
581 xPos = xMap; yPos = yMap - 1;
582 for (cnt = 0; cnt < 6; cnt++) {
583 /* this will do the upper bordering row */
584 ConnecTile(xPos, yPos, &Map[xPos][yPos], 0);
585 xPos++;
586 }
587
588 xPos = xMap - 1; yPos = yMap;
589 for (cnt=0; cnt < 6; cnt++) {
590 /* this will do the left bordering row */
591 ConnecTile(xPos, yPos, &Map[xPos][yPos], 0);
592 yPos++;
593 }
594
595 xPos = xMap; yPos = yMap + 6;
596 for (cnt = 0; cnt < 6; cnt++) {
597 /* this will do the bottom bordering row */
598 ConnecTile(xPos, yPos, &Map[xPos][yPos], 0);
599 xPos++;
600 }
601
602 xPos = xMap + 6; yPos = yMap;
603 for (cnt = 0; cnt < 6; cnt++) {
604 /* this will do the right bordering row */
605 ConnecTile(xPos, yPos, &Map[xPos][yPos], 0);
606 yPos++;
607 }
608 }
609
610
611 short
612 check6x6(SimView *view, short mapH, short mapV, short base, short tool)
613 {
614 register short rowNum, columnNum;
615 short h, v;
616 short holdMapH;
617 short xMap, yMap;
618 short flag;
619 short tileValue;
620 short cost = 0;
621
622 mapH--; mapV--;
623 if ((mapH < 0) || (mapH > (WORLD_X - 6)) ||
624 (mapV < 0) || (mapV > (WORLD_Y - 6)))
625 return -1;
626
627 h = xMap = holdMapH = mapH;
628 v = yMap = mapV;
629
630 flag = 1;
631
632 for (rowNum = 0; rowNum <= 5; rowNum++) {
633 mapH = holdMapH;
634
635 for (columnNum = 0; columnNum <= 5; columnNum++) {
636 tileValue = Map[mapH++][mapV] & LOMASK;
637
638 if (autoBulldoze) {
639 /* if autoDoze is enabled, add up the cost of bulldozed tiles */
640 if (tileValue != 0)
641 if (tally(tileValue)) {
642 cost++;
643 } else {
644 flag = 0;
645 }
646 } else {
647 /* check and see if the tile is clear or not */
648 if (tileValue != 0) {
649 flag = 0;
650 }
651 }
652 }
653 mapV++;
654 }
655
656 if (flag == 0) {
657 return -1;
658 }
659
660 cost += CostOf[tool];
661
662 if ((TotalFunds - cost) < 0) {
663 return -2;
664 }
665
666 if ((Players > 1) &&
667 (OverRide == 0) &&
668 (cost >= Expensive) &&
669 (view != NULL) &&
670 (view->super_user == 0)) {
671 return -3;
672 }
673
674 /* take care of the money situtation here */
675 Spend(cost);
676 UpdateFunds();
677
678 mapV = v; holdMapH = h;
679
680 for (rowNum = 0; rowNum <= 5; rowNum++) {
681 mapH = holdMapH;
682
683 for (columnNum = 0; columnNum <= 5; columnNum++) {
684 if (columnNum == 1 && rowNum == 1) {
685 Map[mapH++][mapV] = base + BNCNBIT + ZONEBIT;
686 } else {
687 Map[mapH++][mapV] = base + BNCNBIT;
688 }
689 base++;
690 }
691 mapV++;
692 }
693 check6x6border(xMap, yMap);
694 return 1;
695 }
696
697
698 /* QUERY */
699
700
701 /* search table for zone status string match */
702 static short idArray[28] = {
703 DIRT, RIVER, TREEBASE, RUBBLE,
704 FLOOD, RADTILE, FIRE, ROADBASE,
705 POWERBASE, RAILBASE, RESBASE, COMBASE,
706 INDBASE, PORTBASE, AIRPORTBASE, COALBASE,
707 FIRESTBASE, POLICESTBASE, STADIUMBASE, NUCLEARBASE,
708 827, 832, FOUNTAIN, INDBASE2,
709 FOOTBALLGAME1, VBRDG0, 952, 956
710 };
711
712 /*
713 0, 2, 21, 44,
714 48, 52, 53, 64,
715 208, 224, 240, 423,
716 612, 693, 709, 745,
717 761, 770, 779, 811,
718 827, 832, 840, 844,
719 932, 948, 952, 956
720
721 Clear, Water, Trees, Rubble,
722 Flood, Radioactive Waste, Fire, Road,
723 Power, Rail, Residential, Commercial,
724 Industrial, Port, AirPort, Coal Power,
725 Fire Department, Police Department, Stadium, Nuclear Power,
726 Draw Bridge, Radar Dish, Fountain, Industrial,
727 49er's 38 Bears 3, Draw Bridge, Ur 238
728 */
729
730
731 int getDensityStr(short catNo, short mapH, short mapV)
732 {
733 int z;
734
735 switch(catNo) {
736 case 0:
737 z = PopDensity[mapH >>1][mapV >>1];
738 z = z >> 6;
739 z = z & 3;
740 return (z);
741 case 1:
742 z = LandValueMem[mapH >>1][mapV >>1];
743 if (z < 30) return (4);
744 if (z < 80) return (5);
745 if (z < 150) return (6);
746 return (7);
747 case 2:
748 z = CrimeMem[mapH >>1][mapV >>1];
749 z = z >> 6;
750 z = z & 3;
751 return (z + 8);
752 case 3:
753 z = PollutionMem[mapH >>1][mapV >>1];
754 if ((z < 64) && (z > 0)) return (13);
755 z = z >> 6;
756 z = z & 3;
757 return (z + 12);
758 case 4:
759 z = RateOGMem[mapH >>3][mapV >>3];
760 if (z < 0) return (16);
761 if (z == 0) return (17);
762 if (z > 100) return (19);
763 return (18);
764 }
765 }
766
767
768 doZoneStatus(short mapH, short mapV)
769 {
770 char localStr[256];
771 char statusStr[5][256];
772 short id;
773 short x;
774 short tileNum;
775 short found;
776
777 tileNum = Map[mapH][mapV] & LOMASK;
778
779 if (tileNum >= COALSMOKE1 && tileNum < FOOTBALLGAME1)
780 tileNum = COALBASE;
781
782 found = 1;
783 for (x = 1; x < 29 && found; x++) {
784 if (tileNum < idArray[x]) {
785 found = 0;
786 }
787 }
788 x--;
789
790 if (x < 1 || x > 28)
791 x = 28;
792
793 GetIndString(localStr, 219, x);
794
795 for (x = 0; x < 5; x++) {
796 id = getDensityStr(x, mapH, mapV);
797 id++;
798 if (id <= 0) id = 1;
799 if (id > 20) id = 20;
800 GetIndString(statusStr[x], 202, id);
801 }
802
803 DoShowZoneStatus(localStr, statusStr[0], statusStr[1],
804 statusStr[2], statusStr[3], statusStr[4], mapH, mapV);
805 }
806
807
808 DoShowZoneStatus(char *str, char *s0, char *s1, char *s2, char *s3, char *s4,
809 int x, int y)
810 {
811 char buf[1024];
812
813 sprintf(buf, "UIShowZoneStatus {%s} {%s} {%s} {%s} {%s} {%s} %d %d",
814 str, s0, s1, s2, s3, s4, x, y);
815 Eval(buf);
816 }
817
818
819 /* comefrom: processWand */
820 put3x3Rubble(short x, short y)
821 {
822 register xx, yy, zz;
823
824 for (xx = x - 1; xx < x + 2; xx++) {
825 for (yy = y - 1; yy < y + 2; yy++) {
826 if (TestBounds(xx, yy)) {
827 zz = Map[xx][yy] & LOMASK;
828 if ((zz != RADTILE) && (zz != 0)) {
829 Map[xx][yy] =
830 (DoAnimation
831 ? (TINYEXP + Rand(2))
832 : SOMETINYEXP)
833 | ANIMBIT | BULLBIT;
834 }
835 }
836 }
837 }
838 }
839
840
841 /* comefrom: processWand */
842 put4x4Rubble(short x, short y)
843 {
844 register xx, yy, zz;
845
846 for (xx = x - 1; xx < x + 3; xx++) {
847 for (yy = y - 1; yy < y + 3; yy++) {
848 if (TestBounds(xx, yy)) {
849 zz = Map[xx][yy] & LOMASK;
850 if ((zz != RADTILE) && (zz != 0)) {
851 Map[xx][yy] =
852 (DoAnimation
853 ? (TINYEXP + Rand(2))
854 : SOMETINYEXP)
855 | ANIMBIT | BULLBIT;
856 }
857 }
858 }
859 }
860 }
861
862
863 /* comefrom: processWand */
864 put6x6Rubble(short x, short y)
865 {
866 register xx, yy, zz;
867
868 for (xx = x - 1; xx < x + 5; xx++) {
869 for (yy = y - 1; yy < y + 5; yy++) {
870 if (TestBounds(xx, yy)) {
871 zz = Map[xx][yy] & LOMASK;
872 if ((zz != RADTILE) && (zz != 0)) {
873 Map[xx][yy] =
874 (DoAnimation
875 ? (TINYEXP + Rand(2))
876 : SOMETINYEXP)
877 | ANIMBIT | BULLBIT;
878 }
879 }
880 }
881 }
882 }
883
884
885 DidTool(SimView *view, char *name, short x, short y)
886 {
887 char buf[256];
888
889 if (view != NULL) {
890 sprintf(buf, "UIDidTool%s %s %d %d",
891 name, Tk_PathName(view->tkwin), x, y);
892 Eval(buf);
893 }
894 }
895
896
897 DoSetWandState(SimView *view, short state)
898 {
899 char buf[256];
900
901 sprintf(buf, "UISetToolState %s %d", Tk_PathName(view->tkwin), state);
902 Eval(buf);
903 }
904
905
906 /************************************************************************/
907 /* TOOLS */
908
909
910 int
911 query_tool(SimView *view, short x, short y)
912 {
913 if ((x < 0) || (x > (WORLD_X - 1)) ||
914 (y < 0) || (y > (WORLD_Y - 1))) {
915 return -1;
916 }
917
918 doZoneStatus(x, y);
919 DidTool(view, "Qry", x, y);
920 return 1;
921 }
922
923
924 int
925 bulldozer_tool(SimView *view, short x, short y)
926 {
927 unsigned short currTile, temp;
928 short zoneSize, deltaH, deltaV;
929 int result = 1;
930
931 if ((x < 0) || (x > (WORLD_X - 1)) ||
932 (y < 0) || (y > (WORLD_Y - 1))) {
933 return -1;
934 }
935
936 currTile = Map[x][y];
937 temp = currTile & LOMASK;
938
939 if (currTile & ZONEBIT) { /* zone center bit is set */
940 if (TotalFunds > 0) {
941 Spend(1);
942 switch (checkSize(temp)) {
943 case 3:
944 MakeSound("city", "Explosion-High");
945 put3x3Rubble(x, y);
946 break;
947
948 case 4:
949 put4x4Rubble(x, y);
950 MakeSound("city", "Explosion-Low");
951 break;
952
953 case 6:
954 MakeSound("city", "Explosion-High");
955 MakeSound("city", "Explosion-Low");
956 put6x6Rubble(x, y);
957 break;
958
959 default:
960 break;
961 }
962 }
963 } else if ((zoneSize = checkBigZone(temp, &deltaH, &deltaV))) {
964 if (TotalFunds > 0) {
965 Spend(1);
966 switch (zoneSize) {
967 case 3:
968 MakeSound("city", "Explosion-High");
969 break;
970
971 case 4:
972 MakeSound("city", "Explosion-Low");
973 put4x4Rubble(x + deltaH, y + deltaV);
974 break;
975
976 case 6:
977 MakeSound("city", "Explosion-High");
978 MakeSound("city", "Explosion-Low");
979 put6x6Rubble(x + deltaH, y + deltaV);
980 break;
981 }
982 }
983 } else {
984 if (temp == RIVER || temp == REDGE || temp == CHANNEL) {
985 if (TotalFunds >= 6) {
986 result = ConnecTile(x, y, &Map[x][y], 1);
987 if (temp != (Map[x][y] & LOMASK)) {
988 Spend(5);
989 }
990 } else {
991 result = 0;
992 }
993 } else {
994 result = ConnecTile(x, y, &Map[x][y], 1);
995 }
996 }
997 UpdateFunds();
998 if (result == 1) {
999 DidTool(view, "Dozr", x, y);
1000 }
1001 return result;
1002 }
1003
1004
1005 int
1006 road_tool(SimView *view, short x, short y)
1007 {
1008 int result;
1009
1010 if ((x < 0) || (x > (WORLD_X - 1)) ||
1011 (y < 0) || (y > (WORLD_Y - 1))) {
1012 return -1;
1013 }
1014
1015 result = ConnecTile(x, y, &Map[x][y], 2);
1016 UpdateFunds();
1017 if (result == 1) {
1018 DidTool(view, "Road", x, y);
1019 }
1020 return result;
1021 }
1022
1023
1024 int
1025 rail_tool(SimView *view, short x, short y)
1026 {
1027 int result;
1028
1029 if ((x < 0) || (x > (WORLD_X - 1)) ||
1030 (y < 0) || (y > (WORLD_Y - 1))) {
1031 return -1;
1032 }
1033
1034 result = ConnecTile(x, y, &Map[x][y], 3);
1035 UpdateFunds();
1036 if (result == 1) {
1037 DidTool(view, "Rail", x, y);
1038 }
1039 return result;
1040 }
1041
1042
1043 int
1044 wire_tool(SimView *view, short x, short y)
1045 {
1046 int result;
1047
1048 if ((x < 0) || (x > (WORLD_X - 1)) ||
1049 (y < 0) || (y > (WORLD_Y - 1))) {
1050 return -1;
1051 }
1052
1053 result = ConnecTile(x, y, &Map[x][y], 4);
1054 UpdateFunds();
1055 if (result == 1) {
1056 DidTool(view, "Wire", x, y);
1057 }
1058 return result;
1059 }
1060
1061
1062 int
1063 park_tool(SimView *view, short x, short y)
1064 {
1065 int result;
1066
1067 if ((x < 0) || (x > (WORLD_X - 1)) ||
1068 (y < 0) || (y > (WORLD_Y - 1)))
1069 return -1;
1070
1071 result = putDownPark(view, x, y);
1072 if (result == 1) {
1073 DidTool(view, "Park", x, y);
1074 }
1075 return result;
1076 }
1077
1078
1079 int
1080 residential_tool(SimView *view, short x, short y)
1081 {
1082 int result;
1083
1084 if ((x < 0) || (x > (WORLD_X - 1)) ||
1085 (y < 0) || (y > (WORLD_Y - 1))) {
1086 return -1;
1087 }
1088
1089 result = check3x3(view, x, y, RESBASE, residentialState);
1090 if (result == 1) {
1091 DidTool(view, "Res", x, y);
1092 }
1093 return result;
1094 }
1095
1096
1097 int
1098 commercial_tool(SimView *view, short x, short y)
1099 {
1100 int result;
1101
1102 if ((x < 0) || (x > (WORLD_X - 1)) ||
1103 (y < 0) || (y > (WORLD_Y - 1))) {
1104 return -1;
1105 }
1106
1107 result = check3x3(view, x, y, COMBASE, commercialState);
1108 if (result == 1) {
1109 DidTool(view, "Com", x, y);
1110 }
1111 return result;
1112 }
1113
1114
1115 int
1116 industrial_tool(SimView *view, short x, short y)
1117 {
1118 int result;
1119
1120 if ((x < 0) || (x > (WORLD_X - 1)) ||
1121 (y < 0) || (y > (WORLD_Y - 1))) {
1122 return -1;
1123 }
1124
1125 result = check3x3(view, x, y, INDBASE, industrialState);
1126 if (result == 1) {
1127 DidTool(view, "Ind", x, y);
1128 }
1129 return result;
1130 }
1131
1132
1133 int
1134 police_dept_tool(SimView *view, short x, short y)
1135 {
1136 int result;
1137
1138 if ((x < 0) || (x > (WORLD_X - 1)) ||
1139 (y < 0) || (y > (WORLD_Y - 1))) {
1140 return -1;
1141 }
1142
1143 result = check3x3(view, x, y, POLICESTBASE, policeState);
1144 if (result == 1) {
1145 DidTool(view, "Pol", x, y);
1146 }
1147 return result;
1148 }
1149
1150
1151 int
1152 fire_dept_tool(SimView *view, short x, short y)
1153 {
1154 int result;
1155
1156 if ((x < 0) || (x > (WORLD_X - 1)) ||
1157 (y < 0) || (y > (WORLD_Y - 1))) {
1158 return -1;
1159 }
1160
1161 result = check3x3(view, x, y, FIRESTBASE, fireState);
1162 if (result == 1) {
1163 DidTool(view, "Fire", x, y);
1164 }
1165 return result;
1166 }
1167
1168
1169 int
1170 stadium_tool(SimView *view, short x, short y)
1171 {
1172 int result;
1173
1174 if ((x < 0) || (x > (WORLD_X - 1)) ||
1175 (y < 0) || (y > (WORLD_Y - 1))) {
1176 return -1;
1177 }
1178
1179 result = check4x4(view, x, y, STADIUMBASE, 0, stadiumState);
1180 if (result == 1) {
1181 DidTool(view, "Stad", x, y);
1182 }
1183 return result;
1184 }
1185
1186
1187 int
1188 coal_power_plant_tool(SimView *view, short x, short y)
1189 {
1190 int result;
1191
1192 if ((x < 0) || (x > (WORLD_X - 1)) ||
1193 (y < 0) || (y > (WORLD_Y - 1))) {
1194 return -1;
1195 }
1196
1197 result = check4x4(view, x, y, COALBASE, 1, powerState);
1198 if (result == 1) {
1199 DidTool(view, "Coal", x, y);
1200 }
1201 return result;
1202 }
1203
1204
1205 int
1206 nuclear_power_plant_tool(SimView *view, short x, short y)
1207 {
1208 int result;
1209
1210 if ((x < 0) || (x > (WORLD_X - 1)) ||
1211 (y < 0) || (y > (WORLD_Y - 1))) {
1212 return -1;
1213 }
1214
1215 result = check4x4(view, x, y, NUCLEARBASE, 1, nuclearState);
1216 if (result == 1) {
1217 DidTool(view, "Nuc", x, y);
1218 }
1219 return result;
1220 }
1221
1222
1223 int
1224 seaport_tool(SimView *view, short x, short y)
1225 {
1226 int result;
1227
1228 if ((x < 0) || (x > (WORLD_X - 1)) ||
1229 (y < 0) || (y > (WORLD_Y - 1))) {
1230 return -1;
1231 }
1232
1233 result = check4x4(view, x, y, PORTBASE, 0, seaportState);
1234 if (result == 1) {
1235 DidTool(view, "Seap", x, y);
1236 }
1237 return result;
1238 }
1239
1240
1241 int
1242 airport_tool(SimView *view, short x, short y)
1243 {
1244 int result;
1245
1246 if ((x < 0) || (x > (WORLD_X - 1)) ||
1247 (y < 0) || (y > (WORLD_Y - 1))) {
1248 return -1;
1249 }
1250
1251 result = check6x6(view, x, y, AIRPORTBASE, airportState);
1252 if (result == 1) {
1253 DidTool(view, "Airp", x, y);
1254 }
1255 return result;
1256 }
1257
1258
1259 int
1260 network_tool(SimView *view, short x, short y)
1261 {
1262 int result;
1263
1264 if ((x < 0) || (x > (WORLD_X - 1)) ||
1265 (y < 0) || (y > (WORLD_Y - 1))) {
1266 return -1;
1267 }
1268
1269 result = putDownNetwork(view, x, y);
1270 if (result == 1) {
1271 DidTool(view, "Net", x, y);
1272 }
1273 return result;
1274 }
1275
1276
1277 #if 0
1278 int
1279 special_tool(SimView *view, short x, short y)
1280 {
1281 int result;
1282
1283 if ((x < 0) || (x > (WORLD_X - 1)) ||
1284 (y < 0) || (y > (WORLD_Y - 1))) {
1285 return -1;
1286 }
1287
1288 result = check3x3(view, x, y, specialBase, specialState);
1289 if (result == 1) {
1290 DidTool(view, "Special", x, y);
1291 }
1292 return result;
1293 }
1294 #endif
1295
1296 int
1297 ChalkTool(SimView *view, short x, short y, short color, short first)
1298 {
1299 if (first) {
1300 ChalkStart(view, x, y, color);
1301 } else {
1302 ChalkTo(view, x, y);
1303 }
1304 DidTool(view, "Chlk", x, y);
1305 return 1;
1306 }
1307
1308
1309 ChalkStart(SimView *view, int x, int y, int color)
1310 {
1311 Ink *ink;
1312 Ink **ip;
1313
1314 for (ip = &sim->overlay; *ip != NULL; ip = &((*ip)->next)) ;
1315
1316 *ip = ink = NewInk();
1317 ink->x = x; ink->y = y;
1318 ink->color = color;
1319 StartInk(ink, x, y);
1320 view->track_info = (char *)ink;
1321 view->last_x = x;
1322 view->last_y = y;
1323 view->tool_event_time = view->tool_last_event_time =
1324 ((TkWindow *)view->tkwin)->dispPtr->lastEventTime;
1325 }
1326
1327
1328 ChalkTo(SimView *view, int x, int y)
1329 {
1330 int x0, y0, lx, ly;
1331 Ink *ink = (Ink *)view->track_info;
1332
1333 #ifdef MOTIONBUFFER
1334 if (view->x->dpy->motion_buffer) {
1335 XTimeCoord *coords = NULL, *coord;
1336 int n = 0, i;
1337
1338 view->tool_last_event_time = view->tool_event_time;
1339 view->tool_event_time =
1340 ((TkWindow *)view->tkwin)->dispPtr->lastEventTime;
1341
1342 coords = XGetMotionEvents(view->x->dpy,
1343 Tk_WindowId(view->tkwin),
1344 view->tool_last_event_time,
1345 view->tool_event_time,
1346 &n);
1347 #if 0
1348 printf("got %d events at %x from %d to %d (%d elapsed)\n",
1349 n, coords,
1350 view->tool_last_event_time, view->tool_event_time,
1351 view->tool_event_time - view->tool_last_event_time);
1352 #endif
1353 if (n) {
1354 lx = ink->last_x; ly = ink->last_y;
1355
1356 for (i = 0, coord = coords; i < n; i++, coord++) {
1357 ViewToPixelCoords(view, coord->x, coord->y, &x0, &y0);
1358 lx = (lx + lx + lx + x0) >>2;
1359 ly = (ly + ly + ly + y0) >>2;
1360 #if 0
1361 printf("adding %d %d => %d %d => %d %d\n",
1362 coord->x, coord->y, x0, y0, lx, ly);
1363 #endif
1364 AddInk(ink, lx, ly);
1365 }
1366 }
1367
1368 if (coords) {
1369 XFree((char *)coords);
1370 }
1371 }
1372 #endif
1373
1374 AddInk(ink, x, y);
1375 view->last_x = x;
1376 view->last_y = y;
1377 }
1378
1379
1380 int
1381 EraserTool(SimView *view, short x, short y, short first)
1382 {
1383 if (first) {
1384 EraserStart(view, x, y);
1385 } else {
1386 EraserTo(view, x, y);
1387 }
1388 DidTool(view, "Eraser", x, y);
1389 return 1;
1390 }
1391
1392
1393 InkInBox(Ink *ink, int left, int top, int right, int bottom)
1394 {
1395 if ((left <= ink->right) &&
1396 (right >= ink->left) &&
1397 (top <= ink->bottom) &&
1398 (bottom >= ink->top)) {
1399 int x, y, lx, ly, i;
1400
1401 if (ink->length == 1) {
1402 return 1;
1403 }
1404
1405 x = ink->x; y = ink->y;
1406 for (i = 1; i < ink->length; i++) {
1407 int ileft, iright, itop, ibottom;
1408
1409 lx = x; ly = y;
1410 x += ink->points[i].x; y += ink->points[i].y;
1411 if (x < lx) { ileft = x; iright = lx; }
1412 else { ileft = lx; iright = x; }
1413 if (y < ly) { itop = y; ibottom = ly; }
1414 else { itop = ly; ibottom = y; }
1415 if ((left <= iright) &&
1416 (right >= ileft) &&
1417 (top <= ibottom) &&
1418 (bottom >= itop)) {
1419 return 1;
1420 }
1421 }
1422 }
1423 return 0;
1424 }
1425
1426
1427 EraserStart(SimView *view, int x, int y)
1428 {
1429 EraserTo(view, x, y);
1430 }
1431
1432
1433 EraserTo(SimView *view, int x, int y)
1434 {
1435 SimView *v;
1436 Ink **ip, *ink;
1437
1438 for (ip = &sim->overlay; *ip != NULL;) {
1439 ink = *ip;
1440 if (InkInBox(ink, x - 8, y - 8, x + 8, y + 8)) {
1441
1442 for (view = sim->editor; view != NULL; view = view->next) {
1443 int vleft, vtop;
1444
1445 if ((ink->right >= (vleft = (view->pan_x - (view->w_width / 2)))) &&
1446 (ink->left <= (vleft + view->w_width)) &&
1447 (ink->bottom >= (vtop = (view->pan_y - (view->w_height / 2)))) &&
1448 (ink->top <= (vtop + view->w_height))) {
1449 view->overlay_mode = 0;
1450 EventuallyRedrawView(view);
1451 }
1452 }
1453
1454 *ip = ink->next;
1455
1456 FreeInk(ink);
1457 } else {
1458 ip = &((*ip)->next);
1459 }
1460 }
1461 }
1462
1463
1464 int
1465 do_tool(SimView *view, short state, short x, short y, short first)
1466 {
1467 int result = 0;
1468
1469 switch (state) {
1470 case residentialState:
1471 result = residential_tool(view, x >>4, y >>4);
1472 break;
1473 case commercialState:
1474 result = commercial_tool(view, x >>4, y >>4);
1475 break;
1476 case industrialState:
1477 result = industrial_tool(view, x >>4, y >>4);
1478 break;
1479 case fireState:
1480 result = fire_dept_tool(view, x >>4, y >>4);
1481 break;
1482 case queryState:
1483 result = query_tool(view, x >>4, y >>4);
1484 break;
1485 case policeState:
1486 result = police_dept_tool(view, x >>4, y >>4);
1487 break;
1488 case wireState:
1489 result = wire_tool(view, x >>4, y >>4);
1490 break;
1491 case dozeState:
1492 result = bulldozer_tool(view, x >>4, y >>4);
1493 break;
1494 case rrState:
1495 result = rail_tool(view, x >>4, y >>4);
1496 break;
1497 case roadState:
1498 result = road_tool(view, x >>4, y >>4);
1499 break;
1500 case chalkState:
1501 result = ChalkTool(view, x - 5, y + 11, COLOR_WHITE, first);
1502 break;
1503 case eraserState:
1504 result = EraserTool(view, x, y, first);
1505 break;
1506 case stadiumState:
1507 result = stadium_tool(view, x >>4, y >>4);
1508 break;
1509 case parkState:
1510 result = park_tool(view, x >>4, y >>4);
1511 break;
1512 case seaportState:
1513 result = seaport_tool(view, x >>4, y >>4);
1514 break;
1515 case powerState:
1516 result = coal_power_plant_tool(view, x >>4, y >>4);
1517 break;
1518 case nuclearState:
1519 result = nuclear_power_plant_tool(view, x >>4, y >>4);
1520 break;
1521 case airportState:
1522 result = airport_tool(view, x >>4, y >>4);
1523 break;
1524 case networkState:
1525 result = network_tool(view, x >>4, y >>4);
1526 break;
1527
1528 default:
1529 result = 0;
1530 break;
1531 }
1532
1533 return result;
1534 }
1535
1536
1537 int
1538 current_tool(SimView *view, short x, short y, short first)
1539 {
1540 return do_tool(view, view->tool_state, x, y, first);
1541 }
1542
1543
1544 DoTool(SimView *view, short tool, short x, short y)
1545 {
1546 int result;
1547
1548 result = do_tool(view, tool, x <<4, y <<4, 1);
1549
1550 if (result == -1) {
1551 ClearMes();
1552 SendMes(34);
1553 MakeSoundOn(view, "edit", "UhUh");
1554 } else if (result == -2) {
1555 ClearMes();
1556 SendMes(33);
1557 MakeSoundOn(view, "edit", "Sorry");
1558 }
1559
1560 sim_skip = 0;
1561 view->skip = 0;
1562 InvalidateEditors();
1563 }
1564
1565
1566 ToolDown(SimView *view, int x, int y)
1567 {
1568 int result;
1569
1570 ViewToPixelCoords(view, x, y, &x, &y);
1571 view->last_x = x;
1572 view->last_y = y;
1573
1574 result = current_tool(view, x, y, 1);
1575
1576 if (result == -1) {
1577 ClearMes();
1578 SendMes(34);
1579 MakeSoundOn(view, "edit", "UhUh");
1580 } else if (result == -2) {
1581 ClearMes();
1582 SendMes(33);
1583 MakeSoundOn(view, "edit", "Sorry");
1584 } else if (result == -3) {
1585 DoPendTool(view, view->tool_state, x >>4, y >>4);
1586 }
1587
1588 sim_skip = 0;
1589 view->skip = 0;
1590 view->invalid = 1;
1591 }
1592
1593
1594 ToolUp(SimView *view, int x, int y)
1595 {
1596 int result;
1597
1598 result = ToolDrag(view, x, y);
1599
1600 return (result);
1601 }
1602
1603
1604 ToolDrag(SimView *view, int px, int py)
1605 {
1606 int x, y, dx, dy, adx, ady, lx, ly, dist;
1607 float i, step, tx, ty, dtx, dty, rx, ry;
1608
1609 ViewToPixelCoords(view, px, py, &x, &y);
1610 view->tool_x = x; view->tool_y = y;
1611
1612 if ((view->tool_state == chalkState) ||
1613 (view->tool_state == eraserState)) {
1614
1615 current_tool(view, x, y, 0);
1616 view->last_x = x; view->last_y = y;
1617
1618 } else {
1619
1620 dist = toolSize[view->tool_state];
1621
1622 x >>= 4; y >>= 4;
1623 lx = view->last_x >> 4;
1624 ly = view->last_y >> 4;
1625
1626 reset:
1627
1628 dx = x - lx;
1629 dy = y - ly;
1630
1631 if (dx == 0 && dy == 0) {
1632 return;
1633 }
1634
1635 adx = ABS(dx); ady = ABS(dy);
1636
1637 if (adx > ady) {
1638 step = .3 / adx;
1639 } else {
1640 step = .3 / ady;
1641 }
1642
1643 rx = (dx < 0 ? 1 : 0);
1644 ry = (dy < 0 ? 1 : 0);
1645
1646 if (dist == 1) {
1647 for (i = 0.0; i <= 1 + step; i += step) {
1648 tx = (view->last_x >>4) + i * dx;
1649 ty = (view->last_y >>4) + i * dy;
1650 dtx = ABS(tx - lx);
1651 dty = ABS(ty - ly);
1652 if (dtx >= 1 || dty >= 1) {
1653 /* fill in corners */
1654 if ((dtx >= 1) && (dty >= 1)) {
1655 if (dtx > dty) {
1656 current_tool(view, ((int)(tx + rx)) <<4, ly <<4, 0);
1657 } else {
1658 current_tool(view, lx <<4, ((int)(ty + ry)) <<4, 0);
1659 }
1660 }
1661 lx = (int)(tx + rx);
1662 ly = (int)(ty + ry);
1663 current_tool(view, lx <<4, ly <<4, 0);
1664 }
1665 }
1666 } else {
1667 for (i = 0.0; i <= 1 + step; i += step) {
1668 tx = (view->last_x >>4) + i * dx;
1669 ty = (view->last_y >>4) + i * dy;
1670 dtx = ABS(tx - lx);
1671 dty = ABS(ty - ly);
1672 lx = (int)(tx + rx);
1673 ly = (int)(ty + ry);
1674 current_tool(view, lx <<4, ly <<4, 0);
1675 }
1676 }
1677
1678 view->last_x = (lx <<4) + 8;
1679 view->last_y = (ly <<4) + 8;
1680 }
1681 sim_skip = 0; /* update editors overlapping this one */
1682 view->skip = 0;
1683 view->invalid = 1;
1684 }
1685
1686
1687 DoPendTool(SimView *view, int tool, int x, int y)
1688 {
1689 char buf[256];
1690
1691 sprintf(buf, "DoPendTool %s %d %d %d",
1692 Tk_PathName(view->tkwin), tool, x, y);
1693 Eval(buf);
1694 }
Impressum, Datenschutz