]>
cvs.zerfleddert.de Git - micropolis/blob - src/sim/w_x.c
69363b57febcc17ca3b6a3c4d69c203c6cf29cb7
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");
453 xd
->last_request_read
= -1;
454 xd
->big_tile_pixmap
= None
;
456 xd
->overlay_gc
= NULL
;
457 xd
->gray25_stipple
= None
;
458 xd
->gray50_stipple
= None
;
459 xd
->gray75_stipple
= None
;
460 xd
->vert_stipple
= None
;
461 xd
->horiz_stipple
= None
;
462 xd
->diag_stipple
= None
;
464 xd
->big_tile_image
= xd
->small_tile_image
= NULL
;
466 xd
->next
= XDisplays
; XDisplays
= xd
;
473 IncRefDisplay(XDisplay
*xd
)
479 DecRefDisplay(XDisplay
*xd
)
481 if ((--xd
->references
) == 0) {
482 /* I'd blow it away, but tk may still be using the display */
488 InitNewView(SimView
*view
, char *title
, int class, int w
, int h
)
492 unsigned long valuemask
= 0;
498 t
= (char *)ckalloc(strlen(title
) + 1);
505 view
->bigtiles
= view
->smalltiles
= NULL
;
507 view
->line_bytes
= 0;
508 view
->line_bytes8
= 0;
509 view
->pixel_bytes
= 0;
515 view
->skips
= view
->skip
= 0;
517 view
->map_state
= ALMAP
;
518 view
->show_editors
= 1;
519 view
->tool_showing
= 0;
521 view
->tool_x
= view
->tool_y
= 0;
522 view
->tool_x_const
= view
->tool_y_const
= -1;
523 view
->tool_state
= dozeState
;
524 view
->tool_state_save
= -1;
525 view
->super_user
= 0;
527 view
->dynamic_filter
= 0;
528 view
->auto_scroll_token
= 0;
529 view
->tool_event_time
= 0;
530 view
->tool_last_event_time
= 0;
531 view
->w_x
= view
->w_y
= 0;
532 view
->w_width
= view
->w_height
= 16;
533 view
->m_width
= view
->m_height
= 0;
534 view
->i_width
= w
; view
->i_height
= h
;
535 view
->pan_x
= view
->pan_y
= 0;
536 view
->tile_x
= view
->tile_y
= 0;
537 view
->tile_width
= view
->tile_height
= 0;
538 view
->screen_x
= view
->screen_y
= 0;
539 view
->screen_width
= view
->screen_height
= 0;
540 view
->last_x
= view
->last_y
= view
->last_button
= 0;
541 view
->track_info
= NULL
;
542 view
->message_var
= NULL
;
544 /* This stuff was initialized in our caller (SimViewCmd) */
545 /* view->tkwin = NULL; */
546 /* view->interp = NULL; */
547 /* view->flags = 0; */
550 view
->shminfo
= NULL
;
552 view
->other_tiles
= NULL
;
554 view
->other_image
= NULL
;
555 view
->other_data
= NULL
;
557 view
->pixmap2
= None
;
558 view
->overlay_pixmap
= None
;
559 view
->overlay_valid
= 0;
560 view
->fontPtr
= NULL
;
562 view
->update_real
= view
->update_user
= view
->update_system
= 0.0;
563 view
->update_context
= 0;
565 view
->auto_going
= 0;
566 view
->auto_x_goal
= view
->auto_x_goal
= 0;
567 view
->auto_speed
= 75;
570 view
->width
= 0; view
->height
= 0;
571 view
->show_overlay
= 1;
572 view
->overlay_mode
= 0;
574 view
->x
= FindXDisplay(view
->tkwin
);
575 IncRefDisplay(view
->x
);
577 /* view->x->shared is 1 if the shared memory extension is present and
578 supports shared memory pixmaps, and -1 if it is present but doesn't. */
579 if (view
->x
->shared
!= 1) {
580 view
->type
= X_Wire_View
;
582 view
->type
= X_Mem_View
;
586 view
->pixels
= view
->x
->pixels
;
588 if (w
== EDITOR_W
) w
= 256; /* XXX */
589 if (h
== EDITOR_H
) h
= 256; /* XXX */
591 view
->pan_x
= w
/ 2; view
->pan_y
= h
/ 2;
592 DoResizeView(view
, w
, h
);
600 DestroyView(SimView
*view
)
604 CancelRedrawView(view
);
606 for (vp
= ((view
->class == Editor_Class
) ?
607 (&sim
->editor
) : (&sim
->map
));
609 vp
= &((*vp
)->next
)) {
612 if (view
->class == Editor_Class
)
621 if (view
->title
!= NULL
) {
622 ckfree (view
->title
);
626 if (view
->pixmap
!= None
) {
627 XFreePixmap(view
->x
->dpy
, view
->pixmap
);
631 if (view
->pixmap2
!= None
) {
632 XFreePixmap(view
->x
->dpy
, view
->pixmap2
);
633 view
->pixmap2
= None
;
636 if (view
->overlay_pixmap
!= None
) {
637 XFreePixmap(view
->x
->dpy
, view
->overlay_pixmap
);
638 view
->overlay_pixmap
= None
;
641 if (view
->auto_scroll_token
) {
642 Tk_DeleteTimerHandler(view
->auto_scroll_token
);
643 view
->auto_scroll_token
= 0;
648 XShmDetach(view
->x
->dpy
, view
->shminfo
);
649 shmdt(view
->shminfo
->shmaddr
);
650 shmctl(view
->shminfo
->shmid
, IPC_RMID
, 0);
651 ckfree(view
->shminfo
);
652 view
->shminfo
= NULL
;
654 view
->image
->data
= NULL
;
656 XDestroyImage(view
->image
);
662 if (view
->image
->data
) {
663 ckfree(view
->image
->data
);
664 view
->image
->data
= NULL
;
667 XDestroyImage(view
->image
);
674 if (view
->other_image
) {
675 if (view
->other_image
->data
) {
676 ckfree(view
->other_image
->data
);
677 view
->other_image
->data
= NULL
;
679 view
->other_data
= NULL
;
680 XDestroyImage(view
->other_image
);
681 view
->other_image
= NULL
;
687 DecRefDisplay(view
->x
);
689 ckfree((char *) view
);
694 AllocPixels(int len
, unsigned char pixel
)
697 unsigned char *data
, *cp
;
699 cp
= data
= (unsigned char *)ckalloc(len
);
700 for (i
= len
; i
> 0; i
--) {
708 DoResizeView(SimView
*view
, int w
, int h
)
715 if (view
->class == Map_Class
) { /* Map_Class */
719 if (view
->pixmap2
== None
) {
721 view
->pixmap2
= XCreatePixmap(view
->x
->dpy
, view
->x
->root
,
722 w
, h
, view
->x
->depth
);
723 if (view
->pixmap2
== None
) {
725 "Sorry, Micropolis can't create a pixmap on X display \"%s\"!\n",
727 sim_exit(1); // Just sets tkMustExit and ExitReturn
732 } else { /* Editor_Class */
734 if ((w
= (w
+ 31) & (~15)) > view
->m_width
)
735 view
->m_width
= w
, resize
++;
736 if ((h
= (h
+ 31) & (~15)) > view
->m_height
)
737 view
->m_height
= h
, resize
++;
739 if (resize
|| (view
->pixmap2
== None
)) {
740 if (view
->pixmap2
!= None
) {
741 XFreePixmap(view
->x
->dpy
, view
->pixmap2
);
742 view
->pixmap2
= None
;
744 view
->pixmap2
= XCreatePixmap(view
->x
->dpy
, view
->x
->root
,
745 view
->m_width
, view
->m_height
,
747 if (view
->pixmap2
== None
) {
749 "Sorry, Micropolis couldn't create a pixmap on X display \"%s\"!\n",
751 sim_exit(1); // Just sets tkMustExit and ExitReturn
756 if (resize
|| (view
->overlay_pixmap
== None
)) {
757 view
->overlay_mode
= 0;
758 if (view
->overlay_pixmap
!= None
) {
759 XFreePixmap(view
->x
->dpy
, view
->overlay_pixmap
);
760 view
->overlay_pixmap
= None
;
762 view
->overlay_pixmap
= XCreatePixmap(view
->x
->dpy
, view
->x
->root
,
763 view
->m_width
, view
->m_height
,
765 if (view
->overlay_pixmap
== None
) {
767 "Sorry, Micropolis couldn't create another pixmap on X display \"%s\".\n",
769 sim_exit(1); // Just sets tkMustExit and ExitReturn
772 if (view
->x
->overlay_gc
== NULL
) {
773 unsigned long valuemask
= 0;
776 view
->x
->overlay_gc
=
777 XCreateGC(view
->x
->dpy
, view
->overlay_pixmap
, valuemask
, &values
);
778 XSetForeground(view
->x
->dpy
, view
->x
->overlay_gc
, 0);
779 XSetBackground(view
->x
->dpy
, view
->x
->overlay_gc
, 1);
780 XSetLineAttributes(view
->x
->dpy
, view
->x
->overlay_gc
,
781 1, LineSolid
, CapButt
, JoinMiter
);
782 XSetGraphicsExposures(view
->x
->dpy
, view
->x
->overlay_gc
, False
);
789 if (view
->type
!= X_Mem_View
) {
793 if (resize
|| (view
->image
== NULL
)) {
794 if (view
->shminfo
&& view
->image
) {
795 if (view
->pixmap
!= None
) {
796 XFreePixmap(view
->x
->dpy
, view
->pixmap
);
799 XShmDetach(view
->x
->dpy
, view
->shminfo
);
800 shmdt(view
->shminfo
->shmaddr
);
801 shmctl(view
->shminfo
->shmid
, IPC_RMID
, 0);
802 view
->image
->data
= NULL
;
803 if (view
->data
== view
->data8
)
806 XDestroyImage(view
->image
);
811 /* XShmPixmapFormat is documented but does not exist !!! */
812 if (XShmPixmapFormat(view
->x
->dpy
) != ZPixmap
) {
814 "Darn, display \"%s\" has the wrong shared memory format.\n",
820 if (!view
->shminfo
) {
821 view
->shminfo
= (XShmSegmentInfo
*)ckalloc(sizeof (XShmSegmentInfo
));
825 XShmCreateImage(view
->x
->dpy
, view
->x
->visual
, view
->x
->depth
,
826 view
->x
->color
? ZPixmap
: XYBitmap
,
828 view
->m_width
, view
->m_height
);
830 view
->line_bytes
= view
->image
->bytes_per_line
;
832 switch (view
->x
->depth
) {
835 view
->pixel_bytes
= 0;
840 view
->pixel_bytes
= 1;
845 view
->pixel_bytes
= 2;
850 view
->pixel_bytes
= 2;
855 /* XXX: TODO: 24 and 32 bit support */
856 view
->pixel_bytes
= 4;
857 //view->pixel_bytes = 3;
862 /* XXX: TODO: 24 and 32 bit support */
863 view
->pixel_bytes
= 4;
868 view
->pixel_bytes
= 0;
874 view
->shminfo
->shmid
= shmget(IPC_PRIVATE
,
878 if (view
->shminfo
->shmid
< 0) {
881 "Darn, Micropolis can't share memory with X display \"%s\".\n",
886 view
->data
= (unsigned char *)shmat(view
->shminfo
->shmid
, 0, 0);
887 if ((int)view
->data
== -1) {
890 "Darn, Micropolis can't find any memory to share with display \"%s\".\n",
895 view
->image
->data
= (char *)view
->data
;
896 view
->shminfo
->shmaddr
= (char *)view
->data
;
897 view
->shminfo
->readOnly
= False
;
903 old
= XSetErrorHandler(CatchXError
);
906 XShmAttach(view
->x
->dpy
, view
->shminfo
);
909 "Darn, the X display \"%s\" can't access Micropolis's shared memory.\n",
914 XSync(view
->x
->dpy
, False
);
918 view
->pixmap
= XShmCreatePixmap(view
->x
->dpy
, view
->x
->root
,
919 view
->data
, view
->shminfo
,
920 view
->m_width
, view
->m_height
,
922 XSync(view
->x
->dpy
, False
);
925 (view
->pixmap
== None
)) {
927 "Darn, Micropolis couldn't get a shared memory pixmap on X display \"%s\".\n",
933 XSetErrorHandler(old
);
938 XShmDetach(view
->x
->dpy
, view
->shminfo
);
940 result
= shmdt(view
->shminfo
->shmaddr
);
941 result
= shmctl(view
->shminfo
->shmid
, IPC_RMID
, 0);
942 ckfree(view
->shminfo
);
943 view
->shminfo
= NULL
;
945 view
->image
->data
= NULL
;
947 XDestroyImage(view
->image
);
953 if (view
->x
->color
) {
954 XSetForeground(view
->x
->dpy
, view
->x
->gc
,
955 view
->pixels
[COLOR_LIGHTBROWN
]);
957 XSetForeground(view
->x
->dpy
, view
->x
->gc
,
958 view
->pixels
[COLOR_WHITE
]);
961 XFillRectangle(view
->x
->dpy
, view
->pixmap
, view
->x
->gc
,
962 0, 0, view
->m_width
, view
->m_height
);
971 "Falling back to the X network protocol on display \"%s\"...\n",
976 view
->type
= X_Wire_View
;
977 if (view
->pixmap
!= None
) {
978 XFreePixmap(view
->x
->dpy
, view
->pixmap
);
983 if (view
->shminfo
->shmid
>= 0) {
984 if (view
->shminfo
->shmaddr
) {
985 shmdt(view
->shminfo
->shmaddr
);
987 shmctl(view
->shminfo
->shmid
, IPC_RMID
, 0);
989 ckfree((char *)view
->shminfo
);
990 view
->shminfo
= NULL
;
994 view
->image
->data
= NULL
;
995 XDestroyImage(view
->image
);
999 view
->line_bytes
= 0;
1000 view
->pixel_bytes
= 0;
1005 if (resize
|| (view
->pixmap
== None
)) {
1006 if (view
->pixmap
!= None
) {
1007 XFreePixmap(view
->x
->dpy
, view
->pixmap
);
1008 view
->pixmap
= None
;
1010 view
->pixmap
= XCreatePixmap(view
->x
->dpy
, view
->x
->root
,
1011 view
->m_width
, view
->m_height
,
1013 if (view
->pixmap
== None
) {
1015 "Sorry, Micropolis can't create pixmap on X display \"%s\".\n",
1017 sim_exit(1); // Just sets tkMustExit and ExitReturn
1020 if (view
->x
->color
) {
1021 XSetForeground(view
->x
->dpy
, view
->x
->gc
,
1022 view
->pixels
[COLOR_LIGHTBROWN
]);
1024 XSetForeground(view
->x
->dpy
, view
->x
->gc
,
1025 view
->pixels
[COLOR_WHITE
]);
1027 XFillRectangle(view
->x
->dpy
, view
->pixmap
, view
->x
->gc
,
1028 0, 0, view
->m_width
, view
->m_height
);
1033 if (view
->class == Editor_Class
) {
1038 } else if (view
->class == Map_Class
) {
1040 if (view
->type
== X_Mem_View
) { /* Memory Map */
1042 if (view
->x
->color
) {
1044 /* Color, Shared Memory */
1046 view
->data8
= view
->data
;
1047 view
->line_bytes8
= view
->line_bytes
; /* XXX: ??? */
1049 switch (view
->x
->depth
) {
1052 view
->pixel_bytes
= 1;
1057 view
->pixel_bytes
= 2;
1062 view
->pixel_bytes
= 2;
1067 /* XXX: TODO: 24 and 32 bit support */
1068 view
->pixel_bytes
= 4;
1069 //view->pixel_bytes = 3;
1074 /* XXX: TODO: 24 and 32 bit support */
1075 view
->pixel_bytes
= 4;
1080 view
->pixel_bytes
= 0;
1088 /* Black and White, Shared Memory */
1090 if (view
->other_image
!= NULL
) {
1091 XDestroyImage(view
->other_image
);
1094 view
->line_bytes8
= view
->m_width
; /* XXX: fix depth */
1095 view
->pixel_bytes
= 0;
1098 view
->other_data
= view
->data8
=
1099 AllocPixels(view
->m_height
* view
->line_bytes8
, /* XXX: fix depth */
1100 view
->pixels
[COLOR_WHITE
]);
1102 XCreateImage(view
->x
->dpy
, view
->x
->visual
, 8, /* XXX: fix depth */
1103 ZPixmap
, 0, (char *)view
->other_data
,
1104 view
->m_width
, view
->m_height
,
1105 8, view
->line_bytes8
); /* XXX: fix depth */
1108 } else { /* Wire Map */
1112 if (view
->image
!= NULL
) {
1113 XDestroyImage(view
->image
);
1117 if (view
->other_image
!= NULL
) {
1118 XDestroyImage(view
->other_image
);
1119 view
->other_image
= NULL
;
1122 if (view
->x
->color
) {
1126 switch (view
->x
->depth
) {
1129 view
->pixel_bytes
= 1;
1134 ((view
->m_width
* view
->pixel_bytes
) + 3) & (~3);
1138 view
->pixel_bytes
= 2;
1143 ((view
->m_width
* view
->pixel_bytes
) + 3) & (~3);
1147 view
->pixel_bytes
= 2;
1152 ((view
->m_width
* view
->pixel_bytes
) + 3) & (~3);
1156 view
->pixel_bytes
= 4;
1157 //view->pixel_bytes = 3;
1162 ((view
->m_width
* 4) + 3) & (~3);
1166 view
->pixel_bytes
= 4;
1171 ((view
->m_width
* 4) + 3) & (~3);
1175 assert(0); /* Unknown depth */
1185 /* Black and White, Wire */
1187 view
->pixel_bytes
= 0;
1190 (view
->m_width
+ 3) & (~3); /* XXX: handle depth */
1192 (view
->m_width
+ 7) >>3;
1199 AllocPixels(view
->m_height
* view
->line_bytes
, 0);
1201 XCreateImage(view
->x
->dpy
, view
->x
->visual
,
1203 view
->x
->color
? ZPixmap
: XYBitmap
,
1204 0, (char *)view
->data
,
1205 view
->m_width
, view
->m_height
,
1210 AllocPixels(view
->m_height
* view
->line_bytes8
, 0);
1212 XCreateImage(view
->x
->dpy
, view
->x
->visual
,
1215 0, (char *)view
->other_data
,
1216 view
->m_width
, view
->m_height
,
1220 if (view
->x
->color
) {
1221 view
->data8
= view
->data
;
1223 view
->data8
= view
->other_data
;
1230 DoPanBy(struct SimView
*view
, int dx
, int dy
)
1232 DoPanTo(view
, view
->pan_x
+ dx
, view
->pan_y
+ dy
);
1236 DoPanTo(struct SimView
*view
, int x
, int y
)
1238 if (view
->class != Editor_Class
) {
1244 if (x
> view
->i_width
) x
= view
->i_width
- 1;
1245 if (y
> view
->i_height
) y
= view
->i_height
- 1;
1246 if ((view
->pan_x
!= x
) ||
1247 (view
->pan_y
!= y
)) {
1254 /* #define DEBUG_PAN */
1256 DoAdjustPan(struct SimView
*view
)
1258 int ww2
= view
->w_width
>>1, wh2
= view
->w_height
>>1;
1259 int px
= view
->pan_x
, py
= view
->pan_y
;
1260 int last_tile_x
= view
->tile_x
, last_tile_y
= view
->tile_y
;
1261 int last_tile_width
= view
->tile_width
, last_tile_height
= view
->tile_height
;
1262 int total_width
= view
->m_width
>>4, total_height
= view
->m_height
>>4;
1263 //fprintf(stderr, "DoAdjustPan\n");
1266 printf("AdjustPan window %d %d ww2 %d wh2 %d pan %d %d\n",
1267 view
->w_width
, view
->w_height
, ww2
, wh2
, px
, py
);
1268 printf(" last tile %d %d %d %d\n",
1269 last_tile_x
, last_tile_y
, last_tile_width
, last_tile_height
);
1272 if ((view
->tile_x
= ((px
- ww2
) >>4)) < 0)
1274 if ((view
->tile_y
= ((py
- wh2
) >>4)) < 0)
1278 printf(" now tile %d %d\n", view
->tile_x
, view
->tile_y
);
1281 view
->tile_width
= ((15 + px
+ ww2
) >>4);
1282 view
->tile_height
= ((15 + py
+ wh2
) >>4);
1285 printf(" outer tile %d %d\n", view
->tile_width
, view
->tile_height
);
1288 if (view
->tile_width
> (view
->i_width
>>4))
1289 view
->tile_width
= (view
->i_width
>>4);
1290 view
->tile_width
-= view
->tile_x
;
1291 if (view
->tile_height
> (view
->i_height
>>4))
1292 view
->tile_height
= (view
->i_height
>>4);
1293 view
->tile_height
-= view
->tile_y
;
1296 printf(" tile size %d %d\n", view
->tile_width
, view
->tile_height
);
1299 if (view
->tile_width
> (view
->m_width
>>4))
1300 view
->tile_width
= (view
->m_width
>>4);
1301 if (view
->tile_height
> (view
->m_height
>>4))
1302 view
->tile_height
= (view
->m_height
>>4);
1305 printf(" clipped size %d %d\n", view
->tile_width
, view
->tile_height
);
1306 printf(" maximum size %d %d\n", view
->m_width
>>4, view
->m_height
>>4);
1309 view
->screen_x
= (ww2
- px
) + (view
->tile_x
<<4);
1310 view
->screen_y
= (wh2
- py
) + (view
->tile_y
<<4);
1311 view
->screen_width
= (view
->tile_width
<<4);
1312 view
->screen_height
= (view
->tile_height
<<4);
1315 printf(" screen %d %d %d %d\n",
1316 view
->screen_x
, view
->screen_y
,
1317 view
->screen_width
, view
->screen_height
);
1320 view
->overlay_mode
= 0;
1323 if (SimSpeed
== 0) {
1324 EventuallyRedrawView(view
);
1326 /* InvalidateEditors(); */
1327 if (view
->show_me
) {
1330 /* FixMicropolisTimer(); */
1332 { int dx
= last_tile_x
- view
->tile_x
,
1333 dy
= last_tile_y
- view
->tile_y
;
1334 short **want
= view
->other_tiles
,
1335 **have
= view
->tiles
;
1338 printf("scrolling %d %d\n", dx
, dy
);
1341 if ((dx
!= 0) || (dy
!= 0)) {
1343 width
= view
->tile_width
,
1344 height
= view
->tile_height
;
1346 for (col
= 0; col
< width
; col
++)
1347 memcpy(want
[col
], have
[col
], (height
* sizeof(short)));
1349 for (col
= 0; col
< total_width
; col
++) {
1351 for (row
= 0; row
< total_height
; row
++) {
1353 if ((x
>= 0) && (x
< width
) &&
1354 (y
>= 0) && (y
< height
)) {
1355 have
[col
][row
] = want
[x
][y
];
1357 have
[col
][row
] = -1;
1362 XCopyArea(view
->x
->dpy
, view
->pixmap
, view
->pixmap
, view
->x
->gc
,
1363 0, 0, view
->tile_width
<<4, view
->tile_height
<<4,
1366 if (view
->type
== X_Mem_View
) {
1367 XSync(view
->x
->dpy
, False
);
1374 AllocTiles(SimView
*view
)
1377 short **have
, **want
;
1378 int w
= view
->m_width
/ 16, h
= view
->m_height
/ 16;
1379 int n
= (w
+ 1) * sizeof (short *);
1384 have
= view
->tiles
=
1385 (short **)ckalloc(n
);
1387 want
= view
->other_tiles
=
1388 (short **)ckalloc(n
);
1390 have
[w
] = want
[w
] = NULL
;
1392 n
= h
* sizeof(short);
1393 for (col
= 0; col
< w
; col
++) {
1395 have
[col
] = (short *)ckalloc(n
);
1396 want
[col
] = (short *)ckalloc(n
);
1397 for (row
= 0; row
< h
; row
++) {
1398 have
[col
][row
] = -1;
1399 want
[col
][row
] = -1;
1405 FreeTiles(SimView
*view
)
1409 for (col
= 0; view
->tiles
[col
] != NULL
; col
++) {
1410 ckfree ((char *)view
->tiles
[col
]);
1411 ckfree ((char *)view
->other_tiles
[col
]);
1413 ckfree ((char *)view
->tiles
);
1415 ckfree ((char *)view
->other_tiles
);
1416 view
->other_tiles
= NULL
;
1420 #define POINT_BATCH 32
1425 /* XXX: todo: ink locking so someone doesn't erase ink that's being drawn */
1434 OldInk
= OldInk
->next
;
1436 ink
= (Ink
*)ckalloc(sizeof(Ink
));
1437 ink
->maxlength
= POINT_BATCH
;
1438 ink
->points
= (XPoint
*)ckalloc(POINT_BATCH
* sizeof(XPoint
));
1441 ink
->color
= COLOR_WHITE
;
1443 ink
->left
= ink
->right
= ink
->top
= ink
->bottom
=
1444 ink
->last_x
= ink
->last_y
= -1;
1456 StartInk(Ink
*ink
, int x
, int y
)
1459 ink
->left
= ink
->right
= ink
->last_x
= ink
->points
[0].x
= x
;
1460 ink
->top
= ink
->bottom
= ink
->last_y
= ink
->points
[0].y
= y
;
1464 AddInk(Ink
*ink
, int x
, int y
)
1466 int dx
= x
- ink
->last_x
;
1467 int dy
= y
- ink
->last_y
;
1469 if ((dx
!= 0) || (dy
!= 0)) {
1471 if (ink->length > 1) {
1473 (ink->points[ink->length - 1].x == 0) &&
1474 ((ink->points[ink->length - 1].y < 0) ?
1475 (dy < 0) : (dy > 0))) {
1476 ink->points[ink->length - 1].y += dy;
1478 } else if ((dy == 0) &&
1479 (ink->points[ink->length - 1].y == 0) &&
1480 ((ink->points[ink->length - 1].x < 0) ?
1481 (dx < 0) : (dx > 0))) {
1482 ink->points[ink->length - 1].x += dx;
1488 if (ink
->length
>= ink
->maxlength
) {
1489 ink
->maxlength
+= POINT_BATCH
;
1490 ink
->points
= (XPoint
*)realloc((void *)ink
->points
,
1491 ink
->maxlength
* sizeof(XPoint
));
1493 ink
->points
[ink
->length
].x
= dx
;
1494 ink
->points
[ink
->length
].y
= dy
;
1504 if (y
> ink
->bottom
)
1507 { int left
, right
, top
, bottom
;
1510 if (ink
->last_x
< x
) { left
= ink
->last_x
; right
= x
; }
1511 else { left
= x
; right
= ink
->last_x
; }
1512 if (ink
->last_y
< y
) { top
= ink
->last_y
; bottom
= y
; }
1513 else { top
= y
; bottom
= ink
->last_y
; }
1515 left
-= 5; right
+= 5; top
-= 5; bottom
+= 5;
1517 for (view
= sim
->editor
; view
!= NULL
; view
= view
->next
) {
1520 if ((right
>= (vleft
= view
->pan_x
- (view
->w_width
/ 2))) &&
1521 (left
<= vleft
+ view
->w_width
) &&
1522 (bottom
>= (vtop
= view
->pan_y
- (view
->w_height
/ 2))) &&
1523 (top
<= vtop
+ view
->w_height
)) {
1524 /* XXX: do studly incremental update instead */
1525 view
->overlay_mode
= 0;
1526 EventuallyRedrawView(view
);
1530 ink
->last_x
= x
; ink
->last_y
= y
;
1539 while (sim
->overlay
) {
1541 sim
->overlay
= ink
->next
;