]>
cvs.zerfleddert.de Git - micropolis/blob - src/sim/w_x.c
4f4c10e1ea6cc697d141b78635c4048c881ba708
1 /* w_x.c: X Window System support
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.
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.
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/>.
21 * ADDITIONAL TERMS per GNU GPL Section 7
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.
29 * Any propagation or conveyance of this program must include this
30 * copyright notice and these terms.
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.
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.
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
65 struct XDisplay
*XDisplays
= NULL
;
75 unsigned char ColorIntensities
[] = {
76 /* COLOR_WHITE */ 255,
77 /* COLOR_YELLOW */ 170,
78 /* COLOR_ORANGE */ 127,
80 /* COLOR_DARKRED */ 63,
81 /* COLOR_DARKBLUE */ 76,
82 /* COLOR_LIGHTBLUE */ 144,
83 /* COLOR_BROWN */ 118,
84 /* COLOR_LIGHTGREEN */ 76,
85 /* COLOR_DARKGREEN */ 42,
86 /* COLOR_OLIVE */ 118,
87 /* COLOR_LIGHTBROWN */ 144,
88 /* COLOR_LIGHTGRAY */ 191,
89 /* COLOR_MEDIUMGRAY */ 127,
90 /* COLOR_DARKGRAY */ 63,
95 ViewToTileCoords(SimView
*view
, int x
, int y
, int *outx
, int *outy
)
97 x
= (view
->pan_x
- ((view
->w_width
>>1) - x
)) >>4;
98 y
= (view
->pan_y
- ((view
->w_height
>>1) - y
)) >>4;
101 if (x
>= WORLD_X
) x
= WORLD_X
- 1;
103 if (y
>= WORLD_Y
) y
= WORLD_Y
- 1;
105 if (x
< view
->tile_x
)
107 if (x
>= view
->tile_x
+ view
->tile_width
)
108 x
= view
->tile_x
+ view
->tile_width
- 1;
109 if (y
< view
->tile_y
)
111 if (y
>= view
->tile_y
+ view
->tile_height
)
112 y
= view
->tile_y
+ view
->tile_height
- 1;
114 if (view
->tool_x_const
!= -1)
115 x
= view
->tool_x_const
;
116 if (view
->tool_y_const
!= -1)
117 y
= view
->tool_y_const
;
119 *outx
= x
; *outy
= y
;
123 ViewToPixelCoords(SimView
*view
, int x
, int y
, int *outx
, int *outy
)
125 x
= view
->pan_x
- ((view
->w_width
>>1) - x
);
126 y
= view
->pan_y
- ((view
->w_height
>>1) - y
);
129 if (x
>= (WORLD_X
<<4)) x
= (WORLD_X
<<4) - 1;
131 if (y
>= (WORLD_Y
<<4)) y
= (WORLD_Y
<<4) - 1;
133 if (x
< (view
->tile_x
<<4))
134 x
= (view
->tile_x
<<4);
135 if (x
>= ((view
->tile_x
+ view
->tile_width
) <<4))
136 x
= ((view
->tile_x
+ view
->tile_width
) <<4) - 1;
137 if (y
< (view
->tile_y
<<4))
138 y
= (view
->tile_y
<<4);
139 if (y
>= ((view
->tile_y
+ view
->tile_height
) <<4))
140 y
= ((view
->tile_y
+ view
->tile_height
) <<4) - 1;
142 if (view
->tool_x_const
!= -1)
143 x
= (view
->tool_x_const
<<4) + 8;
144 if (view
->tool_y_const
!= -1)
145 y
= (view
->tool_y_const
<<4) + 8;
147 *outx
= x
; *outy
= y
;
160 sim_skip
= sim_skips
;
163 switch (FlushStyle
) {
169 for (xd
= XDisplays
; xd
!= NULL
; xd
= xd
->next
)
174 for (xd
= XDisplays
; xd
!= NULL
; xd
= xd
->next
)
175 XSync(xd
->dpy
, False
);
179 if (XDisplays
&& XDisplays
->next
) {
180 for (xd
= XDisplays
; xd
!= NULL
; xd
= xd
->next
) {
184 for (xd
= XDisplays
; xd
!= NULL
; xd
= xd
->next
) {
185 XSync(xd
->dpy
, False
);
190 for (xd
= XDisplays
; xd
!= NULL
; xd
= xd
->next
) {
192 /* XXX TODO: figure this out for linux and new x libs */
193 if ((xd
->request
!= xd
->dpy
->request
) ||
194 (xd
->last_request_read
!= xd
->dpy
->last_request_read
)) {
195 XSync(xd
->dpy
, False
);
196 xd
->request
= xd
->dpy
->request
;
197 xd
->last_request_read
= xd
->dpy
->last_request_read
;
208 CatchXError(Display
*dpy
, XErrorEvent
*err
)
212 printf("GOT X ERROR code %d request code %d %d\n",
213 err
->error_code
, err
->request_code
, err
->minor_code
);
221 (void)XSetErrorHandler(CatchXError
);
226 while (sim
->editor
!= NULL
) {
227 DestroyView(sim
->editor
);
230 while (sim
->map
!= NULL
) {
231 DestroyView(sim
->map
);
234 while (sim
->graph
!= NULL
) {
235 DestroyGraph(sim
->graph
);
239 while (sim
->scam
!= NULL
) {
240 DestroyCam(sim
->scam
);
249 while (Tk_DoOneEvent(TK_DONT_WAIT
)) ;
258 sim
= (Sim
*)ckalloc(sizeof(Sim
));
259 sim
->editors
= 0; sim
->editor
= NULL
;
260 sim
->maps
= 0; sim
->map
= NULL
;
261 sim
->graphs
= 0; sim
->graph
= NULL
;
262 sim
->sprites
= 0; sim
->sprite
= NULL
;
264 sim
->scams
= 0; sim
->scam
= NULL
;
273 FindXDisplay(Tk_Window tkwin
)
277 unsigned long valuemask
= 0;
280 Display
*dpy
= Tk_Display(tkwin
);
281 Screen
*screen
= Tk_Screen(tkwin
);
283 char *display
= ":0"; /* XXX TODO: fix this for new x libs */
285 char *display
= dpy
->display_name
;
289 xd
&& (xd
->screen
!= screen
);
295 xd
= (struct XDisplay
*)ckalloc(sizeof (struct XDisplay
));
299 xd
->display
= (char *)ckalloc(strlen(display
) + 1);
300 xd
->tkDisplay
= ((TkWindow
*)tkwin
)->dispPtr
;
301 strcpy(xd
->display
, display
);
303 xd
->root
= RootWindowOfScreen(xd
->screen
);
305 xd
->visual
= Tk_DefaultVisual(xd
->screen
);
306 xd
->depth
= Tk_DefaultDepth(xd
->screen
);
307 xd
->colormap
= Tk_DefaultColormap(xd
->screen
);
309 xd
->color
= (xd
->depth
!= 1);
311 xd
->pixels
= (int *)ckalloc(16 * sizeof(int));
312 if (xd
->color
) { /* Color screen */
315 #define GETCOLOR(i, name) \
317 xd->pixels[i] = Rand16() & 255; \
319 if ((color = Tk_GetColor(tk_mainInterp, tkwin, \
320 None, name)) == NULL) { \
321 xd->pixels[i] = Rand16() & 255; \
324 switch (xd->depth) { \
331 (((color->red >> (8 + 3)) & 0x1f) << (5 + 5)) | \
332 (((color->green >> (8 + 2)) & 0x1f) << (5)) | \
333 (((color->blue >> (8 + 3)) & 0x1f) << (0)); \
337 (((color->red >> (8 + 3)) & 0x1f) << (6 + 5)) | \
338 (((color->green >> (8 + 2)) & 0x3f) << (5)) | \
339 (((color->blue >> (8 + 3)) & 0x1f) << (0)); \
343 ((color->red & 0xff) << 16) | \
344 ((color->green & 0xff) << 8) | \
345 ((color->blue & 0xff) << 0); \
349 ((color->red & 0xff) << 16) | \
350 ((color->green & 0xff) << 8) | \
351 ((color->blue & 0xff) << 0); \
357 if ((xd
->depth
== 8) &&
358 (Tk_DefaultColormap(xd
->screen
) ==
359 DefaultColormapOfScreen(xd
->screen
))) {
360 xd
->pixels
[COLOR_WHITE
] = WhitePixelOfScreen(xd
->screen
);
361 xd
->pixels
[COLOR_BLACK
] = BlackPixelOfScreen(xd
->screen
);
363 GETCOLOR(COLOR_WHITE
, "#ffffff");
364 GETCOLOR(COLOR_BLACK
, "#000000");
367 GETCOLOR(COLOR_YELLOW
, "#ffff00");
368 GETCOLOR(COLOR_ORANGE
, "#ff7f00");
369 GETCOLOR(COLOR_RED
, "#ff0000");
370 GETCOLOR(COLOR_DARKRED
, "#bf0000");
371 GETCOLOR(COLOR_DARKBLUE
, "#0000e6");
372 GETCOLOR(COLOR_LIGHTBLUE
, "#6666e6");
373 GETCOLOR(COLOR_BROWN
, "#cc4c4c");
374 GETCOLOR(COLOR_LIGHTGREEN
, "#00e600");
375 GETCOLOR(COLOR_DARKGREEN
, "#007f00");
376 GETCOLOR(COLOR_OLIVE
, "#997f4c");
377 GETCOLOR(COLOR_LIGHTBROWN
, "#cc7f66");
378 GETCOLOR(COLOR_LIGHTGRAY
, "#bfbfbf");
379 GETCOLOR(COLOR_MEDIUMGRAY
, "#7f7f7f");
380 GETCOLOR(COLOR_DARKGRAY
, "#3f3f3f");
384 "Oh, dear. There don't seem to be enough free colors on X display \"%s\".\n",
387 "Micropolis will try to run anyway, but might look pretty weird!\n");
389 } else { /* Black and white screen */
390 int white
= WhitePixelOfScreen(xd
->screen
);
391 int black
= BlackPixelOfScreen(xd
->screen
);
393 xd
->pixels
[COLOR_WHITE
] = white
;
394 xd
->pixels
[COLOR_BLACK
] = black
;
396 xd
->pixels
[COLOR_YELLOW
] = white
;
397 xd
->pixels
[COLOR_ORANGE
] = white
;
398 xd
->pixels
[COLOR_RED
] = white
;
399 xd
->pixels
[COLOR_DARKRED
] = black
;
400 xd
->pixels
[COLOR_DARKBLUE
] = black
;
401 xd
->pixels
[COLOR_LIGHTBLUE
] = white
;
402 xd
->pixels
[COLOR_BROWN
] = black
;
403 xd
->pixels
[COLOR_LIGHTGREEN
] = white
;
404 xd
->pixels
[COLOR_DARKGREEN
] = black
;
405 xd
->pixels
[COLOR_OLIVE
] = black
;
406 xd
->pixels
[COLOR_LIGHTBROWN
] = white
;
407 xd
->pixels
[COLOR_LIGHTGRAY
] = white
;
408 xd
->pixels
[COLOR_MEDIUMGRAY
] = white
;
409 xd
->pixels
[COLOR_DARKGRAY
] = black
;
412 xd
->gc
= Tk_DefaultGC(xd
->screen
);
413 XSetForeground(xd
->dpy
, xd
->gc
, xd
->pixels
[COLOR_BLACK
]);
414 XSetBackground(xd
->dpy
, xd
->gc
, xd
->pixels
[COLOR_WHITE
]);
415 XSetLineAttributes(xd
->dpy
, xd
->gc
,
416 1, LineSolid
, CapButt
, JoinMiter
);
417 XSetGraphicsExposures(xd
->dpy
, xd
->gc
, False
);
420 { int major
, minor
, event
, error
, pixmaps
;
422 (XQueryExtension(xd
->dpy
, "MIT-SHM", /* Jeez! */
423 &major
, &event
, &error
) != True
) ||
424 (XShmQueryVersion(xd
->dpy
,
425 &major
, &minor
, &pixmaps
) != True
)) {
427 "Darn, X display \"%s\" doesn't support the shared memory extension.\n",
433 "Darn, X display \"%s\" claims to support the shared memory extension,\n",
436 "but is too lame to support shared memory pixmaps, so Micropolis will run slower.\n");
438 "Please complain to your X server vendor, %s\n",
439 XServerVendor(xd
->dpy
));
443 "Cool, I found the shared memory extension!\n");
445 "Disabled SHM, because it is currently broken!\n");
455 xd
->last_request_read
= -1;
456 xd
->big_tile_pixmap
= None
;
458 xd
->overlay_gc
= NULL
;
459 xd
->gray25_stipple
= None
;
460 xd
->gray50_stipple
= None
;
461 xd
->gray75_stipple
= None
;
462 xd
->vert_stipple
= None
;
463 xd
->horiz_stipple
= None
;
464 xd
->diag_stipple
= None
;
466 xd
->big_tile_image
= xd
->small_tile_image
= NULL
;
468 xd
->next
= XDisplays
; XDisplays
= xd
;
475 IncRefDisplay(XDisplay
*xd
)
481 DecRefDisplay(XDisplay
*xd
)
483 if ((--xd
->references
) == 0) {
484 /* I'd blow it away, but tk may still be using the display */
490 InitNewView(SimView
*view
, char *title
, int class, int w
, int h
)
495 unsigned long valuemask
= 0;
501 t
= (char *)ckalloc(strlen(title
) + 1);
508 view
->bigtiles
= view
->smalltiles
= NULL
;
510 view
->line_bytes
= 0;
511 view
->line_bytes8
= 0;
512 view
->pixel_bytes
= 0;
518 view
->skips
= view
->skip
= 0;
520 view
->map_state
= ALMAP
;
521 view
->show_editors
= 1;
522 view
->tool_showing
= 0;
524 view
->tool_x
= view
->tool_y
= 0;
525 view
->tool_x_const
= view
->tool_y_const
= -1;
526 view
->tool_state
= dozeState
;
527 view
->tool_state_save
= -1;
528 view
->super_user
= 0;
530 view
->dynamic_filter
= 0;
531 view
->auto_scroll_token
= 0;
532 view
->tool_event_time
= 0;
533 view
->tool_last_event_time
= 0;
534 view
->w_x
= view
->w_y
= 0;
535 view
->w_width
= view
->w_height
= 16;
536 view
->m_width
= view
->m_height
= 0;
537 view
->i_width
= w
; view
->i_height
= h
;
538 view
->pan_x
= view
->pan_y
= 0;
539 view
->tile_x
= view
->tile_y
= 0;
540 view
->tile_width
= view
->tile_height
= 0;
541 view
->screen_x
= view
->screen_y
= 0;
542 view
->screen_width
= view
->screen_height
= 0;
543 view
->last_x
= view
->last_y
= view
->last_button
= 0;
544 view
->track_info
= NULL
;
545 view
->message_var
= NULL
;
547 /* This stuff was initialized in our caller (SimViewCmd) */
548 /* view->tkwin = NULL; */
549 /* view->interp = NULL; */
550 /* view->flags = 0; */
553 view
->shminfo
= NULL
;
555 view
->other_tiles
= NULL
;
557 view
->other_image
= NULL
;
558 view
->other_data
= NULL
;
560 view
->pixmap2
= None
;
561 view
->overlay_pixmap
= None
;
562 view
->overlay_valid
= 0;
563 view
->fontPtr
= NULL
;
565 view
->update_real
= view
->update_user
= view
->update_system
= 0.0;
566 view
->update_context
= 0;
568 view
->auto_going
= 0;
569 view
->auto_x_goal
= view
->auto_x_goal
= 0;
570 view
->auto_speed
= 75;
573 view
->width
= 0; view
->height
= 0;
574 view
->show_overlay
= 1;
575 view
->overlay_mode
= 0;
577 view
->x
= FindXDisplay(view
->tkwin
);
578 IncRefDisplay(view
->x
);
580 /* view->x->shared is 1 if the shared memory extension is present and
581 supports shared memory pixmaps, and -1 if it is present but doesn't. */
582 if (view
->x
->shared
!= 1) {
583 view
->type
= X_Wire_View
;
585 view
->type
= X_Mem_View
;
588 /* XXX: Find cases where transaltion is needed */
589 view
->x
->needs_swap
= 0;
593 view
->pixels
= view
->x
->pixels
;
595 if (w
== EDITOR_W
) w
= 256; /* XXX */
596 if (h
== EDITOR_H
) h
= 256; /* XXX */
598 view
->pan_x
= w
/ 2; view
->pan_y
= h
/ 2;
599 DoResizeView(view
, w
, h
);
607 DestroyView(SimView
*view
)
611 CancelRedrawView(view
);
613 for (vp
= ((view
->class == Editor_Class
) ?
614 (&sim
->editor
) : (&sim
->map
));
616 vp
= &((*vp
)->next
)) {
619 if (view
->class == Editor_Class
)
628 if (view
->title
!= NULL
) {
629 ckfree (view
->title
);
633 if (view
->pixmap
!= None
) {
634 XFreePixmap(view
->x
->dpy
, view
->pixmap
);
638 if (view
->pixmap2
!= None
) {
639 XFreePixmap(view
->x
->dpy
, view
->pixmap2
);
640 view
->pixmap2
= None
;
643 if (view
->overlay_pixmap
!= None
) {
644 XFreePixmap(view
->x
->dpy
, view
->overlay_pixmap
);
645 view
->overlay_pixmap
= None
;
648 if (view
->auto_scroll_token
) {
649 Tk_DeleteTimerHandler(view
->auto_scroll_token
);
650 view
->auto_scroll_token
= 0;
655 XShmDetach(view
->x
->dpy
, view
->shminfo
);
656 shmdt(view
->shminfo
->shmaddr
);
657 shmctl(view
->shminfo
->shmid
, IPC_RMID
, 0);
658 ckfree(view
->shminfo
);
659 view
->shminfo
= NULL
;
661 view
->image
->data
= NULL
;
663 XDestroyImage(view
->image
);
669 if (view
->image
->data
) {
670 ckfree(view
->image
->data
);
671 view
->image
->data
= NULL
;
674 XDestroyImage(view
->image
);
681 if (view
->other_image
) {
682 if (view
->other_image
->data
) {
683 ckfree(view
->other_image
->data
);
684 view
->other_image
->data
= NULL
;
686 view
->other_data
= NULL
;
687 XDestroyImage(view
->other_image
);
688 view
->other_image
= NULL
;
694 DecRefDisplay(view
->x
);
696 ckfree((char *) view
);
701 AllocPixels(int len
, unsigned char pixel
)
704 unsigned char *data
, *cp
;
706 cp
= data
= (unsigned char *)ckalloc(len
);
707 for (i
= len
; i
> 0; i
--) {
715 DoResizeView(SimView
*view
, int w
, int h
)
722 if (view
->class == Map_Class
) { /* Map_Class */
726 if (view
->pixmap2
== None
) {
728 view
->pixmap2
= XCreatePixmap(view
->x
->dpy
, view
->x
->root
,
729 w
, h
, view
->x
->depth
);
730 if (view
->pixmap2
== None
) {
732 "Sorry, Micropolis can't create a pixmap on X display \"%s\"!\n",
734 sim_exit(1); // Just sets tkMustExit and ExitReturn
739 } else { /* Editor_Class */
741 if ((w
= (w
+ 31) & (~15)) > view
->m_width
)
742 view
->m_width
= w
, resize
++;
743 if ((h
= (h
+ 31) & (~15)) > view
->m_height
)
744 view
->m_height
= h
, resize
++;
746 if (resize
|| (view
->pixmap2
== None
)) {
747 if (view
->pixmap2
!= None
) {
748 XFreePixmap(view
->x
->dpy
, view
->pixmap2
);
749 view
->pixmap2
= None
;
751 view
->pixmap2
= XCreatePixmap(view
->x
->dpy
, view
->x
->root
,
752 view
->m_width
, view
->m_height
,
754 if (view
->pixmap2
== None
) {
756 "Sorry, Micropolis couldn't create a pixmap on X display \"%s\"!\n",
758 sim_exit(1); // Just sets tkMustExit and ExitReturn
763 if (resize
|| (view
->overlay_pixmap
== None
)) {
764 view
->overlay_mode
= 0;
765 if (view
->overlay_pixmap
!= None
) {
766 XFreePixmap(view
->x
->dpy
, view
->overlay_pixmap
);
767 view
->overlay_pixmap
= None
;
769 view
->overlay_pixmap
= XCreatePixmap(view
->x
->dpy
, view
->x
->root
,
770 view
->m_width
, view
->m_height
,
772 if (view
->overlay_pixmap
== None
) {
774 "Sorry, Micropolis couldn't create another pixmap on X display \"%s\".\n",
776 sim_exit(1); // Just sets tkMustExit and ExitReturn
779 if (view
->x
->overlay_gc
== NULL
) {
780 unsigned long valuemask
= 0;
783 view
->x
->overlay_gc
=
784 XCreateGC(view
->x
->dpy
, view
->overlay_pixmap
, valuemask
, &values
);
785 XSetForeground(view
->x
->dpy
, view
->x
->overlay_gc
, 0);
786 XSetBackground(view
->x
->dpy
, view
->x
->overlay_gc
, 1);
787 XSetLineAttributes(view
->x
->dpy
, view
->x
->overlay_gc
,
788 1, LineSolid
, CapButt
, JoinMiter
);
789 XSetGraphicsExposures(view
->x
->dpy
, view
->x
->overlay_gc
, False
);
796 if (view
->type
!= X_Mem_View
) {
800 if (resize
|| (view
->image
== NULL
)) {
801 if (view
->shminfo
&& view
->image
) {
802 if (view
->pixmap
!= None
) {
803 XFreePixmap(view
->x
->dpy
, view
->pixmap
);
806 XShmDetach(view
->x
->dpy
, view
->shminfo
);
807 shmdt(view
->shminfo
->shmaddr
);
808 shmctl(view
->shminfo
->shmid
, IPC_RMID
, 0);
809 view
->image
->data
= NULL
;
810 if (view
->data
== view
->data8
)
813 XDestroyImage(view
->image
);
818 /* XShmPixmapFormat is documented but does not exist !!! */
819 if (XShmPixmapFormat(view
->x
->dpy
) != ZPixmap
) {
821 "Darn, display \"%s\" has the wrong shared memory format.\n",
827 if (!view
->shminfo
) {
828 view
->shminfo
= (XShmSegmentInfo
*)ckalloc(sizeof (XShmSegmentInfo
));
832 XShmCreateImage(view
->x
->dpy
, view
->x
->visual
, view
->x
->depth
,
833 view
->x
->color
? ZPixmap
: XYBitmap
,
835 view
->m_width
, view
->m_height
);
837 view
->line_bytes
= view
->image
->bytes_per_line
;
839 switch (view
->x
->depth
) {
842 view
->pixel_bytes
= 0;
847 view
->pixel_bytes
= 1;
852 view
->pixel_bytes
= 2;
857 view
->pixel_bytes
= 2;
862 /* XXX: TODO: 24 and 32 bit support */
863 view
->pixel_bytes
= 4;
864 //view->pixel_bytes = 3;
869 /* XXX: TODO: 24 and 32 bit support */
870 view
->pixel_bytes
= 4;
875 view
->pixel_bytes
= 0;
881 view
->shminfo
->shmid
= shmget(IPC_PRIVATE
,
885 if (view
->shminfo
->shmid
< 0) {
888 "Darn, Micropolis can't share memory with X display \"%s\".\n",
893 view
->data
= (unsigned char *)shmat(view
->shminfo
->shmid
, 0, 0);
894 if ((int)view
->data
== -1) {
897 "Darn, Micropolis can't find any memory to share with display \"%s\".\n",
902 view
->image
->data
= (char *)view
->data
;
903 view
->shminfo
->shmaddr
= (char *)view
->data
;
904 view
->shminfo
->readOnly
= False
;
910 old
= XSetErrorHandler(CatchXError
);
913 XShmAttach(view
->x
->dpy
, view
->shminfo
);
916 "Darn, the X display \"%s\" can't access Micropolis's shared memory.\n",
921 XSync(view
->x
->dpy
, False
);
925 view
->pixmap
= XShmCreatePixmap(view
->x
->dpy
, view
->x
->root
,
926 view
->data
, view
->shminfo
,
927 view
->m_width
, view
->m_height
,
929 XSync(view
->x
->dpy
, False
);
932 (view
->pixmap
== None
)) {
934 "Darn, Micropolis couldn't get a shared memory pixmap on X display \"%s\".\n",
940 XSetErrorHandler(old
);
945 XShmDetach(view
->x
->dpy
, view
->shminfo
);
947 result
= shmdt(view
->shminfo
->shmaddr
);
948 result
= shmctl(view
->shminfo
->shmid
, IPC_RMID
, 0);
949 ckfree(view
->shminfo
);
950 view
->shminfo
= NULL
;
952 view
->image
->data
= NULL
;
954 XDestroyImage(view
->image
);
960 if (view
->x
->color
) {
961 XSetForeground(view
->x
->dpy
, view
->x
->gc
,
962 view
->pixels
[COLOR_LIGHTBROWN
]);
964 XSetForeground(view
->x
->dpy
, view
->x
->gc
,
965 view
->pixels
[COLOR_WHITE
]);
968 XFillRectangle(view
->x
->dpy
, view
->pixmap
, view
->x
->gc
,
969 0, 0, view
->m_width
, view
->m_height
);
978 "Falling back to the X network protocol on display \"%s\"...\n",
983 view
->type
= X_Wire_View
;
984 if (view
->pixmap
!= None
) {
985 XFreePixmap(view
->x
->dpy
, view
->pixmap
);
990 if (view
->shminfo
->shmid
>= 0) {
991 if (view
->shminfo
->shmaddr
) {
992 shmdt(view
->shminfo
->shmaddr
);
994 shmctl(view
->shminfo
->shmid
, IPC_RMID
, 0);
996 ckfree((char *)view
->shminfo
);
997 view
->shminfo
= NULL
;
1001 view
->image
->data
= NULL
;
1002 XDestroyImage(view
->image
);
1006 view
->line_bytes
= 0;
1007 view
->pixel_bytes
= 0;
1012 if (resize
|| (view
->pixmap
== None
)) {
1013 if (view
->pixmap
!= None
) {
1014 XFreePixmap(view
->x
->dpy
, view
->pixmap
);
1015 view
->pixmap
= None
;
1017 view
->pixmap
= XCreatePixmap(view
->x
->dpy
, view
->x
->root
,
1018 view
->m_width
, view
->m_height
,
1020 if (view
->pixmap
== None
) {
1022 "Sorry, Micropolis can't create pixmap on X display \"%s\".\n",
1024 sim_exit(1); // Just sets tkMustExit and ExitReturn
1027 if (view
->x
->color
) {
1028 XSetForeground(view
->x
->dpy
, view
->x
->gc
,
1029 view
->pixels
[COLOR_LIGHTBROWN
]);
1031 XSetForeground(view
->x
->dpy
, view
->x
->gc
,
1032 view
->pixels
[COLOR_WHITE
]);
1034 XFillRectangle(view
->x
->dpy
, view
->pixmap
, view
->x
->gc
,
1035 0, 0, view
->m_width
, view
->m_height
);
1040 if (view
->class == Editor_Class
) {
1045 } else if (view
->class == Map_Class
) {
1047 if (view
->type
== X_Mem_View
) { /* Memory Map */
1049 if (view
->x
->color
) {
1051 /* Color, Shared Memory */
1053 view
->data8
= view
->data
;
1054 view
->line_bytes8
= view
->line_bytes
; /* XXX: ??? */
1056 switch (view
->x
->depth
) {
1059 view
->pixel_bytes
= 1;
1064 view
->pixel_bytes
= 2;
1069 view
->pixel_bytes
= 2;
1074 /* XXX: TODO: 24 and 32 bit support */
1075 view
->pixel_bytes
= 4;
1076 //view->pixel_bytes = 3;
1081 /* XXX: TODO: 24 and 32 bit support */
1082 view
->pixel_bytes
= 4;
1087 view
->pixel_bytes
= 0;
1095 /* Black and White, Shared Memory */
1097 if (view
->other_image
!= NULL
) {
1098 XDestroyImage(view
->other_image
);
1101 view
->line_bytes8
= view
->m_width
; /* XXX: fix depth */
1102 view
->pixel_bytes
= 0;
1105 view
->other_data
= view
->data8
=
1106 AllocPixels(view
->m_height
* view
->line_bytes8
, /* XXX: fix depth */
1107 view
->pixels
[COLOR_WHITE
]);
1109 XCreateImage(view
->x
->dpy
, view
->x
->visual
, 8, /* XXX: fix depth */
1110 ZPixmap
, 0, (char *)view
->other_data
,
1111 view
->m_width
, view
->m_height
,
1112 8, view
->line_bytes8
); /* XXX: fix depth */
1115 } else { /* Wire Map */
1119 if (view
->image
!= NULL
) {
1120 XDestroyImage(view
->image
);
1124 if (view
->other_image
!= NULL
) {
1125 XDestroyImage(view
->other_image
);
1126 view
->other_image
= NULL
;
1129 if (view
->x
->color
) {
1133 switch (view
->x
->depth
) {
1136 view
->pixel_bytes
= 1;
1141 ((view
->m_width
* view
->pixel_bytes
) + 3) & (~3);
1145 view
->pixel_bytes
= 2;
1150 ((view
->m_width
* view
->pixel_bytes
) + 3) & (~3);
1154 view
->pixel_bytes
= 2;
1159 ((view
->m_width
* view
->pixel_bytes
) + 3) & (~3);
1163 view
->pixel_bytes
= 4;
1164 //view->pixel_bytes = 3;
1169 ((view
->m_width
* 4) + 3) & (~3);
1173 view
->pixel_bytes
= 4;
1178 ((view
->m_width
* 4) + 3) & (~3);
1182 assert(0); /* Unknown depth */
1192 /* Black and White, Wire */
1194 view
->pixel_bytes
= 0;
1197 (view
->m_width
+ 3) & (~3); /* XXX: handle depth */
1199 (view
->m_width
+ 7) >>3;
1206 AllocPixels(view
->m_height
* view
->line_bytes
, 0);
1208 XCreateImage(view
->x
->dpy
, view
->x
->visual
,
1210 view
->x
->color
? ZPixmap
: XYBitmap
,
1211 0, (char *)view
->data
,
1212 view
->m_width
, view
->m_height
,
1217 AllocPixels(view
->m_height
* view
->line_bytes8
, 0);
1219 XCreateImage(view
->x
->dpy
, view
->x
->visual
,
1222 0, (char *)view
->other_data
,
1223 view
->m_width
, view
->m_height
,
1227 if (view
->x
->color
) {
1228 view
->data8
= view
->data
;
1230 view
->data8
= view
->other_data
;
1237 DoPanBy(struct SimView
*view
, int dx
, int dy
)
1239 DoPanTo(view
, view
->pan_x
+ dx
, view
->pan_y
+ dy
);
1243 DoPanTo(struct SimView
*view
, int x
, int y
)
1245 if (view
->class != Editor_Class
) {
1251 if (x
> view
->i_width
) x
= view
->i_width
- 1;
1252 if (y
> view
->i_height
) y
= view
->i_height
- 1;
1253 if ((view
->pan_x
!= x
) ||
1254 (view
->pan_y
!= y
)) {
1261 /* #define DEBUG_PAN */
1263 DoAdjustPan(struct SimView
*view
)
1265 int ww2
= view
->w_width
>>1, wh2
= view
->w_height
>>1;
1266 int px
= view
->pan_x
, py
= view
->pan_y
;
1267 int last_tile_x
= view
->tile_x
, last_tile_y
= view
->tile_y
;
1268 int last_tile_width
= view
->tile_width
, last_tile_height
= view
->tile_height
;
1269 int total_width
= view
->m_width
>>4, total_height
= view
->m_height
>>4;
1270 //fprintf(stderr, "DoAdjustPan\n");
1273 printf("AdjustPan window %d %d ww2 %d wh2 %d pan %d %d\n",
1274 view
->w_width
, view
->w_height
, ww2
, wh2
, px
, py
);
1275 printf(" last tile %d %d %d %d\n",
1276 last_tile_x
, last_tile_y
, last_tile_width
, last_tile_height
);
1279 if ((view
->tile_x
= ((px
- ww2
) >>4)) < 0)
1281 if ((view
->tile_y
= ((py
- wh2
) >>4)) < 0)
1285 printf(" now tile %d %d\n", view
->tile_x
, view
->tile_y
);
1288 view
->tile_width
= ((15 + px
+ ww2
) >>4);
1289 view
->tile_height
= ((15 + py
+ wh2
) >>4);
1292 printf(" outer tile %d %d\n", view
->tile_width
, view
->tile_height
);
1295 if (view
->tile_width
> (view
->i_width
>>4))
1296 view
->tile_width
= (view
->i_width
>>4);
1297 view
->tile_width
-= view
->tile_x
;
1298 if (view
->tile_height
> (view
->i_height
>>4))
1299 view
->tile_height
= (view
->i_height
>>4);
1300 view
->tile_height
-= view
->tile_y
;
1303 printf(" tile size %d %d\n", view
->tile_width
, view
->tile_height
);
1306 if (view
->tile_width
> (view
->m_width
>>4))
1307 view
->tile_width
= (view
->m_width
>>4);
1308 if (view
->tile_height
> (view
->m_height
>>4))
1309 view
->tile_height
= (view
->m_height
>>4);
1312 printf(" clipped size %d %d\n", view
->tile_width
, view
->tile_height
);
1313 printf(" maximum size %d %d\n", view
->m_width
>>4, view
->m_height
>>4);
1316 view
->screen_x
= (ww2
- px
) + (view
->tile_x
<<4);
1317 view
->screen_y
= (wh2
- py
) + (view
->tile_y
<<4);
1318 view
->screen_width
= (view
->tile_width
<<4);
1319 view
->screen_height
= (view
->tile_height
<<4);
1322 printf(" screen %d %d %d %d\n",
1323 view
->screen_x
, view
->screen_y
,
1324 view
->screen_width
, view
->screen_height
);
1327 view
->overlay_mode
= 0;
1330 if (SimSpeed
== 0) {
1331 EventuallyRedrawView(view
);
1333 /* InvalidateEditors(); */
1334 if (view
->show_me
) {
1337 /* FixMicropolisTimer(); */
1339 { int dx
= last_tile_x
- view
->tile_x
,
1340 dy
= last_tile_y
- view
->tile_y
;
1341 short **want
= view
->other_tiles
,
1342 **have
= view
->tiles
;
1345 printf("scrolling %d %d\n", dx
, dy
);
1348 if ((dx
!= 0) || (dy
!= 0)) {
1350 width
= view
->tile_width
,
1351 height
= view
->tile_height
;
1353 for (col
= 0; col
< width
; col
++)
1354 memcpy(want
[col
], have
[col
], (height
* sizeof(short)));
1356 for (col
= 0; col
< total_width
; col
++) {
1358 for (row
= 0; row
< total_height
; row
++) {
1360 if ((x
>= 0) && (x
< width
) &&
1361 (y
>= 0) && (y
< height
)) {
1362 have
[col
][row
] = want
[x
][y
];
1364 have
[col
][row
] = -1;
1369 XCopyArea(view
->x
->dpy
, view
->pixmap
, view
->pixmap
, view
->x
->gc
,
1370 0, 0, view
->tile_width
<<4, view
->tile_height
<<4,
1373 if (view
->type
== X_Mem_View
) {
1374 XSync(view
->x
->dpy
, False
);
1381 AllocTiles(SimView
*view
)
1384 short **have
, **want
;
1385 int w
= view
->m_width
/ 16, h
= view
->m_height
/ 16;
1386 int n
= (w
+ 1) * sizeof (short *);
1391 have
= view
->tiles
=
1392 (short **)ckalloc(n
);
1394 want
= view
->other_tiles
=
1395 (short **)ckalloc(n
);
1397 have
[w
] = want
[w
] = NULL
;
1399 n
= h
* sizeof(short);
1400 for (col
= 0; col
< w
; col
++) {
1402 have
[col
] = (short *)ckalloc(n
);
1403 want
[col
] = (short *)ckalloc(n
);
1404 for (row
= 0; row
< h
; row
++) {
1405 have
[col
][row
] = -1;
1406 want
[col
][row
] = -1;
1412 FreeTiles(SimView
*view
)
1416 for (col
= 0; view
->tiles
[col
] != NULL
; col
++) {
1417 ckfree ((char *)view
->tiles
[col
]);
1418 ckfree ((char *)view
->other_tiles
[col
]);
1420 ckfree ((char *)view
->tiles
);
1422 ckfree ((char *)view
->other_tiles
);
1423 view
->other_tiles
= NULL
;
1427 #define POINT_BATCH 32
1432 /* XXX: todo: ink locking so someone doesn't erase ink that's being drawn */
1441 OldInk
= OldInk
->next
;
1443 ink
= (Ink
*)ckalloc(sizeof(Ink
));
1444 ink
->maxlength
= POINT_BATCH
;
1445 ink
->points
= (XPoint
*)ckalloc(POINT_BATCH
* sizeof(XPoint
));
1448 ink
->color
= COLOR_WHITE
;
1450 ink
->left
= ink
->right
= ink
->top
= ink
->bottom
=
1451 ink
->last_x
= ink
->last_y
= -1;
1463 StartInk(Ink
*ink
, int x
, int y
)
1466 ink
->left
= ink
->right
= ink
->last_x
= ink
->points
[0].x
= x
;
1467 ink
->top
= ink
->bottom
= ink
->last_y
= ink
->points
[0].y
= y
;
1471 AddInk(Ink
*ink
, int x
, int y
)
1473 int dx
= x
- ink
->last_x
;
1474 int dy
= y
- ink
->last_y
;
1476 if ((dx
!= 0) || (dy
!= 0)) {
1478 if (ink->length > 1) {
1480 (ink->points[ink->length - 1].x == 0) &&
1481 ((ink->points[ink->length - 1].y < 0) ?
1482 (dy < 0) : (dy > 0))) {
1483 ink->points[ink->length - 1].y += dy;
1485 } else if ((dy == 0) &&
1486 (ink->points[ink->length - 1].y == 0) &&
1487 ((ink->points[ink->length - 1].x < 0) ?
1488 (dx < 0) : (dx > 0))) {
1489 ink->points[ink->length - 1].x += dx;
1495 if (ink
->length
>= ink
->maxlength
) {
1496 ink
->maxlength
+= POINT_BATCH
;
1497 ink
->points
= (XPoint
*)realloc((void *)ink
->points
,
1498 ink
->maxlength
* sizeof(XPoint
));
1500 ink
->points
[ink
->length
].x
= dx
;
1501 ink
->points
[ink
->length
].y
= dy
;
1511 if (y
> ink
->bottom
)
1514 { int left
, right
, top
, bottom
;
1517 if (ink
->last_x
< x
) { left
= ink
->last_x
; right
= x
; }
1518 else { left
= x
; right
= ink
->last_x
; }
1519 if (ink
->last_y
< y
) { top
= ink
->last_y
; bottom
= y
; }
1520 else { top
= y
; bottom
= ink
->last_y
; }
1522 left
-= 5; right
+= 5; top
-= 5; bottom
+= 5;
1524 for (view
= sim
->editor
; view
!= NULL
; view
= view
->next
) {
1527 if ((right
>= (vleft
= view
->pan_x
- (view
->w_width
/ 2))) &&
1528 (left
<= vleft
+ view
->w_width
) &&
1529 (bottom
>= (vtop
= view
->pan_y
- (view
->w_height
/ 2))) &&
1530 (top
<= vtop
+ view
->w_height
)) {
1531 /* XXX: do studly incremental update instead */
1532 view
->overlay_mode
= 0;
1533 EventuallyRedrawView(view
);
1537 ink
->last_x
= x
; ink
->last_y
= y
;
1546 while (sim
->overlay
) {
1548 sim
->overlay
= ink
->next
;