?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
Re-ran aclocal and automake on an updated system.
[xcircuit.git] / events.c
blob1f846e67d699cbbb0dc48e292f6818a34177b22f
1 /*-------------------------------------------------------------------------*/
2 /* events.c --- xcircuit routines handling Xevents and Callbacks */
3 /* Copyright (c) 2002 Tim Edwards, Johns Hopkins University */
4 /*-------------------------------------------------------------------------*/
5
6 /*-------------------------------------------------------------------------*/
7 /* written by Tim Edwards, 8/13/93 */
8 /*-------------------------------------------------------------------------*/
9
10 #include <stdio.h>
11 #include <stdlib.h>
12 #include <string.h>
13 #include <math.h>
14 #include <ctype.h>
15
16 #ifndef XC_WIN32
17 #include <X11/Intrinsic.h>
18 #include <X11/StringDefs.h>
19 #define XK_MISCELLANY
20 #define XK_LATIN1
21 #include <X11/keysymdef.h>
22 #else
23 #ifdef TCL_WRAPPER
24 #define XK_MISCELLANY
25 #define XK_LATIN1
26 #include <X11/keysymdef.h>
27 #endif
28 #endif
29
30 #ifdef HAVE_CAIRO
31 #include <cairo/cairo-xlib.h>
32 #endif
33
34 /*-------------------------------------------------------------------------*/
35 /* Local includes */
36 /*-------------------------------------------------------------------------*/
37
38 #ifdef TCL_WRAPPER
39 #include <tk.h>
40 #endif
41
42 #include "xcircuit.h"
43 #include "colordefs.h"
44
45 #define HOLD_MASK (Mod4Mask << 16)
46
47 /*----------------------------------------------------------------------*/
48 /* Function prototype declarations */
49 /*----------------------------------------------------------------------*/
50 #include "prototypes.h"
51
52 /*-------------------------------------------------------------------------*/
53 /* Global Variable definitions */
54 /*-------------------------------------------------------------------------*/
55
56 extern XtAppContext app;
57 extern Display *dpy;
58 extern Cursor appcursors[NUM_CURSORS];
59 extern Globaldata xobjs;
60 extern XCWindowData *areawin;
61 extern ApplicationData appdata;
62 extern colorindex *colorlist;
63 extern short popups;
64 extern int pressmode;
65 extern xcWidget message2, top;
66 extern char _STR[150], _STR2[250];
67 extern short beeper;
68 extern double saveratio;
69 extern u_char texttype;
70 extern aliasptr aliastop;
71
72 #ifdef TCL_WRAPPER
73 extern Tcl_Interp *xcinterp;
74 #else
75 extern short help_up;
76 #endif
77
78 /* double buffer */
79 #if !defined(HAVE_CAIRO)
80 Pixmap dbuf = (Pixmap)NULL;
81 #endif
82
83 Boolean was_preselected;
84
85 /*----------------------------------------------------------------------------*/
86 /* Edit Object pushing and popping. */
87 /*----------------------------------------------------------------------------*/
88
89 Boolean recursefind(objectptr parent, objectptr suspect)
90 {
91 genericptr *shell;
92
93 if (parent == suspect) return True;
94
95 for (shell = parent->plist; shell < parent->plist + parent->parts; shell++)
96 if (IS_OBJINST(*shell))
97 if (recursefind(TOOBJINST(shell)->thisobject, suspect)) return True;
98
99 return False;
100 }
101
102 /*--------------------------------------------------------------*/
103 /* Transfer objects in the select list to the current object */
104 /* (but disallow infinitely recursive loops!) */
105 /*--------------------------------------------------------------*/
106 /* IMPORTANT: delete_for_xfer() MUST be executed prior to */
107 /* calling transferselects(), so that the deleted elements are */
108 /* in an object saved in areawin->editstack. */
109 /*--------------------------------------------------------------*/
110
111 void transferselects()
112 {
113 short locselects;
114 objinstptr tobj;
115 XPoint newpos;
116
117 if (areawin->editstack->parts == 0) return;
118
119 if (eventmode == MOVE_MODE || eventmode == COPY_MODE ||
120 eventmode == UNDO_MODE || eventmode == CATMOVE_MODE) {
121 short ps = topobject->parts;
122
123 freeselects();
124
125 locselects = areawin->editstack->parts;
126 areawin->selectlist = xc_undelete(areawin->topinstance,
127 areawin->editstack, (short)NORMAL, (short *)NULL);
128 areawin->selects = locselects;
129
130 /* Move all selected items to the cursor position */
131 newpos = UGetCursor();
132 drag((int)newpos.x, (int)newpos.y);
133
134 /* check to make sure this object is not the current object */
135 /* or one of its direct ancestors, else an infinite loop results. */
136
137 for (ps = 0; ps < topobject->parts; ps++) {
138 if (IS_OBJINST(*(topobject->plist + ps))) {
139 tobj = TOOBJINST(topobject->plist + ps);
140 if (recursefind(tobj->thisobject, topobject)) {
141 Wprintf("Attempt to place object inside of itself");
142 delete_noundo(NORMAL);
143 break;
144 }
145 }
146 }
147 }
148 }
149
150 /*-------------------------------------------------------------------*/
151 /* Make a new matrix corresponding to the current position and scale */
152 /*-------------------------------------------------------------------*/
153
154 void newmatrix()
155 {
156 if (DCTM == NULL) {
157 DCTM = (Matrixptr)malloc(sizeof(Matrix));
158 DCTM->nextmatrix = NULL;
159 }
160 UResetCTM(DCTM);
161 UMakeWCTM(DCTM);
162 }
163
164 /*-------------------------------------------------------*/
165 /* set the viewscale variable to the proper address */
166 /*-------------------------------------------------------*/
167
168 void setpage(Boolean killselects)
169 {
170 areawin->vscale = topobject->viewscale;
171 areawin->pcorner = topobject->pcorner;
172 newmatrix();
173
174 if (killselects) clearselects();
175
176 #ifdef TCL_WRAPPER
177 if (xobjs.suspend < 0)
178 XcInternalTagCall(xcinterp, 2, "page", "goto");
179 #endif
180 }
181
182 /*-------------------------------------------------------*/
183 /* switch to a new page */
184 /*-------------------------------------------------------*/
185
186 int changepage(short pagenumber)
187 {
188 short npage;
189 objectptr pageobj;
190 u_char undo_type;
191
192 /* to add to existing number of top level pages. . . */
193
194 if (pagenumber == 255) {
195 if (xobjs.pages == 255) {
196 Wprintf("Out of available pages!");
197 return -1;
198 }
199 else pagenumber = xobjs.pages;
200 }
201
202 if (pagenumber >= xobjs.pages) {
203
204 xobjs.pagelist = (Pagedata **)realloc(xobjs.pagelist, (pagenumber + 1)
205 * sizeof(Pagedata *));
206 xobjs.pagelist[pagenumber] = (Pagedata *)malloc(sizeof(Pagedata));
207 xobjs.pagelist[pagenumber]->filename = NULL;
208 xobjs.pagelist[pagenumber]->background.name = NULL;
209 xobjs.pagelist[pagenumber]->pageinst = NULL;
210
211 /* If we skipped ahead to pagenumber, fill in the pages in between */
212 for (npage = xobjs.pages; npage < pagenumber; npage++) {
213 xobjs.pagelist[npage] = (Pagedata *)malloc(sizeof(Pagedata));
214 xobjs.pagelist[npage]->pageinst = NULL;
215 }
216
217 xobjs.pages = pagenumber + 1;
218 makepagebutton();
219 }
220
221 if (eventmode == MOVE_MODE || eventmode == COPY_MODE || eventmode == UNDO_MODE) {
222 delete_for_xfer(NORMAL, areawin->selectlist, areawin->selects);
223 undo_type = UNDO_MORE;
224 }
225 else {
226 clearselects();
227 undo_type = UNDO_DONE;
228 }
229 if (areawin->page != pagenumber)
230 register_for_undo(XCF_Page, undo_type, areawin->topinstance,
231 areawin->page, pagenumber);
232
233 if (eventmode != ASSOC_MODE) {
234 areawin->page = pagenumber;
235 free_stack(&areawin->stack);
236 }
237 if (xobjs.pagelist[pagenumber]->pageinst == NULL) {
238
239 /* initialize a new page */
240
241 pageobj = (objectptr) malloc (sizeof(object));
242 initmem(pageobj);
243 sprintf(pageobj->name, "Page %d", pagenumber + 1);
244
245 xobjs.pagelist[pagenumber]->pageinst = newpageinst(pageobj);
246 xobjs.pagelist[pagenumber]->filename = NULL;
247 xobjs.pagelist[pagenumber]->background.name = NULL;
248
249 pagereset(pagenumber);
250 }
251
252 /* Write back the current view parameters */
253 if (areawin->topinstance != NULL) {
254 topobject->viewscale = areawin->vscale;
255 topobject->pcorner = areawin->pcorner;
256 }
257
258 areawin->topinstance = xobjs.pagelist[pagenumber]->pageinst;
259
260 setpage(TRUE);
261
262 return 0;
263 }
264
265 /*-------------------------------------------------------*/
266 /* switch to a new page and redisplay */
267 /*-------------------------------------------------------*/
268
269 void newpage(short pagenumber)
270 {
271 switch (eventmode) {
272 case CATALOG_MODE:
273 eventmode = NORMAL_MODE;
274 catreturn();
275 break;
276
277 case NORMAL_MODE: case COPY_MODE: case MOVE_MODE: case UNDO_MODE:
278 if (changepage(pagenumber) >= 0) {
279 transferselects();
280 renderbackground();
281 refresh(NULL, NULL, NULL);
282
283 togglegrid((u_short)xobjs.pagelist[areawin->page]->coordstyle);
284 setsymschem();
285 }
286 break;
287
288 default:
289 Wprintf("Cannot switch pages from this mode");
290 break;
291 }
292 }
293
294 /*---------------------------------------*/
295 /* Stack structure push and pop routines */
296 /*---------------------------------------*/
297
298 void push_stack(pushlistptr *stackroot, objinstptr thisinst, char *clientdata)
299 {
300 pushlistptr newpush;
301
302 newpush = (pushlistptr)malloc(sizeof(pushlist));
303 newpush->next = *stackroot;
304 newpush->clientdata = clientdata;
305 newpush->thisinst = thisinst;
306 *stackroot = newpush;
307 }
308
309 /*----------------------------------------------------------*/
310
311 void pop_stack(pushlistptr *stackroot)
312 {
313 pushlistptr lastpush;
314
315 if (!(*stackroot)) {
316 Fprintf(stderr, "pop_genstack() Error: NULL instance stack!\n");
317 return;
318 }
319
320 lastpush = (*stackroot)->next;
321 free(*stackroot);
322 *stackroot = lastpush;
323 }
324
325 /*----------------------------------------------------------*/
326
327 void free_stack(pushlistptr *stackroot)
328 {
329 while ((*stackroot) != NULL)
330 pop_stack(stackroot);
331 }
332
333 /*------------------------------------------*/
334 /* Push object onto hierarchy stack to edit */
335 /*------------------------------------------*/
336
337 void pushobject(objinstptr thisinst)
338 {
339 short *selectobj, *savelist;
340 int saves;
341 u_char undo_type = UNDO_DONE;
342 objinstptr pushinst = thisinst;
343
344 savelist = NULL;
345 saves = 0;
346 if (eventmode == MOVE_MODE || eventmode == COPY_MODE) {
347 savelist = areawin->selectlist;
348 saves = areawin->selects;
349 areawin->selectlist = NULL;
350 areawin->selects = 0;
351 undo_type = UNDO_MORE;
352 }
353
354 if (pushinst == NULL) {
355 selectobj = areawin->selectlist;
356 if (areawin->selects == 0) {
357 disable_selects(topobject, savelist, saves);
358 selectobj = select_element(OBJINST);
359 enable_selects(topobject, savelist, saves);
360 }
361 if (areawin->selects == 0) {
362 Wprintf("No objects selected.");
363 return;
364 }
365 else if (areawin->selects > 1) {
366 Wprintf("Choose only one object.");
367 return;
368 }
369 else if (SELECTTYPE(selectobj) != OBJINST) {
370 Wprintf("Element to push must be an object.");
371 return;
372 }
373 else pushinst = SELTOOBJINST(selectobj);
374 }
375
376 if (savelist != NULL) {
377 delete_for_xfer(NORMAL, savelist, saves);
378 free(savelist);
379 }
380
381 register_for_undo(XCF_Push, undo_type, areawin->topinstance, pushinst);
382
383 /* save the address of the current object to the push stack */
384
385 push_stack(&areawin->stack, areawin->topinstance, NULL);
386
387 topobject->viewscale = areawin->vscale;
388 topobject->pcorner = areawin->pcorner;
389 areawin->topinstance = pushinst;
390
391 /* move selected items to the new object */
392
393 setpage(TRUE);
394 transferselects();
395 refresh(NULL, NULL, NULL);
396 setsymschem();
397 }
398
399 /*--------------------------*/
400 /* Pop edit hierarchy stack */
401 /*--------------------------*/
402
403 void popobject(xcWidget w, pointertype no_undo, caddr_t calldata)
404 {
405 u_char undo_type = UNDO_DONE;
406 UNUSED(w); UNUSED(calldata);
407
408 if (areawin->stack == NULL || (eventmode != NORMAL_MODE && eventmode != MOVE_MODE
409 && eventmode != COPY_MODE && eventmode != FONTCAT_MODE &&
410 eventmode != ASSOC_MODE && eventmode != UNDO_MODE &&
411 eventmode != EFONTCAT_MODE)) return;
412
413 if ((eventmode == MOVE_MODE || eventmode == COPY_MODE || eventmode == UNDO_MODE)
414 && ((areawin->stack->thisinst == xobjs.libtop[LIBRARY]) ||
415 (areawin->stack->thisinst == xobjs.libtop[USERLIB]))) return;
416
417 /* remove any selected items from the current object */
418
419 if (eventmode == MOVE_MODE || eventmode == COPY_MODE || eventmode == UNDO_MODE) {
420 undo_type = UNDO_MORE;
421 delete_for_xfer(NORMAL, areawin->selectlist, areawin->selects);
422 }
423 else if (eventmode != FONTCAT_MODE && eventmode != EFONTCAT_MODE)
424 unselect_all();
425
426 /* If coming from the library, don't register an undo action, because */
427 /* it has already been registered as type XCF_Library_Pop. */
428
429 if (no_undo == (pointertype)0)
430 register_for_undo(XCF_Pop, undo_type, areawin->topinstance);
431
432 topobject->viewscale = areawin->vscale;
433 topobject->pcorner = areawin->pcorner;
434 areawin->topinstance = areawin->stack->thisinst;
435 pop_stack(&areawin->stack);
436
437 /* if new object is a library or PAGELIB, put back into CATALOG_MODE */
438
439 if (is_library(topobject) >= 0) eventmode = CATALOG_MODE;
440
441 /* move selected items to the new object */
442
443 if (eventmode == FONTCAT_MODE || eventmode == EFONTCAT_MODE)
444 setpage(False);
445 else {
446 setpage(True);
447 setsymschem();
448 if (eventmode != ASSOC_MODE)
449 transferselects();
450 }
451 refresh(NULL, NULL, NULL);
452 }
453
454 /*-------------------------------------------------------------------------*/
455 /* Destructive reset of entire object */
456 /*-------------------------------------------------------------------------*/
457
458 void resetbutton(xcWidget button, pointertype pageno, caddr_t calldata)
459 {
460 short page;
461 objectptr pageobj;
462 objinstptr pageinst;
463 UNUSED(button); UNUSED(calldata);
464
465 if (eventmode != NORMAL_MODE) return;
466
467 page = (pageno == (pointertype)0) ? areawin->page : (short)(pageno - 1);
468
469 pageinst = xobjs.pagelist[page]->pageinst;
470
471 if (pageinst == NULL) return; /* page already cleared */
472
473 pageobj = pageinst->thisobject;
474
475 /* Make sure this is a real top-level page */
476
477 if (is_page(topobject) < 0) {
478 if (pageno == (pointertype)0) {
479 Wprintf("Can only clear top-level pages!");
480 return;
481 }
482 else {
483 /* Make sure that we're not in the hierarchy of the page being deleted */
484 pushlistptr slist;
485 for (slist = areawin->stack; slist != NULL; slist = slist->next)
486 if (slist->thisinst->thisobject == pageobj) {
487 Wprintf("Can't delete the page while you're in its hierarchy!");
488 return;
489 }
490 }
491 }
492
493 /* Watch for pages which are linked by schematic/symbol. */
494
495 if (pageobj->symschem != NULL) {
496 Wprintf("Schematic association to object %s", pageobj->symschem->name);
497 return;
498 }
499
500 sprintf(pageobj->name, "Page %d", page + 1);
501 xobjs.pagelist[page]->filename = (char *)realloc(xobjs.pagelist[page]->filename,
502 (strlen(pageobj->name) + 1) * sizeof(char));
503 strcpy(xobjs.pagelist[page]->filename, pageobj->name);
504 reset(pageobj, NORMAL);
505 flush_undo_stack();
506
507 if (page == areawin->page) {
508 areawin->redraw_needed = True;
509 drawarea(areawin->area, NULL, NULL);
510 printname(pageobj);
511 renamepage(page);
512 Wprintf("Page cleared.");
513 }
514 }
515
516 /*------------------------------------------------------*/
517 /* Redraw the horizontal scrollbar */
518 /*------------------------------------------------------*/
519
520 void drawhbar(xcWidget bar, caddr_t clientdata, caddr_t calldata)
521 {
522 Window bwin;
523 float frac;
524 long rleft, rright, rmid;
525 int sbarsize;
526 char *scale;
527 UNUSED(clientdata); UNUSED(calldata);
528
529 if (!xcIsRealized(bar)) return;
530 if (xobjs.suspend >= 0) return;
531
532 #ifdef TCL_WRAPPER
533 scale = (char *)Tcl_GetVar2(xcinterp, "XCOps", "scale", TCL_GLOBAL_ONLY);
534 sbarsize = SBARSIZE * atoi(scale);
535 #else
536 sbarsize = SBARSIZE;
537 #endif
538
539 bwin = xcWindow(bar);
540
541 if (topobject->bbox.width > 0) {
542 frac = (float) areawin->width / (float) topobject->bbox.width;
543 rleft = (long)(frac * (float)(areawin->pcorner.x
544 - topobject->bbox.lowerleft.x));
545 rright = rleft + (long)(frac * (float)areawin->width / areawin->vscale);
546 }
547 else {
548 rleft = 0L;
549 rright = (long)areawin->width;
550 }
551 rmid = (rright + rleft) >> 1;
552
553 if (rleft < 0) rleft = 0;
554 if (rright > areawin->width) rright = areawin->width;
555
556 XSetFunction(dpy, areawin->gc, GXcopy);
557 XSetForeground(dpy, areawin->gc, colorlist[BARCOLOR].color.pixel);
558 if (rmid > 0 && rleft > 0)
559 XClearArea(dpy, bwin, 0, 0, (int)rleft, sbarsize, FALSE);
560 XFillRectangle(dpy, bwin, areawin->gc, (int)rleft + 1, 1,
561 (int)(rright - rleft), sbarsize - 1);
562 if (rright > rmid)
563 XClearArea(dpy, bwin, (int)rright + 1, 0, areawin->width
564 - (int)rright, sbarsize, FALSE);
565 XClearArea(dpy, bwin, (int)rmid - 1, 1, 3, sbarsize, FALSE);
566
567 XSetForeground(dpy, areawin->gc, colorlist[areawin->gccolor].color.pixel);
568 }
569
570 /*------------------------------------------------------*/
571 /* Redraw the vertical scrollbar */
572 /*------------------------------------------------------*/
573
574 void drawvbar(xcWidget bar, caddr_t clientdata, caddr_t calldata)
575 {
576 Window bwin = xcWindow(bar);
577 float frac;
578 char *scale;
579 int sbarsize;
580 long rtop, rbot, rmid;
581 UNUSED(clientdata); UNUSED(calldata);
582
583 #ifdef TCL_WRAPPER
584 scale = (char *)Tcl_GetVar2(xcinterp, "XCOps", "scale", TCL_GLOBAL_ONLY);
585 sbarsize = SBARSIZE * atoi(scale);
586 #else
587 sbarsize = SBARSIZE;
588 #endif
589
590 if (!xcIsRealized(bar)) return;
591 if (xobjs.suspend >= 0) return;
592
593 if (topobject->bbox.height > 0) {
594 frac = (float)areawin->height / (float)topobject->bbox.height;
595 rbot = (long)(frac * (float)(topobject->bbox.lowerleft.y
596 - areawin->pcorner.y + topobject->bbox.height));
597 rtop = rbot - (long)(frac * (float)areawin->height / areawin->vscale);
598 }
599 else {
600 rbot = areawin->height;
601 rtop = 0;
602 }
603 rmid = (rtop + rbot) >> 1;
604
605 if (rtop < 0) rtop = 0;
606 if (rbot > areawin->height) rbot = areawin->height;
607
608 XSetFunction(dpy, areawin->gc, GXcopy);
609 XSetForeground(dpy, areawin->gc, colorlist[BARCOLOR].color.pixel);
610 if (rmid > 0 && rtop > 0)
611 XClearArea(dpy, bwin, 0, 0, sbarsize, (int)rtop, FALSE);
612 XFillRectangle(dpy, bwin, areawin->gc, 0, (int)rtop + 2, sbarsize,
613 (int)(rbot - rtop));
614 if (rbot > rmid)
615 XClearArea(dpy, bwin, 0, (int)rbot + 1, sbarsize, areawin->height
616 - (int)rbot, FALSE);
617 XClearArea(dpy, bwin, 0, (int)rmid - 1, sbarsize, 3, FALSE);
618
619 XSetForeground(dpy, areawin->gc, colorlist[areawin->gccolor].color.pixel);
620 }
621
622 /*------------------------------------------------------*/
623 /* Simultaneously scroll the screen and horizontal */
624 /* bar when dragging the mouse in the scrollbar area */
625 /*------------------------------------------------------*/
626
627 void panhbar(xcWidget bar, caddr_t clientdata, XButtonEvent *event)
628 {
629 long newx, newpx;
630 short savex = areawin->pcorner.x;
631 UNUSED(clientdata);
632
633 if (eventmode == SELAREA_MODE) return;
634
635 newx = (long)(event->x * ((float)topobject->bbox.width /
636 areawin->width) + topobject->bbox.lowerleft.x - 0.5 *
637 ((float)areawin->width / areawin->vscale));
638 areawin->pcorner.x = (short)newx;
639 drawhbar(bar, NULL, NULL);
640 areawin->pcorner.x = savex;
641
642 if ((newpx = (long)(newx - savex) * areawin->vscale) == 0)
643 return;
644
645 areawin->panx = -newpx;
646 drawarea(NULL, NULL, NULL);
647 }
648
649 /*------------------------------------------------------*/
650 /* End the horizontal scroll and refresh entire screen */
651 /*------------------------------------------------------*/
652
653 void endhbar(xcWidget bar, caddr_t clientdata, XButtonEvent *event)
654 {
655 long newx;
656 short savex = areawin->pcorner.x;
657 UNUSED(clientdata);
658
659 areawin->panx = 0;
660
661 newx = (long)(event->x * ((float)topobject->bbox.width /
662 areawin->width) + topobject->bbox.lowerleft.x - 0.5 *
663 ((float)areawin->width / areawin->vscale));
664
665 areawin->pcorner.x = (short)newx;
666
667 if ((newx << 1) != (long)((short)(newx << 1)) || checkbounds() == -1) {
668 areawin->pcorner.x = savex;
669 Wprintf("Reached boundary: cannot pan further");
670 }
671 else
672 W3printf(" ");
673
674 areawin->redraw_needed = True;
675 areawin->lastbackground = NULL;
676 renderbackground();
677 drawhbar(bar, NULL, NULL);
678 drawarea(bar, NULL, NULL);
679 }
680
681 /*------------------------------------------------------*/
682 /* Simultaneously scroll the screen and vertical */
683 /* bar when dragging the mouse in the scrollbar area */
684 /*------------------------------------------------------*/
685
686 void panvbar(xcWidget bar, caddr_t clientdata, XButtonEvent *event)
687 {
688 long newy, newpy;
689 short savey = areawin->pcorner.y;
690 UNUSED(clientdata);
691
692 if (eventmode == SELAREA_MODE) return;
693
694 newy = (int)((areawin->height - event->y) *
695 ((float)topobject->bbox.height / areawin->height) +
696 topobject->bbox.lowerleft.y - 0.5 * ((float)areawin->height /
697 areawin->vscale));
698 areawin->pcorner.y = (short)newy;
699 drawvbar(bar, NULL, NULL);
700 areawin->pcorner.y = savey;
701
702 if ((newpy = (long)(newy - savey) * areawin->vscale) == 0)
703 return;
704
705 areawin->pany = newpy;
706 drawarea(NULL, NULL, NULL);
707 }
708
709 /*------------------------------------------------------*/
710 /* Pan the screen to follow the cursor position */
711 /*------------------------------------------------------*/
712
713 void trackpan(int x, int y)
714 {
715 XPoint newpos;
716 short savey = areawin->pcorner.y;
717 short savex = areawin->pcorner.x;
718
719 newpos.x = areawin->origin.x - x;
720 newpos.y = y - areawin->origin.y;
721
722 areawin->pcorner.x += newpos.x / areawin->vscale;
723 areawin->pcorner.y += newpos.y / areawin->vscale;
724
725 drawhbar(areawin->scrollbarh, NULL, NULL);
726 drawvbar(areawin->scrollbarv, NULL, NULL);
727
728 areawin->panx = -newpos.x;
729 areawin->pany = newpos.y;
730
731 drawarea(NULL, NULL, NULL);
732
733 areawin->pcorner.x = savex;
734 areawin->pcorner.y = savey;
735
736 }
737
738 /*------------------------------------------------------*/
739 /* End the vertical scroll and refresh entire screen */
740 /*------------------------------------------------------*/
741
742 void endvbar(xcWidget bar, caddr_t clientdata, XButtonEvent *event)
743 {
744 long newy;
745 short savey = areawin->pcorner.y;
746 UNUSED(clientdata);
747
748 areawin->pany = 0;
749
750 newy = (int)((areawin->height - event->y) *
751 ((float)topobject->bbox.height / areawin->height) +
752 topobject->bbox.lowerleft.y - 0.5 * ((float)areawin->height /
753 areawin->vscale));
754
755 areawin->pcorner.y = (short)newy;
756
757 if ((newy << 1) != (long)((short)(newy << 1)) || checkbounds() == -1) {
758 areawin->pcorner.y = savey;
759 Wprintf("Reached boundary: cannot pan further");
760 }
761 else
762 W3printf(" ");
763
764 areawin->redraw_needed = True;
765 areawin->lastbackground = NULL;
766 renderbackground();
767 drawvbar(bar, NULL, NULL);
768 drawarea(bar, NULL, NULL);
769 }
770
771 /*--------------------------------------------------------------------*/
772 /* Zoom functions-- zoom box, zoom in, zoom out, and pan. */
773 /*--------------------------------------------------------------------*/
774
775 void postzoom()
776 {
777 W3printf(" ");
778 areawin->lastbackground = NULL;
779 renderbackground();
780 newmatrix();
781 }
782
783 /*--------------------------------------------------------------------*/
784
785 void zoominbox(int x, int y)
786 {
787 float savescale;
788 float delxscale, delyscale;
789 XPoint savell; /* ucenter, ncenter, (jdk)*/
790 UNUSED(x); UNUSED(y);
791
792 savescale = areawin->vscale;
793 savell.x = areawin->pcorner.x;
794 savell.y = areawin->pcorner.y;
795
796 /* zoom-box function: corners are in areawin->save and areawin->origin */
797 /* select box has lower-left corner in .origin, upper-right in .save */
798 /* ignore if zoom box is size zero */
799
800 if (areawin->save.x == areawin->origin.x || areawin->save.y == areawin->origin.y) {
801 Wprintf("Zoom box of size zero: Ignoring.");
802 eventmode = NORMAL_MODE;
803 return;
804 }
805
806 /* determine whether x or y is limiting factor in zoom */
807 delxscale = (areawin->width / areawin->vscale) /
808 abs(areawin->save.x - areawin->origin.x);
809 delyscale = (areawin->height / areawin->vscale) /
810 abs(areawin->save.y - areawin->origin.y);
811 areawin->vscale *= min(delxscale, delyscale);
812
813 areawin->pcorner.x = min(areawin->origin.x, areawin->save.x) -
814 (areawin->width / areawin->vscale -
815 abs(areawin->save.x - areawin->origin.x)) / 2;
816 areawin->pcorner.y = min(areawin->origin.y, areawin->save.y) -
817 (areawin->height / areawin->vscale -
818 abs(areawin->save.y - areawin->origin.y)) / 2;
819 eventmode = NORMAL_MODE;
820
821 /* check for minimum scale */
822
823 if (checkbounds() == -1) {
824 areawin->pcorner.x = savell.x;
825 areawin->pcorner.y = savell.y;
826 areawin->vscale = savescale;
827 Wprintf("At minimum scale: cannot scale further");
828
829 /* this is a rare case where an object gets out-of-bounds */
830
831 if (checkbounds() == -1) {
832 if (beeper) XBell(dpy, 100);
833 Wprintf("Unable to scale: Delete out-of-bounds object!");
834 }
835 return;
836 }
837 postzoom();
838 }
839
840 /*--------------------------------------------------------------------*/
841
842 void zoomin(int x, int y)
843 {
844 float savescale;
845 XPoint ucenter, ncenter, savell;
846
847 savescale = areawin->vscale;
848 savell.x = areawin->pcorner.x;
849 savell.y = areawin->pcorner.y;
850
851 window_to_user(areawin->width / 2, areawin->height / 2, &ucenter);
852 areawin->vscale *= areawin->zoomfactor;
853 window_to_user(areawin->width / 2, areawin->height / 2, &ncenter);
854 areawin->pcorner.x += (ucenter.x - ncenter.x);
855 areawin->pcorner.y += (ucenter.y - ncenter.y);
856
857 /* check for minimum scale */
858
859 if (checkbounds() == -1) {
860 areawin->pcorner.x = savell.x;
861 areawin->pcorner.y = savell.y;
862 areawin->vscale = savescale;
863 Wprintf("At minimum scale: cannot scale further");
864
865 /* this is a rare case where an object gets out-of-bounds */
866
867 if (checkbounds() == -1) {
868 if (beeper) XBell(dpy, 100);
869 Wprintf("Unable to scale: Delete out-of-bounds object!");
870 }
871 return;
872 }
873 else if (eventmode == MOVE_MODE || eventmode == COPY_MODE ||
874 eventmode == CATMOVE_MODE)
875 drag(x, y);
876
877 postzoom();
878 }
879
880 /*--------------------------------------------------------------------*/
881
882 void zoominrefresh(int x, int y)
883 {
884 if (eventmode == SELAREA_MODE)
885 zoominbox(x, y);
886 else
887 zoomin(x, y);
888 refresh(NULL, NULL, NULL);
889 }
890
891 /*--------------------------------------------------------------------*/
892
893 void zoomoutbox(int x, int y)
894 {
895 float savescale;
896 float delxscale, delyscale, scalefac;
897 XPoint savell; /* ucenter, ncenter, (jdk)*/
898 XlPoint newll;
899 UNUSED(x); UNUSED(y);
900
901 savescale = areawin->vscale;
902 savell.x = areawin->pcorner.x;
903 savell.y = areawin->pcorner.y;
904
905 /* zoom-box function, analogous to that for zoom-in */
906 /* ignore if zoom box is size zero */
907
908 if (areawin->save.x == areawin->origin.x || areawin->save.y == areawin->origin.y) {
909 Wprintf("Zoom box of size zero: Ignoring.");
910 eventmode = NORMAL_MODE;
911 return;
912 }
913
914 /* determine whether x or y is limiting factor in zoom */
915 delxscale = abs(areawin->save.x - areawin->origin.x) /
916 (areawin->width / areawin->vscale);
917 delyscale = abs(areawin->save.y - areawin->origin.y) /
918 (areawin->height / areawin->vscale);
919 scalefac = min(delxscale, delyscale);
920 areawin->vscale *= scalefac;
921
922 /* compute lower-left corner of (reshaped) select box */
923 if (delxscale < delyscale) {
924 newll.y = min(areawin->save.y, areawin->origin.y);
925 newll.x = (areawin->save.x + areawin->origin.x
926 - (abs(areawin->save.y - areawin->origin.y) *
927 areawin->width / areawin->height)) / 2;
928 }
929 else {
930 newll.x = min(areawin->save.x, areawin->origin.x);
931 newll.y = (areawin->save.y + areawin->origin.y
932 - (abs(areawin->save.x - areawin->origin.x) *
933 areawin->height / areawin->width)) / 2;
934 }
935
936 /* extrapolate to find new lower-left corner of screen */
937 newll.x = areawin->pcorner.x - (int)((float)(newll.x -
938 areawin->pcorner.x) / scalefac);
939 newll.y = areawin->pcorner.y - (int)((float)(newll.y -
940 areawin->pcorner.y) / scalefac);
941
942 eventmode = NORMAL_MODE;
943 areawin->pcorner.x = (short)newll.x;
944 areawin->pcorner.y = (short)newll.y;
945
946 if ((newll.x << 1) != (long)(areawin->pcorner.x << 1) || (newll.y << 1)
947 != (long)(areawin->pcorner.y << 1) || checkbounds() == -1) {
948 areawin->vscale = savescale;
949 areawin->pcorner.x = savell.x;
950 areawin->pcorner.y = savell.y;
951 Wprintf("At maximum scale: cannot scale further.");
952 return;
953 }
954 postzoom();
955 }
956
957 /*--------------------------------------------------------------------*/
958
959 void zoomout(int x, int y)
960 {
961 float savescale;
962 XPoint ucenter, ncenter, savell;
963 XlPoint newll;
964
965 savescale = areawin->vscale;
966 savell.x = areawin->pcorner.x;
967 savell.y = areawin->pcorner.y;
968
969 window_to_user(areawin->width / 2, areawin->height / 2, &ucenter);
970 areawin->vscale /= areawin->zoomfactor;
971 window_to_user(areawin->width / 2, areawin->height / 2, &ncenter);
972 newll.x = (long)areawin->pcorner.x + (long)(ucenter.x - ncenter.x);
973 newll.y = (long)areawin->pcorner.y + (long)(ucenter.y - ncenter.y);
974 areawin->pcorner.x = (short)newll.x;
975 areawin->pcorner.y = (short)newll.y;
976
977 if ((newll.x << 1) != (long)(areawin->pcorner.x << 1) || (newll.y << 1)
978 != (long)(areawin->pcorner.y << 1) || checkbounds() == -1) {
979 areawin->vscale = savescale;
980 areawin->pcorner.x = savell.x;
981 areawin->pcorner.y = savell.y;
982 Wprintf("At maximum scale: cannot scale further.");
983 return;
984 }
985 else if (eventmode == MOVE_MODE || eventmode == COPY_MODE ||
986 eventmode == CATMOVE_MODE)
987 drag(x, y);
988
989 postzoom();
990 }
991
992 /*--------------------------------------------------------------------*/
993
994 void zoomoutrefresh(int x, int y)
995 {
996 if (eventmode == SELAREA_MODE)
997 zoomoutbox(x, y);
998 else
999 zoomout(x, y);
1000 refresh(NULL, NULL, NULL);
1001 }
1002
1003 /*--------------------------------------*/
1004 /* Call to XWarpPointer */
1005 /*--------------------------------------*/
1006
1007 void warppointer(int x, int y)
1008 {
1009 XWarpPointer(dpy, None, areawin->window, 0, 0, 0, 0, x, y);
1010 }
1011
1012 /*--------------------------------------------------------------*/
1013 /* ButtonPress handler during center pan */
1014 /* x and y are cursor coordinates. */
1015 /* If ptype is 1-4 (directional), then "value" is a fraction of */
1016 /* the screen to scroll. */
1017 /*--------------------------------------------------------------*/
1018
1019 void panbutton(u_int ptype, int x, int y, float value)
1020 {
1021 /* Window pwin; (jdk) */
1022 int xpos, ypos, newllx, newlly;
1023 XPoint savell; /* , newpos; (jdk)*/
1024 Dimension hwidth = areawin->width >> 1, hheight = areawin->height >> 1;
1025
1026 savell.x = areawin->pcorner.x;
1027 savell.y = areawin->pcorner.y;
1028
1029 switch(ptype) {
1030 case 1:
1031 xpos = hwidth - (hwidth * 2 * value);
1032 ypos = hheight;
1033 break;
1034 case 2:
1035 xpos = hwidth + (hwidth * 2 * value);
1036 ypos = hheight;
1037 break;
1038 case 3:
1039 xpos = hwidth;
1040 ypos = hheight - (hheight * 2 * value);
1041 break;
1042 case 4:
1043 xpos = hwidth;
1044 ypos = hheight + (hheight * 2 * value);
1045 break;
1046 case 5:
1047 xpos = x;
1048 ypos = y;
1049 break;
1050 case 6: /* "pan follow" */
1051 if (eventmode == PAN_MODE)
1052 finish_op(XCF_Finish, x, y);
1053 else if (eventmode == NORMAL_MODE) {
1054 eventmode = PAN_MODE;
1055 areawin->save.x = x;
1056 areawin->save.y = y;
1057 u2u_snap(&areawin->save);
1058 areawin->origin = areawin->save;
1059 #ifdef TCL_WRAPPER
1060 Tk_CreateEventHandler(areawin->area, PointerMotionMask |
1061 ButtonMotionMask, (Tk_EventProc *)xctk_drag, NULL);
1062 #else
1063 xcAddEventHandler(areawin->area, PointerMotionMask |
1064 ButtonMotionMask , False, (xcEventHandler)xlib_drag,
1065 NULL);
1066 #endif
1067 }
1068 return;
1069 break;
1070 default: /* "pan here" */
1071 xpos = x;
1072 ypos = y;
1073 warppointer(hwidth, hheight);
1074 break;
1075 }
1076
1077 xpos -= hwidth;
1078 ypos = hheight - ypos;
1079
1080 newllx = (int)areawin->pcorner.x + (int)((float)xpos / areawin->vscale);
1081 newlly = (int)areawin->pcorner.y + (int)((float)ypos / areawin->vscale);
1082
1083 areawin->pcorner.x = (short) newllx;
1084 areawin->pcorner.y = (short) newlly;
1085
1086 if ((newllx << 1) != (long)(areawin->pcorner.x << 1) || (newlly << 1)
1087 != (long)(areawin->pcorner.y << 1) || checkbounds() == -1) {
1088 areawin->pcorner.x = savell.x;
1089 areawin->pcorner.x = savell.y;
1090 Wprintf("Reached bounds: cannot pan further.");
1091 return;
1092 }
1093 else if (eventmode == MOVE_MODE || eventmode == COPY_MODE ||
1094 eventmode == CATMOVE_MODE)
1095 drag(x, y);
1096
1097 postzoom();
1098 }
1099
1100 /*--------------------------------------------------------------*/
1101
1102 void panrefresh(u_int ptype, int x, int y, float value)
1103 {
1104 panbutton(ptype, x, y, value);
1105 refresh(NULL, NULL, NULL);
1106 }
1107
1108 /*----------------------------------------------------------------*/
1109 /* Check for out-of-bounds before warping pointer, and pan window */
1110 /* if necessary. */
1111 /*----------------------------------------------------------------*/
1112
1113 void checkwarp(XPoint *userpt)
1114 {
1115 XPoint wpoint;
1116
1117 user_to_window(*userpt, &wpoint);
1118
1119 if (wpoint.x < 0 || wpoint.y < 0 || wpoint.x > areawin->width ||
1120 wpoint.y > areawin->height) {
1121 panrefresh(5, wpoint.x, wpoint.y, 0);
1122 wpoint.x = areawin->width >> 1;
1123 wpoint.y = areawin->height >> 1;
1124 /* snap(wpoint.x, wpoint.y, userpt); */
1125 }
1126 warppointer(wpoint.x, wpoint.y);
1127 }
1128
1129 /*--------------------------------------------------------------*/
1130 /* Return a pointer to the element containing a reference point */
1131 /*--------------------------------------------------------------*/
1132
1133 genericptr getsubpart(pathptr editpath, int *idx)
1134 {
1135 pointselect *tmpptr = NULL;
1136 genericptr *pgen;
1137
1138 if (idx) *idx = 0;
1139
1140 for (pgen = editpath->plist; pgen < editpath->plist + editpath->parts; pgen++) {
1141 switch (ELEMENTTYPE(*pgen)) {
1142 case POLYGON:
1143 if (TOPOLY(pgen)->cycle != NULL) {
1144 for (tmpptr = TOPOLY(pgen)->cycle;; tmpptr++) {
1145 if (tmpptr->flags & REFERENCE) break;
1146 if (tmpptr->flags & LASTENTRY) break;
1147 }
1148 if (tmpptr->flags & REFERENCE) return *pgen;
1149 }
1150 break;
1151 case SPLINE:
1152 if (TOSPLINE(pgen)->cycle != NULL) {
1153 for (tmpptr = TOSPLINE(pgen)->cycle;; tmpptr++) {
1154 if (tmpptr->flags & REFERENCE) break;
1155 if (tmpptr->flags & LASTENTRY) break;
1156 }
1157 if (tmpptr->flags & REFERENCE) return *pgen;
1158 }
1159 break;
1160 }
1161 if (idx) (*idx)++;
1162 }
1163 return NULL;
1164 }
1165
1166 /*--------------------------------------------------------------*/
1167 /* Return a pointer to the current reference point of an */
1168 /* edited element (polygon, spline, or path) */
1169 /*--------------------------------------------------------------*/
1170
1171 pointselect *getrefpoint(genericptr genptr, XPoint **refpt)
1172 {
1173 pointselect *tmpptr = NULL;
1174 genericptr *pgen;
1175
1176 if (refpt) *refpt = NULL;
1177 switch (genptr->type) {
1178 case POLYGON:
1179 if (((polyptr)genptr)->cycle != NULL) {
1180 for (tmpptr = ((polyptr)genptr)->cycle;; tmpptr++) {
1181 if (tmpptr->flags & REFERENCE) break;
1182 if (tmpptr->flags & LASTENTRY) break;
1183 }
1184 if (!(tmpptr->flags & REFERENCE)) tmpptr = NULL;
1185 else if (refpt) *refpt = ((polyptr)genptr)->points + tmpptr->number;
1186 }
1187 break;
1188 case SPLINE:
1189 if (((splineptr)genptr)->cycle != NULL) {
1190 for (tmpptr = ((splineptr)genptr)->cycle;; tmpptr++) {
1191 if (tmpptr->flags & REFERENCE) break;
1192 if (tmpptr->flags & LASTENTRY) break;
1193 }
1194 if (!(tmpptr->flags & REFERENCE)) tmpptr = NULL;
1195 else if (refpt) *refpt = &((splineptr)genptr)->ctrl[tmpptr->number];
1196 }
1197 break;
1198 case PATH:
1199 for (pgen = ((pathptr)genptr)->plist; pgen < ((pathptr)genptr)->plist +
1200 ((pathptr)genptr)->parts; pgen++) {
1201 if ((tmpptr = getrefpoint(*pgen, refpt)) != NULL)
1202 return tmpptr;
1203 }
1204 break;
1205 default:
1206 tmpptr = NULL;
1207 break;
1208 }
1209 return tmpptr;
1210 }
1211
1212 /*--------------------------------------------------------------*/
1213 /* Return next edit point on a polygon, arc, or spline. Do not */
1214 /* update the cycle of the element. */
1215 /*--------------------------------------------------------------*/
1216
1217 int checkcycle(genericptr genptr, short dir)
1218 {
1219 pointselect *tmpptr;
1220 short tmppt, points;
1221 genericptr *pgen;
1222
1223 switch (genptr->type) {
1224 case POLYGON:
1225 if (((polyptr)genptr)->cycle == NULL)
1226 tmpptr = NULL;
1227 else {
1228 for (tmpptr = ((polyptr)genptr)->cycle;; tmpptr++) {
1229 if (tmpptr->flags & REFERENCE) break;
1230 if (tmpptr->flags & LASTENTRY) break;
1231 }
1232 if (!(tmpptr->flags & REFERENCE)) tmpptr = ((polyptr)genptr)->cycle;
1233 }
1234 tmppt = (tmpptr == NULL) ? -1 : tmpptr->number;
1235 points = ((polyptr)genptr)->number;
1236 break;
1237 case SPLINE:
1238 if (((splineptr)genptr)->cycle == NULL)
1239 tmpptr = NULL;
1240 else {
1241 for (tmpptr = ((splineptr)genptr)->cycle;; tmpptr++) {
1242 if (tmpptr->flags & REFERENCE) break;
1243 if (tmpptr->flags & LASTENTRY) break;
1244 }
1245 if (!(tmpptr->flags & REFERENCE)) tmpptr = ((splineptr)genptr)->cycle;
1246 }
1247 tmppt = (tmpptr == NULL) ? -1 : tmpptr->number;
1248 points = 4;
1249 break;
1250 case ARC:
1251 tmpptr = ((arcptr)genptr)->cycle;
1252 tmppt = (tmpptr == NULL) ? -1 : tmpptr->number;
1253 points = 4;
1254 break;
1255 case PATH:
1256 for (pgen = ((pathptr)genptr)->plist; pgen < ((pathptr)genptr)->plist +
1257 ((pathptr)genptr)->parts; pgen++) {
1258 if ((tmppt = checkcycle(*pgen, dir)) >= 0)
1259 return tmppt;
1260 }
1261 break;
1262 default:
1263 tmppt = -1;
1264 break;
1265 }
1266 if (tmppt >= 0) { /* Ignore nonexistent cycles */
1267 tmppt += dir;
1268 if (tmppt < 0) tmppt += points;
1269 tmppt %= points;
1270 }
1271 return tmppt;
1272 }
1273
1274 /*--------------------------------------------------------------*/
1275 /* Change to the next part of a path for editing */
1276 /* For now, |dir| is treated as 1 regardless of its value. */
1277 /*--------------------------------------------------------------*/
1278
1279 void nextpathcycle(pathptr nextpath, short dir)
1280 {
1281 genericptr ppart = getsubpart(nextpath, NULL);
1282 genericptr *ggen;
1283 XPoint *curpt;
1284 polyptr thispoly;
1285 splineptr thisspline;
1286 pointselect *cptr;
1287 short cycle, newcycle;
1288
1289 /* Simple cases---don't need to switch elements */
1290
1291 switch (ELEMENTTYPE(ppart)) {
1292 case POLYGON:
1293 thispoly = (polyptr)ppart;
1294 cptr = thispoly->cycle;
1295 if (cptr == NULL) return;
1296 curpt = thispoly->points + cptr->number;
1297 newcycle = checkcycle(ppart, dir);
1298 advancecycle(&ppart, newcycle);
1299 if (cptr->number < thispoly->number && cptr->number > 0) {
1300 checkwarp(thispoly->points + cptr->number);
1301 removeothercycles(nextpath, ppart);
1302 updatepath(nextpath);
1303 return;
1304 }
1305 break;
1306 case SPLINE:
1307 thisspline = (splineptr)ppart;
1308 cptr = ((splineptr)ppart)->cycle;
1309 if (cptr == NULL) return;
1310 curpt = &thisspline->ctrl[cptr->number];
1311 newcycle = checkcycle(ppart, dir);
1312 advancecycle(&ppart, newcycle);
1313 if (cptr->number < 4 && cptr->number > 0) {
1314 checkwarp(&thisspline->ctrl[cptr->number]);
1315 removeothercycles(nextpath, ppart);
1316 updatepath(nextpath);
1317 if (newcycle == 1 || newcycle == 2)
1318 addanticycle(nextpath, thisspline, newcycle);
1319 return;
1320 }
1321 break;
1322 }
1323
1324 /* Moving on to the next element. . . */
1325
1326 /* If dir < 0, go to the penultimate cycle of the last part */
1327 /* If dir > 0, go to the second cycle of the next part */
1328
1329 for (ggen = nextpath->plist; (*ggen != ppart) &&
1330 (ggen < nextpath->plist + nextpath->parts); ggen++);
1331
1332 if (ggen == nextpath->plist + nextpath->parts) return; /* shouldn't happen! */
1333
1334 if (dir > 0)
1335 ggen++;
1336 else
1337 ggen--;
1338
1339 if (ggen < nextpath->plist)
1340 ggen = nextpath->plist + nextpath->parts - 1;
1341 else if (ggen == nextpath->plist + nextpath->parts)
1342 ggen = nextpath->plist;
1343
1344 removecycle((genericptr *)(&nextpath));
1345
1346 /* The next point to edit is the first point in the next segment */
1347 /* that is not at the same position as the one we were last editing. */
1348
1349 switch (ELEMENTTYPE(*ggen)) {
1350 case POLYGON:
1351 thispoly = TOPOLY(ggen);
1352 cycle = (dir > 0) ? 0 : thispoly->number - 1;
1353 addcycle(ggen, cycle, 0);
1354 makerefcycle(thispoly->cycle, cycle);
1355 if ((thispoly->points + cycle)->x == curpt->x &&
1356 (thispoly->points + cycle)->y == curpt->y) {
1357 newcycle = checkcycle((genericptr)thispoly, 1);
1358 advancecycle(ggen, newcycle);
1359 cycle = newcycle;
1360 }
1361 checkwarp(thispoly->points + cycle);
1362 break;
1363 case SPLINE:
1364 thisspline = TOSPLINE(ggen);
1365 cycle = (dir > 0) ? 0 : 3;
1366 addcycle(ggen, cycle, 0);
1367 makerefcycle(thisspline->cycle, cycle);
1368 if (thisspline->ctrl[cycle].x == curpt->x &&
1369 thisspline->ctrl[cycle].y == curpt->y) {
1370 newcycle = checkcycle((genericptr)thisspline, 1);
1371 advancecycle(ggen, newcycle);
1372 cycle = newcycle;
1373 if (cycle == 1 || cycle == 2)
1374 addanticycle(nextpath, thisspline, cycle);
1375 }
1376 checkwarp(&(thisspline->ctrl[cycle]));
1377 break;
1378 }
1379 updatepath(nextpath);
1380 }
1381
1382 /*--------------------------------------------------------------*/
1383 /* Change to next edit point on a polygon */
1384 /*--------------------------------------------------------------*/
1385
1386 void nextpolycycle(polyptr *nextpoly, short dir)
1387 {
1388 short newcycle;
1389
1390 newcycle = checkcycle((genericptr)(*nextpoly), dir);
1391 advancecycle((genericptr *)nextpoly, newcycle);
1392 findconstrained(*nextpoly);
1393 printeditbindings();
1394
1395 newcycle = (*nextpoly)->cycle->number;
1396 checkwarp((*nextpoly)->points + newcycle);
1397 }
1398
1399 /*--------------------------------------------------------------*/
1400 /* Change to next edit cycle on a spline */
1401 /*--------------------------------------------------------------*/
1402
1403 void nextsplinecycle(splineptr *nextspline, short dir)
1404 {
1405 short newcycle;
1406 newcycle = checkcycle((genericptr)(*nextspline), dir);
1407 advancecycle((genericptr *)nextspline, newcycle);
1408
1409 if (newcycle == 1 || newcycle == 2)
1410 Wprintf("Adjust control point");
1411 else
1412 Wprintf("Adjust endpoint position");
1413
1414 checkwarp(&(*nextspline)->ctrl[newcycle]);
1415 }
1416
1417 /*--------------------------------------------------------------*/
1418 /* Warp pointer to the edit point on an arc. */
1419 /*--------------------------------------------------------------*/
1420
1421 void warparccycle(arcptr nextarc, short cycle)
1422 {
1423 XPoint curang;
1424 double rad;
1425
1426 switch(cycle) {
1427 case 0:
1428 curang.x = nextarc->position.x + abs(nextarc->radius);
1429 curang.y = nextarc->position.y;
1430 if (abs(nextarc->radius) != nextarc->yaxis)
1431 Wprintf("Adjust ellipse size");
1432 else
1433 Wprintf("Adjust arc radius");
1434 break;
1435 case 1:
1436 rad = (double)(nextarc->angle1 * RADFAC);
1437 curang.x = nextarc->position.x + abs(nextarc->radius) * cos(rad);
1438 curang.y = nextarc->position.y + nextarc->yaxis * sin(rad);
1439 Wprintf("Adjust arc endpoint");
1440 break;
1441 case 2:
1442 rad = (double)(nextarc->angle2 * RADFAC);
1443 curang.x = nextarc->position.x + abs(nextarc->radius) * cos(rad);
1444 curang.y = nextarc->position.y + nextarc->yaxis * sin(rad);
1445 Wprintf("Adjust arc endpoint");
1446 break;
1447 case 3:
1448 curang.x = nextarc->position.x;
1449 curang.y = nextarc->position.y + nextarc->yaxis;
1450 Wprintf("Adjust ellipse minor axis");
1451 break;
1452 }
1453 checkwarp(&curang);
1454 }
1455
1456 /*--------------------------------------------------------------*/
1457 /* Change to next edit cycle on an arc */
1458 /*--------------------------------------------------------------*/
1459
1460 void nextarccycle(arcptr *nextarc, short dir)
1461 {
1462 short newcycle;
1463
1464 newcycle = checkcycle((genericptr)(*nextarc), dir);
1465 advancecycle((genericptr *)nextarc, newcycle);
1466 warparccycle(*nextarc, newcycle);
1467 }
1468
1469 /*------------------------------------------------------*/
1470 /* Get a numerical response from the keyboard (0-9) */
1471 /*------------------------------------------------------*/
1472
1473 #ifndef TCL_WRAPPER
1474
1475 short getkeynum()
1476 {
1477 XEvent event;
1478 XKeyEvent *keyevent = (XKeyEvent *)(&event);
1479 KeySym keypressed;
1480
1481 for (;;) {
1482 XNextEvent(dpy, &event);
1483 if (event.type == KeyPress) break;
1484 else xcDispatchEvent(&event);
1485 }
1486 XLookupString(keyevent, _STR, 150, &keypressed, NULL);
1487 if (keypressed > XK_0 && keypressed <= XK_9)
1488 return (short)(keypressed - XK_1);
1489 else
1490 return -1;
1491 }
1492
1493 #endif
1494
1495 /*--------------------------*/
1496 /* Register a "press" event */
1497 /*--------------------------*/
1498
1499 #ifdef TCL_WRAPPER
1500 void makepress(ClientData clientdata)
1501 #else
1502 void makepress(XtPointer clientdata, xcIntervalId *id)
1503 #endif
1504 {
1505 int keywstate = (int)((pointertype)clientdata);
1506 #ifndef TCL_WRAPPER
1507 UNUSED(id);
1508 #endif
1509
1510 /* Button/Key was pressed long enough to make a "press", not a "tap" */
1511
1512 areawin->time_id = 0;
1513 pressmode = keywstate;
1514 eventdispatch(keywstate | HOLD_MASK, areawin->save.x, areawin->save.y);
1515 }
1516
1517 /*------------------------------------------------------*/
1518 /* Handle button events as if they were keyboard events */
1519 /*------------------------------------------------------*/
1520
1521 void buttonhandler(xcWidget w, caddr_t clientdata, XButtonEvent *event)
1522 {
1523 XKeyEvent *kevent = (XKeyEvent *)event;
1524
1525 if (event->type == ButtonPress)
1526 kevent->type = KeyPress;
1527 else
1528 kevent->type = KeyRelease;
1529
1530 switch (event->button) {
1531 case Button1:
1532 kevent->state |= Button1Mask;
1533 break;
1534 case Button2:
1535 kevent->state |= Button2Mask;
1536 break;
1537 case Button3:
1538 kevent->state |= Button3Mask;
1539 break;
1540 case Button4:
1541 kevent->state |= Button4Mask;
1542 break;
1543 case Button5:
1544 kevent->state |= Button5Mask;
1545 break;
1546 }
1547 keyhandler(w, clientdata, kevent);
1548 }
1549
1550 /*--------------------------------------------------------------*/
1551 /* Edit operations specific to polygons (point manipulation) */
1552 /*--------------------------------------------------------------*/
1553
1554 void poly_edit_op(int op)
1555 {
1556 genericptr keygen = *(EDITPART);
1557 polyptr lwire;
1558 XPoint *lpoint;
1559 short cycle;
1560
1561 if (IS_PATH(keygen))
1562 keygen = getsubpart((pathptr)keygen, NULL);
1563
1564 switch(ELEMENTTYPE(keygen)) {
1565 case POLYGON: {
1566 lwire = (polyptr)keygen;
1567
1568 /* Remove a point from the polygon */
1569 if (op == XCF_Edit_Delete) {
1570 if (lwire->number < 3) return;
1571 if (lwire->number == 3 && !(lwire->style & UNCLOSED))
1572 lwire->style |= UNCLOSED;
1573 cycle = checkcycle((genericptr)lwire, 0);
1574 lwire->number--;
1575 for (lpoint = lwire->points + cycle; lpoint <
1576 lwire->points + lwire->number; lpoint++)
1577 *lpoint = *(lpoint + 1);
1578 if (eventmode == EPOLY_MODE)
1579 poly_mode_draw(xcDRAW_EDIT, TOPOLY(EDITPART));
1580 else
1581 path_mode_draw(xcDRAW_EDIT, TOPATH(EDITPART));
1582 nextpolycycle(&lwire, -1);
1583 }
1584
1585 /* Add a point to the polygon */
1586 else if (op == XCF_Edit_Insert || op == XCF_Edit_Append) {
1587 lwire->number++;
1588 lwire->points = (XPoint *)realloc(lwire->points, lwire->number
1589 * sizeof(XPoint));
1590 cycle = checkcycle((genericptr)lwire, 0);
1591 for (lpoint = lwire->points + lwire->number - 1; lpoint > lwire->
1592 points + cycle; lpoint--)
1593 *lpoint = *(lpoint - 1);
1594 if (eventmode == EPOLY_MODE)
1595 poly_mode_draw(xcDRAW_EDIT, TOPOLY(EDITPART));
1596 else
1597 path_mode_draw(xcDRAW_EDIT, TOPATH(EDITPART));
1598 if (op == XCF_Edit_Append)
1599 nextpolycycle(&lwire, 1);
1600 }
1601
1602 /* Parameterize the position of a polygon point */
1603 else if (op == XCF_Edit_Param) {
1604 cycle = checkcycle((genericptr)lwire, 0);
1605 makenumericalp(&keygen, P_POSITION_X, NULL, cycle);
1606 makenumericalp(&keygen, P_POSITION_Y, NULL, cycle);
1607 }
1608 }
1609 }
1610 }
1611
1612 /*----------------------------------------------------------------------*/
1613 /* Handle attachment of edited elements to nearby elements */
1614 /*----------------------------------------------------------------------*/
1615
1616 void attach_to()
1617 {
1618 /* Conditions: One element is selected, key "A" is pressed. */
1619 /* Then there must exist a spline, polygon, arc, or label */
1620 /* to attach to. */
1621
1622 if (areawin->selects <= 1) {
1623 short *refsel;
1624
1625 if (areawin->attachto >= 0) {
1626 areawin->attachto = -1; /* default value---no attachments */
1627 Wprintf("Unconstrained moving");
1628 }
1629 else {
1630 int select_prev;
1631
1632 select_prev = areawin->selects;
1633 refsel = select_add_element(SPLINE|ARC|POLYGON|LABEL|OBJINST);
1634 if ((refsel != NULL) && (areawin->selects > select_prev)) {
1635
1636 /* transfer refsel over to attachto */
1637
1638 areawin->attachto = *(refsel + areawin->selects - 1);
1639 areawin->selects--;
1640 if (areawin->selects == 0) freeselects();
1641 XTopSetForeground(SELTOCOLOR(refsel));
1642 easydraw(areawin->attachto, DEFAULTCOLOR);
1643
1644 /* restore graphics state */
1645 SetForeground(dpy, areawin->gc, areawin->gccolor);
1646
1647 Wprintf("Constrained attach");
1648
1649 /* Starting a new wire? */
1650 if (eventmode == NORMAL_MODE) {
1651 XPoint newpos, userpt;
1652 userpt = UGetCursorPos();
1653 findattach(&newpos, NULL, &userpt);
1654 startwire(&newpos);
1655 eventmode = WIRE_MODE;
1656 areawin->attachto = -1;
1657 }
1658 }
1659 else {
1660 Wprintf("Nothing found to attach to");
1661 }
1662 }
1663 }
1664 }
1665
1666 /*--------------------------------------------------------------*/
1667 /* This function returns TRUE if the indicated function is */
1668 /* compatible with the current eventmode; that is, whether */
1669 /* the function could ever be called from eventdispatch() */
1670 /* given the existing eventmode. */
1671 /* */
1672 /* Note that this function has to be carefully written or the */
1673 /* function dispatch mechanism can put xcircuit into a bad */
1674 /* state. */
1675 /*--------------------------------------------------------------*/
1676
1677 Boolean compatible_function(int function)
1678 {
1679 int r = FALSE;
1680 char *funcname;
1681
1682 switch(function) {
1683 case XCF_Text_Left: case XCF_Text_Right:
1684 case XCF_Text_Home: case XCF_Text_End:
1685 case XCF_Text_Return: case XCF_Text_Delete:
1686 case XCF_Text_Delete_Param:
1687 r = (eventmode == CATTEXT_MODE || eventmode == TEXT_MODE ||
1688 eventmode == ETEXT_MODE) ?
1689 TRUE : FALSE;
1690 break;
1691
1692 case XCF_Linebreak: case XCF_Halfspace:
1693 case XCF_Quarterspace: case XCF_TabStop:
1694 case XCF_TabForward: case XCF_TabBackward:
1695 case XCF_Superscript: case XCF_Subscript:
1696 case XCF_Normalscript: case XCF_Underline:
1697 case XCF_Overline: case XCF_Font:
1698 case XCF_Boldfont: case XCF_Italicfont:
1699 case XCF_Normalfont: case XCF_ISO_Encoding:
1700 case XCF_Special: case XCF_Text_Split:
1701 case XCF_Text_Up: case XCF_Text_Down:
1702 case XCF_Parameter:
1703 r = (eventmode == TEXT_MODE || eventmode == ETEXT_MODE) ?
1704 TRUE : FALSE;
1705 break;
1706
1707 case XCF_Anchor:
1708 r = (eventmode == TEXT_MODE || eventmode == ETEXT_MODE ||
1709 eventmode == MOVE_MODE || eventmode == COPY_MODE ||
1710 eventmode == NORMAL_MODE) ?
1711 TRUE : FALSE;
1712 break;
1713
1714 case XCF_Edit_Delete: case XCF_Edit_Insert: case XCF_Edit_Append:
1715 case XCF_Edit_Param:
1716 r = (eventmode == EPOLY_MODE || eventmode == EPATH_MODE) ?
1717 TRUE : FALSE;
1718 break;
1719
1720 case XCF_Edit_Next:
1721 r = (eventmode == EPOLY_MODE || eventmode == EPATH_MODE ||
1722 eventmode == EINST_MODE || eventmode == EARC_MODE ||
1723 eventmode == ESPLINE_MODE) ?
1724 TRUE : FALSE;
1725 break;
1726
1727 case XCF_Attach:
1728 r = (eventmode == EPOLY_MODE || eventmode == EPATH_MODE ||
1729 eventmode == MOVE_MODE || eventmode == COPY_MODE ||
1730 eventmode == WIRE_MODE || eventmode == NORMAL_MODE) ?
1731 TRUE : FALSE;
1732 break;
1733
1734 case XCF_Rotate: case XCF_Flip_X:
1735 case XCF_Flip_Y:
1736 r = (eventmode == MOVE_MODE || eventmode == COPY_MODE ||
1737 eventmode == NORMAL_MODE || eventmode == CATALOG_MODE) ?
1738 TRUE : FALSE;
1739 break;
1740
1741 case XCF_Snap: case XCF_Swap:
1742 r = (eventmode == MOVE_MODE || eventmode == COPY_MODE ||
1743 eventmode == NORMAL_MODE) ?
1744 TRUE : FALSE;
1745 break;
1746
1747 case XCF_Double_Snap: case XCF_Halve_Snap:
1748 case XCF_SnapTo:
1749 r = (eventmode == CATALOG_MODE || eventmode == CATTEXT_MODE ||
1750 eventmode == ASSOC_MODE || eventmode == CATMOVE_MODE) ?
1751 FALSE : TRUE;
1752 break;
1753
1754 case XCF_Library_Pop:
1755 r = (eventmode == CATALOG_MODE || eventmode == ASSOC_MODE) ?
1756 TRUE : FALSE;
1757 break;
1758
1759 case XCF_Library_Edit: case XCF_Library_Delete:
1760 case XCF_Library_Duplicate: case XCF_Library_Hide:
1761 case XCF_Library_Virtual: case XCF_Library_Move:
1762 case XCF_Library_Copy:
1763 r = (eventmode == CATALOG_MODE) ?
1764 TRUE : FALSE;
1765 break;
1766
1767 case XCF_Library_Directory:
1768 r = (eventmode == CATALOG_MODE || eventmode == NORMAL_MODE ||
1769 eventmode == ASSOC_MODE) ?
1770 TRUE : FALSE;
1771 break;
1772
1773 case XCF_Next_Library:
1774 r = (eventmode == CATALOG_MODE || eventmode == NORMAL_MODE ||
1775 eventmode == ASSOC_MODE || eventmode == CATMOVE_MODE) ?
1776 TRUE : FALSE;
1777 break;
1778
1779 case XCF_Select: case XCF_Exit:
1780 r = (eventmode == CATALOG_MODE || eventmode == NORMAL_MODE) ?
1781 TRUE : FALSE;
1782 break;
1783
1784 case XCF_Pop:
1785 r = (eventmode == MOVE_MODE || eventmode == COPY_MODE ||
1786 eventmode == CATALOG_MODE || eventmode == NORMAL_MODE ||
1787 eventmode == ASSOC_MODE) ?
1788 TRUE : FALSE;
1789 break;
1790
1791 case XCF_Push:
1792 r = (eventmode == MOVE_MODE || eventmode == COPY_MODE ||
1793 eventmode == CATALOG_MODE || eventmode == NORMAL_MODE) ?
1794 TRUE : FALSE;
1795 break;
1796
1797 case XCF_SelectBox: case XCF_Wire:
1798 case XCF_Delete: case XCF_Rescale:
1799 case XCF_Pin_Label: case XCF_Pin_Global:
1800 case XCF_Info_Label: case XCF_Connectivity:
1801 case XCF_Box: case XCF_Arc:
1802 case XCF_Text: case XCF_Exchange:
1803 case XCF_Copy: case XCF_Virtual:
1804 case XCF_Page_Directory: case XCF_Join:
1805 case XCF_Unjoin: case XCF_Spline:
1806 case XCF_Edit: case XCF_Undo:
1807 case XCF_Redo: case XCF_Select_Save:
1808 case XCF_Unselect: case XCF_Dashed:
1809 case XCF_Dotted: case XCF_Solid:
1810 case XCF_Dot: case XCF_Write:
1811 case XCF_Netlist: case XCF_Sim:
1812 case XCF_SPICE: case XCF_SPICEflat:
1813 case XCF_PCB: case XCF_Move:
1814 r = (eventmode == NORMAL_MODE) ?
1815 TRUE : FALSE;
1816 break;
1817
1818 case XCF_Nothing: case XCF_View:
1819 case XCF_Redraw: case XCF_Zoom_In:
1820 case XCF_Zoom_Out: case XCF_Pan:
1821 case XCF_Page: case XCF_Help:
1822 case XCF_Cancel: case XCF_Prompt:
1823 r = TRUE;
1824 break;
1825
1826 case XCF_Continue_Copy:
1827 case XCF_Finish_Copy:
1828 r = (eventmode == COPY_MODE) ?
1829 TRUE : FALSE;
1830 break;
1831
1832 case XCF_Continue_Element:
1833 case XCF_Finish_Element:
1834 r = (eventmode == WIRE_MODE || eventmode == BOX_MODE ||
1835 eventmode == ARC_MODE || eventmode == SPLINE_MODE ||
1836 eventmode == EPATH_MODE || eventmode == EPOLY_MODE ||
1837 eventmode == EARC_MODE || eventmode == ESPLINE_MODE ||
1838 eventmode == MOVE_MODE || eventmode == CATMOVE_MODE ||
1839 eventmode == EINST_MODE || eventmode == RESCALE_MODE) ?
1840 TRUE : FALSE;
1841 break;
1842
1843 case XCF_Cancel_Last:
1844 r = (eventmode == WIRE_MODE || eventmode == ARC_MODE ||
1845 eventmode == SPLINE_MODE || eventmode == EPATH_MODE ||
1846 eventmode == EPOLY_MODE || eventmode == EARC_MODE ||
1847 eventmode == EINST_MODE || eventmode == ESPLINE_MODE) ?
1848 TRUE : FALSE;
1849 break;
1850
1851 case XCF_Finish:
1852 r = (eventmode == FONTCAT_MODE || eventmode == EFONTCAT_MODE ||
1853 eventmode == ASSOC_MODE || eventmode == CATALOG_MODE ||
1854 eventmode == CATTEXT_MODE || eventmode == MOVE_MODE ||
1855 eventmode == RESCALE_MODE || eventmode == SELAREA_MODE ||
1856 eventmode == PAN_MODE || eventmode == NORMAL_MODE ||
1857 eventmode == CATMOVE_MODE) ?
1858 TRUE : FALSE;
1859 break;
1860
1861 default: /* Function type was not handled. */
1862 funcname = func_to_string(function);
1863 if (funcname == NULL)
1864 Wprintf("Error: \"%s\" is not a known function!");
1865 else
1866 Wprintf("Error: Function type \"%s\" (%d) not handled by "
1867 "compatible_function()", func_to_string(function),
1868 function);
1869 break;
1870 }
1871 return r;
1872 }
1873
1874 /*----------------------------------------------------------------------*/
1875 /* Main event dispatch routine. Call one of the known routines based */
1876 /* on the key binding. Some handling is done by secondary dispatch */
1877 /* routines in other files; when this is done, the key binding is */
1878 /* determined here and the bound operation type passed to the secondary */
1879 /* dispatch routine. */
1880 /* */
1881 /* Return value: 0 if event was handled, -1 if not. */
1882 /*----------------------------------------------------------------------*/
1883
1884 int eventdispatch(int keywstate, int x, int y)
1885 {
1886 short value; /* For return values from boundfunction() */
1887 int function; /* What function should be invoked */
1888 int handled = -1; /* event was handled */
1889
1890 /* Invalid key state returned from getkeysignature(); usually this */
1891 /* means a modifier key pressed by itself. */
1892
1893 if (keywstate == -1) return -1;
1894 function = boundfunction(areawin->area, keywstate, &value);
1895
1896 /* Check for ASCII or ISO-Latin1-9 characters in keywstate while in */
1897 /* a text-entry state. Only the function XCF_Special is allowed in */
1898 /* text-entry mode, because XCF_Special can be used to enter the */
1899 /* character bound to the XCF_Special function. */
1900
1901 if (keywstate >= 32 && keywstate < 256) {
1902 if (eventmode == CATTEXT_MODE || eventmode == TEXT_MODE ||
1903 eventmode == ETEXT_MODE) {
1904 if (function != XCF_Special)
1905 handled = labeltext(keywstate, NULL);
1906 else if (eventmode != CATTEXT_MODE) {
1907 labelptr elabel = TOLABEL(EDITPART);
1908 if (elabel->anchor & LATEXLABEL)
1909 handled = labeltext(keywstate, NULL);
1910 }
1911 }
1912 }
1913
1914 if (handled == -1) {
1915 if (function > -1)
1916 handled = functiondispatch(function, value, x, y);
1917 else {
1918 char *keystring = key_to_string(keywstate);
1919 #ifdef HAVE_PYTHON
1920 if (python_key_command(keywstate) < 0)
1921 #endif
1922 Wprintf("Key \'%s\' is not bound to a macro", keystring);
1923 free(keystring);
1924 }
1925 }
1926
1927 if (areawin->redraw_needed)
1928 drawarea(NULL, NULL, NULL);
1929
1930 return handled;
1931 }
1932
1933 /*----------------------------------------------------------------------*/
1934 /* Dispatch actions by function number. Note that the structure of */
1935 /* this function is closely tied to the routine compatible_function(). */
1936 /*----------------------------------------------------------------------*/
1937
1938 int functiondispatch(int function, short value, int x, int y)
1939 {
1940 int result = 0;
1941
1942 switch (eventmode) {
1943 case MOVE_MODE:
1944 case COPY_MODE:
1945 snap(x, y, &areawin->save);
1946 break;
1947 case NORMAL_MODE:
1948 window_to_user(x, y, &areawin->save);
1949 break;
1950 default:
1951 break;
1952 }
1953
1954 switch(function) {
1955 case XCF_Page:
1956 if (value < 0 || value > xobjs.pages)
1957 Wprintf("Page %d out of range.", (int)value);
1958 else
1959 newpage(value - 1);
1960 break;
1961 case XCF_Anchor:
1962 reanchor(value);
1963 break;
1964 case XCF_Superscript:
1965 labeltext(SUPERSCRIPT, (char *)1);
1966 break;
1967 case XCF_Subscript:
1968 labeltext(SUBSCRIPT, (char *)1);
1969 break;
1970 case XCF_Normalscript:
1971 labeltext(NORMALSCRIPT, (char *)1);
1972 break;
1973 case XCF_Font:
1974 setfont(NULL, 1000, NULL);
1975 break;
1976 case XCF_Boldfont:
1977 fontstyle(NULL, 1, NULL);
1978 break;
1979 case XCF_Italicfont:
1980 fontstyle(NULL, 2, NULL);
1981 break;
1982 case XCF_Normalfont:
1983 fontstyle(NULL, 0, NULL);
1984 break;
1985 case XCF_Underline:
1986 labeltext(UNDERLINE, (char *)1);
1987 break;
1988 case XCF_Overline:
1989 labeltext(OVERLINE, (char *)1);
1990 break;
1991 case XCF_ISO_Encoding:
1992 fontencoding(NULL, 2, NULL);
1993 break;
1994 case XCF_Halfspace:
1995 labeltext(HALFSPACE, (char *)1);
1996 break;
1997 case XCF_Quarterspace:
1998 labeltext(QTRSPACE, (char *)1);
1999 break;
2000 case XCF_Special:
2001 result = dospecial();
2002 break;
2003 #ifndef TCL_WRAPPER
2004 case XCF_Parameter:
2005 insertparam();
2006 break;
2007 #endif
2008 case XCF_TabStop:
2009 labeltext(TABSTOP, (char *)1);
2010 break;
2011 case XCF_TabForward:
2012 labeltext(TABFORWARD, (char *)1);
2013 break;
2014 case XCF_TabBackward:
2015 labeltext(TABBACKWARD, (char *)1);
2016 break;
2017 case XCF_Text_Return:
2018 labeltext(TEXT_RETURN, (char *)1);
2019 break;
2020 case XCF_Text_Delete:
2021 labeltext(TEXT_DELETE, (char *)1);
2022 break;
2023 case XCF_Text_Delete_Param:
2024 labeltext(TEXT_DEL_PARAM, (char *)1);
2025 break;
2026 case XCF_Text_Right:
2027 labeltext(TEXT_RIGHT, (char *)1);
2028 break;
2029 case XCF_Text_Left:
2030 labeltext(TEXT_LEFT, (char *)1);
2031 break;
2032 case XCF_Text_Up:
2033 labeltext(TEXT_UP, (char *)1);
2034 break;
2035 case XCF_Text_Down:
2036 labeltext(TEXT_DOWN, (char *)1);
2037 break;
2038 case XCF_Text_Split:
2039 labeltext(TEXT_SPLIT, (char *)1);
2040 break;
2041 case XCF_Text_Home:
2042 labeltext(TEXT_HOME, (char *)1);
2043 break;
2044 case XCF_Text_End:
2045 labeltext(TEXT_END, (char *)1);
2046 break;
2047 case XCF_Linebreak:
2048 labeltext(RETURN, (char *)1);
2049 break;
2050 case XCF_Edit_Param:
2051 case XCF_Edit_Delete:
2052 case XCF_Edit_Insert:
2053 case XCF_Edit_Append:
2054 poly_edit_op(function);
2055 break;
2056 case XCF_Edit_Next:
2057 path_op(*(EDITPART), XCF_Continue_Element, x, y);
2058 break;
2059 case XCF_Attach:
2060 attach_to();
2061 break;
2062 case XCF_Next_Library:
2063 changecat();
2064 break;
2065 case XCF_Library_Directory:
2066 startcatalog(NULL, LIBLIB, NULL);
2067 break;
2068 case XCF_Library_Edit:
2069 window_to_user(x, y, &areawin->save);
2070 unselect_all();
2071 select_element(LABEL);
2072 if (areawin->selects == 1)
2073 edit(x, y);
2074 break;
2075 case XCF_Library_Delete:
2076 catalog_op(XCF_Select, x, y);
2077 catdelete();
2078 break;
2079 case XCF_Library_Duplicate:
2080 catalog_op(XCF_Select, x, y);
2081 copycat();
2082 break;
2083 case XCF_Library_Hide:
2084 catalog_op(XCF_Select, x, y);
2085 cathide();
2086 break;
2087 case XCF_Library_Virtual:
2088 catalog_op(XCF_Select, x, y);
2089 catvirtualcopy();
2090 break;
2091 case XCF_Page_Directory:
2092 startcatalog(NULL, PAGELIB, NULL);
2093 break;
2094 case XCF_Library_Copy:
2095 case XCF_Library_Pop:
2096 catalog_op(function, x, y);
2097 break;
2098 case XCF_Virtual:
2099 copyvirtual();
2100 break;
2101 case XCF_Help:
2102 starthelp(NULL, NULL, NULL);
2103 break;
2104 case XCF_Redraw:
2105 areawin->redraw_needed = True;
2106 break;
2107 case XCF_View:
2108 zoomview(NULL, NULL, NULL);
2109 break;
2110 case XCF_Zoom_In:
2111 zoominrefresh(x, y);
2112 break;
2113 case XCF_Zoom_Out:
2114 zoomoutrefresh(x, y);
2115 break;
2116 case XCF_Pan:
2117 panrefresh(value, x, y, 0.3);
2118 break;
2119 case XCF_Double_Snap:
2120 setsnap(1);
2121 break;
2122 case XCF_Halve_Snap:
2123 setsnap(-1);
2124 break;
2125 case XCF_Write:
2126 #ifdef TCL_WRAPPER
2127 Tcl_Eval(xcinterp, "xcircuit::promptsavepage");
2128 #else
2129 outputpopup(NULL, NULL, NULL);
2130 #endif
2131 break;
2132 case XCF_Rotate:
2133 elementrotate(value, &areawin->save);
2134 break;
2135 case XCF_Flip_X:
2136 elementflip(&areawin->save);
2137 break;
2138 case XCF_Flip_Y:
2139 elementvflip(&areawin->save);
2140 break;
2141 case XCF_Snap:
2142 snapelement();
2143 break;
2144 case XCF_SnapTo:
2145 if (areawin->snapto) {
2146 areawin->snapto = False;
2147 Wprintf("Snap-to off");
2148 }
2149 else {
2150 areawin->snapto = True;
2151 Wprintf("Snap-to on");
2152 }
2153 break;
2154 case XCF_Pop:
2155 if (eventmode == CATALOG_MODE || eventmode == ASSOC_MODE) {
2156 eventmode = NORMAL_MODE;
2157 catreturn();
2158 }
2159 else
2160 popobject(NULL, 0, NULL);
2161 break;
2162 case XCF_Push:
2163 if (eventmode == CATALOG_MODE) {
2164 /* Don't allow push from library directory */
2165 if ((areawin->topinstance != xobjs.libtop[LIBLIB])
2166 && (areawin->topinstance != xobjs.libtop[PAGELIB])) {
2167 window_to_user(x, y, &areawin->save);
2168 eventmode = NORMAL_MODE;
2169 pushobject(NULL);
2170 }
2171 }
2172 else
2173 pushobject(NULL);
2174 break;
2175 case XCF_Delete:
2176 deletebutton(x, y);
2177 break;
2178 case XCF_Select:
2179 if (eventmode == CATALOG_MODE)
2180 catalog_op(function, x, y);
2181 else
2182 select_add_element(ALL_TYPES);
2183 break;
2184 case XCF_Box:
2185 boxbutton(x, y);
2186 break;
2187 case XCF_Arc:
2188 arcbutton(x, y);
2189 break;
2190 case XCF_Text:
2191 eventmode = TEXT_MODE;
2192 textbutton(NORMAL, x, y);
2193 break;
2194 case XCF_Exchange:
2195 exchange();
2196 break;
2197 case XCF_Library_Move:
2198 /* Don't allow from library directory. Then fall through to XCF_Move */
2199 if (areawin->topinstance == xobjs.libtop[LIBLIB]) break;
2200 case XCF_Move:
2201 if (areawin->selects == 0) {
2202 was_preselected = FALSE;
2203 if (eventmode == CATALOG_MODE)
2204 catalog_op(XCF_Select, x, y);
2205 else
2206 select_element(ALL_TYPES);
2207 }
2208 else was_preselected = TRUE;
2209
2210 if (areawin->selects > 0) {
2211 eventmode = (eventmode == CATALOG_MODE) ? CATMOVE_MODE : MOVE_MODE;
2212 u2u_snap(&areawin->save);
2213 areawin->origin = areawin->save;
2214 reset_cycles();
2215 select_connected_pins();
2216 XDefineCursor(dpy, areawin->window, ARROW);
2217 move_mode_draw(xcDRAW_INIT, NULL);
2218 #ifdef TCL_WRAPPER
2219 Tk_CreateEventHandler(areawin->area, ButtonMotionMask |
2220 PointerMotionMask, (Tk_EventProc *)xctk_drag,
2221 NULL);
2222 #endif
2223 }
2224 break;
2225 case XCF_Join:
2226 join();
2227 break;
2228 case XCF_Unjoin:
2229 unjoin();
2230 break;
2231 case XCF_Spline:
2232 splinebutton(x, y);
2233 break;
2234 case XCF_Edit:
2235 edit(x, y);
2236 break;
2237 case XCF_Undo:
2238 undo_action();
2239 break;
2240 case XCF_Redo:
2241 redo_action();
2242 break;
2243 case XCF_Select_Save:
2244 #ifdef TCL_WRAPPER
2245 Tcl_Eval(xcinterp, "xcircuit::promptmakeobject");
2246 #else
2247 selectsave(NULL, NULL, NULL);
2248 #endif
2249 break;
2250 case XCF_Unselect:
2251 select_add_element(-ALL_TYPES);
2252 break;
2253 case XCF_Dashed:
2254 setelementstyle(NULL, DASHED, NOBORDER | DOTTED | DASHED);
2255 break;
2256 case XCF_Dotted:
2257 setelementstyle(NULL, DOTTED, NOBORDER | DOTTED | DASHED);
2258 break;
2259 case XCF_Solid:
2260 setelementstyle(NULL, NORMAL, NOBORDER | DOTTED | DASHED);
2261 break;
2262 case XCF_Prompt:
2263 docommand();
2264 break;
2265 case XCF_Dot:
2266 snap(x, y, &areawin->save);
2267 drawdot(areawin->save.x, areawin->save.y);
2268 areawin->redraw_needed = True;
2269 drawarea(NULL, NULL, NULL);
2270 break;
2271 case XCF_Wire:
2272 u2u_snap(&areawin->save);
2273 startwire(&areawin->save);
2274 eventmode = WIRE_MODE;
2275 break;
2276 case XCF_Nothing:
2277 DoNothing(NULL, NULL, NULL);
2278 break;
2279 case XCF_Exit:
2280 quitcheck(areawin->area, NULL, NULL);
2281 break;
2282 case XCF_Netlist:
2283 callwritenet(NULL, 0, NULL);
2284 break;
2285 case XCF_Swap:
2286 swapschem(0, -1, NULL);
2287 break;
2288 case XCF_Pin_Label:
2289 eventmode = TEXT_MODE;
2290 textbutton(LOCAL, x, y);
2291 break;
2292 case XCF_Pin_Global:
2293 eventmode = TEXT_MODE;
2294 textbutton(GLOBAL, x, y);
2295 break;
2296 case XCF_Info_Label:
2297 eventmode = TEXT_MODE;
2298 textbutton(INFO, x, y);
2299 break;
2300 case XCF_Rescale:
2301 if (checkselect(LABEL | OBJINST | GRAPHIC) == TRUE) {
2302 eventmode = RESCALE_MODE;
2303 rescale_mode_draw(xcDRAW_INIT, NULL);
2304 #ifdef TCL_WRAPPER
2305 Tk_CreateEventHandler(areawin->area, PointerMotionMask |
2306 ButtonMotionMask, (Tk_EventProc *)xctk_drag, NULL);
2307 #else
2308 xcAddEventHandler(areawin->area, PointerMotionMask |
2309 ButtonMotionMask, False, (xcEventHandler)xlib_drag,
2310 NULL);
2311 #endif
2312 }
2313 break;
2314 case XCF_SelectBox:
2315 startselect();
2316 break;
2317 case XCF_Connectivity:
2318 connectivity(NULL, NULL, NULL);
2319 break;
2320 case XCF_Copy:
2321 case XCF_Continue_Copy:
2322 case XCF_Finish_Copy:
2323 copy_op(function, x, y);
2324 break;
2325 case XCF_Continue_Element:
2326 if (eventmode == CATMOVE_MODE || eventmode == MOVE_MODE ||
2327 eventmode == RESCALE_MODE)
2328 finish_op(XCF_Finish, x, y);
2329 else
2330 continue_op(function, x, y);
2331 break;
2332 case XCF_Finish_Element:
2333 case XCF_Cancel_Last:
2334 case XCF_Cancel:
2335 finish_op(function, x, y);
2336 break;
2337 case XCF_Finish:
2338 if (eventmode == CATALOG_MODE || eventmode == ASSOC_MODE)
2339 catalog_op(XCF_Library_Pop, x, y);
2340 else
2341 finish_op(function, x, y);
2342 break;
2343 case XCF_Sim:
2344 writenet(topobject, "flatsim", "sim");
2345 break;
2346 case XCF_SPICE:
2347 writenet(topobject, "spice", "spc");
2348 break;
2349 case XCF_PCB:
2350 writenet(topobject, "pcb", "pcbnet");
2351 break;
2352 case XCF_SPICEflat:
2353 writenet(topobject, "flatspice", "fspc");
2354 break;
2355 case XCF_Graphic:
2356 Wprintf("Action not handled");
2357 result = -1;
2358 break;
2359 case XCF_ChangeStyle:
2360 Wprintf("Action not handled");
2361 result = -1;
2362 break;
2363 }
2364
2365 /* Ensure that we do not get stuck in suspend mode */
2366 /* by removing the suspend state whenever a key is */
2367 /* pressed. */
2368
2369 if (xobjs.suspend == 1) {
2370 xobjs.suspend = -1;
2371 refresh(NULL, NULL, NULL);
2372 }
2373 else if (xobjs.suspend != 2)
2374 xobjs.suspend = -1;
2375
2376 return result;
2377 }
2378
2379 /* forward declaration */
2380 extern int utf8_reverse_lookup(char *);
2381
2382 /*------------------------------------------------------*/
2383 /* Get a canonical signature for a button/key event */
2384 /*------------------------------------------------------*/
2385
2386 int getkeysignature(XKeyEvent *event)
2387 {
2388 KeySym keypressed;
2389 int keywstate; /* KeySym with prepended state information */
2390
2391 int utf8enc; /* 8-bit value bound to UTF-8 encoding */
2392 char buffer[16];
2393 KeySym keysym;
2394 Status status;
2395 static XIM xim = NULL;
2396 static XIC xic = NULL;
2397
2398 #ifdef _MSC_VER
2399 if (event->keycode == 0 && event->state == 0)
2400 return -1;
2401 #endif
2402 XLookupString(event, _STR, 150, &keypressed, NULL);
2403
2404 /* Ignore Shift, Control, Caps Lock, and Meta (Alt) keys */
2405 /* when pressed alone. */
2406
2407 if (keypressed == XK_Control_L || keypressed == XK_Control_R ||
2408 keypressed == XK_Alt_L || keypressed == XK_Alt_R ||
2409 keypressed == XK_Caps_Lock || keypressed == XK_Shift_L ||
2410 keypressed == XK_Shift_R)
2411 return -1;
2412
2413 /* Only keep key state information pertaining to Shift, Caps Lock, */
2414 /* Control, and Alt (Meta) */
2415
2416 keywstate = (keypressed & 0xffff);
2417
2418 /* Convert codes outside the character (0 - 255) range but within */
2419 /* the ISO-Latin1,...,9 encoding scheme (256-5120). X11 has unique */
2420 /* keysyms for each character, but the ISO-Latin encodings define */
2421 /* mappings to the 8-bit (256) character set. */
2422
2423 if (keywstate >= 256 && keywstate < 5120)
2424 keywstate = XKeysymToKeycode(dpy, (KeySym)keywstate);
2425
2426 if (event->keycode != 0) { /* Only for actual key events */
2427
2428 /* Get keyboard input method */
2429 if (xim == NULL) {
2430 xim = XOpenIM(dpy, 0, 0, 0);
2431 xic = XCreateIC(xim,
2432 XNInputStyle, XIMPreeditNothing | XIMStatusNothing,
2433 XNClientWindow, areawin->window,
2434 XNFocusWindow, areawin->window,
2435 NULL);
2436 XSetICFocus(xic);
2437 }
2438
2439 /* Do a UTF-8 code lookup */
2440 Xutf8LookupString(xic, event, buffer, 15, &keysym, &status);
2441 /* Convert a UTF-8 code to a known encoding */
2442 utf8enc = utf8_reverse_lookup(buffer);
2443 if ((utf8enc != -1) && (utf8enc != (keywstate & 0xff))) keywstate = utf8enc;
2444 }
2445
2446 /* ASCII values already come upper/lowercase; we only want to register */
2447 /* a Shift key if it's a non-ASCII key or another modifier is in effect */
2448
2449 keywstate |= (((LockMask | ControlMask | Mod1Mask) & event->state) << 16);
2450 if (keywstate > 255) keywstate |= ((ShiftMask & event->state) << 16);
2451
2452 /* Treat button events and key events in the same way by setting */
2453 /* a key state for buttons */
2454
2455 if (keypressed == 0)
2456 keywstate |= (((Button1Mask | Button2Mask | Button3Mask | Button4Mask |
2457 Button5Mask | ShiftMask)
2458 & event->state) << 16);
2459
2460 return keywstate;
2461 }
2462
2463 /*------------------------*/
2464 /* Handle keyboard inputs */
2465 /*------------------------*/
2466
2467 void keyhandler(xcWidget w, caddr_t clientdata, XKeyEvent *event)
2468 {
2469 int keywstate; /* KeySym with prepended state information */
2470 int func;
2471 UNUSED(w); UNUSED(clientdata);
2472
2473 #ifdef TCL_WRAPPER
2474 if (popups > 0) return;
2475 #else
2476 if (popups > 0 && help_up == 0) return;
2477 #endif
2478
2479 if ((event->type == KeyRelease) || (event->type == ButtonRelease)) {
2480
2481 /* Register a "tap" event if a key or button was released */
2482 /* while a timeout event is pending. */
2483
2484 if (areawin->time_id != 0) {
2485 xcRemoveTimeOut(areawin->time_id);
2486 areawin->time_id = 0;
2487 keywstate = getkeysignature(event);
2488 eventdispatch(keywstate, areawin->save.x, areawin->save.y);
2489 }
2490 else {
2491 keywstate = getkeysignature(event);
2492 if ((pressmode != 0) && (keywstate == pressmode)) {
2493 /* Events that require hold & drag (namely, MOVE_MODE) */
2494 /* must be resolved here. Call finish_op() to ensure */
2495 /* that we restore xcircuit to a state of sanity. */
2496
2497 finish_op(XCF_Finish, event->x, event->y);
2498 pressmode = 0;
2499 if (areawin->redraw_needed)
2500 drawarea(NULL, NULL, NULL);
2501 }
2502 return; /* Ignore all other release events */
2503 }
2504 }
2505
2506 /* Check if any bindings match key/button "hold". If so, then start */
2507 /* the timer and wait for key release or timeout. */
2508
2509 else {
2510 keywstate = getkeysignature(event);
2511 if ((keywstate != -1) && (xobjs.hold == TRUE)) {
2512
2513 /* Establish whether a HOLD modifier binding would apply in */
2514 /* the current eventmode. If so, set the HOLD timer. */
2515
2516 func = boundfunction(areawin->area, keywstate | HOLD_MASK, NULL);
2517 if (func != -1) {
2518 areawin->save.x = event->x;
2519 areawin->save.y = event->y;
2520 areawin->time_id = xcAddTimeOut(app, PRESSTIME,
2521 makepress, (ClientData)((pointertype)keywstate));
2522 return;
2523 }
2524
2525 }
2526 eventdispatch(keywstate, event->x, event->y);
2527 }
2528 }
2529
2530 /*--------------------------------*/
2531 /* Set snap spacing from keyboard */
2532 /*--------------------------------*/
2533
2534 void setsnap(short direction)
2535 {
2536 float oldsnap = xobjs.pagelist[areawin->page]->snapspace;
2537 char buffer[50];
2538
2539 if (direction > 0) xobjs.pagelist[areawin->page]->snapspace *= 2;
2540 else {
2541 if (oldsnap >= 2.0)
2542 xobjs.pagelist[areawin->page]->snapspace /= 2;
2543 else {
2544 measurestr(xobjs.pagelist[areawin->page]->snapspace, buffer);
2545 Wprintf("Snap space at minimum value of %s", buffer);
2546 }
2547 }
2548 if (xobjs.pagelist[areawin->page]->snapspace != oldsnap) {
2549 measurestr(xobjs.pagelist[areawin->page]->snapspace, buffer);
2550 Wprintf("Snap spacing set to %s", buffer);
2551 areawin->redraw_needed = True;
2552 drawarea(NULL, NULL, NULL);
2553 }
2554 }
2555
2556 /*-----------------------------------------*/
2557 /* Reposition an object onto the snap grid */
2558 /*-----------------------------------------*/
2559
2560 void snapelement()
2561 {
2562 short *selectobj;
2563 Boolean preselected;
2564
2565 preselected = (areawin->selects > 0) ? TRUE : FALSE;
2566 if (!checkselect(ALL_TYPES)) return;
2567 SetForeground(dpy, areawin->gc, BACKGROUND);
2568 for (selectobj = areawin->selectlist; selectobj < areawin->selectlist
2569 + areawin->selects; selectobj++) {
2570 easydraw(*selectobj, DOFORALL);
2571 switch(SELECTTYPE(selectobj)) {
2572 case OBJINST: {
2573 objinstptr snapobj = SELTOOBJINST(selectobj);
2574
2575 u2u_snap(&snapobj->position);
2576 } break;
2577 case GRAPHIC: {
2578 graphicptr snapg = SELTOGRAPHIC(selectobj);
2579
2580 u2u_snap(&snapg->position);
2581 } break;
2582 case LABEL: {
2583 labelptr snaplabel = SELTOLABEL(selectobj);
2584
2585 u2u_snap(&snaplabel->position);
2586 } break;
2587 case POLYGON: {
2588 polyptr snappoly = SELTOPOLY(selectobj);
2589 pointlist snappoint;
2590
2591 for (snappoint = snappoly->points; snappoint < snappoly->points +
2592 snappoly->number; snappoint++)
2593 u2u_snap(snappoint);
2594 } break;
2595 case ARC: {
2596 arcptr snaparc = SELTOARC(selectobj);
2597
2598 u2u_snap(&snaparc->position);
2599 if (areawin->snapto) {
2600 snaparc->radius = (snaparc->radius /
2601 xobjs.pagelist[areawin->page]->snapspace) *
2602 xobjs.pagelist[areawin->page]->snapspace;
2603 snaparc->yaxis = (snaparc->yaxis /
2604 xobjs.pagelist[areawin->page]->snapspace) *
2605 xobjs.pagelist[areawin->page]->snapspace;
2606 }
2607 calcarc(snaparc);
2608 } break;
2609 case SPLINE: {
2610 splineptr snapspline = SELTOSPLINE(selectobj);
2611 short i;
2612
2613 for (i = 0; i < 4; i++)
2614 u2u_snap(&snapspline->ctrl[i]);
2615 calcspline(snapspline);
2616 } break;
2617 }
2618 if (preselected || (eventmode != NORMAL_MODE)) {
2619 SetForeground(dpy, areawin->gc, SELECTCOLOR);
2620 easydraw(*selectobj, DOFORALL);
2621 }
2622 }
2623 select_invalidate_netlist();
2624 if (eventmode == NORMAL_MODE)
2625 if (!preselected)
2626 unselect_all();
2627 }
2628
2629 /*----------------------------------------------*/
2630 /* Routines to print the cursor position */
2631 /*----------------------------------------------*/
2632
2633 /*----------------------------------------------*/
2634 /* fast integer power-of-10 routine */
2635 /*----------------------------------------------*/
2636
2637 int ipow10(int a)
2638 {
2639 int i;
2640 char istr[12];
2641
2642 switch (a) {
2643 case 0: return 1; break;
2644 case 1: return 10; break;
2645 case 2: return 100; break;
2646 case 3: return 1000; break;
2647 default:
2648 istr[0] = '1';
2649 for (i = 1; i < a + 1; i++) istr[i] = '0';
2650 istr[i] = '\0';
2651 return atoi(istr);
2652 break;
2653 }
2654 }
2655
2656 /*--------------------------------------------------*/
2657 /* find greatest common factor between two integers */
2658 /*--------------------------------------------------*/
2659
2660 int calcgcf(int a, int b)
2661 {
2662 register int mod;
2663
2664 if ((mod = a % b) == 0) return (b);
2665 else return (calcgcf(b, mod));
2666 }
2667
2668 /*--------------------------------------------------------------*/
2669 /* generate a fraction from a float, if possible */
2670 /* fraction returned as a string (must be allocated beforehand) */
2671 /*--------------------------------------------------------------*/
2672
2673 void fraccalc(float xyval, char *fstr)
2674 {
2675 short i, t, rept;
2676 int ip, mant, divisor, denom, numer, rpart;
2677 double fp;
2678 char num[10], *nptr = &num[2], *sptr;
2679
2680 ip = (int)xyval;
2681 fp = fabs(xyval - ip);
2682
2683 /* write fractional part and grab mantissa as integer */
2684
2685 sprintf(num, "%1.7f", fp);
2686 num[8] = '\0'; /* no rounding up! */
2687 sscanf(nptr, "%d", &mant);
2688
2689 if (mant != 0) { /* search for repeating substrings */
2690 for (i = 1; i <= 3; i++) {
2691 rept = 1;
2692 nptr = &num[8] - i;
2693 while ((sptr = nptr - rept * i) >= &num[2]) {
2694 for (t = 0; t < i; t++)
2695 if (*(sptr + t) != *(nptr + t)) break;
2696 if (t != i) break;
2697 else rept++;
2698 }
2699 if (rept > 1) break;
2700 }
2701 nptr = &num[8] - i;
2702 sscanf(nptr, "%d", &rpart); /* rpart is repeating part of mantissa */
2703 if (i > 3 || rpart == 0) { /* no repeat */
2704 divisor = calcgcf(1000000, mant);
2705 denom = 1000000 / divisor;
2706 }
2707 else { /* repeat */
2708 int z, p, fd;
2709
2710 *nptr = '\0';
2711 sscanf(&num[2], "%d", &z);
2712 p = ipow10(i) - 1;
2713 mant = z * p + rpart;
2714 fd = ipow10(nptr - &num[2]) * p;
2715
2716 divisor = calcgcf(fd, mant);
2717 denom = fd / divisor;
2718 }
2719 numer = mant / divisor;
2720 if (denom > 1024)
2721 sprintf(fstr, "%5.3f", xyval);
2722 else if (ip == 0)
2723 sprintf(fstr, "%hd/%hd", (xyval > 0) ? numer : -numer, denom);
2724 else
2725 sprintf(fstr, "%hd %hd/%hd", ip, numer, denom);
2726 }
2727 else sprintf(fstr, "%hd", ip);
2728 }
2729
2730 /*------------------------------------------------------------------------------*/
2731 /* Print the position of the cursor in the upper right-hand message window */
2732 /*------------------------------------------------------------------------------*/
2733
2734 void printpos(short xval, short yval)
2735 {
2736 float f1, f2;
2737 float oscale, iscale = (float)xobjs.pagelist[areawin->page]->drawingscale.y /
2738 (float)xobjs.pagelist[areawin->page]->drawingscale.x;
2739 int llen, lwid;
2740 u_char wlflag = 0;
2741 XPoint *tpoint, *npoint;
2742 char *sptr;
2743 short cycle;
2744
2745 /* For polygons, print the length (last line of a wire or polygon) or */
2746 /* length and width (box only) */
2747
2748 if (eventmode == BOX_MODE || eventmode == EPOLY_MODE || eventmode == WIRE_MODE) {
2749 polyptr lwire = (eventmode == BOX_MODE) ? TOPOLY(ENDPART) : TOPOLY(EDITPART);
2750 if ((eventmode == EPOLY_MODE) && (lwire->number > 2)) {
2751 /* sanity check on edit cycle */
2752 cycle = (lwire->cycle) ? lwire->cycle->number : -1;
2753 if (cycle < 0 || cycle >= lwire->number) {
2754 advancecycle((genericptr *)(&lwire), 0);
2755 cycle = 0;
2756 }
2757 tpoint = lwire->points + cycle;
2758 npoint = lwire->points + checkcycle((genericptr)lwire, 1);
2759 llen = wirelength(tpoint, npoint);
2760 npoint = lwire->points + checkcycle((genericptr)lwire, -1);
2761 lwid = wirelength(tpoint, npoint);
2762 wlflag = 3;
2763 if (lwire->style & UNCLOSED) { /* unclosed polys */
2764 if (cycle == 0)
2765 wlflag = 1;
2766 else if (cycle == lwire->number - 1) {
2767 wlflag = 1;
2768 llen = lwid;
2769 }
2770 }
2771 if ((npoint->y - tpoint->y) == 0) { /* swap width and length */
2772 int tmp = lwid;
2773 lwid = llen;
2774 llen = tmp;
2775 }
2776 }
2777 else if (eventmode == BOX_MODE) {
2778 tpoint = lwire->points;
2779 npoint = lwire->points + 1;
2780 llen = wirelength(tpoint, npoint);
2781 npoint = lwire->points + 3;
2782 lwid = wirelength(tpoint, npoint);
2783 if ((npoint->y - tpoint->y) == 0) { /* swap width and length */
2784 int tmp = lwid;
2785 lwid = llen;
2786 llen = tmp;
2787 }
2788 wlflag = 3;
2789 }
2790 else {
2791 tpoint = lwire->points + lwire->number - 1;
2792 llen = wirelength(tpoint - 1, tpoint);
2793 wlflag = 1;
2794 }
2795 }
2796 else if (eventmode == ARC_MODE || eventmode == EARC_MODE) {
2797 arcptr larc = (eventmode == ARC_MODE) ? TOARC(ENDPART) : TOARC(EDITPART);
2798 llen = larc->radius;
2799 if (abs(larc->radius) != larc->yaxis) {
2800 lwid = larc->yaxis;
2801 wlflag = 3;
2802 }
2803 else
2804 wlflag = 1;
2805 }
2806
2807 switch (xobjs.pagelist[areawin->page]->coordstyle) {
2808 case INTERNAL:
2809 sprintf(_STR, "%g, %g", xval * iscale, yval * iscale);
2810 sptr = _STR + strlen(_STR);
2811 if (wlflag) {
2812 if (wlflag & 2)
2813 sprintf(sptr, " (%g x %g)", llen * iscale, lwid * iscale);
2814 else
2815 sprintf(sptr, " (length %g)", llen * iscale);
2816 }
2817 break;
2818 case DEC_INCH:
2819 oscale = xobjs.pagelist[areawin->page]->outscale * INCHSCALE;
2820 f1 = ((float)(xval) * iscale * oscale) / 72.0;
2821 f2 = ((float)(yval) * iscale * oscale) / 72.0;
2822 sprintf(_STR, "%5.3f, %5.3f in", f1, f2);
2823 sptr = _STR + strlen(_STR);
2824 if (wlflag) {
2825 f1 = ((float)(llen) * iscale * oscale) / 72.0;
2826 if (wlflag & 2) {
2827 f2 = ((float)(lwid) * iscale * oscale) / 72.0;
2828 sprintf(sptr, " (%5.3f x %5.3f in)", f1, f2);
2829 }
2830 else
2831 sprintf(sptr, " (length %5.3f in)", f1);
2832 }
2833 break;
2834 case FRAC_INCH: {
2835 char fstr1[30], fstr2[30];
2836
2837 oscale = xobjs.pagelist[areawin->page]->outscale * INCHSCALE;
2838 fraccalc((((float)(xval) * iscale * oscale) / 72.0), fstr1);
2839 fraccalc((((float)(yval) * iscale * oscale) / 72.0), fstr2);
2840 sprintf(_STR, "%s, %s in", fstr1, fstr2);
2841 sptr = _STR + strlen(_STR);
2842 if (wlflag) {
2843 fraccalc((((float)(llen) * iscale * oscale) / 72.0), fstr1);
2844 if (wlflag & 2) {
2845 fraccalc((((float)(lwid) * iscale * oscale) / 72.0), fstr2);
2846 sprintf(sptr, " (%s x %s in)", fstr1, fstr2);
2847 }
2848 else
2849 sprintf(sptr, " (length %s in)", fstr1);
2850 }
2851 } break;
2852 case CM:
2853 oscale = xobjs.pagelist[areawin->page]->outscale * CMSCALE;
2854 f1 = ((float)(xval) * iscale * oscale) / IN_CM_CONVERT;
2855 f2 = ((float)(yval) * iscale * oscale) / IN_CM_CONVERT;
2856 sprintf(_STR, "%5.3f, %5.3f cm", f1, f2);
2857 sptr = _STR + strlen(_STR);
2858 if (wlflag) {
2859 f1 = ((float)(llen) * iscale * oscale) / IN_CM_CONVERT;
2860 if (wlflag & 2) {
2861 f2 = ((float)(lwid) * iscale * oscale) / IN_CM_CONVERT;
2862 sprintf(sptr, " (%5.3f x %5.3f cm)", f1, f2);
2863 }
2864 else
2865 sprintf(sptr, " (length %5.3f cm)", f1);
2866 }
2867 break;
2868 }
2869 W1printf(_STR);
2870 }
2871
2872 /*---------------------------------------------------*/
2873 /* Find nearest point of intersection of the cursor */
2874 /* position to a wire and move there. */
2875 /*---------------------------------------------------*/
2876
2877 void findwirex(XPoint *endpt1, XPoint *endpt2, XPoint *userpt,
2878 XPoint *newpos, float *rot)
2879 {
2880 long xsq, ysq, zsq;
2881 float frac;
2882
2883 xsq = sqwirelen(endpt1, endpt2);
2884 ysq = sqwirelen(endpt1, userpt);
2885 zsq = sqwirelen(endpt2, userpt);
2886 frac = 0.5 + (float)(ysq - zsq) / (float)(xsq << 1);
2887 if (frac > 1) frac = 1;
2888 else if (frac < 0) frac = 0;
2889 newpos->x = endpt1->x + (int)((endpt2->x - endpt1->x) * frac);
2890 newpos->y = endpt1->y + (int)((endpt2->y - endpt1->y) * frac);
2891
2892 *rot = 180.0 + INVRFAC * atan2((double)(endpt1->x -
2893 endpt2->x), (double)(endpt1->y - endpt2->y));
2894 }
2895
2896 /*----------------------------------------------------------------*/
2897 /* Find the closest point of attachment from the pointer position */
2898 /* to the "attachto" element. */
2899 /*----------------------------------------------------------------*/
2900
2901 void findattach(XPoint *newpos, float *rot, XPoint *userpt)
2902 {
2903 XPoint *endpt1, *endpt2;
2904 float frac;
2905 double tmpang;
2906 float locrot = 0.0;
2907
2908 if (rot) locrot = *rot;
2909
2910 /* find point of intersection and slope */
2911
2912 if (SELECTTYPE(&areawin->attachto) == ARC) {
2913 arcptr aarc = SELTOARC(&areawin->attachto);
2914 float tmpdeg;
2915 tmpang = atan2((double)(userpt->y - aarc->position.y) * (double)
2916 (abs(aarc->radius)), (double)(userpt->x - aarc->position.x) *
2917 (double)aarc->yaxis);
2918
2919 /* don't follow the arc beyond its endpoints */
2920
2921 tmpdeg = (float)(tmpang * INVRFAC);
2922 if (tmpdeg < 0) tmpdeg += 360;
2923 if (((aarc->angle2 > 360) && (tmpdeg > aarc->angle2 - 360) &&
2924 (tmpdeg < aarc->angle1)) ||
2925 ((aarc->angle1 < 0) && (tmpdeg > aarc->angle2) &&
2926 (tmpdeg < aarc->angle1 + 360)) ||
2927 ((aarc->angle1 >= 0) && (aarc->angle2 <= 360) && ((tmpdeg
2928 > aarc->angle2) || (tmpdeg < aarc->angle1)))) {
2929 float testd1 = aarc->angle1 - tmpdeg;
2930 float testd2 = tmpdeg - aarc->angle2;
2931 if (testd1 < 0) testd1 += 360;
2932 if (testd2 < 0) testd2 += 360;
2933
2934 /* if arc is closed, attach to the line between the endpoints */
2935
2936 if (!(aarc->style & UNCLOSED)) {
2937 XPoint end1, end2;
2938 tmpang = (double) aarc->angle1 / INVRFAC;
2939 end1.x = aarc->position.x + abs(aarc->radius) * cos(tmpang);
2940 end1.y = aarc->position.y + aarc->yaxis * sin(tmpang);
2941 tmpang = (double) aarc->angle2 / INVRFAC;
2942 end2.x = aarc->position.x + abs(aarc->radius) * cos(tmpang);
2943 end2.y = aarc->position.y + aarc->yaxis * sin(tmpang);
2944 findwirex(&end1, &end2, userpt, newpos, &locrot);
2945 if (rot) *rot = locrot;
2946 return;
2947 }
2948 else
2949 tmpang = (double)((testd1 < testd2) ? aarc->angle1 : aarc->angle2)
2950 / INVRFAC;
2951 }
2952
2953 /* get position in user coordinates nearest to the intersect pt */
2954
2955 newpos->x = aarc->position.x + abs(aarc->radius) * cos(tmpang);
2956 newpos->y = aarc->position.y + aarc->yaxis * sin(tmpang);
2957
2958 /* rotation of object is normal to the curve of the ellipse */
2959
2960 if (rot) {
2961 *rot = 90.0 - INVRFAC * tmpang;
2962 if (*rot < 0.0) *rot += 360.0;
2963 }
2964 }
2965 else if (SELECTTYPE(&areawin->attachto) == SPLINE) {
2966 splineptr aspline = SELTOSPLINE(&areawin->attachto);
2967 frac = findsplinemin(aspline, userpt);
2968 findsplinepos(aspline, frac, newpos, &locrot);
2969 if (rot) *rot = locrot;
2970 }
2971 else if (SELECTTYPE(&areawin->attachto) == OBJINST) {
2972
2973 objinstptr ainst = SELTOOBJINST(&areawin->attachto);
2974 objectptr aobj = ainst->thisobject;
2975 genericptr *ggen;
2976 long testdist, mindist = 1e8;
2977 XPoint mdpoint;
2978
2979 /* In case instance has no pin labels, we will attach to */
2980 /* the instance's own origin. */
2981
2982 mdpoint.x = mdpoint.y = 0;
2983 ReferencePosition(ainst, &mdpoint, newpos);
2984
2985 /* Find the nearest pin label in the object instance and attach to it */
2986 for (ggen = aobj->plist; ggen < aobj->plist + aobj->parts; ggen++) {
2987 if (ELEMENTTYPE(*ggen) == LABEL) {
2988 labelptr alab = TOLABEL(ggen);
2989 if (alab->pin == LOCAL || alab->pin == GLOBAL) {
2990 ReferencePosition(ainst, &alab->position, &mdpoint);
2991 testdist = sqwirelen(&mdpoint, userpt);
2992 if (testdist < mindist) {
2993 mindist = testdist;
2994 *newpos = mdpoint;
2995 }
2996 }
2997 }
2998 }
2999 }
3000 else if (SELECTTYPE(&areawin->attachto) == LABEL) {
3001 /* Only one choice: Attach to the label position */
3002 labelptr alabel = SELTOLABEL(&areawin->attachto);
3003 newpos->x = alabel->position.x;
3004 newpos->y = alabel->position.y;
3005 }
3006 else if (SELECTTYPE(&areawin->attachto) == POLYGON) {
3007 polyptr apoly = SELTOPOLY(&areawin->attachto);
3008 XPoint *testpt, *minpt, *nxtpt;
3009 long mindist = 1e8, testdist;
3010 minpt = nxtpt = apoly->points; /* so variables aren't uninitialized */
3011 for (testpt = apoly->points; testpt < apoly->points +
3012 apoly->number - 1; testpt++) {
3013 testdist = finddist(testpt, testpt + 1, userpt);
3014 if (testdist < mindist) {
3015 mindist = testdist;
3016 minpt = testpt;
3017 nxtpt = testpt + 1;
3018 }
3019 }
3020 if (!(apoly->style & UNCLOSED)) {
3021 testdist = finddist(testpt, apoly->points, userpt);
3022 if (testdist < mindist) {
3023 mindist = testdist;
3024 minpt = testpt;
3025 nxtpt = apoly->points;
3026 }
3027 }
3028 endpt1 = minpt;
3029 endpt2 = nxtpt;
3030 findwirex(endpt1, endpt2, userpt, newpos, &locrot);
3031 if (rot) *rot = locrot;
3032 }
3033 }
3034
3035 /*--------------------------------------------*/
3036 /* Find closest point in a path to the cursor */
3037 /*--------------------------------------------*/
3038
3039 XPoint *pathclosepoint(pathptr dragpath, XPoint *newpos)
3040 {
3041 XPoint *rpoint;
3042 genericptr *cpoint;
3043 short mpoint;
3044 int mdist = 1000000, tdist;
3045
3046 for (cpoint = dragpath->plist; cpoint < dragpath->plist + dragpath->parts;
3047 cpoint++) {
3048 switch(ELEMENTTYPE(*cpoint)) {
3049 case ARC:
3050 tdist = wirelength(&(TOARC(cpoint)->position), newpos);
3051 if (tdist < mdist) {
3052 mdist = tdist;
3053 rpoint = &(TOARC(cpoint)->position);
3054 }
3055 break;
3056 case POLYGON:
3057 mpoint = closepoint(TOPOLY(cpoint), newpos);
3058 tdist = wirelength(TOPOLY(cpoint)->points + mpoint, newpos);
3059 if (tdist < mdist) {
3060 mdist = tdist;
3061 rpoint = TOPOLY(cpoint)->points + mpoint;
3062 }
3063 break;
3064 case SPLINE:
3065 tdist = wirelength(&(TOSPLINE(cpoint)->ctrl[0]), newpos);
3066 if (tdist < mdist) {
3067 mdist = tdist;
3068 rpoint = &(TOSPLINE(cpoint)->ctrl[0]);
3069 }
3070 tdist = wirelength(&(TOSPLINE(cpoint)->ctrl[3]), newpos);
3071 if (tdist < mdist) {
3072 mdist = tdist;
3073 rpoint = &(TOSPLINE(cpoint)->ctrl[3]);
3074 }
3075 break;
3076 }
3077 }
3078 return rpoint;
3079 }
3080
3081 /*-------------------------------------------*/
3082 /* Drag a selected element around the screen */
3083 /*-------------------------------------------*/
3084
3085 void drag(int x, int y)
3086 {
3087 XEvent again;
3088 Boolean eventcheck = False;
3089 XPoint userpt;
3090 short deltax, deltay;
3091 int locx, locy;
3092
3093 locx = x;
3094 locy = y;
3095
3096 /* flush out multiple pointermotion events from the event queue */
3097 /* use only the last motion event */
3098 while (XCheckWindowEvent(dpy, areawin->window, PointerMotionMask |
3099 Button1MotionMask, &again) == True) eventcheck = True;
3100 if (eventcheck) {
3101 XButtonEvent *event = (XButtonEvent *)(&again);
3102 locx = (int)event->x;
3103 locy = (int)event->y;
3104 }
3105
3106 /* Determine if this event is supposed to be handled by */
3107 /* trackselarea(), or whether we should not be here at all */
3108 /* (button press and mouse movement in an unsupported mode) */
3109
3110 if (eventmode == SELAREA_MODE) {
3111 trackselarea();
3112 return;
3113 }
3114 else if (eventmode == RESCALE_MODE) {
3115 trackrescale();
3116 return;
3117 }
3118 else if (eventmode == PAN_MODE) {
3119 trackpan(locx, locy);
3120 return;
3121 }
3122 else if (eventmode != CATMOVE_MODE && eventmode != MOVE_MODE
3123 && eventmode != COPY_MODE)
3124 return;
3125
3126 snap(locx, locy, &userpt);
3127 deltax = userpt.x - areawin->save.x;
3128 deltay = userpt.y - areawin->save.y;
3129 if (deltax == 0 && deltay == 0) return;
3130
3131 areawin->save.x = userpt.x;
3132 areawin->save.y = userpt.y;
3133
3134 /* set up the graphics state for moving a selected object */
3135
3136 XTopSetForeground(SELECTCOLOR);
3137
3138 placeselects(deltax, deltay, &userpt);
3139
3140 /* restore graphics state */
3141
3142 SetForeground(dpy, areawin->gc, areawin->gccolor);
3143
3144 /* print the position and other useful measurements */
3145
3146 printpos(userpt.x, userpt.y);
3147 }
3148
3149 /*------------------------------------------------------*/
3150 /* Wrapper for drag() for xlib callback compatibility. */
3151 /*------------------------------------------------------*/
3152
3153 void xlib_drag(xcWidget w, caddr_t clientdata, XEvent *event)
3154 {
3155 XButtonEvent *bevent = (XButtonEvent *)event;
3156 UNUSED(w); UNUSED(clientdata);
3157
3158 drag(bevent->x, bevent->y);
3159 if (areawin->redraw_needed)
3160 drawarea(NULL, NULL, NULL);
3161 }
3162
3163 /*----------------------------------------------*/
3164 /* Rotate an element of a path */
3165 /*----------------------------------------------*/
3166
3167 void elemrotate(genericptr *genobj, float direction, XPoint *position)
3168 {
3169 XPoint negpt, *newpts = (XPoint *)NULL;
3170
3171 negpt.x = -position->x;
3172 negpt.y = -position->y;
3173
3174 switch(ELEMENTTYPE(*genobj)) {
3175 case(ARC):{
3176 arcptr rotatearc = TOARC(genobj);
3177 rotatearc->angle1 -= direction;
3178 rotatearc->angle2 -= direction;
3179 if (rotatearc->angle1 >= 360) {
3180 rotatearc->angle1 -= 360;
3181 rotatearc->angle2 -= 360;
3182 }
3183 else if (rotatearc->angle2 <= 0) {
3184 rotatearc->angle1 += 360;
3185 rotatearc->angle2 += 360;
3186 }
3187 newpts = (XPoint *)malloc(sizeof(XPoint));
3188 UTransformPoints(&rotatearc->position, newpts, 1, negpt, 1.0, 0);
3189 UTransformPoints(newpts, &rotatearc->position, 1, *position,
3190 1.0, direction);
3191 calcarc(rotatearc);
3192 }break;
3193
3194 case(SPLINE):{
3195 splineptr rotatespline = TOSPLINE(genobj);
3196 newpts = (XPoint *)malloc(4 * sizeof(XPoint));
3197 UTransformPoints(rotatespline->ctrl, newpts, 4, negpt, 1.0, 0);
3198 UTransformPoints(newpts, rotatespline->ctrl, 4, *position,
3199 1.0, direction);
3200 calcspline(rotatespline);
3201 }break;
3202
3203 case(POLYGON):{
3204 polyptr rotatepoly = TOPOLY(genobj);
3205 newpts = (XPoint *)malloc(rotatepoly->number * sizeof(XPoint));
3206 UTransformPoints(rotatepoly->points, newpts, rotatepoly->number,
3207 negpt, 1.0, 0);
3208 UTransformPoints(newpts, rotatepoly->points, rotatepoly->number,
3209 *position, 1.0, direction);
3210 }break;
3211 }
3212 if (newpts) free(newpts);
3213 }
3214
3215 /*------------------------------------------------------*/
3216 /* Rotate an element or group of elements */
3217 /* Objects and labels, if selected singly, rotate */
3218 /* about their position point. All other elements, */
3219 /* and groups, rotate about the cursor point. */
3220 /*------------------------------------------------------*/
3221
3222 void elementrotate(float direction, XPoint *position)
3223 {
3224 short *selectobj; /* , ld; (jdk) */
3225 Boolean single = False;
3226 Boolean need_refresh = False;
3227 Boolean preselected;
3228 XPoint newpt, negpt;
3229
3230 preselected = (areawin->selects > 0) ? TRUE : FALSE;
3231 if (!checkselect(ALL_TYPES)) return;
3232 if (areawin->selects == 1) single = True;
3233
3234 negpt.x = -position->x;
3235 negpt.y = -position->y;
3236
3237 for (selectobj = areawin->selectlist; selectobj < areawin->selectlist
3238 + areawin->selects; selectobj++) {
3239
3240 /* erase the element */
3241 if (!need_refresh) {
3242 SetForeground(dpy, areawin->gc, BACKGROUND);
3243 easydraw(*selectobj, DOFORALL);
3244 }
3245
3246 switch(SELECTTYPE(selectobj)) {
3247
3248 case(OBJINST):{
3249 objinstptr rotateobj = SELTOOBJINST(selectobj);
3250
3251 if (is_library(topobject) >= 0 && !is_virtual(rotateobj)) break;
3252 rotateobj->rotation += direction;
3253 while (rotateobj->rotation >= 360) rotateobj->rotation -= 360;
3254 while (rotateobj->rotation <= 0) rotateobj->rotation += 360;
3255 if (!single) {
3256 UTransformPoints(&rotateobj->position, &newpt, 1, negpt, 1.0, 0);
3257 UTransformPoints(&newpt, &rotateobj->position, 1, *position,
3258 1.0, direction);
3259 }
3260 }break;
3261
3262 case(LABEL):{
3263 labelptr rotatetext = SELTOLABEL(selectobj);
3264
3265 rotatetext->rotation += direction;
3266 while (rotatetext->rotation >= 360) rotatetext->rotation -= 360;
3267 while (rotatetext->rotation <= 0) rotatetext->rotation += 360;
3268 if (!single) {
3269 UTransformPoints(&rotatetext->position, &newpt, 1, negpt, 1.0, 0);
3270 UTransformPoints(&newpt, &rotatetext->position, 1, *position,
3271 1.0, direction);
3272 }
3273 }break;
3274
3275 case(GRAPHIC):{
3276 graphicptr rotateg = SELTOGRAPHIC(selectobj);
3277
3278 rotateg->rotation += direction;
3279 while (rotateg->rotation >= 360) rotateg->rotation -= 360;
3280 while (rotateg->rotation <= 0) rotateg->rotation += 360;
3281 #ifndef HAVE_CAIRO
3282 rotateg->valid = FALSE;
3283 #endif /* !HAVE_CAIRO */
3284 if (!single) {
3285 UTransformPoints(&rotateg->position, &newpt, 1, negpt, 1.0, 0);
3286 UTransformPoints(&newpt, &rotateg->position, 1, *position,
3287 1.0, direction);
3288 }
3289 need_refresh = True;
3290 }break;
3291
3292 case POLYGON: case ARC: case SPLINE:{
3293 genericptr *genpart = topobject->plist + *selectobj;
3294 register_for_undo(XCF_Edit, UNDO_MORE, areawin->topinstance,
3295 *genpart);
3296 elemrotate(genpart, direction, position);
3297 }break;
3298
3299 case PATH:{
3300 genericptr *genpart;
3301 pathptr rotatepath = SELTOPATH(selectobj);
3302
3303 register_for_undo(XCF_Edit, UNDO_MORE, areawin->topinstance,
3304 rotatepath);
3305 for (genpart = rotatepath->plist; genpart < rotatepath->plist
3306 + rotatepath->parts; genpart++)
3307 elemrotate(genpart, direction, position);
3308 }break;
3309 }
3310
3311 /* redisplay the element */
3312 if (preselected || ((eventmode != NORMAL_MODE) && !need_refresh)) {
3313 SetForeground(dpy, areawin->gc, SELECTCOLOR);
3314 easydraw(*selectobj, DOFORALL);
3315 }
3316 }
3317
3318 /* This takes care of all selected instances and labels in one go, */
3319 /* because we only need to know the origin and amount of rotation. */
3320
3321 if (eventmode != COPY_MODE)
3322 register_for_undo(XCF_Rotate, UNDO_MORE, areawin->topinstance,
3323 (eventmode == MOVE_MODE) ? &areawin->origin : position,
3324 (double)direction);
3325
3326 /* New rule (6/15/07) to be applied generally: If objects were */
3327 /* selected prior to calling elementrotate() and similar functions, */
3328 /* leave them selected upon exit. Otherwise, deselect them. */
3329
3330 if (eventmode == NORMAL_MODE || eventmode == CATALOG_MODE)
3331 if (!preselected)
3332 unselect_all();
3333
3334 if (eventmode == CATALOG_MODE) {
3335 int libnum;
3336 if ((libnum = is_library(topobject)) >= 0) {
3337 composelib(libnum + LIBRARY);
3338 need_refresh = TRUE;
3339 }
3340 }
3341 else {
3342 pwriteback(areawin->topinstance);
3343 calcbbox(areawin->topinstance);
3344 }
3345
3346 if (need_refresh) drawarea(NULL, NULL, NULL);
3347 }
3348
3349 /*----------------------------------------------*/
3350 /* Rescale the current edit element to the */
3351 /* dimensions of the rescale box. */
3352 /*----------------------------------------------*/
3353
3354 void elementrescale(float newscale)
3355 {
3356 short *selectobj;
3357 labelptr sclab;
3358 objinstptr scinst;
3359 graphicptr scgraph;
3360 float oldsize;
3361
3362 for (selectobj = areawin->selectlist; selectobj < areawin->selectlist
3363 + areawin->selects; selectobj++) {
3364 switch (SELECTTYPE(selectobj)) {
3365 case LABEL:
3366 sclab = SELTOLABEL(selectobj);
3367 oldsize = sclab->scale;
3368 sclab->scale = newscale;
3369 break;
3370 case OBJINST:
3371 scinst = SELTOOBJINST(selectobj);
3372 oldsize = scinst->scale;
3373 scinst->scale = newscale;
3374 break;
3375 case GRAPHIC:
3376 scgraph = SELTOGRAPHIC(selectobj);
3377 oldsize = scgraph->scale;
3378 scgraph->scale = newscale;
3379 break;
3380 }
3381 register_for_undo(XCF_Rescale, UNDO_MORE, areawin->topinstance,
3382 SELTOGENERIC(selectobj), (double)oldsize);
3383 }
3384 calcbbox(areawin->topinstance);
3385 }
3386
3387 /*-------------------------------------------------*/
3388 /* Edit an element in an element-dependent fashion */
3389 /*-------------------------------------------------*/
3390
3391 void edit(int x, int y)
3392 {
3393 short *selectobj;
3394
3395 if (areawin->selects == 0) {
3396 Boolean saveredraw = areawin->redraw_needed;
3397 selectobj = select_element(ALL_TYPES);
3398 areawin->redraw_needed = saveredraw;
3399 }
3400 else
3401 selectobj = areawin->selectlist;
3402 if (areawin->selects == 0)
3403 return;
3404 else if (areawin->selects != 1) { /* Multiple object edit */
3405 int selnum;
3406 short *selectlist, selrefno;
3407 Boolean save_redraw = areawin->redraw_needed;
3408
3409 /* Find the closest part to use as a reference */
3410 selnum = areawin->selects;
3411 selectlist = areawin->selectlist;
3412 areawin->selects = 0;
3413 areawin->selectlist = NULL;
3414 selectobj = select_element(ALL_TYPES);
3415 if (selectobj != NULL)
3416 selrefno = *selectobj;
3417 else
3418 selrefno = -1;
3419 freeselects();
3420 areawin->selects = selnum;
3421 areawin->selectlist = selectlist;
3422 areawin->redraw_needed = save_redraw;
3423 for (selectobj = areawin->selectlist; selectobj < areawin->selectlist
3424 + areawin->selects; selectobj++) {
3425 if (*selectobj == selrefno) break;
3426 }
3427 if (selectobj == areawin->selectlist + areawin->selects) {
3428 Wprintf("Put cursor close to the reference element.");
3429 return;
3430 }
3431
3432 /* Shuffle the reference element to the beginning of the select list */
3433 *selectobj = *(areawin->selectlist);
3434 *(areawin->selectlist) = selrefno;
3435 selectobj = areawin->selectlist;
3436 }
3437
3438 switch(SELECTTYPE(selectobj)) {
3439 case LABEL: {
3440 labelptr *lastlabel = (labelptr *)EDITPART;
3441 short curfont;
3442 XPoint tmppt;
3443 TextExtents tmpext;
3444
3445 /* save the old string, including parameters */
3446 register_for_undo(XCF_Edit, UNDO_MORE, areawin->topinstance,
3447 *lastlabel);
3448
3449 /* fill any NULL instance parameters with the default value */
3450 copyparams(areawin->topinstance, areawin->topinstance);
3451
3452 /* place text cursor line at point nearest the cursor */
3453 /* unless textend is set. . . */
3454
3455 if (areawin->textend == 0) {
3456 TextLinesInfo tlinfo;
3457 tlinfo.dostop = 0;
3458 tlinfo.tbreak = NULL;
3459 tlinfo.padding = NULL;
3460
3461 window_to_user(x, y, &areawin->save);
3462 InvTransformPoints(&areawin->save, &tmppt, 1, (*lastlabel)->position,
3463 (*lastlabel)->scale, (*lastlabel)->rotation);
3464 tmpext = ULength(*lastlabel, areawin->topinstance, &tlinfo);
3465 tmppt.x += ((*lastlabel)->anchor & NOTLEFT ?
3466 ((*lastlabel)->anchor & RIGHT ? tmpext.maxwidth
3467 : tmpext.maxwidth >> 1) : 0);
3468 tmppt.y += ((*lastlabel)->anchor & NOTBOTTOM ?
3469 ((*lastlabel)->anchor & TOP ? tmpext.ascent :
3470 (tmpext.ascent + tmpext.base) >> 1) : tmpext.base);
3471 if ((*lastlabel)->pin)
3472 pinadjust((*lastlabel)->anchor, &tmppt.x, NULL, -1);
3473
3474 /* Where tbreak is passed to ULength, the character position */
3475 /* is returned in the TextLinesInfo dostop field. */
3476 tlinfo.tbreak = &tmppt;
3477 tmpext = ULength(*lastlabel, areawin->topinstance, &tlinfo);
3478 areawin->textpos = tlinfo.dostop;
3479
3480 if (tlinfo.padding != NULL) free(tlinfo.padding);
3481 }
3482
3483 /* find current font */
3484
3485 curfont = findcurfont(areawin->textpos, (*lastlabel)->string,
3486 areawin->topinstance);
3487
3488 /* change menu buttons accordingly */
3489
3490 setfontmarks(curfont, (*lastlabel)->anchor);
3491
3492 if (eventmode == CATALOG_MODE) {
3493 /* CATTEXT_MODE may show an otherwise hidden library namespace */
3494 undrawtext(*lastlabel);
3495 eventmode = CATTEXT_MODE;
3496 redrawtext(*lastlabel);
3497 areawin->redraw_needed = False; /* ignore prev. redraw requests */
3498 text_mode_draw(xcDRAW_INIT, *lastlabel);
3499 }
3500 else {
3501 eventmode = ETEXT_MODE;
3502 text_mode_draw(xcDRAW_INIT, *lastlabel);
3503 }
3504
3505 XDefineCursor(dpy, areawin->window, TEXTPTR);
3506
3507 /* write the text at the bottom */
3508
3509 charreport(*lastlabel);
3510
3511 } break;
3512
3513 case POLYGON: case ARC: case SPLINE: case PATH:
3514 window_to_user(x, y, &areawin->save);
3515 pathedit(*(EDITPART));
3516 break;
3517
3518 case OBJINST: case GRAPHIC:
3519 if (areawin->selects == 1)
3520 unselect_all();
3521 return;
3522 }
3523 XDefineCursor (dpy, areawin->window, EDCURSOR);
3524 }
3525
3526 /*----------------------------------------------------------------------*/
3527 /* edit() routine for path-type elements (polygons, splines, arcs, and */
3528 /* paths) */
3529 /*----------------------------------------------------------------------*/
3530
3531 void pathedit(genericptr editpart)
3532 {
3533 splineptr lastspline = NULL;
3534 pathptr lastpath;
3535 polyptr lastpoly = NULL;
3536 arcptr lastarc;
3537 XPoint *savept;
3538 short *eselect;
3539 int cycle;
3540 Boolean havecycle;
3541
3542 /* Find and set constrained edit points on all elements. Register */
3543 /* each element with the undo mechanism. */
3544
3545 for (eselect = areawin->selectlist; eselect < areawin->selectlist +
3546 areawin->selects; eselect++) {
3547 switch (SELECTTYPE(eselect)) {
3548 case POLYGON:
3549 findconstrained(SELTOPOLY(eselect));
3550 /* fall through */
3551 default:
3552 register_for_undo(XCF_Edit, UNDO_MORE, areawin->topinstance,
3553 SELTOGENERIC(eselect));
3554 break;
3555 }
3556 }
3557
3558 switch(ELEMENTTYPE(editpart)) {
3559 case PATH: {
3560 genericptr *ggen, *savegen = NULL;
3561 int mincycle, dist, mindist = 1e6;
3562
3563 lastpath = (pathptr)editpart;
3564 havecycle = (checkcycle(editpart, 0) >= 0) ? True : False;
3565
3566 /* determine which point of the path is closest to the cursor */
3567 for (ggen = lastpath->plist; ggen < lastpath->plist + lastpath->parts;
3568 ggen++) {
3569 switch (ELEMENTTYPE(*ggen)) {
3570 case POLYGON:
3571 lastpoly = TOPOLY(ggen);
3572 cycle = closepoint(lastpoly, &areawin->save);
3573 dist = wirelength(lastpoly->points + cycle, &areawin->save);
3574 break;
3575 case SPLINE:
3576 lastspline = TOSPLINE(ggen);
3577 cycle = (wirelength(&lastspline->ctrl[0],
3578 &areawin->save) < wirelength(&lastspline->ctrl[3],
3579 &areawin->save)) ? 0 : 3;
3580 dist = wirelength(&lastspline->ctrl[cycle], &areawin->save);
3581 break;
3582 }
3583 if (dist < mindist) {
3584 mindist = dist;
3585 mincycle = cycle;
3586 savegen = ggen;
3587 }
3588 }
3589 if (savegen == NULL) return; /* something went terribly wrong */
3590 switch (ELEMENTTYPE(*savegen)) {
3591 case POLYGON:
3592 lastpoly = TOPOLY(savegen);
3593 addcycle(savegen, mincycle, 0);
3594 savept = lastpoly->points + mincycle;
3595 makerefcycle(lastpoly->cycle, mincycle);
3596 findconstrained(lastpoly);
3597 break;
3598 case SPLINE:
3599 lastspline = TOSPLINE(savegen);
3600 addcycle(savegen, mincycle, 0);
3601 savept = &lastspline->ctrl[mincycle];
3602 makerefcycle(lastspline->cycle, mincycle);
3603 break;
3604 }
3605 updatepath(lastpath);
3606 if (!havecycle)
3607 register_for_undo(XCF_Edit, UNDO_MORE, areawin->topinstance,
3608 (genericptr)lastpath);
3609 patheditpush(lastpath);
3610 areawin->origin = areawin->save;
3611 checkwarp(savept);
3612
3613 path_mode_draw(xcDRAW_INIT, lastpath);
3614
3615 xcAddEventHandler(areawin->area, PointerMotionMask, False,
3616 (xcEventHandler)trackelement, NULL);
3617 eventmode = EPATH_MODE;
3618 printpos(savept->x, savept->y);
3619
3620 } break;
3621 case POLYGON: {
3622
3623 lastpoly = (polyptr)editpart;
3624
3625 /* Determine which point of polygon is closest to cursor */
3626 cycle = closepoint(lastpoly, &areawin->save);
3627 havecycle = (lastpoly->cycle == NULL) ? False : True;
3628 addcycle(&editpart, cycle, 0);
3629 savept = lastpoly->points + cycle;
3630 makerefcycle(lastpoly->cycle, cycle);
3631 if (!havecycle) {
3632 findconstrained(lastpoly);
3633 register_for_undo(XCF_Edit, UNDO_MORE, areawin->topinstance,
3634 (genericptr)lastpoly);
3635 }
3636
3637 /* Push onto the editstack */
3638 polyeditpush(lastpoly);
3639
3640 /* remember our postion for pointer restore */
3641 areawin->origin = areawin->save;
3642
3643 checkwarp(savept);
3644
3645 poly_mode_draw(xcDRAW_INIT, lastpoly);
3646
3647 xcAddEventHandler(areawin->area, PointerMotionMask, False,
3648 (xcEventHandler)trackelement, NULL);
3649 eventmode = EPOLY_MODE;
3650 printeditbindings();
3651 printpos(savept->x, savept->y);
3652 } break;
3653 case SPLINE: {
3654 XPoint *curpt;
3655
3656 lastspline = (splineptr)editpart;
3657
3658 /* find which point is closest to the cursor */
3659
3660 cycle = (wirelength(&lastspline->ctrl[0],
3661 &areawin->save) < wirelength(&lastspline->ctrl[3],
3662 &areawin->save)) ? 0 : 3;
3663 havecycle = (lastspline->cycle == NULL) ? False : True;
3664 addcycle(&editpart, cycle, 0);
3665 makerefcycle(lastspline->cycle, cycle);
3666 curpt = &lastspline->ctrl[cycle];
3667 if (!havecycle)
3668 register_for_undo(XCF_Edit, UNDO_MORE, areawin->topinstance,
3669 (genericptr)lastspline);
3670
3671 /* Push onto the editstack */
3672 splineeditpush(lastspline);
3673
3674 /* remember our postion for pointer restore */
3675 areawin->origin = areawin->save;
3676
3677 checkwarp(curpt);
3678
3679 spline_mode_draw(xcDRAW_INIT, lastspline);
3680 xcAddEventHandler(areawin->area, PointerMotionMask, False,
3681 (xcEventHandler)trackelement, NULL);
3682 eventmode = ESPLINE_MODE;
3683 } break;
3684 case ARC: {
3685 XPoint curpt;
3686 float tmpratio, tlen;
3687
3688 lastarc = (arcptr)editpart;
3689
3690 /* find a part of the arc close to the pointer */
3691
3692 tlen = (float)wirelength(&areawin->save, &(lastarc->position));
3693 tmpratio = (float)(abs(lastarc->radius)) / tlen;
3694 curpt.x = lastarc->position.x + tmpratio * (areawin->save.x
3695 - lastarc->position.x);
3696 tmpratio = (float)lastarc->yaxis / tlen;
3697 curpt.y = lastarc->position.y + tmpratio * (areawin->save.y
3698 - lastarc->position.y);
3699 addcycle(&editpart, 0, 0);
3700 saveratio = (double)(lastarc->yaxis) / (double)(abs(lastarc->radius));
3701
3702 /* Push onto the editstack */
3703 arceditpush(lastarc);
3704 areawin->origin = areawin->save;
3705
3706 checkwarp(&curpt);
3707
3708 areawin->save.x = curpt.x; /* for redrawing dotted edit line */
3709 areawin->save.y = curpt.y;
3710 arc_mode_draw(xcDRAW_INIT, lastarc);
3711 xcAddEventHandler(areawin->area, PointerMotionMask, False,
3712 (xcEventHandler)trackarc, NULL);
3713 eventmode = EARC_MODE;
3714 printpos(curpt.x, curpt.y);
3715 } break;
3716 }
3717 }
3718
3719 /*------------------------------------------------------*/
3720 /* Raise an element to the top of the list */
3721 /*------------------------------------------------------*/
3722
3723 void xc_top(short *selectno, short *orderlist)
3724 {
3725 short i;
3726 genericptr *raiseobj, *genobj, temp;
3727
3728 raiseobj = topobject->plist + *selectno;
3729 temp = *raiseobj;
3730 i = *selectno;
3731 for (genobj = topobject->plist + *selectno; genobj <
3732 topobject->plist + topobject->parts - 1; genobj++) {
3733 *genobj = *(genobj + 1);
3734 *(orderlist + i) = *(orderlist + i + 1);
3735 i++;
3736 }
3737 *(topobject->plist + topobject->parts - 1) = temp;
3738 *(orderlist + topobject->parts - 1) = *selectno;
3739 *selectno = topobject->parts - 1;
3740 }
3741
3742 /*------------------------------------------------------*/
3743 /* Lower an element to the bottom of the list */
3744 /*------------------------------------------------------*/
3745
3746 void xc_bottom(short *selectno, short *orderlist)
3747 {
3748 short i;
3749 genericptr *lowerobj, *genobj, temp;
3750
3751 lowerobj = topobject->plist + *selectno;
3752 temp = *lowerobj;
3753 i = *selectno;
3754 for (genobj = topobject->plist + *selectno;
3755 genobj > topobject->plist; genobj--) {
3756 *genobj = *(genobj - 1);
3757 *(orderlist + i) = *(orderlist + i - 1);
3758 i--;
3759 }
3760 *genobj = temp;
3761 *orderlist = *selectno;
3762 *selectno = 0;
3763 }
3764
3765 /*--------------------------------------------------------------*/
3766 /* Raise all selected elements by one position in the list */
3767 /*--------------------------------------------------------------*/
3768
3769 void xc_raise()
3770 {
3771 short *sel, topsel, maxsel, *topidx, limit, *orderlist, i;
3772 genericptr *raiseobj, temp;
3773
3774 orderlist = (short *)malloc(topobject->parts * sizeof(short));
3775 for (i = 0; i < topobject->parts; i++) *(orderlist + i) = i;
3776
3777 /* Find topmost element in the select list */
3778 maxsel = -1;
3779 for (sel = areawin->selectlist; sel < areawin->selectlist + areawin->selects;
3780 sel++) {
3781 if (*sel > maxsel) {
3782 maxsel = *sel;
3783 topidx = sel;
3784 }
3785 }
3786 if (maxsel == -1) return; /* Error condition */
3787
3788 topsel = maxsel;
3789 limit = topobject->parts - 1;
3790 while (1) {
3791
3792 /* Exchange the topmost element with the one above it */
3793 if (topsel < limit) {
3794 raiseobj = topobject->plist + topsel;
3795 temp = *raiseobj;
3796 *raiseobj = *(raiseobj + 1);
3797 *(raiseobj + 1) = temp;
3798 (*topidx)++;
3799 i = *(orderlist + topsel);
3800 *(orderlist + topsel) = *(orderlist + topsel + 1);
3801 *(orderlist + topsel + 1) = i;
3802 }
3803 else
3804 limit = topsel - 1;
3805
3806 /* Find next topmost element */
3807 topsel = -1;
3808 for (sel = areawin->selectlist; sel < areawin->selectlist + areawin->selects;
3809 sel++) {
3810 if (*sel < maxsel) {
3811 if (*sel > topsel) {
3812 topsel = *sel;
3813 topidx = sel;
3814 }
3815 }
3816 }
3817 if (topsel == -1) break; /* No more elements to raise */
3818 maxsel = topsel;
3819 }
3820 register_for_undo(XCF_Reorder, UNDO_MORE, areawin->topinstance, orderlist,
3821 topobject->parts);
3822 }
3823
3824 /*--------------------------------------------------------------*/
3825 /* Lower all selected elements by one position in the list */
3826 /*--------------------------------------------------------------*/
3827
3828 void xc_lower()
3829 {
3830 short *sel, botsel, minsel, *botidx, limit, *orderlist, i;
3831 genericptr *lowerobj, temp;
3832
3833 orderlist = (short *)malloc(topobject->parts * sizeof(short));
3834 for (i = 0; i < topobject->parts; i++) *(orderlist + i) = i;
3835
3836 /* Find bottommost element in the select list */
3837 minsel = topobject->parts;
3838 for (sel = areawin->selectlist; sel < areawin->selectlist + areawin->selects;
3839 sel++) {
3840 if (*sel < minsel) {
3841 minsel = *sel;
3842 botidx = sel;
3843 }
3844 }
3845 if (minsel == topobject->parts) return; /* Error condition */
3846
3847 botsel = minsel;
3848 limit = 0;
3849 while (1) {
3850
3851 /* Exchange the topmost element with the one below it */
3852 if (botsel > limit) {
3853 lowerobj = topobject->plist + botsel;
3854 temp = *lowerobj;
3855 *lowerobj = *(lowerobj - 1);
3856 *(lowerobj - 1) = temp;
3857 (*botidx)--;
3858 i = *(orderlist + botsel);
3859 *(orderlist + botsel) = *(orderlist + botsel - 1);
3860 *(orderlist + botsel - 1) = i;
3861 }
3862 else
3863 limit = botsel + 1;
3864
3865 /* Find next topmost element */
3866 botsel = topobject->parts;
3867 for (sel = areawin->selectlist; sel < areawin->selectlist + areawin->selects;
3868 sel++) {
3869 if (*sel > minsel) {
3870 if (*sel < botsel) {
3871 botsel = *sel;
3872 botidx = sel;
3873 }
3874 }
3875 }
3876 if (botsel == topobject->parts) break; /* No more elements to raise */
3877 minsel = botsel;
3878 }
3879 register_for_undo(XCF_Reorder, UNDO_MORE, areawin->topinstance, orderlist,
3880 topobject->parts);
3881 }
3882
3883 /*------------------------------------------------------*/
3884 /* Generate a virtual copy of an object instance in the */
3885 /* user library. This is like the library virtual copy */
3886 /* except that it allows the user to generate a library */
3887 /* copy of an existing instance, without having to make */
3888 /* a copy of the master library instance and edit it. */
3889 /* copyvirtual() also allows the library virtual */
3890 /* instance to take on a specific rotation or flip */
3891 /* value, which cannot be done with the library virtual */
3892 /* copy function. */
3893 /*------------------------------------------------------*/
3894
3895 void copyvirtual()
3896 {
3897 short *selectno, created = 0;
3898 objinstptr vcpobj, libinst;
3899
3900 for (selectno = areawin->selectlist; selectno < areawin->selectlist +
3901 areawin->selects; selectno++) {
3902 if (SELECTTYPE(selectno) == OBJINST) {
3903 vcpobj = SELTOOBJINST(selectno);
3904 libinst = addtoinstlist(USERLIB - LIBRARY, vcpobj->thisobject, TRUE);
3905 instcopy(libinst, vcpobj);
3906 created++;
3907 }
3908 }
3909 if (created == 0) {
3910 Wprintf("No object instances selected for virtual copy!");
3911 }
3912 else {
3913 unselect_all();
3914 composelib(USERLIB);
3915 }
3916 }
3917
3918 /*------------------------------------------------------*/
3919 /* Exchange the list position (drawing order) of two */
3920 /* elements, or move the position of one element to the */
3921 /* top or bottom. */
3922 /*------------------------------------------------------*/
3923
3924 void exchange()
3925 {
3926 short *selectno, *orderlist, i;
3927 genericptr *exchobj, *exchobj2, temp;
3928 Boolean preselected;
3929
3930 preselected = (areawin->selects > 0) ? TRUE : FALSE;
3931 if (!checkselect(ALL_TYPES)) {
3932 Wprintf("Select 1 or 2 objects");
3933 return;
3934 }
3935
3936 selectno = areawin->selectlist;
3937 orderlist = (short *)malloc(topobject->parts * sizeof(short));
3938 for (i = 0; i < topobject->parts; i++) *(orderlist + i) = i;
3939
3940 if (areawin->selects == 1) { /* lower if on top; raise otherwise */
3941 if (*selectno == topobject->parts - 1)
3942 xc_bottom(selectno, orderlist);
3943 else
3944 xc_top(selectno, orderlist);
3945 }
3946 else { /* exchange the two objects */
3947 exchobj = topobject->plist + *selectno;
3948 exchobj2 = topobject->plist + *(selectno + 1);
3949
3950 temp = *exchobj;
3951 *exchobj = *exchobj2;
3952 *exchobj2 = temp;
3953
3954 i = *(orderlist + *selectno);
3955 *(orderlist + *selectno) = *(orderlist + *(selectno + 1));
3956 *(orderlist + *(selectno + 1)) = i;
3957 }
3958 register_for_undo(XCF_Reorder, UNDO_MORE, areawin->topinstance,
3959 orderlist, topobject->parts);
3960
3961 incr_changes(topobject);
3962 if (!preselected)
3963 clearselects();
3964 drawarea(NULL, NULL, NULL);
3965 }
3966
3967 /*--------------------------------------------------------*/
3968 /* Flip an element horizontally (POLYGON, ARC, or SPLINE) */
3969 /*--------------------------------------------------------*/
3970
3971 void elhflip(genericptr *genobj, short x)
3972 {
3973 switch(ELEMENTTYPE(*genobj)) {
3974 case POLYGON:{
3975 polyptr flippoly = TOPOLY(genobj);
3976 pointlist ppoint;
3977 for (ppoint = flippoly->points; ppoint < flippoly->points +
3978 flippoly->number; ppoint++)
3979 ppoint->x = (x << 1) - ppoint->x;
3980 }break;
3981
3982 case ARC:{
3983 arcptr fliparc = TOARC(genobj);
3984 float tmpang = 180 - fliparc->angle1;
3985 fliparc->angle1 = 180 - fliparc->angle2;
3986 fliparc->angle2 = tmpang;
3987 if (fliparc->angle2 < 0) {
3988 fliparc->angle1 += 360;
3989 fliparc->angle2 += 360;
3990 }
3991 fliparc->radius = -fliparc->radius;
3992 fliparc->position.x = (x << 1) - fliparc->position.x;
3993 calcarc(fliparc);
3994 }break;
3995
3996 case SPLINE:{
3997 splineptr flipspline = TOSPLINE(genobj);
3998 int i;
3999 for (i = 0; i < 4; i++)
4000 flipspline->ctrl[i].x = (x << 1) - flipspline->ctrl[i].x;
4001 calcspline(flipspline);
4002 }break;
4003 }
4004 }
4005
4006 /*--------------------------------------------------------*/
4007 /* Flip an element vertically (POLYGON, ARC, or SPLINE) */
4008 /*--------------------------------------------------------*/
4009
4010 void elvflip(genericptr *genobj, short y)
4011 {
4012 switch(ELEMENTTYPE(*genobj)) {
4013
4014 case POLYGON:{
4015 polyptr flippoly = TOPOLY(genobj);
4016 pointlist ppoint;
4017
4018 for (ppoint = flippoly->points; ppoint < flippoly->points +
4019 flippoly->number; ppoint++)
4020 ppoint->y = (y << 1) - ppoint->y;
4021 }break;
4022
4023 case ARC:{
4024 arcptr fliparc = TOARC(genobj);
4025 float tmpang = 360 - fliparc->angle1;
4026 fliparc->angle1 = 360 - fliparc->angle2;
4027 fliparc->angle2 = tmpang;
4028 if (fliparc->angle1 >= 360) {
4029 fliparc->angle1 -= 360;
4030 fliparc->angle2 -= 360;
4031 }
4032 fliparc->radius = -fliparc->radius;
4033 fliparc->position.y = (y << 1) - fliparc->position.y;
4034 calcarc(fliparc);
4035 }break;
4036
4037 case SPLINE:{
4038 splineptr flipspline = TOSPLINE(genobj);
4039 int i;
4040 for (i = 0; i < 4; i++)
4041 flipspline->ctrl[i].y = (y << 1) - flipspline->ctrl[i].y;
4042 calcspline(flipspline);
4043 }break;
4044 }
4045 }
4046
4047 /*------------------------------------------------------*/
4048 /* Horizontally flip an element */
4049 /*------------------------------------------------------*/
4050
4051 void elementflip(XPoint *position)
4052 {
4053 short *selectobj;
4054 Boolean single = False;
4055 Boolean preselected;
4056
4057 preselected = (areawin->selects > 0) ? TRUE : FALSE;
4058 if (!checkselect(ALL_TYPES)) return;
4059 if (areawin->selects == 1) single = True;
4060
4061 if (eventmode != COPY_MODE)
4062 register_for_undo(XCF_Flip_X, UNDO_MORE, areawin->topinstance,
4063 (eventmode == MOVE_MODE) ? &areawin->origin : position);
4064
4065 for (selectobj = areawin->selectlist; selectobj < areawin->selectlist
4066 + areawin->selects; selectobj++) {
4067
4068 /* erase the object */
4069 SetForeground(dpy, areawin->gc, BACKGROUND);
4070 easydraw(*selectobj, DOFORALL);
4071
4072 switch(SELECTTYPE(selectobj)) {
4073 case LABEL:{
4074 labelptr fliplab = SELTOLABEL(selectobj);
4075 if ((fliplab->anchor & (RIGHT | NOTLEFT)) != NOTLEFT)
4076 fliplab->anchor ^= (RIGHT | NOTLEFT);
4077 if (!single)
4078 fliplab->position.x = (position->x << 1) - fliplab->position.x;
4079 }break;
4080 case GRAPHIC:{
4081 graphicptr flipg = SELTOGRAPHIC(selectobj);
4082 flipg->scale = -flipg->scale;
4083 #ifndef HAVE_CAIRO
4084 flipg->valid = FALSE;
4085 #endif /* !HAVE_CAIRO */
4086 if (!single)
4087 flipg->position.x = (position->x << 1) - flipg->position.x;
4088 }break;
4089 case OBJINST:{
4090 objinstptr flipobj = SELTOOBJINST(selectobj);
4091 if (is_library(topobject) >= 0 && !is_virtual(flipobj)) break;
4092 flipobj->scale = -flipobj->scale;
4093 if (!single)
4094 flipobj->position.x = (position->x << 1) - flipobj->position.x;
4095 }break;
4096 case POLYGON: case ARC: case SPLINE:
4097 elhflip(topobject->plist + *selectobj, position->x);
4098 break;
4099 case PATH:{
4100 genericptr *genpart;
4101 pathptr flippath = SELTOPATH(selectobj);
4102
4103 for (genpart = flippath->plist; genpart < flippath->plist
4104 + flippath->parts; genpart++)
4105 elhflip(genpart, position->x);
4106 }break;
4107 }
4108
4109 if (preselected || (eventmode != NORMAL_MODE)) {
4110 SetForeground(dpy, areawin->gc, SELECTCOLOR);
4111 easydraw(*selectobj, DOFORALL);
4112 }
4113 }
4114 select_invalidate_netlist();
4115 if (eventmode == NORMAL_MODE || eventmode == CATALOG_MODE)
4116 if (!preselected)
4117 unselect_all();
4118
4119 if (eventmode == NORMAL_MODE)
4120 incr_changes(topobject);
4121 if (eventmode == CATALOG_MODE) {
4122 int libnum;
4123 if ((libnum = is_library(topobject)) >= 0) {
4124 composelib(libnum + LIBRARY);
4125 drawarea(NULL, NULL, NULL);
4126 }
4127 }
4128 else {
4129 pwriteback(areawin->topinstance);
4130 calcbbox(areawin->topinstance);
4131 }
4132 }
4133
4134 /*----------------------------------------------*/
4135 /* Vertically flip an element */
4136 /*----------------------------------------------*/
4137
4138 void elementvflip(XPoint *position)
4139 {
4140 short *selectobj;
4141 /*short fsign; (jdk) */
4142 Boolean preselected;
4143 Boolean single = False;
4144
4145 preselected = (areawin->selects > 0) ? TRUE : FALSE;
4146 if (!checkselect(ALL_TYPES)) return;
4147 if (areawin->selects == 1) single = True;
4148
4149 if (eventmode != COPY_MODE)
4150 register_for_undo(XCF_Flip_Y, UNDO_MORE, areawin->topinstance,
4151 (eventmode == MOVE_MODE) ? &areawin->origin : position);
4152
4153 for (selectobj = areawin->selectlist; selectobj < areawin->selectlist
4154 + areawin->selects; selectobj++) {
4155
4156 /* erase the object */
4157 SetForeground(dpy, areawin->gc, BACKGROUND);
4158 easydraw(*selectobj, DOFORALL);
4159
4160 switch(SELECTTYPE(selectobj)) {
4161 case(LABEL):{
4162 labelptr fliplab = SELTOLABEL(selectobj);
4163 if ((fliplab->anchor & (TOP | NOTBOTTOM)) != NOTBOTTOM)
4164 fliplab->anchor ^= (TOP | NOTBOTTOM);
4165 if (!single)
4166 fliplab->position.y = (position->y << 1) - fliplab->position.y;
4167 } break;
4168 case(OBJINST):{
4169 objinstptr flipobj = SELTOOBJINST(selectobj);
4170
4171 if (is_library(topobject) >= 0 && !is_virtual(flipobj)) break;
4172 flipobj->scale = -(flipobj->scale);
4173 flipobj->rotation += 180;
4174 while (flipobj->rotation >= 360) flipobj->rotation -= 360;
4175 if (!single)
4176 flipobj->position.y = (position->y << 1) - flipobj->position.y;
4177 }break;
4178 case(GRAPHIC):{
4179 graphicptr flipg = SELTOGRAPHIC(selectobj);
4180
4181 flipg->scale = -(flipg->scale);
4182 flipg->rotation += 180;
4183 while (flipg->rotation >= 360) flipg->rotation -= 360;
4184 if (!single)
4185 flipg->position.y = (position->y << 1) - flipg->position.y;
4186 }break;
4187 case POLYGON: case ARC: case SPLINE:
4188 elvflip(topobject->plist + *selectobj, position->y);
4189 break;
4190 case PATH:{
4191 genericptr *genpart;
4192 pathptr flippath = SELTOPATH(selectobj);
4193
4194 for (genpart = flippath->plist; genpart < flippath->plist
4195 + flippath->parts; genpart++)
4196 elvflip(genpart, position->y);
4197 }break;
4198 }
4199 if (preselected || (eventmode != NORMAL_MODE)) {
4200 SetForeground(dpy, areawin->gc, SELECTCOLOR);
4201 easydraw(*selectobj, DOFORALL);
4202 }
4203 }
4204 select_invalidate_netlist();
4205 if (eventmode == NORMAL_MODE || eventmode == CATALOG_MODE)
4206 if (!preselected)
4207 unselect_all();
4208 if (eventmode == NORMAL_MODE) {
4209 incr_changes(topobject);
4210 }
4211 if (eventmode == CATALOG_MODE) {
4212 int libnum;
4213 if ((libnum = is_library(topobject)) >= 0) {
4214 composelib(libnum + LIBRARY);
4215 drawarea(NULL, NULL, NULL);
4216 }
4217 }
4218 else {
4219 pwriteback(areawin->topinstance);
4220 calcbbox(areawin->topinstance);
4221 }
4222 }
4223
4224 /*----------------------------------------*/
4225 /* ButtonPress handler during delete mode */
4226 /*----------------------------------------*/
4227
4228 void deletebutton(int x, int y)
4229 {
4230 UNUSED(x); UNUSED(y);
4231
4232 if (checkselect(ALL_TYPES)) {
4233 standard_element_delete(ERASE);
4234 calcbbox(areawin->topinstance);
4235 }
4236 setoptionmenu(); /* Return GUI check/radio boxes to default */
4237 }
4238
4239 /*----------------------------------------------------------------------*/
4240 /* Process of element deletion. Remove one element from the indicated */
4241 /* object. */
4242 /*----------------------------------------------------------------------*/
4243
4244 void delete_one_element(objinstptr thisinstance, genericptr thiselement)
4245 {
4246 objectptr thisobject;
4247 genericptr *genobj;
4248 Boolean pinchange = False;
4249
4250 thisobject = thisinstance->thisobject;
4251
4252 /* The netlist contains pointers to elements which no longer */
4253 /* exist on the page, so we should remove them from the netlist. */
4254
4255 if (RemoveFromNetlist(thisobject, thiselement)) pinchange = True;
4256 for (genobj = thisobject->plist; genobj < thisobject->plist
4257 + thisobject->parts; genobj++)
4258 if (*genobj == thiselement)
4259 break;
4260
4261 if (genobj == thisobject->plist + thisobject->parts) return;
4262
4263 for (++genobj; genobj < thisobject->plist + thisobject->parts; genobj++)
4264 *(genobj - 1) = *genobj;
4265 thisobject->parts--;
4266
4267 if (pinchange) setobjecttype(thisobject);
4268 incr_changes(thisobject);
4269 calcbbox(thisinstance);
4270 invalidate_netlist(thisobject);
4271 /* freenetlist(thisobject); */
4272 }
4273
4274 /*----------------------------------------------------------------------*/
4275 /* Process of element deletion. Remove everything in the selection */
4276 /* list from the indicated object, and return a new object containing */
4277 /* only the deleted elements. */
4278 /* */
4279 /* if drawmode is DRAW, we erase the objects as we remove them. */
4280 /* */
4281 /* Note that if "slist" is areawin->selectlist, it is freed by this */
4282 /* routine (calls freeselects()), but not otherwise. */
4283 /*----------------------------------------------------------------------*/
4284
4285 objectptr delete_element(objinstptr thisinstance, short *slist, int selects,
4286 short drawmode)
4287 {
4288 short *selectobj;
4289 objectptr delobj, thisobject;
4290 genericptr *genobj;
4291 Boolean pinchange = False;
4292
4293 if (slist == NULL || selects == 0) return NULL;
4294
4295 thisobject = thisinstance->thisobject;
4296
4297 delobj = (objectptr) malloc(sizeof(object));
4298 initmem(delobj);
4299
4300 if (drawmode) {
4301 SetForeground(dpy, areawin->gc, BACKGROUND);
4302 }
4303
4304 for (selectobj = slist; selectobj < slist + selects; selectobj++) {
4305 genobj = thisobject->plist + *selectobj;
4306 if (drawmode) easydraw(*selectobj, DOFORALL);
4307 PLIST_INCR(delobj);
4308 *(delobj->plist + delobj->parts) = *genobj;
4309 delobj->parts++;
4310
4311 /* The netlist contains pointers to elements which no longer */
4312 /* exist on the page, so we should remove them from the netlist. */
4313
4314 if (RemoveFromNetlist(thisobject, *genobj)) pinchange = True;
4315 for (++genobj; genobj < thisobject->plist + thisobject->parts; genobj++)
4316 *(genobj - 1) = *genobj;
4317 thisobject->parts--;
4318 reviseselect(slist, selects, selectobj);
4319 }
4320 if (pinchange) setobjecttype(thisobject);
4321
4322 if (slist == areawin->selectlist)
4323 freeselects();
4324
4325 calcbbox(thisinstance);
4326 /* freenetlist(thisobject); */
4327
4328 if (drawmode) {
4329 SetForeground(dpy, areawin->gc, FOREGROUND);
4330 drawarea(NULL, NULL, NULL);
4331 }
4332 return delobj;
4333 }
4334
4335 /*----------------------------------------------------------------------*/
4336 /* Wrapper for delete_element(). Remember this deletion for the undo */
4337 /* function. */
4338 /*----------------------------------------------------------------------*/
4339
4340 void standard_element_delete(short drawmode)
4341 {
4342 objectptr delobj;
4343
4344 /* register_for_undo(XCF_Select, UNDO_MORE, areawin->topinstance, */
4345 /* areawin->selectlist, areawin->selects); */
4346 select_invalidate_netlist();
4347 delobj = delete_element(areawin->topinstance, areawin->selectlist,
4348 areawin->selects, drawmode);
4349 register_for_undo(XCF_Delete, UNDO_DONE, areawin->topinstance,
4350 delobj, (int)drawmode);
4351 incr_changes(topobject); /* Treat as one change */
4352 }
4353
4354 /*----------------------------------------------------------------------*/
4355 /* Another wrapper for delete_element(), in which we do not save the */
4356 /* deletion as an undo event. However, the returned object is saved */
4357 /* on areawin->editstack, so that the objects can be grabbed. This */
4358 /* allows objects to be carried across pages and through the hierarchy. */
4359 /*----------------------------------------------------------------------*/
4360
4361 void delete_for_xfer(short drawmode, short *slist, int selects)
4362 {
4363 if (selects > 0) {
4364 reset(areawin->editstack, DESTROY);
4365 areawin->editstack = delete_element(areawin->topinstance,
4366 slist, selects, drawmode);
4367 }
4368 }
4369
4370 /*----------------------------------------------------------------------*/
4371 /* Yet another wrapper for delete_element(), in which we destroy the */
4372 /* object returned and free all associated memory. */
4373 /*----------------------------------------------------------------------*/
4374
4375 void delete_noundo(short drawmode)
4376 {
4377 objectptr delobj;
4378
4379 select_invalidate_netlist();
4380 delobj = delete_element(areawin->topinstance, areawin->selectlist,
4381 areawin->selects, drawmode);
4382
4383 if (delobj != NULL) reset(delobj, DESTROY);
4384 }
4385
4386 /*----------------------------------------------------------------------*/
4387 /* Undelete last deleted elements and return a selectlist of the */
4388 /* elements. If "olist" is non-NULL, then the undeleted elements are */
4389 /* placed into the object of thisinstance in the order given by olist, */
4390 /* and a copy of olist is returned. If "olist" is NULL, then the */
4391 /* undeleted elements are placed at the end of thisinstance->thisobject */
4392 /* ->plist, and a new selection list is returned. If "olist" is non- */
4393 /* NULL, then the size of olist had better match the number of objects */
4394 /* in delobj! It is up to the calling routine to check this. */
4395 /*----------------------------------------------------------------------*/
4396
4397 short *xc_undelete(objinstptr thisinstance, objectptr delobj, short mode,
4398 short *olist)
4399 {
4400 objectptr thisobject;
4401 genericptr *regen;
4402 short *slist, count, i; /* position; (jdk) */
4403
4404 thisobject = thisinstance->thisobject;
4405 slist = (short *)malloc(delobj->parts * sizeof(short));
4406 count = 0;
4407
4408 for (regen = delobj->plist; regen < delobj->plist + delobj->parts; regen++) {
4409 PLIST_INCR(thisobject);
4410 if (olist == NULL) {
4411 *(slist + count) = thisobject->parts;
4412 *(topobject->plist + topobject->parts) = *regen;
4413 }
4414 else {
4415 *(slist + count) = *(olist + count);
4416 for (i = thisobject->parts; i > *(olist + count); i--)
4417 *(thisobject->plist + i) = *(thisobject->plist + i - 1);
4418 *(thisobject->plist + i) = *regen;
4419 }
4420 thisobject->parts++;
4421 if (mode) {
4422 XTopSetForeground((*regen)->color);
4423 easydraw(*(slist + count), DEFAULTCOLOR);
4424 }
4425 count++;
4426
4427 /* If the element has passed parameters (eparam), then we have to */
4428 /* check if the key exists in the new parent object. If not, */
4429 /* delete the parameter. */
4430
4431 if ((*regen)->passed) {
4432 eparamptr nextepp, epp = (*regen)->passed;
4433 while (epp != NULL) {
4434 nextepp = epp->next;
4435 if (!match_param(thisobject, epp->key)) {
4436 if (epp == (*regen)->passed) (*regen)->passed = nextepp;
4437 free_element_param(*regen, epp);
4438 }
4439 epp = nextepp;
4440 }
4441 }
4442
4443 /* Likewise, string parameters must be checked in labels because */
4444 /* they act like element parameters. */
4445
4446 if (IS_LABEL(*regen)) {
4447 labelptr glab = TOLABEL(regen);
4448 stringpart *gstr, *lastpart = NULL;
4449 for (gstr = glab->string; gstr != NULL; gstr = lastpart->nextpart) {
4450 if (gstr->type == PARAM_START) {
4451 if (!match_param(thisobject, gstr->data.string)) {
4452 free(gstr->data.string);
4453 if (lastpart)
4454 lastpart->nextpart = gstr->nextpart;
4455 else
4456 glab->string = gstr->nextpart;
4457 free(gstr);
4458 gstr = (lastpart) ? lastpart : glab->string;
4459 }
4460 }
4461 lastpart = gstr;
4462 }
4463 }
4464 }
4465 incr_changes(thisobject); /* treat as one change */
4466 calcbbox(thisinstance);
4467
4468 /* flush the delete buffer but don't delete the elements */
4469 reset(delobj, SAVE);
4470
4471 if (delobj != areawin->editstack) free(delobj);
4472
4473 return slist;
4474 }
4475
4476 /*----------------------------*/
4477 /* select save object handler */
4478 /*----------------------------*/
4479
4480 void printname(objectptr curobject)
4481 {
4482 char editstr[10], pagestr[10];
4483 short ispage;
4484
4485 #ifndef TCL_WRAPPER
4486 Arg wargs[1];
4487 Dimension swidth, swidth2, sarea;
4488 char tmpname[256];
4489 char *sptr = tmpname;
4490 #endif
4491
4492 /* print full string to make message widget proper size */
4493
4494 strcpy(editstr, ((ispage = is_page(curobject)) >= 0) ? "Editing: " : "");
4495 strcpy(editstr, (is_library(curobject) >= 0) ? "Library: " : "");
4496 if (strstr(curobject->name, "Page") == NULL && (ispage >= 0))
4497 sprintf(pagestr, " (p. %d)", areawin->page + 1);
4498 else
4499 pagestr[0] = '\0';
4500 W2printf("%s%s%s", editstr, curobject->name, pagestr);
4501
4502 /* Tcl doesn't update width changes immediately. . . what to do? */
4503 /* (i.e., Tk_Width(message2) gives the original width) */
4504 #ifndef TCL_WRAPPER
4505
4506 XtSetArg(wargs[0], XtNwidth, &sarea);
4507 XtGetValues(message2, wargs, 1);
4508
4509 /* in the remote case that the string is longer than message widget, */
4510 /* truncate the string and denote the truncation with an ellipsis (...) */
4511
4512 strcpy(tmpname, curobject->name);
4513 swidth2 = XTextWidth(appdata.xcfont, editstr, strlen(editstr));
4514 swidth = XTextWidth(appdata.xcfont, tmpname, strlen(tmpname));
4515
4516 if ((swidth + swidth2) > sarea) {
4517 char *ip;
4518 while ((swidth + swidth2) > sarea) {
4519 sptr++;
4520 swidth = XTextWidth(appdata.xcfont, sptr, strlen(sptr));
4521 }
4522 for(ip = sptr; ip < sptr + 3 && *ip != '\0'; ip++) *ip = '.';
4523
4524 W2printf("Editing: %s", sptr);
4525 }
4526 #endif
4527 }
4528
4529 /*--------------------------------------------------------------*/
4530 /* Make sure that a string does not conflict with postscript */
4531 /* names (commands and definitions found in xcircps2.pro). */
4532 /* */
4533 /* Return value is NULL if no change was made. Otherwise, the */
4534 /* return value is an allocated string. */
4535 /*--------------------------------------------------------------*/
4536
4537 char *checkvalidname(char *teststring, objectptr newobj)
4538 {
4539 int i, j;
4540 short dupl; /* flag a duplicate string */
4541 objectptr *libobj;
4542 char *sptr, *pptr, *cptr;
4543 aliasptr aref;
4544 slistptr sref;
4545
4546 /* Try not to allocate memory unless necessary */
4547
4548 sptr = teststring;
4549 pptr = sptr;
4550
4551 do {
4552 dupl = 0;
4553 if (newobj != NULL) {
4554 for (i = 0; i < xobjs.numlibs; i++) {
4555 for (j = 0; j < xobjs.userlibs[i].number; j++) {
4556 libobj = xobjs.userlibs[i].library + j;
4557
4558 if (*libobj == newobj) continue;
4559 if (!strcmp(pptr, (*libobj)->name)) {
4560
4561 /* Prepend an underscore to the object name. If the */
4562 /* object has no technology, create a null technology */
4563 /* name. Otherwise, the technology remains the same */
4564 /* but the object name gets the prepended underscore. */
4565
4566 if ((cptr = strstr(pptr, "::")) == NULL) {
4567 pptr = (char *)malloc(strlen((*libobj)->name) + 4);
4568 sprintf(pptr, "::_%s", (*libobj)->name);
4569 }
4570 else {
4571 int offset = cptr - pptr + 2;
4572 if (pptr == sptr)
4573 pptr = (char *)malloc(strlen((*libobj)->name) + 2);
4574 else
4575 pptr = (char *)realloc(pptr, strlen((*libobj)->name) + 2);
4576 sprintf(pptr, "%s", (*libobj)->name);
4577 sprintf(pptr + offset, "_%s", (*libobj)->name + offset);
4578 }
4579 dupl = 1;
4580 }
4581 }
4582 }
4583
4584 /* If we're in the middle of a file load, the name cannot be */
4585 /* the same as an alias, either. */
4586
4587 if (aliastop != NULL) {
4588 for (aref = aliastop; aref != NULL; aref = aref->next) {
4589 for (sref = aref->aliases; sref != NULL; sref = sref->next) {
4590 if (!strcmp(pptr, sref->alias)) {
4591 if (pptr == sptr)
4592 pptr = (char *)malloc(strlen(sref->alias) + 2);
4593 else
4594 pptr = (char *)realloc(pptr, strlen(sref->alias) + 2);
4595 sprintf(pptr, "_%s", sref->alias);
4596 dupl = 1;
4597 }
4598 }
4599 }
4600 }
4601 }
4602
4603 } while (dupl == 1);
4604
4605 return (pptr == sptr) ? NULL : pptr;
4606 }
4607
4608 /*--------------------------------------------------------------*/
4609 /* Make sure that name for new object does not conflict with */
4610 /* existing object definitions */
4611 /* */
4612 /* Return: True if name required change, False otherwise */
4613 /*--------------------------------------------------------------*/
4614
4615 Boolean checkname(objectptr newobj)
4616 {
4617 char *pptr;
4618
4619 /* Check for empty string */
4620 if (strlen(newobj->name) == 0) {
4621 Wprintf("Blank object name changed to default");
4622 sprintf(newobj->name, "user_object");
4623 }
4624
4625 pptr = checkvalidname(newobj->name, newobj);
4626
4627 /* Change name if necessary to avoid naming conflicts */
4628 if (pptr == NULL) {
4629 Wprintf("Created new object %s", newobj->name);
4630 return False;
4631 }
4632 else {
4633 Wprintf("Changed name from %s to %s to avoid conflict with "
4634 "existing object", newobj->name, pptr);
4635
4636 strncpy(newobj->name, pptr, 79);
4637 free(pptr);
4638 }
4639 return True;
4640 }
4641
4642 /*------------------------------------------------------------*/
4643 /* Find the object "dot" in the builtin library, if it exists */
4644 /*------------------------------------------------------------*/
4645
4646 objectptr finddot()
4647 {
4648 objectptr dotobj;
4649 short i, j;
4650 char *name, *pptr;
4651
4652 for (i = 0; i < xobjs.numlibs; i++) {
4653 for (j = 0; j < xobjs.userlibs[i].number; j++) {
4654 dotobj = *(xobjs.userlibs[i].library + j);
4655 name = dotobj->name;
4656 if ((pptr = strstr(name, "::")) != NULL) name = pptr + 2;
4657 if (!strcmp(name, "dot")) {
4658 return dotobj;
4659 }
4660 }
4661 }
4662 return (objectptr)NULL;
4663 }
4664
4665 /*--------------------------------------*/
4666 /* Add value origin to all points */
4667 /*--------------------------------------*/
4668
4669 void movepoints(genericptr *ssgen, short deltax, short deltay)
4670 {
4671 switch(ELEMENTTYPE(*ssgen)) {
4672 case ARC:{
4673 fpointlist sspoints;
4674 TOARC(ssgen)->position.x += deltax;
4675 TOARC(ssgen)->position.y += deltay;
4676 for (sspoints = TOARC(ssgen)->points; sspoints < TOARC(ssgen)->points +
4677 TOARC(ssgen)->number; sspoints++) {
4678 sspoints->x += deltax;
4679 sspoints->y += deltay;
4680 }
4681 }break;
4682
4683 case POLYGON:{
4684 pointlist sspoints;
4685 for (sspoints = TOPOLY(ssgen)->points; sspoints < TOPOLY(ssgen)->points +
4686 TOPOLY(ssgen)->number; sspoints++) {
4687 sspoints->x += deltax;
4688 sspoints->y += deltay;
4689 }
4690 }break;
4691
4692 case SPLINE:{
4693 fpointlist sspoints;
4694 short j;
4695 for (sspoints = TOSPLINE(ssgen)->points; sspoints <
4696 TOSPLINE(ssgen)->points + INTSEGS; sspoints++) {
4697 sspoints->x += deltax;
4698 sspoints->y += deltay;
4699 }
4700 for (j = 0; j < 4; j++) {
4701 TOSPLINE(ssgen)->ctrl[j].x += deltax;
4702 TOSPLINE(ssgen)->ctrl[j].y += deltay;
4703 }
4704 }break;
4705 case OBJINST:
4706 TOOBJINST(ssgen)->position.x += deltax;
4707 TOOBJINST(ssgen)->position.y += deltay;
4708 break;
4709 case GRAPHIC:
4710 TOGRAPHIC(ssgen)->position.x += deltax;
4711 TOGRAPHIC(ssgen)->position.y += deltay;
4712 break;
4713 case LABEL:
4714 TOLABEL(ssgen)->position.x += deltax;
4715 TOLABEL(ssgen)->position.y += deltay;
4716 break;
4717 }
4718 }
4719
4720 /*----------------------------------------------------------------------*/
4721 /* Add value origin to all edited points, according to edit flags */
4722 /*----------------------------------------------------------------------*/
4723
4724 void editpoints(genericptr *ssgen, short deltax, short deltay)
4725 {
4726 pathptr editpath;
4727 polyptr editpoly;
4728 splineptr editspline;
4729 short cycle, cpoint;
4730 pointselect *cptr;
4731 XPoint *curpt;
4732 genericptr *ggen;
4733
4734 switch(ELEMENTTYPE(*ssgen)) {
4735 case POLYGON:
4736 editpoly = TOPOLY(ssgen);
4737 if (editpoly->cycle == NULL)
4738 movepoints(ssgen, deltax, deltay);
4739 else {
4740 for (cptr = editpoly->cycle;; cptr++) {
4741 cycle = cptr->number;
4742 curpt = editpoly->points + cycle;
4743 if (cptr->flags & EDITX) curpt->x += deltax;
4744 if (cptr->flags & EDITY) curpt->y += deltay;
4745 if (cptr->flags & LASTENTRY) break;
4746 }
4747 }
4748 exprsub(*ssgen);
4749 break;
4750
4751 case SPLINE:
4752 editspline = TOSPLINE(ssgen);
4753 if (editspline->cycle == NULL)
4754 movepoints(ssgen, deltax, deltay);
4755 else {
4756 for (cptr = editspline->cycle;; cptr++) {
4757 cycle = cptr->number;
4758 if (cycle == 0 || cycle == 3) {
4759 cpoint = (cycle == 0) ? 1 : 2;
4760 if (cptr->flags & EDITX) editspline->ctrl[cpoint].x += deltax;
4761 if (cptr->flags & EDITY) editspline->ctrl[cpoint].y += deltay;
4762 }
4763 if (cptr->flags & EDITX) editspline->ctrl[cycle].x += deltax;
4764 if (cptr->flags & EDITY) editspline->ctrl[cycle].y += deltay;
4765 if (cptr->flags & ANTIXY) {
4766 editspline->ctrl[cycle].x -= deltax;
4767 editspline->ctrl[cycle].y -= deltay;
4768 }
4769 if (cptr->flags & LASTENTRY) break;
4770 }
4771 }
4772 exprsub(*ssgen);
4773 calcspline(editspline);
4774 break;
4775
4776 case PATH:
4777 editpath = TOPATH(ssgen);
4778 if (checkcycle(*ssgen, 0) < 0) {
4779 for (ggen = editpath->plist; ggen < editpath->plist + editpath->parts;
4780 ggen++)
4781 movepoints(ggen, deltax, deltay);
4782 }
4783 else {
4784 for (ggen = editpath->plist; ggen < editpath->plist + editpath->parts;
4785 ggen++) {
4786 if (checkcycle(*ggen, 0) >= 0)
4787 editpoints(ggen, deltax, deltay);
4788 }
4789 }
4790 break;
4791
4792 default:
4793 movepoints(ssgen, deltax, deltay);
4794 exprsub(*ssgen);
4795 break;
4796 }
4797 }
4798
4799 #ifndef TCL_WRAPPER
4800
4801 void xlib_makeobject(xcWidget w, caddr_t nulldata)
4802 {
4803 UNUSED(w); UNUSED(nulldata);
4804
4805 domakeobject(-1, (char *)_STR2, FALSE);
4806 }
4807
4808 #endif /* !TCL_WRAPPER */
4809
4810 /*--------------------------------------------------------------*/
4811 /* Set the name for a new user-defined object and make the */
4812 /* object. If "forceempty" is true, we allow creation of a new */
4813 /* object with no elements (normally would be used only from a */
4814 /* script, where an object is being constructed automatically). */
4815 /*--------------------------------------------------------------*/
4816
4817 objinstptr domakeobject(int libnum, char *name, Boolean forceempty)
4818 {
4819 objectptr *newobj;
4820 objinstptr *newinst;
4821 genericptr *ssgen;
4822 oparamptr ops, newop;
4823 eparamptr epp, newepp;
4824 stringpart *sptr;
4825 XPoint origin;
4826 short loclibnum = libnum;
4827
4828 if (libnum == -1) loclibnum = USERLIB - LIBRARY;
4829
4830 /* make room for new entry in library list */
4831
4832 xobjs.userlibs[loclibnum].library = (objectptr *)
4833 realloc(xobjs.userlibs[loclibnum].library,
4834 (xobjs.userlibs[loclibnum].number + 1) * sizeof(objectptr));
4835
4836 newobj = xobjs.userlibs[loclibnum].library + xobjs.userlibs[loclibnum].number;
4837
4838 *newobj = delete_element(areawin->topinstance, areawin->selectlist,
4839 areawin->selects, NORMAL);
4840
4841 if (*newobj == NULL) {
4842 objectptr initobj;
4843
4844 if (!forceempty) return NULL;
4845
4846 /* Create a new (empty) object */
4847
4848 initobj = (objectptr) malloc(sizeof(object));
4849 initmem(initobj);
4850 *newobj = initobj;
4851 }
4852
4853 invalidate_netlist(topobject);
4854 xobjs.userlibs[loclibnum].number++;
4855
4856 /* Create the instance of this object so we can compute a bounding box */
4857
4858 NEW_OBJINST(newinst, topobject);
4859 instancedefaults(*newinst, *newobj, 0, 0);
4860 calcbbox(*newinst);
4861
4862 /* find closest snap point to bbox center and make this the obj. center */
4863
4864 if (areawin->center) {
4865 origin.x = (*newobj)->bbox.lowerleft.x + (*newobj)->bbox.width / 2;
4866 origin.y = (*newobj)->bbox.lowerleft.y + (*newobj)->bbox.height / 2;
4867 }
4868 else {
4869 origin.x = origin.y = 0;
4870 }
4871 u2u_snap(&origin);
4872 instancedefaults(*newinst, *newobj, origin.x, origin.y);
4873
4874 for (ssgen = (*newobj)->plist; ssgen < (*newobj)->plist + (*newobj)->parts;
4875 ssgen++) {
4876 switch(ELEMENTTYPE(*ssgen)) {
4877
4878 case(OBJINST):
4879 TOOBJINST(ssgen)->position.x -= origin.x;
4880 TOOBJINST(ssgen)->position.y -= origin.y;
4881 break;
4882
4883 case(GRAPHIC):
4884 TOGRAPHIC(ssgen)->position.x -= origin.x;
4885 TOGRAPHIC(ssgen)->position.y -= origin.y;
4886 break;
4887
4888 case(LABEL):
4889 TOLABEL(ssgen)->position.x -= origin.x;
4890 TOLABEL(ssgen)->position.y -= origin.y;
4891 break;
4892
4893 case(PATH):{
4894 genericptr *pathlist;
4895 for (pathlist = TOPATH(ssgen)->plist; pathlist < TOPATH(ssgen)->plist
4896 + TOPATH(ssgen)->parts; pathlist++) {
4897 movepoints(pathlist, -origin.x, -origin.y);
4898 }
4899 }break;
4900
4901 default:
4902 movepoints(ssgen, -origin.x, -origin.y);
4903 break;
4904 }
4905 }
4906
4907 for (ssgen = (*newobj)->plist; ssgen < (*newobj)->plist + (*newobj)->parts;
4908 ssgen++) {
4909 for (epp = (*ssgen)->passed; epp != NULL; epp = epp->next) {
4910 ops = match_param(topobject, epp->key);
4911 newop = copyparameter(ops);
4912 newop->next = (*newobj)->params;
4913 (*newobj)->params = newop;
4914
4915 /* Generate an indirect parameter reference from child to parent */
4916 newepp = make_new_eparam(epp->key);
4917 newepp->flags |= P_INDIRECT;
4918 newepp->pdata.refkey = strdup(epp->key);
4919 newepp->next = (*newinst)->passed;
4920 (*newinst)->passed = newepp;
4921 }
4922 if (IS_LABEL(*ssgen)) {
4923 /* Also need to check for substring parameters in labels */
4924 for (sptr = TOLABEL(ssgen)->string; sptr != NULL; sptr = sptr->nextpart) {
4925 if (sptr->type == PARAM_START) {
4926 ops = match_param(topobject, sptr->data.string);
4927 if (ops) {
4928 newop = copyparameter(ops);
4929 newop->next = (*newobj)->params;
4930 (*newobj)->params = newop;
4931 }
4932
4933 /* Generate an indirect parameter reference from child to parent */
4934 newepp = make_new_eparam(sptr->data.string);
4935 newepp->flags |= P_INDIRECT;
4936 newepp->pdata.refkey = strdup(sptr->data.string);
4937 newepp->next = (*newinst)->passed;
4938 (*newinst)->passed = newepp;
4939 }
4940 }
4941 }
4942 }
4943
4944 /* any parameters in the top-level object that used by the selected */
4945 /* elements must be copied into the new object. */
4946
4947 /* put new object back into place */
4948
4949 (*newobj)->hidden = False;
4950 (*newobj)->schemtype = SYMBOL;
4951
4952 calcbbox(*newinst);
4953 incr_changes(*newobj);
4954
4955 /* (netlist invalidation was taken care of by delete_element() */
4956 /* Also, incr_changes(topobject) was done by delete_element()) */
4957
4958 XTopSetForeground((*newinst)->color);
4959 UDrawObject(*newinst, SINGLE, (*newinst)->color,
4960 xobjs.pagelist[areawin->page]->wirewidth, NULL);
4961
4962
4963 /* Copy name into object and check for conflicts */
4964
4965 strcpy((*newobj)->name, name);
4966 checkname(*newobj);
4967
4968 /* register the technology and mark the technology as not saved */
4969 AddObjectTechnology(*newobj);
4970
4971 /* generate library instance for this object (bounding box */
4972 /* should be default, so don't do calcbbox() on it) */
4973
4974 addtoinstlist(loclibnum, *newobj, FALSE);
4975
4976 /* recompile the user catalog and reset view bounds */
4977
4978 composelib(loclibnum + LIBRARY);
4979 centerview(xobjs.libtop[loclibnum + LIBRARY]);
4980
4981 return *newinst;
4982 }
4983
4984 #ifndef TCL_WRAPPER
4985
4986 /*-------------------------------------------*/
4987 /* Make a user object from selected elements */
4988 /*-------------------------------------------*/
4989
4990 void selectsave(xcWidget w, caddr_t clientdata, caddr_t calldata)
4991 {
4992 buttonsave *popdata = (buttonsave *)malloc(sizeof(buttonsave));
4993 UNUSED(clientdata); UNUSED(calldata);
4994
4995 if (areawin->selects == 0) return; /* nothing was selected */
4996
4997 /* Get a name for the new object */
4998
4999 eventmode = NORMAL_MODE;
5000 popdata->dataptr = NULL;
5001 popdata->button = NULL; /* indicates that no button is assc'd w/ the popup */
5002 popupprompt(w, "Enter name for new object:", "\0", xlib_makeobject, popdata, NULL);
5003 }
5004
5005 #endif
5006
5007 /*-----------------------------*/
5008 /* Edit-stack support routines */
5009 /*-----------------------------*/
5010
5011 void arceditpush(arcptr lastarc)
5012 {
5013 arcptr *newarc;
5014
5015 NEW_ARC(newarc, areawin->editstack);
5016 arccopy(*newarc, lastarc);
5017 copycycles(&((*newarc)->cycle), &(lastarc->cycle));
5018 }
5019
5020 /*--------------------------------------*/
5021
5022 void splineeditpush(splineptr lastspline)
5023 {
5024 splineptr *newspline;
5025
5026 NEW_SPLINE(newspline, areawin->editstack);
5027 splinecopy(*newspline, lastspline);
5028 }
5029
5030 /*--------------------------------------*/
5031
5032 void polyeditpush(polyptr lastpoly)
5033 {
5034 polyptr *newpoly;
5035
5036 NEW_POLY(newpoly, areawin->editstack);
5037 polycopy(*newpoly, lastpoly);
5038 }
5039
5040 /*--------------------------------------*/
5041
5042 void patheditpush(pathptr lastpath)
5043 {
5044 pathptr *newpath;
5045
5046 NEW_PATH(newpath, areawin->editstack);
5047 pathcopy(*newpath, lastpath);
5048 }
5049
5050 /*-----------------------------*/
5051 /* Copying support routines */
5052 /*-----------------------------*/
5053
5054 pointlist copypoints(pointlist points, int number)
5055 {
5056 pointlist rpoints, cpoints, newpoints;
5057
5058 rpoints = (pointlist) malloc(number * sizeof(XPoint));
5059 for (newpoints = rpoints, cpoints = points;
5060 newpoints < rpoints + number;
5061 newpoints++, cpoints++) {
5062 newpoints->x = cpoints->x;
5063 newpoints->y = cpoints->y;
5064 }
5065 return rpoints;
5066 }
5067
5068 /*------------------------------------------*/
5069
5070 void graphiccopy(graphicptr newg, graphicptr copyg)
5071 {
5072 Imagedata *iptr;
5073 int i;
5074
5075 newg->source = copyg->source;
5076 newg->position.x = copyg->position.x;
5077 newg->position.y = copyg->position.y;
5078 newg->rotation = copyg->rotation;
5079 newg->scale = copyg->scale;
5080 newg->color = copyg->color;
5081 newg->passed = NULL;
5082 copyalleparams((genericptr)newg, (genericptr)copyg);
5083 #ifndef HAVE_CAIRO
5084 newg->valid = FALSE;
5085 newg->target = NULL;
5086 newg->clipmask = (Pixmap)NULL;
5087 #endif /* HAVE_CAIRO */
5088
5089 /* Update the refcount of the source image */
5090 for (i = 0; i < xobjs.images; i++) {
5091 iptr = xobjs.imagelist + i;
5092 if (iptr->image == newg->source) {
5093 iptr->refcount++;
5094 break;
5095 }
5096 }
5097 }
5098
5099 /*------------------------------------------*/
5100
5101 void labelcopy(labelptr newtext, labelptr copytext)
5102 {
5103 newtext->string = stringcopy(copytext->string);
5104 newtext->position.x = copytext->position.x;
5105 newtext->position.y = copytext->position.y;
5106 newtext->rotation = copytext->rotation;
5107 newtext->scale = copytext->scale;
5108 newtext->anchor = copytext->anchor;
5109 newtext->color = copytext->color;
5110 newtext->passed = NULL;
5111 newtext->cycle = NULL;
5112 copyalleparams((genericptr)newtext, (genericptr)copytext);
5113 newtext->pin = copytext->pin;
5114 }
5115
5116 /*------------------------------------------*/
5117
5118 void arccopy(arcptr newarc, arcptr copyarc)
5119 {
5120 newarc->style = copyarc->style;
5121 newarc->color = copyarc->color;
5122 newarc->position.x = copyarc->position.x;
5123 newarc->position.y = copyarc->position.y;
5124 newarc->radius = copyarc->radius;
5125 newarc->yaxis = copyarc->yaxis;
5126 newarc->angle1 = copyarc->angle1;
5127 newarc->angle2 = copyarc->angle2;
5128 newarc->width = copyarc->width;
5129 newarc->passed = NULL;
5130 newarc->cycle = NULL;
5131 copyalleparams((genericptr)newarc, (genericptr)copyarc);
5132 calcarc(newarc);
5133 }
5134
5135 /*------------------------------------------*/
5136
5137 void polycopy(polyptr newpoly, polyptr copypoly)
5138 {
5139 newpoly->style = copypoly->style;
5140 newpoly->color = copypoly->color;
5141 newpoly->width = copypoly->width;
5142 newpoly->number = copypoly->number;
5143 copycycles(&(newpoly->cycle), &(copypoly->cycle));
5144 newpoly->points = copypoints(copypoly->points, copypoly->number);
5145
5146 newpoly->passed = NULL;
5147 copyalleparams((genericptr)newpoly, (genericptr)copypoly);
5148 }
5149
5150 /*------------------------------------------*/
5151
5152 void splinecopy(splineptr newspline, splineptr copyspline)
5153 {
5154 short i;
5155
5156 newspline->style = copyspline->style;
5157 newspline->color = copyspline->color;
5158 newspline->width = copyspline->width;
5159 copycycles(&(newspline->cycle), &(copyspline->cycle));
5160 for (i = 0; i < 4; i++) {
5161 newspline->ctrl[i].x = copyspline->ctrl[i].x;
5162 newspline->ctrl[i].y = copyspline->ctrl[i].y;
5163 }
5164 for (i = 0; i < INTSEGS; i++) {
5165 newspline->points[i].x = copyspline->points[i].x;
5166 newspline->points[i].y = copyspline->points[i].y;
5167 }
5168 newspline->passed = NULL;
5169 copyalleparams((genericptr)newspline, (genericptr)copyspline);
5170 }
5171
5172 /*----------------------------------------------*/
5173 /* Copy a path */
5174 /*----------------------------------------------*/
5175
5176 void pathcopy(pathptr newpath, pathptr copypath)
5177 {
5178 genericptr *ggen;
5179 splineptr *newspline, copyspline;
5180 polyptr *newpoly, copypoly;
5181
5182 newpath->style = copypath->style;
5183 newpath->color = copypath->color;
5184 newpath->width = copypath->width;
5185 newpath->parts = 0;
5186 newpath->passed = NULL;
5187 copyalleparams((genericptr)newpath, (genericptr)copypath);
5188 newpath->plist = (genericptr *)malloc(copypath->parts * sizeof(genericptr));
5189
5190 for (ggen = copypath->plist; ggen < copypath->plist + copypath->parts; ggen++) {
5191 switch (ELEMENTTYPE(*ggen)) {
5192 case POLYGON:
5193 copypoly = TOPOLY(ggen);
5194 NEW_POLY(newpoly, newpath);
5195 polycopy(*newpoly, copypoly);
5196 break;
5197 case SPLINE:
5198 copyspline = TOSPLINE(ggen);
5199 NEW_SPLINE(newspline, newpath);
5200 splinecopy(*newspline, copyspline);
5201 break;
5202 }
5203 }
5204 }
5205
5206 /*--------------------------------------------------------------*/
5207 /* Copy an object instance */
5208 /*--------------------------------------------------------------*/
5209
5210 void instcopy(objinstptr newobj, objinstptr copyobj)
5211 {
5212 newobj->position.x = copyobj->position.x;
5213 newobj->position.y = copyobj->position.y;
5214 newobj->rotation = copyobj->rotation;
5215 newobj->scale = copyobj->scale;
5216 newobj->style = copyobj->style;
5217 newobj->thisobject = copyobj->thisobject;
5218 newobj->color = copyobj->color;
5219 newobj->bbox.lowerleft.x = copyobj->bbox.lowerleft.x;
5220 newobj->bbox.lowerleft.y = copyobj->bbox.lowerleft.y;
5221 newobj->bbox.width = copyobj->bbox.width;
5222 newobj->bbox.height = copyobj->bbox.height;
5223
5224 newobj->passed = NULL;
5225 copyalleparams((genericptr)newobj, (genericptr)copyobj);
5226
5227 newobj->params = NULL;
5228 copyparams(newobj, copyobj);
5229
5230 /* If the parameters are the same, the bounding box should be, too. */
5231 if (copyobj->schembbox != NULL) {
5232 newobj->schembbox = (BBox *)malloc(sizeof(BBox));
5233 newobj->schembbox->lowerleft.x = copyobj->schembbox->lowerleft.x;
5234 newobj->schembbox->lowerleft.y = copyobj->schembbox->lowerleft.y;
5235 newobj->schembbox->width = copyobj->schembbox->width;
5236 newobj->schembbox->height = copyobj->schembbox->height;
5237 }
5238 else
5239 newobj->schembbox = NULL;
5240 }
5241
5242 /*--------------------------------------------------------------*/
5243 /* The method for removing objects from a list is to add the */
5244 /* value REMOVE_TAG to the type of each object needing to be */
5245 /* removed, and then calling this routine. */
5246 /*--------------------------------------------------------------*/
5247
5248 void delete_tagged(objinstptr thisinst) {
5249 Boolean tagged = True;
5250 objectptr thisobject, delobj;
5251 genericptr *pgen;
5252 short *sobj, stmp;
5253
5254 thisobject = thisinst->thisobject;
5255
5256 while (tagged) {
5257 tagged = False;
5258 for (stmp = 0; stmp < thisobject->parts; stmp++) {
5259 pgen = thisobject->plist + stmp;
5260 if ((*pgen)->type & REMOVE_TAG) {
5261 (*pgen)->type &= (~REMOVE_TAG);
5262 tagged = True;
5263
5264 delobj = delete_element(thisinst, &stmp, 1, 0);
5265 register_for_undo(XCF_Delete, UNDO_MORE, thisinst, delobj, 0);
5266
5267 /* If we destroy elements in the current window, we need to */
5268 /* make sure that the selection list is updated appropriately. */
5269
5270 if ((thisobject == topobject) && (areawin->selects > 0)) {
5271 for (sobj = areawin->selectlist; sobj < areawin->selectlist +
5272 areawin->selects; sobj++)
5273 if (*sobj > stmp) (*sobj)--;
5274 }
5275
5276 /* Also ensure that this element is not referenced in any */
5277 /* netlist. If it is, remove it and mark the netlist as */
5278 /* invalid. */
5279
5280 remove_netlist_element(thisobject, *pgen);
5281 }
5282 }
5283 }
5284 undo_finish_series();
5285 }
5286
5287 /*-----------------------------------------------------------------*/
5288 /* For copying: Check if an object is about to be placed directly */
5289 /* on top of the same object. If so, delete the one underneath. */
5290 /*-----------------------------------------------------------------*/
5291
5292 void checkoverlap()
5293 {
5294 short *sobj, *cobj;
5295 genericptr *sgen, *pgen;
5296 Boolean tagged = False;
5297
5298 /* Work through the select list */
5299
5300 for (sobj = areawin->selectlist; sobj < areawin->selectlist +
5301 areawin->selects; sobj++) {
5302 sgen = topobject->plist + (*sobj);
5303
5304 /* For each object being copied, compare it against every object */
5305 /* on the current page (except self). Flag if it's the same. */
5306
5307 for (pgen = topobject->plist; pgen < topobject->plist + topobject->parts;
5308 pgen++) {
5309 if (pgen == sgen) continue;
5310 if (compare_single(sgen, pgen)) {
5311 /* Make sure that this object is not part of the selection, */
5312 /* else chaos will reign. */
5313 for (cobj = areawin->selectlist; cobj < areawin->selectlist +
5314 areawin->selects; cobj++) {
5315 if (pgen == topobject->plist + (*cobj)) break;
5316 }
5317 /* Tag it for future deletion and prevent further compares */
5318 if (cobj == areawin->selectlist + areawin->selects) {
5319 tagged = True;
5320 (*pgen)->type |= REMOVE_TAG;
5321 }
5322 }
5323 }
5324 }
5325 if (tagged) {
5326 /* Delete the tagged elements */
5327 Wprintf("Duplicate object deleted");
5328 delete_tagged(areawin->topinstance);
5329 incr_changes(topobject);
5330 }
5331 }
5332
5333 /*--------------------------------------------------------------*/
5334 /* Direct placement of elements. Assumes that the selectlist */
5335 /* contains all the elements to be positioned. "deltax" and */
5336 /* "deltay" are relative x and y positions to move the */
5337 /* elements. */
5338 /*--------------------------------------------------------------*/
5339
5340 void placeselects(short deltax, short deltay, XPoint *userpt)
5341 {
5342 short *dragselect;
5343 XPoint newpos, *ppt;
5344 float rot;
5345 short closest;
5346 Boolean doattach;
5347 genericptr *pgen;
5348 polyptr cpoly;
5349
5350 doattach = ((userpt == NULL) || (areawin->attachto < 0)) ? FALSE : TRUE;
5351
5352 /* under attachto condition, keep element attached to */
5353 /* the attachto element. */
5354
5355 if (doattach) findattach(&newpos, &rot, userpt);
5356
5357 #ifdef HAVE_CAIRO
5358 #else
5359 areawin->clipped = -1; /* Prevent clipping */
5360 #endif /* HAVE_CAIRO */
5361
5362 for (dragselect = areawin->selectlist; dragselect < areawin->selectlist
5363 + areawin->selects; dragselect++) {
5364
5365 switch(SELECTTYPE(dragselect)) {
5366 case OBJINST: {
5367 objinstptr draginst = SELTOOBJINST(dragselect);
5368
5369 if (doattach) {
5370 draginst->position.x = newpos.x;
5371 draginst->position.y = newpos.y;
5372 while (rot >= 360.0) rot -= 360.0;
5373 while (rot < 0.0) rot += 360.0;
5374 draginst->rotation = rot;
5375 }
5376 else {
5377 draginst->position.x += deltax;
5378 draginst->position.y += deltay;
5379 }
5380
5381 } break;
5382 case GRAPHIC: {
5383 graphicptr dragg = SELTOGRAPHIC(dragselect);
5384 dragg->position.x += deltax;
5385 dragg->position.y += deltay;
5386 } break;
5387 case LABEL: {
5388 labelptr draglabel = SELTOLABEL(dragselect);
5389 if (doattach) {
5390 draglabel->position.x = newpos.x;
5391 draglabel->position.y = newpos.y;
5392 draglabel->rotation = rot;
5393 }
5394 else {
5395 draglabel->position.x += deltax;
5396 draglabel->position.y += deltay;
5397 }
5398 } break;
5399 case PATH: {
5400 pathptr dragpath = SELTOPATH(dragselect);
5401 genericptr *pathlist;
5402
5403 if (doattach) {
5404 XPoint *pdelta = pathclosepoint(dragpath, &newpos);
5405 deltax = newpos.x - pdelta->x;
5406 deltay = newpos.y - pdelta->y;
5407 }
5408 for (pathlist = dragpath->plist; pathlist < dragpath->plist
5409 + dragpath->parts; pathlist++) {
5410 movepoints(pathlist, deltax, deltay);
5411 }
5412 } break;
5413 case POLYGON: {
5414 polyptr dragpoly = SELTOPOLY(dragselect);
5415 pointlist dragpoints;
5416
5417 /* if (dragpoly->cycle != NULL) continue; */
5418 if (doattach) {
5419 closest = closepoint(dragpoly, &newpos);
5420 deltax = newpos.x - dragpoly->points[closest].x;
5421 deltay = newpos.y - dragpoly->points[closest].y;
5422 }
5423 for (dragpoints = dragpoly->points; dragpoints < dragpoly->points
5424 + dragpoly->number; dragpoints++) {
5425 dragpoints->x += deltax;
5426 dragpoints->y += deltay;
5427 }
5428 } break;
5429 case SPLINE: {
5430 splineptr dragspline = SELTOSPLINE(dragselect);
5431 short j;
5432 fpointlist dragpoints;
5433
5434 /* if (dragspline->cycle != NULL) continue; */
5435 if (doattach) {
5436 closest = (wirelength(&dragspline->ctrl[0], &newpos)
5437 > wirelength(&dragspline->ctrl[3], &newpos)) ? 3 : 0;
5438 deltax = newpos.x - dragspline->ctrl[closest].x;
5439 deltay = newpos.y - dragspline->ctrl[closest].y;
5440 }
5441 for (dragpoints = dragspline->points; dragpoints < dragspline->
5442 points + INTSEGS; dragpoints++) {
5443 dragpoints->x += deltax;
5444 dragpoints->y += deltay;
5445 }
5446 for (j = 0; j < 4; j++) {
5447 dragspline->ctrl[j].x += deltax;
5448 dragspline->ctrl[j].y += deltay;
5449 }
5450 } break;
5451 case ARC: {
5452 arcptr dragarc = SELTOARC(dragselect);
5453 fpointlist dragpoints;
5454
5455 if (doattach) {
5456 deltax = newpos.x - dragarc->position.x;
5457 deltay = newpos.y - dragarc->position.y;
5458 }
5459 dragarc->position.x += deltax;
5460 dragarc->position.y += deltay;
5461 for (dragpoints = dragarc->points; dragpoints < dragarc->
5462 points + dragarc->number; dragpoints++) {
5463 dragpoints->x += deltax;
5464 dragpoints->y += deltay;
5465 }
5466 } break;
5467 }
5468 }
5469
5470 if (areawin->pinattach) {
5471 for (pgen = topobject->plist; pgen < topobject->plist +
5472 topobject->parts; pgen++) {
5473 if (ELEMENTTYPE(*pgen) == POLYGON) {
5474 cpoly = TOPOLY(pgen);
5475 if (cpoly->cycle != NULL) {
5476 ppt = cpoly->points + cpoly->cycle->number;
5477 newpos.x = ppt->x + deltax;
5478 newpos.y = ppt->y + deltay;
5479 if (areawin->manhatn)
5480 manhattanize(&newpos, cpoly, cpoly->cycle->number, FALSE);
5481 ppt->x = newpos.x;
5482 ppt->y = newpos.y;
5483 }
5484 }
5485 }
5486 }
5487
5488 move_mode_draw(xcDRAW_EDIT, NULL);
5489 #ifdef HAVE_CAIRO
5490 #else
5491 areawin->clipped = 0;
5492 #endif /* HAVE_CAIRO */
5493 }
5494
5495 /*----------------------------------------------------------------------*/
5496 /* Copy handler. Assumes that the selectlist contains the elements */
5497 /* to be copied, and that the initial position of the copy is held */
5498 /* in areawin->save. */
5499 /*----------------------------------------------------------------------*/
5500
5501 void createcopies()
5502 {
5503 short *selectobj;
5504
5505 if (!checkselect_draw(ALL_TYPES, True)) return;
5506 u2u_snap(&areawin->save);
5507 for (selectobj = areawin->selectlist; selectobj < areawin->selectlist
5508 + areawin->selects; selectobj++) {
5509
5510 /* Cycles will not be used for copy mode: remove them */
5511 removecycle(topobject->plist + (*selectobj));
5512
5513 switch(SELECTTYPE(selectobj)) {
5514 case LABEL: { /* copy label */
5515 labelptr copytext = SELTOLABEL(selectobj);
5516 labelptr *newtext;
5517
5518 NEW_LABEL(newtext, topobject);
5519 labelcopy(*newtext, copytext);
5520 } break;
5521 case OBJINST: { /* copy object instance */
5522 objinstptr copyobj = SELTOOBJINST(selectobj);
5523 objinstptr *newobj;
5524 NEW_OBJINST(newobj, topobject);
5525 instcopy(*newobj, copyobj);
5526 } break;
5527 case GRAPHIC: { /* copy graphic instance */
5528 graphicptr copyg = SELTOGRAPHIC(selectobj);
5529 graphicptr *newg;
5530 NEW_GRAPHIC(newg, topobject);
5531 graphiccopy(*newg, copyg);
5532 } break;
5533 case PATH: { /* copy path */
5534 pathptr copypath = SELTOPATH(selectobj);
5535 pathptr *newpath;
5536 NEW_PATH(newpath, topobject);
5537 pathcopy(*newpath, copypath);
5538 } break;
5539 case ARC: { /* copy arc */
5540 arcptr copyarc = SELTOARC(selectobj);
5541 arcptr *newarc;
5542 NEW_ARC(newarc, topobject);
5543 arccopy(*newarc, copyarc);
5544 } break;
5545 case POLYGON: { /* copy polygons */
5546 polyptr copypoly = SELTOPOLY(selectobj);
5547 polyptr *newpoly;
5548 NEW_POLY(newpoly, topobject);
5549 polycopy(*newpoly, copypoly);
5550 } break;
5551 case SPLINE: { /* copy spline */
5552 splineptr copyspline = SELTOSPLINE(selectobj);
5553 splineptr *newspline;
5554 NEW_SPLINE(newspline, topobject);
5555 splinecopy(*newspline, copyspline);
5556 } break;
5557 }
5558
5559 /* change selection from the old to the new object */
5560
5561 *selectobj = topobject->parts - 1;
5562 }
5563 }
5564
5565 /*--------------------------------------------------------------*/
5566 /* Function which initiates interactive placement of copied */
5567 /* elements. */
5568 /*--------------------------------------------------------------*/
5569
5570 void copydrag()
5571 {
5572 if (areawin->selects > 0) {
5573 move_mode_draw(xcDRAW_INIT, NULL);
5574 if (eventmode == NORMAL_MODE) {
5575 XDefineCursor(dpy, areawin->window, COPYCURSOR);
5576 eventmode = COPY_MODE;
5577 #ifdef TCL_WRAPPER
5578 Tk_CreateEventHandler(areawin->area, PointerMotionMask |
5579 ButtonMotionMask, (Tk_EventProc *)xctk_drag, NULL);
5580 #else
5581 XtAddEventHandler(areawin->area, PointerMotionMask |
5582 ButtonMotionMask, False, (XtEventHandler)xlib_drag,
5583 NULL);
5584 #endif
5585 }
5586 select_invalidate_netlist();
5587 }
5588 }
5589
5590 /*-----------------------------------------------------------*/
5591 /* Copy handler for copying from a button push or key event. */
5592 /*-----------------------------------------------------------*/
5593
5594 void copy_op(int op, int x, int y)
5595 {
5596 if (op == XCF_Copy) {
5597 window_to_user(x, y, &areawin->save);
5598 createcopies(); /* This function does all the hard work */
5599 copydrag(); /* Start interactive placement */
5600 }
5601 else {
5602 eventmode = NORMAL_MODE;
5603 areawin->attachto = -1;
5604 W3printf("");
5605 #ifdef TCL_WRAPPER
5606 xcRemoveEventHandler(areawin->area, PointerMotionMask |
5607 ButtonMotionMask, False, (xcEventHandler)xctk_drag,
5608 NULL);
5609 #else
5610 xcRemoveEventHandler(areawin->area, PointerMotionMask |
5611 ButtonMotionMask, False, (xcEventHandler)xlib_drag,
5612 NULL);
5613 #endif
5614 XDefineCursor(dpy, areawin->window, DEFAULTCURSOR);
5615 u2u_snap(&areawin->save);
5616 if (op == XCF_Cancel) {
5617 move_mode_draw(xcDRAW_EMPTY, NULL);
5618 delete_noundo(NORMAL);
5619 }
5620 else if (op == XCF_Finish_Copy) {
5621 move_mode_draw(xcDRAW_FINAL, NULL);
5622 /* If selected objects are the only ones on the page, */
5623 /* then do a full bbox calculation. */
5624 if (topobject->parts == areawin->selects)
5625 calcbbox(areawin->topinstance);
5626 else
5627 calcbboxselect();
5628 checkoverlap();
5629 register_for_undo(XCF_Copy, UNDO_MORE, areawin->topinstance,
5630 areawin->selectlist, areawin->selects);
5631 unselect_all();
5632 incr_changes(topobject);
5633 }
5634 else { /* XCF_Continue_Copy */
5635 move_mode_draw(xcDRAW_FINAL, NULL);
5636 if (topobject->parts == areawin->selects)
5637 calcbbox(areawin->topinstance);
5638 else
5639 calcbboxselect();
5640 checkoverlap();
5641 register_for_undo(XCF_Copy, UNDO_DONE, areawin->topinstance,
5642 areawin->selectlist, areawin->selects);
5643 createcopies();
5644 copydrag(); /* Start interactive placement again */
5645 incr_changes(topobject);
5646 }
5647 }
5648 }
5649
5650 /*----------------------------------------------*/
5651 /* Check for more than one button being pressed */
5652 /*----------------------------------------------*/
5653
5654 Boolean checkmultiple(XButtonEvent *event)
5655 {
5656 int state = Button1Mask | Button2Mask | Button3Mask |
5657 Button4Mask | Button5Mask;
5658 state &= event->state;
5659 /* ((x - 1) & x) is always non-zero if x has more than one bit set */
5660 return (((state - 1) & state) == 0) ? False : True;
5661 }
5662
5663 /*----------------------------------------------------------------------*/
5664 /* Operation continuation---dependent upon the ongoing operation. */
5665 /* This operation only pertains to a few event modes for which */
5666 /* continuation of action makes sense---drawing wires (polygons), and */
5667 /* editing polygons, arcs, splines, and paths. */
5668 /*----------------------------------------------------------------------*/
5669
5670 void continue_op(int op, int x, int y)
5671 {
5672 XPoint ppos;
5673
5674 if (eventmode != EARC_MODE && eventmode != ARC_MODE) {
5675 window_to_user(x, y, &areawin->save);
5676 }
5677 snap(x, y, &ppos);
5678 printpos(ppos.x, ppos.y);
5679
5680 switch(eventmode) {
5681 case(COPY_MODE):
5682 copy_op(op, x, y);
5683 break;
5684 case(WIRE_MODE):
5685 wire_op(op, x, y);
5686 break;
5687 case(EPATH_MODE): case(EPOLY_MODE): case (ARC_MODE):
5688 case(EARC_MODE): case(SPLINE_MODE): case(ESPLINE_MODE):
5689 path_op(*(EDITPART), op, x, y);
5690 break;
5691 case(EINST_MODE):
5692 inst_op(*(EDITPART), op, x, y);
5693 break;
5694 case(BOX_MODE):
5695 finish_op(XCF_Finish_Element, x, y);
5696 break;
5697 default:
5698 break;
5699 }
5700 }
5701
5702 /*--------------------------------------------------------------*/
5703 /* Finish or cancel an operation. This forces a return to */
5704 /* "normal" mode, with whatever other side effects are caused */
5705 /* by the operation. */
5706 /*--------------------------------------------------------------*/
5707
5708 void finish_op(int op, int x, int y)
5709 {
5710 labelptr curlabel;
5711 int libnum;
5712 XPoint snappt, boxpts[4];
5713 float fscale;
5714
5715 if (eventmode != EARC_MODE && eventmode != ARC_MODE) {
5716 window_to_user(x, y, &areawin->save);
5717 }
5718 switch(eventmode) {
5719 case(EPATH_MODE): case(BOX_MODE): case(EPOLY_MODE): case (ARC_MODE):
5720 case(EARC_MODE): case(SPLINE_MODE): case(ESPLINE_MODE):
5721 path_op(*(EDITPART), op, x, y);
5722 break;
5723
5724 case(EINST_MODE):
5725 inst_op(*(EDITPART), op, x, y);
5726 break;
5727
5728 case (FONTCAT_MODE):
5729 case (EFONTCAT_MODE):
5730 fontcat_op(op, x, y);
5731 eventmode = (eventmode == FONTCAT_MODE) ? TEXT_MODE : ETEXT_MODE;
5732 text_mode_draw(xcDRAW_INIT, TOLABEL(EDITPART));
5733 XDefineCursor (dpy, areawin->window, TEXTPTR);
5734 break;
5735
5736 case(ASSOC_MODE):
5737 case(CATALOG_MODE):
5738 catalog_op(op, x, y);
5739 break;
5740
5741 case(WIRE_MODE):
5742 wire_op(op, x, y);
5743 break;
5744
5745 case(COPY_MODE):
5746 copy_op(op, x, y);
5747 break;
5748
5749 case(TEXT_MODE):
5750 curlabel = TOLABEL(EDITPART);
5751 if (op == XCF_Cancel) {
5752 redrawtext(curlabel);
5753 areawin->redraw_needed = False; /* ignore previous requests */
5754 text_mode_draw(xcDRAW_EMPTY, curlabel);
5755 freelabel(curlabel->string);
5756 free(curlabel);
5757 topobject->parts--;
5758 curlabel = NULL;
5759 }
5760 else {
5761 singlebbox(EDITPART);
5762 incr_changes(topobject);
5763 select_invalidate_netlist();
5764 text_mode_draw(xcDRAW_FINAL, curlabel);
5765 }
5766 setdefaultfontmarks();
5767 eventmode = NORMAL_MODE;
5768 break;
5769
5770 case(ETEXT_MODE): case(CATTEXT_MODE):
5771 curlabel = TOLABEL(EDITPART);
5772 if (op == XCF_Cancel) {
5773 /* restore the original text */
5774 undrawtext(curlabel);
5775 undo_finish_series();
5776 undo_action();
5777 redrawtext(curlabel);
5778 areawin->redraw_needed = False; /* ignore previous requests */
5779 text_mode_draw(xcDRAW_EMPTY, curlabel);
5780 if (eventmode == CATTEXT_MODE) eventmode = CATALOG_MODE;
5781 W3printf("");
5782 setdefaultfontmarks();
5783 }
5784 else textreturn(); /* Generate "return" key character */
5785 areawin->textend = 0;
5786 break;
5787
5788 case(CATMOVE_MODE):
5789 u2u_snap(&areawin->save);
5790 #ifdef TCL_WRAPPER
5791 Tk_DeleteEventHandler(areawin->area, ButtonMotionMask |
5792 PointerMotionMask, (Tk_EventProc *)xctk_drag, NULL);
5793 #else
5794 xcRemoveEventHandler(areawin->area, ButtonMotionMask |
5795 PointerMotionMask, FALSE, (xcEventHandler)xlib_drag,
5796 NULL);
5797 #endif
5798 if (op == XCF_Cancel) {
5799 /* Just regenerate the library where we started */
5800 if (areawin->selects >= 1) {
5801 objinstptr selinst = SELTOOBJINST(areawin->selectlist);
5802 libnum = libfindobject(selinst->thisobject, NULL);
5803 if (libnum >= 0)
5804 composelib(libnum + LIBRARY);
5805 }
5806 }
5807 else {
5808 catmove(x, y);
5809 }
5810 clearselects();
5811 eventmode = CATALOG_MODE;
5812 XDefineCursor(dpy, areawin->window, DEFAULTCURSOR);
5813 break;
5814
5815 case(MOVE_MODE):
5816 u2u_snap(&areawin->save);
5817 #ifdef TCL_WRAPPER
5818 Tk_DeleteEventHandler(areawin->area, ButtonMotionMask |
5819 PointerMotionMask, (Tk_EventProc *)xctk_drag, NULL);
5820 #else
5821 xcRemoveEventHandler(areawin->area, ButtonMotionMask |
5822 PointerMotionMask, FALSE, (xcEventHandler)xlib_drag,
5823 NULL);
5824 #endif
5825 if (op == XCF_Cancel) {
5826 /* If we came from the library with an object instance, in */
5827 /* MOVE_MODE, then "cancel" should delete the element. */
5828 /* Otherwise, put the position of the element back to what */
5829 /* it was before we started the move. The difference is */
5830 /* indicated by the value of areawin->editpart. */
5831
5832 if ((areawin->selects > 0) && (*areawin->selectlist == topobject->parts))
5833 delete_noundo(NORMAL);
5834 else
5835 placeselects(areawin->origin.x - areawin->save.x,
5836 areawin->origin.y - areawin->save.y, NULL);
5837 clearselects();
5838 drawarea(NULL, NULL, NULL);
5839 }
5840 else {
5841 if (areawin->selects > 0) {
5842 register_for_undo(XCF_Move,
5843 /* (was_preselected) ? UNDO_DONE : UNDO_MORE, */
5844 UNDO_MORE,
5845 areawin->topinstance,
5846 (int)(areawin->save.x - areawin->origin.x),
5847 (int)(areawin->save.y - areawin->origin.y));
5848 pwriteback(areawin->topinstance);
5849 incr_changes(topobject);
5850 select_invalidate_netlist();
5851 unselect_all(); /* The way it used to be. . . */
5852 }
5853 W3printf("");
5854 /* full calc needed: move may shrink bbox */
5855 calcbbox(areawin->topinstance);
5856 checkoverlap();
5857 /* if (!was_preselected) clearselects(); */
5858 }
5859 areawin->attachto = -1;
5860 break;
5861
5862 case(RESCALE_MODE):
5863
5864 #ifdef TCL_WRAPPER
5865 Tk_DeleteEventHandler(areawin->area, PointerMotionMask |
5866 ButtonMotionMask, (Tk_EventProc *)xctk_drag, NULL);
5867 #else
5868 xcRemoveEventHandler(areawin->area, PointerMotionMask |
5869 ButtonMotionMask, FALSE, (xcEventHandler)xlib_drag,
5870 NULL);
5871 #endif
5872 rescale_mode_draw(xcDRAW_FINAL, NULL);
5873 if (op != XCF_Cancel) {
5874 XPoint newpoints[5];
5875 fscale = UGetRescaleBox(&areawin->save, newpoints);
5876 if (fscale != 0.) {
5877 elementrescale(fscale);
5878 areawin->redraw_needed = True;
5879 }
5880 }
5881 eventmode = NORMAL_MODE;
5882 break;
5883
5884 case(SELAREA_MODE):
5885 selarea_mode_draw(xcDRAW_FINAL, NULL);
5886
5887 #ifdef TCL_WRAPPER
5888 Tk_DeleteEventHandler(areawin->area, ButtonMotionMask |
5889 PointerMotionMask, (Tk_EventProc *)xctk_drag, NULL);
5890 #else
5891 xcRemoveEventHandler(areawin->area, ButtonMotionMask |
5892 PointerMotionMask, FALSE, (xcEventHandler)xlib_drag,
5893 NULL);
5894 #endif
5895 /* Zero-width boxes act like a normal selection. Otherwise, */
5896 /* proceed with the area select. */
5897
5898 if ((areawin->origin.x == areawin->save.x) &&
5899 (areawin->origin.y == areawin->save.y))
5900 select_add_element(ALL_TYPES);
5901 else {
5902 boxpts[0] = areawin->origin;
5903 boxpts[1].x = areawin->save.x;
5904 boxpts[1].y = areawin->origin.y;
5905 boxpts[2] = areawin->save;
5906 boxpts[3].x = areawin->origin.x;
5907 boxpts[3].y = areawin->save.y;
5908 selectarea(topobject, boxpts, 0);
5909 }
5910 break;
5911
5912 case(PAN_MODE):
5913 u2u_snap(&areawin->save);
5914
5915 #ifdef TCL_WRAPPER
5916 Tk_DeleteEventHandler(areawin->area, PointerMotionMask |
5917 ButtonMotionMask, (Tk_EventProc *)xctk_drag, NULL);
5918 #else
5919 xcRemoveEventHandler(areawin->area, PointerMotionMask |
5920 ButtonMotionMask, False, (xcEventHandler)xlib_drag,
5921 NULL);
5922 #endif
5923 areawin->panx = areawin->pany = 0;
5924 if (op != XCF_Cancel)
5925 panbutton((u_int) 5, (areawin->width >> 1) - (x - areawin->origin.x),
5926 (areawin->height >> 1) - (y - areawin->origin.y), 0);
5927 break;
5928 default:
5929 break;
5930 }
5931
5932 /* Remove any selections */
5933 if ((eventmode == SELAREA_MODE) || (eventmode == PAN_MODE)
5934 || (eventmode == MOVE_MODE))
5935 {
5936 eventmode = NORMAL_MODE;
5937 areawin->redraw_needed = True;
5938 }
5939 else if (eventmode != MOVE_MODE && eventmode != EPATH_MODE &&
5940 eventmode != EPOLY_MODE && eventmode != ARC_MODE &&
5941 eventmode != EARC_MODE && eventmode != SPLINE_MODE &&
5942 eventmode != ESPLINE_MODE && eventmode != WIRE_MODE &&
5943 eventmode != ETEXT_MODE && eventmode != TEXT_MODE) {
5944 unselect_all();
5945 }
5946
5947 if (eventmode == NORMAL_MODE) {
5948
5949 /* Return any highlighted networks to normal */
5950 highlightnetlist(topobject, areawin->topinstance, 0);
5951
5952 XDefineCursor(dpy, areawin->window, DEFAULTCURSOR);
5953 }
5954
5955 snap(x, y, &snappt);
5956 printpos(snappt.x, snappt.y);
5957 }
5958
5959 /*--------------------------------------------------------------*/
5960 /* Edit operations for instances. This is used to allow */
5961 /* numeric parameters to be adjusted from the hierarchical */
5962 /* level above, shielding the the unparameterized parts from */
5963 /* change. */
5964 /*--------------------------------------------------------------*/
5965
5966 void inst_op(genericptr editpart, int op, int x, int y)
5967 {
5968 UNUSED(editpart); UNUSED(op); UNUSED(x); UNUSED(y);
5969 }
5970
5971 /*--------------------------------------------------------------*/
5972 /* Operations for path components */
5973 /*--------------------------------------------------------------*/
5974
5975 void path_op(genericptr editpart, int op, int x, int y)
5976 {
5977 polyptr newpoly;
5978 splineptr newspline;
5979 Boolean donecycles = False;
5980 UNUSED(x); UNUSED(y);
5981
5982 /* Don't allow point cycling in a multi-part edit. */
5983 /* Allowing it is just confusing. Instead, we treat */
5984 /* button 1 (cycle) like button 2 (finish). */
5985 if (op == XCF_Continue_Element && areawin->selects > 1)
5986 op = XCF_Finish_Element;
5987
5988 switch(ELEMENTTYPE(editpart)) {
5989 case (PATH): {
5990 pathptr newpath = (pathptr)editpart;
5991 short dotrack = True;
5992 pathptr editpath;
5993
5994 areawin->attachto = -1;
5995
5996 if (op != XCF_Continue_Element) {
5997 dotrack = False;
5998 }
5999 if (op == XCF_Continue_Element) {
6000 nextpathcycle(newpath, 1);
6001 patheditpush(newpath);
6002 }
6003 else if (op == XCF_Finish_Element) {
6004 path_mode_draw(xcDRAW_FINAL, newpath);
6005 incr_changes(topobject);
6006 }
6007 else { /* restore previous path from edit stack */
6008 free_single((genericptr)newpath);
6009 if (areawin->editstack->parts > 0) {
6010 if (op == XCF_Cancel) {
6011 editpath = TOPATH(areawin->editstack->plist);
6012 pathcopy(newpath, editpath);
6013 reset(areawin->editstack, NORMAL);
6014 }
6015 else {
6016 editpath = TOPATH(areawin->editstack->plist +
6017 areawin->editstack->parts - 1);
6018 pathcopy(newpath, editpath);
6019 free_single((genericptr)editpath);
6020 free(editpath);
6021 areawin->editstack->parts--;
6022 }
6023 if (areawin->editstack->parts > 0) {
6024 dotrack = True;
6025 nextpathcycle(newpath, 1);
6026 path_mode_draw(xcDRAW_EDIT, newpath);
6027 }
6028 else {
6029 XPoint warppt;
6030 user_to_window(areawin->origin, &warppt);
6031 warppointer(warppt.x, warppt.y);
6032 path_mode_draw(xcDRAW_FINAL, newpath);
6033 }
6034 }
6035 else {
6036 path_mode_draw(xcDRAW_EMPTY, newpath);
6037 topobject->parts--;
6038 free_single((genericptr)newpath);
6039 free(newpath);
6040 }
6041 }
6042 pwriteback(areawin->topinstance);
6043
6044 if (!dotrack) {
6045 /* Free the editstack */
6046 reset(areawin->editstack, NORMAL);
6047 xcRemoveEventHandler(areawin->area, PointerMotionMask, False,
6048 (xcEventHandler)trackelement, NULL);
6049 eventmode = NORMAL_MODE;
6050 donecycles = True;
6051 }
6052 } break;
6053
6054 case (POLYGON): {
6055 if (eventmode == BOX_MODE) {
6056 polyptr newbox;
6057
6058 newbox = (polyptr)editpart;
6059
6060 /* prevent length and/or width zero boxes */
6061 if (newbox->points->x != (newbox->points + 2)->x && (newbox->points
6062 + 1)->y != (newbox->points + 3)->y) {
6063 if (op != XCF_Cancel) {
6064 poly_mode_draw(xcDRAW_FINAL, newbox);
6065 incr_changes(topobject);
6066 if (!nonnetwork(newbox)) invalidate_netlist(topobject);
6067 register_for_undo(XCF_Box, UNDO_MORE, areawin->topinstance,
6068 newbox);
6069 }
6070 else {
6071 poly_mode_draw(xcDRAW_EMPTY, newbox);
6072 free_single((genericptr)newbox);
6073 free(newbox);
6074 topobject->parts--;
6075
6076 }
6077 }
6078 else {
6079 poly_mode_draw(xcDRAW_EMPTY, newbox);
6080 free_single((genericptr)newbox);
6081 free(newbox);
6082 topobject->parts--;
6083 }
6084
6085 xcRemoveEventHandler(areawin->area, PointerMotionMask, False,
6086 (xcEventHandler)trackbox, NULL);
6087 eventmode = NORMAL_MODE;
6088 }
6089 else { /* EPOLY_MODE */
6090 polyptr editpoly;
6091 short dotrack = True;
6092
6093 newpoly = (polyptr)editpart;
6094 areawin->attachto = -1;
6095
6096 if (op != XCF_Continue_Element) {
6097 dotrack = False;
6098 }
6099
6100 if (op == XCF_Continue_Element) {
6101 nextpolycycle(&newpoly, 1);
6102 polyeditpush(newpoly);
6103 }
6104 else if (op == XCF_Finish_Element) {
6105
6106 /* Check for degenerate polygons (all points the same). */
6107 int i;
6108 for (i = 1; i < newpoly->number; i++)
6109 if ((newpoly->points[i].x != newpoly->points[i - 1].x) ||
6110 (newpoly->points[i].y != newpoly->points[i - 1].y))
6111 break;
6112 if (i == newpoly->number) {
6113 poly_mode_draw(xcDRAW_EMPTY, newpoly);
6114 /* Remove this polygon with the standard delete */
6115 /* method (saves polygon on undo stack). */
6116 newpoly->type |= REMOVE_TAG;
6117 delete_tagged(areawin->topinstance);
6118 }
6119 else {
6120 poly_mode_draw(xcDRAW_FINAL, newpoly);
6121 if (!nonnetwork(newpoly)) invalidate_netlist(topobject);
6122 incr_changes(topobject);
6123 }
6124 }
6125 else {
6126 XPoint warppt;
6127 free_single((genericptr)newpoly);
6128 if (areawin->editstack->parts > 0) {
6129 if (op == XCF_Cancel) {
6130 editpoly = TOPOLY(areawin->editstack->plist);
6131 polycopy(newpoly, editpoly);
6132 reset(areawin->editstack, NORMAL);
6133 }
6134 else {
6135 editpoly = TOPOLY(areawin->editstack->plist +
6136 areawin->editstack->parts - 1);
6137 polycopy(newpoly, editpoly);
6138 free_single((genericptr)editpoly);
6139 free(editpoly);
6140 areawin->editstack->parts--;
6141 }
6142 if (areawin->editstack->parts > 0) {
6143 dotrack = True;
6144 nextpolycycle(&newpoly, -1);
6145 poly_mode_draw(xcDRAW_EDIT, newpoly);
6146 }
6147 else {
6148 XcTopSetForeground(newpoly->color);
6149 user_to_window(areawin->origin, &warppt);
6150 warppointer(warppt.x, warppt.y);
6151 poly_mode_draw(xcDRAW_FINAL, newpoly);
6152 }
6153 }
6154 else {
6155 poly_mode_draw(xcDRAW_EMPTY, newpoly);
6156 topobject->parts--;
6157 free(newpoly);
6158 }
6159 }
6160 pwriteback(areawin->topinstance);
6161
6162 if (!dotrack) {
6163 /* Free the editstack */
6164 reset(areawin->editstack, NORMAL);
6165
6166 xcRemoveEventHandler(areawin->area, PointerMotionMask, False,
6167 (xcEventHandler)trackelement, NULL);
6168 eventmode = NORMAL_MODE;
6169 donecycles = True;
6170 }
6171 }
6172 } break;
6173
6174 case (ARC): {
6175 arcptr newarc, editarc;
6176 short dotrack = True;
6177
6178 newarc = (arcptr)editpart;
6179
6180 if (op != XCF_Continue_Element) {
6181 dotrack = False;
6182 }
6183
6184 if (op == XCF_Continue_Element) {
6185 nextarccycle(&newarc, 1);
6186 arceditpush(newarc);
6187 }
6188
6189 else if (op == XCF_Finish_Element) {
6190 dotrack = False;
6191
6192 if (newarc->radius != 0 && newarc->yaxis != 0 &&
6193 (newarc->angle1 != newarc->angle2)) {
6194 XTopSetForeground(newarc->color);
6195 incr_changes(topobject);
6196 if (eventmode == ARC_MODE) {
6197 register_for_undo(XCF_Arc, UNDO_MORE, areawin->topinstance,
6198 newarc);
6199 }
6200 arc_mode_draw(xcDRAW_FINAL, newarc);
6201 }
6202 else {
6203
6204 /* Remove the record if the radius is zero. If we were */
6205 /* creating the arc, just delete it; it's as if it */
6206 /* never existed. If we were editing an arc, use the */
6207 /* standard delete method (saves arc on undo stack). */
6208
6209 arc_mode_draw(xcDRAW_EMPTY, newarc);
6210 if (eventmode == ARC_MODE) {
6211 free_single((genericptr)newarc);
6212 free(newarc);
6213 topobject->parts--;
6214 }
6215 else {
6216 newarc->type |= REMOVE_TAG;
6217 delete_tagged(areawin->topinstance);
6218 }
6219 }
6220 }
6221 else { /* Cancel: restore previous arc from edit stack */
6222 free_single((genericptr)newarc);
6223 if (areawin->editstack->parts > 0) {
6224 if (op == XCF_Cancel) {
6225 editarc = TOARC(areawin->editstack->plist);
6226 arccopy(newarc, editarc);
6227 copycycles(&(newarc->cycle), &(editarc->cycle));
6228 reset(areawin->editstack, NORMAL);
6229 }
6230 else {
6231 editarc = TOARC(areawin->editstack->plist +
6232 areawin->editstack->parts - 1);
6233 arccopy(newarc, editarc);
6234 copycycles(&(newarc->cycle), &(editarc->cycle));
6235 free_single((genericptr)editarc);
6236 free(editarc);
6237 areawin->editstack->parts--;
6238 }
6239 if (areawin->editstack->parts > 0) {
6240 dotrack = True;
6241 nextarccycle(&newarc, -1);
6242 arc_mode_draw(xcDRAW_EDIT, newarc);
6243 }
6244 else {
6245 if (eventmode != ARC_MODE) {
6246 XPoint warppt;
6247 user_to_window(areawin->origin, &warppt);
6248 warppointer(warppt.x, warppt.y);
6249 }
6250 arc_mode_draw(xcDRAW_FINAL, newarc);
6251 }
6252 }
6253 else {
6254 arc_mode_draw(xcDRAW_EMPTY, newarc);
6255 topobject->parts--;
6256 }
6257 }
6258 pwriteback(areawin->topinstance);
6259
6260 if (!dotrack) {
6261 /* Free the editstack */
6262 reset(areawin->editstack, NORMAL);
6263
6264 xcRemoveEventHandler(areawin->area, PointerMotionMask, False,
6265 (xcEventHandler)trackarc, NULL);
6266 eventmode = NORMAL_MODE;
6267 }
6268 } break;
6269
6270 case (SPLINE): {
6271 splineptr editspline;
6272 short dotrack = True;
6273
6274 newspline = (splineptr)editpart;
6275
6276 if (op != XCF_Continue_Element) {
6277 dotrack = False;
6278 }
6279
6280 if (op == XCF_Continue_Element) {
6281 /* Note: we work backwards through spline control points. */
6282 /* The reason is that when creating a spline, the sudden */
6283 /* move from the endpoint to the startpoint (forward */
6284 /* direction) is more disorienting than moving from the */
6285 /* endpoint to the endpoint's control point. */
6286
6287 nextsplinecycle(&newspline, -1);
6288 splineeditpush(newspline);
6289 }
6290
6291 /* unlikely but possible to create zero-length splines */
6292 else if (newspline->ctrl[0].x != newspline->ctrl[3].x ||
6293 newspline->ctrl[0].x != newspline->ctrl[1].x ||
6294 newspline->ctrl[0].x != newspline->ctrl[2].x ||
6295 newspline->ctrl[0].y != newspline->ctrl[3].y ||
6296 newspline->ctrl[0].y != newspline->ctrl[1].y ||
6297 newspline->ctrl[0].y != newspline->ctrl[2].y) {
6298 if (op == XCF_Finish_Element) {
6299 incr_changes(topobject);
6300 if (eventmode == SPLINE_MODE) {
6301 register_for_undo(XCF_Spline, UNDO_MORE, areawin->topinstance,
6302 newspline);
6303 }
6304 spline_mode_draw(xcDRAW_FINAL, newspline);
6305 }
6306 else { /* restore previous spline from edit stack */
6307 free_single((genericptr)newspline);
6308 if (areawin->editstack->parts > 0) {
6309 if (op == XCF_Cancel) {
6310 editspline = TOSPLINE(areawin->editstack->plist);
6311 splinecopy(newspline, editspline);
6312 reset(areawin->editstack, NORMAL);
6313 }
6314 else {
6315 editspline = TOSPLINE(areawin->editstack->plist +
6316 areawin->editstack->parts - 1);
6317 splinecopy(newspline, editspline);
6318 free_single((genericptr)editspline);
6319 free(editspline);
6320 areawin->editstack->parts--;
6321 }
6322 if (areawin->editstack->parts > 0) {
6323 dotrack = True;
6324 nextsplinecycle(&newspline, 1);
6325 spline_mode_draw(xcDRAW_EDIT, newspline);
6326 }
6327 else {
6328 if (eventmode != SPLINE_MODE) {
6329 XPoint warppt;
6330 user_to_window(areawin->origin, &warppt);
6331 warppointer(warppt.x, warppt.y);
6332 }
6333 spline_mode_draw(xcDRAW_FINAL, newspline);
6334 }
6335 }
6336 else {
6337 spline_mode_draw(xcDRAW_EMPTY, newspline);
6338 topobject->parts--;
6339 }
6340 }
6341 }
6342 else {
6343 spline_mode_draw(xcDRAW_EMPTY, newspline);
6344 free_single((genericptr)newspline);
6345 free(newspline);
6346 topobject->parts--;
6347 }
6348 pwriteback(areawin->topinstance);
6349
6350 if (!dotrack) {
6351 /* Free the editstack */
6352 reset(areawin->editstack, NORMAL);
6353
6354 xcRemoveEventHandler(areawin->area, PointerMotionMask, False,
6355 (xcEventHandler)trackelement, NULL);
6356 eventmode = NORMAL_MODE;
6357 donecycles = True;
6358 }
6359 } break;
6360 }
6361 calcbbox(areawin->topinstance);
6362
6363 /* Multiple-element edit: Some items may have been moved as */
6364 /* opposed to edited, and should be registered here. To do */
6365 /* this correctly, we must first unselect the edited items, */
6366 /* then register the move for the remaining items. */
6367
6368 if (donecycles) {
6369 short *eselect;
6370
6371 for (eselect = areawin->selectlist; eselect < areawin->selectlist +
6372 areawin->selects; eselect++)
6373 checkcycle(SELTOGENERIC(eselect), 0);
6374
6375 /* Remove all (remaining) cycles */
6376 for (eselect = areawin->selectlist; eselect < areawin->selectlist +
6377 areawin->selects; eselect++)
6378 removecycle(SELTOGENERICPTR(eselect));
6379
6380 /* Remove edits from the undo stack when canceling */
6381 if (op == XCF_Cancel || op == XCF_Cancel_Last) {
6382 if (xobjs.undostack && (xobjs.undostack->type == XCF_Edit)) {
6383 undo_finish_series();
6384 undo_action();
6385 }
6386 }
6387 }
6388 }
6389
6390 /*-------------------------------------------------------*/
6391 /* Recalculate values for a drawing-area widget resizing */
6392 /*-------------------------------------------------------*/
6393
6394 void resizearea(xcWidget w, caddr_t clientdata, caddr_t calldata)
6395 {
6396 #ifndef TCL_WRAPPER
6397 Arg wargs[2];
6398 #endif
6399 XEvent discard;
6400 int savewidth = areawin->width, saveheight = areawin->height;
6401 XCWindowData *thiswin;
6402 #ifndef HAVE_CAIRO
6403 XGCValues values;
6404 #endif /* !HAVE_CAIRO */
6405 UNUSED(w); UNUSED(clientdata); UNUSED(calldata);
6406
6407 if ((dpy != NULL) && xcIsRealized(areawin->area)) {
6408
6409 #ifdef TCL_WRAPPER
6410 areawin->width = Tk_Width(w);
6411 areawin->height = Tk_Height(w);
6412 #else
6413 XtSetArg(wargs[0], XtNwidth, &areawin->width);
6414 XtSetArg(wargs[1], XtNheight, &areawin->height);
6415 XtGetValues(areawin->area, wargs, 2);
6416 #endif
6417
6418 if (areawin->width != savewidth || areawin->height != saveheight) {
6419
6420 int maxwidth = 0, maxheight = 0;
6421 for (thiswin = xobjs.windowlist; thiswin != NULL; thiswin = thiswin->next) {
6422 if (thiswin->width > maxwidth) maxwidth = thiswin->width;
6423 if (thiswin->height > maxheight) maxheight = thiswin->height;
6424 }
6425 #if !defined(HAVE_CAIRO)
6426 if (dbuf != (Pixmap)NULL) XFreePixmap(dpy, dbuf);
6427 dbuf = XCreatePixmap(dpy, areawin->window, maxwidth, maxheight,
6428 DefaultDepthOfScreen(xcScreen(w)));
6429 #endif
6430 #ifdef HAVE_CAIRO
6431 /* TODO: probably make this a generalized function call, which */
6432 /* should be handled depending on the surface in the xtgui.c, */
6433 /* xcwin32.c, etc. files. */
6434 /* For now only support xlib surface */
6435 cairo_xlib_surface_set_size(areawin->surface, areawin->width,
6436 areawin->height);
6437 #else
6438 if (areawin->clipmask != (Pixmap)NULL) XFreePixmap(dpy, areawin->clipmask);
6439 areawin->clipmask = XCreatePixmap(dpy, areawin->window,
6440 maxwidth, maxheight, 1);
6441
6442 if (areawin->pbuf != (Pixmap)NULL) {
6443 XFreePixmap(dpy, areawin->pbuf);
6444 areawin->pbuf = XCreatePixmap(dpy, areawin->window,
6445 maxwidth, maxheight, 1);
6446 }
6447
6448 if (areawin->cmgc != (GC)NULL) XFreeGC(dpy, areawin->cmgc);
6449 values.foreground = 0;
6450 values.background = 0;
6451 areawin->cmgc = XCreateGC(dpy, areawin->clipmask,
6452 GCForeground | GCBackground, &values);
6453 #endif /* !HAVE_CAIRO */
6454
6455 /* Clear fixed_pixmap */
6456 if (areawin->fixed_pixmap) {
6457 #ifdef HAVE_CAIRO
6458 cairo_pattern_destroy(areawin->fixed_pixmap);
6459 areawin->fixed_pixmap = NULL;
6460 #else /* !HAVE_CAIRO */
6461 XFreePixmap(dpy, areawin->fixed_pixmap);
6462 areawin->fixed_pixmap = (Pixmap) NULL;
6463 #endif /* !HAVE_CAIRO */
6464 }
6465
6466 reset_gs();
6467
6468 /* Re-compose the directores to match the new dimensions */
6469 composelib(LIBLIB);
6470 composelib(PAGELIB);
6471
6472 /* Re-center image in resized window */
6473 zoomview(NULL, NULL, NULL);
6474 }
6475
6476 /* Flush all expose events from the buffer */
6477 while (XCheckWindowEvent(dpy, areawin->window, ExposureMask, &discard) == True);
6478 }
6479 }
6480
6481 /*----------------------*/
6482 /* Draw the grids, etc. */
6483 /*----------------------*/
6484
6485 #ifndef HAVE_CAIRO
6486 void draw_grids(void)
6487 {
6488 float x, y, spc, spc2, i, j, fpart;
6489 float major_snapspace, spc3;
6490
6491 spc = xobjs.pagelist[areawin->page]->gridspace * areawin->vscale;
6492 if (areawin->gridon && spc > 8) {
6493 fpart = (float)(-areawin->pcorner.x)
6494 / xobjs.pagelist[areawin->page]->gridspace;
6495 x = xobjs.pagelist[areawin->page]->gridspace *
6496 (fpart - (float)((int)fpart)) * areawin->vscale;
6497 fpart = (float)(-areawin->pcorner.y)
6498 / xobjs.pagelist[areawin->page]->gridspace;
6499 y = xobjs.pagelist[areawin->page]->gridspace *
6500 (fpart - (float)((int)fpart)) * areawin->vscale;
6501
6502 SetForeground(dpy, areawin->gc, GRIDCOLOR);
6503 for (i = x; i < (float)areawin->width; i += spc)
6504 DrawLine (dpy, areawin->window, areawin->gc, (int)(i + 0.5),
6505 0, (int)(i + 0.5), areawin->height);
6506 for (j = (float)areawin->height - y; j > 0; j -= spc)
6507 DrawLine (dpy, areawin->window, areawin->gc, 0, (int)(j - 0.5),
6508 areawin->width, (int)(j - 0.5));
6509 }
6510
6511 if (areawin->axeson) {
6512 XPoint originpt, zeropt;
6513 zeropt.x = zeropt.y = 0;
6514 SetForeground(dpy, areawin->gc, AXESCOLOR);
6515 user_to_window(zeropt, &originpt);
6516 DrawLine(dpy, areawin->window, areawin->gc, originpt.x, 0,
6517 originpt.x, areawin->height);
6518 DrawLine(dpy, areawin->window, areawin->gc, 0, originpt.y,
6519 areawin->width, originpt.y);
6520 }
6521
6522 /* bounding box goes beneath everything except grid/axis lines */
6523 UDrawBBox();
6524
6525 /* draw a little red dot at each snap-to point */
6526
6527 spc2 = xobjs.pagelist[areawin->page]->snapspace * areawin->vscale;
6528 if (areawin->snapto && spc2 > 8) {
6529 float x2, y2;
6530
6531 fpart = (float)(-areawin->pcorner.x)
6532 / xobjs.pagelist[areawin->page]->snapspace;
6533 x2 = xobjs.pagelist[areawin->page]->snapspace *
6534 (fpart - (float)((int)fpart)) * areawin->vscale;
6535 fpart = (float)(-areawin->pcorner.y)
6536 / xobjs.pagelist[areawin->page]->snapspace;
6537 y2 = xobjs.pagelist[areawin->page]->snapspace *
6538 (fpart - (float)((int)fpart)) * areawin->vscale;
6539
6540 #if defined(TCL_WRAPPER) && defined(XC_WIN32)
6541 {
6542 HDC hdc = CreateCompatibleDC(NULL);
6543 SelectObject(hdc, Tk_GetHWND(areawin->window));
6544 #endif
6545 SetForeground(dpy, areawin->gc, SNAPCOLOR);
6546 for (i = x2; i < areawin->width; i += spc2)
6547 for (j = areawin->height - y2; j > 0; j -= spc2)
6548 #if defined(TCL_WRAPPER) && defined(XC_WIN32)
6549 SetPixelV(hdc, (int)(i + 0.5), (int)(j - 0.05), areawin->gc->foreground);
6550 #endif
6551 DrawPoint (dpy, areawin->window, areawin->gc, (int)(i + 0.5),
6552 (int)(j - 0.5));
6553 #if defined(TCL_WRAPPER) && defined(XC_WIN32)
6554 DeleteDC(hdc);
6555 }
6556 #endif
6557 };
6558
6559 /* Draw major snap points (code contributed by John Barry) */
6560
6561 major_snapspace = xobjs.pagelist[areawin->page]->gridspace * 20;
6562 spc3 = major_snapspace * areawin->vscale;
6563 if (spc > 4) {
6564 fpart = (float)(-areawin->pcorner.x) / major_snapspace;
6565 x = major_snapspace * (fpart - (float)((int)fpart)) * areawin->vscale;
6566 fpart = (float)(-areawin->pcorner.y) / major_snapspace;
6567 y = major_snapspace * (fpart - (float)((int)fpart)) * areawin->vscale;
6568
6569 SetForeground(dpy, areawin->gc, GRIDCOLOR);
6570 for (i = x; i < (float)areawin->width; i += spc3) {
6571 for (j = (float)areawin->height - y; j > 0; j -= spc3) {
6572 XDrawArc(dpy, areawin->window, areawin->gc, (int)(i + 0.5) - 1,
6573 (int)(j - 0.5) - 1, 2, 2, 0, 360*64);
6574 }
6575 }
6576 }
6577
6578 SetBackground(dpy, areawin->gc, BACKGROUND);
6579 }
6580 #endif /* !HAVE_CAIRO */
6581
6582 /*------------------------------------------------------*/
6583 /* Draw fixed parts of the primary graphics window */
6584 /*------------------------------------------------------*/
6585
6586 void draw_fixed(void)
6587 {
6588 Boolean old_ongoing;
6589 #ifndef HAVE_CAIRO
6590 Window old_window;
6591 #endif /* !HAVE_CAIRO */
6592
6593 if (xobjs.suspend >= 0) return;
6594 old_ongoing = areawin->redraw_ongoing;
6595 areawin->redraw_ongoing = True;
6596
6597 /* Set drawing context to fixed_pixmap */
6598 #ifdef HAVE_CAIRO
6599 cairo_identity_matrix(areawin->cr);
6600 cairo_push_group(areawin->cr);
6601 #else /* HAVE_CAIRO */
6602 old_window = areawin->window;
6603 areawin->window = areawin->fixed_pixmap;
6604 #endif /* HAVE_CAIRO */
6605
6606 /* Clear background */
6607 #ifdef HAVE_CAIRO
6608 if (xobjs.pagelist[areawin->page]->background.name != (char *)NULL) {
6609 #ifdef HAVE_GS
6610 copybackground();
6611 #else /* HAVE_GS */
6612 SetForeground(dpy, areawin->gc, BACKGROUND);
6613 cairo_paint(areawin->cr);
6614 #endif /* HAVE_GS */
6615 }
6616 else {
6617 SetForeground(dpy, areawin->gc, BACKGROUND);
6618 cairo_paint(areawin->cr);
6619 }
6620 #else /* HAVE_CAIRO */
6621 if (xobjs.pagelist[areawin->page]->background.name == (char *)NULL
6622 || (copybackground() < 0)) {
6623 SetForeground(dpy, areawin->gc, BACKGROUND);
6624 XFillRectangle(dpy, areawin->window, areawin->gc, 0, 0, areawin->width,
6625 areawin->height);
6626 }
6627 SetThinLineAttributes(dpy, areawin->gc, 0, LineSolid, CapRound, JoinBevel);
6628 #endif /* !HAVE_CAIRO */
6629
6630 newmatrix();
6631
6632 /* draw GRIDCOLOR lines for grid; mark axes in AXESCOLOR */
6633
6634 if (eventmode != CATALOG_MODE && eventmode != ASSOC_MODE
6635 && eventmode != FONTCAT_MODE && eventmode != EFONTCAT_MODE
6636 && eventmode != CATMOVE_MODE && eventmode != CATTEXT_MODE) {
6637
6638 draw_grids();
6639
6640 /* Determine the transformation matrix for the topmost object */
6641 /* and draw the hierarchy above the current edit object (if */
6642 /* "edit-in-place" is selected). */
6643
6644 if (areawin->editinplace == True) {
6645 if (areawin->stack != NULL) {
6646 pushlistptr lastlist = NULL, thislist;
6647 Matrix mtmp;
6648
6649 UPushCTM(); /* save our current state */
6650
6651 /* It's easiest if we first push the current page onto the stack, */
6652 /* then we don't need to treat the top-level page separately. We */
6653 /* pop it at the end. */
6654 push_stack(&areawin->stack, areawin->topinstance, NULL);
6655
6656 thislist = areawin->stack;
6657
6658 while ((thislist != NULL) &&
6659 (is_library(thislist->thisinst->thisobject) < 0)) {
6660
6661 /* Invert the transformation matrix of the instance on the stack */
6662 /* to get the proper transformation matrix of the drawing one */
6663 /* up in the hierarchy. */
6664
6665 UResetCTM(&mtmp);
6666 UPreMultCTM(&mtmp, thislist->thisinst->position,
6667 thislist->thisinst->scale, thislist->thisinst->rotation);
6668 InvertCTM(&mtmp);
6669 UPreMultCTMbyMat(DCTM, &mtmp);
6670
6671 lastlist = thislist;
6672 thislist = thislist->next;
6673
6674 /* The following will be true for moves between schematics and symbols */
6675 if ((thislist != NULL) && (thislist->thisinst->thisobject->symschem
6676 == lastlist->thisinst->thisobject))
6677 break;
6678 }
6679
6680 if (lastlist != NULL) {
6681 pushlistptr stack = NULL;
6682 SetForeground(dpy, areawin->gc, OFFBUTTONCOLOR);
6683 UDrawObject(lastlist->thisinst, SINGLE, DOFORALL,
6684 xobjs.pagelist[areawin->page]->wirewidth, &stack);
6685 /* This shouldn't happen, but just in case. . . */
6686 if (stack) free_stack(&stack);
6687 }
6688
6689 pop_stack(&areawin->stack); /* restore the original stack state */
6690 UPopCTM(); /* restore the original matrix state */
6691 }
6692 }
6693 }
6694
6695 /* draw all of the elements on the screen */
6696
6697 SetForeground(dpy, areawin->gc, FOREGROUND);
6698
6699 /* Initialize hierstack */
6700 if (areawin->hierstack) free_stack(&areawin->hierstack);
6701 UDrawObject(areawin->topinstance, TOPLEVEL, FOREGROUND,
6702 xobjs.pagelist[areawin->page]->wirewidth, &areawin->hierstack);
6703 if (areawin->hierstack) free_stack(&areawin->hierstack);
6704
6705 #ifdef HAVE_CAIRO
6706 if (areawin->fixed_pixmap)
6707 cairo_pattern_destroy(areawin->fixed_pixmap);
6708 areawin->fixed_pixmap = cairo_pop_group(areawin->cr);
6709 #else /* HAVE_CAIRO */
6710 areawin->window = old_window;
6711 #endif /* HAVE_CAIRO */
6712 areawin->redraw_ongoing = old_ongoing;
6713 }
6714
6715 /*--------------------------------------*/
6716 /* Draw the primary graphics window */
6717 /*--------------------------------------*/
6718
6719 void drawwindow(xcWidget w, caddr_t clientdata, caddr_t calldata)
6720 {
6721 XEvent discard;
6722 xcDrawType redrawtype = xcDRAW_EDIT;
6723 UNUSED(w); UNUSED(clientdata); UNUSED(calldata);
6724
6725 if (areawin->area == NULL) return;
6726 if (!xcIsRealized(areawin->area)) return;
6727 if (xobjs.suspend >= 0) return;
6728
6729 #ifndef HAVE_CAIRO
6730 /* Make sure a fixed pixmap exists */
6731 if (!areawin->fixed_pixmap) {
6732 areawin->fixed_pixmap = XCreatePixmap(dpy, areawin->window,
6733 areawin->width, areawin->height,
6734 DefaultDepthOfScreen(xcScreen(areawin->area)));
6735 }
6736 #endif /* !HAVE_CAIRO */
6737
6738 /* Sanity check---specifically to track down an error */
6739 if ((areawin->selects == 1) && *(areawin->selectlist) >= topobject->parts) {
6740 Wprintf("Internal error!");
6741 areawin->selects = 0;
6742 unselect_all();
6743 }
6744
6745 if (areawin->redraw_needed)
6746 redrawtype = xcREDRAW_FORCED;
6747
6748 switch (eventmode) {
6749 case ARC_MODE: case EARC_MODE:
6750 arc_mode_draw(redrawtype, TOARC(EDITPART));
6751 break;
6752 case SPLINE_MODE: case ESPLINE_MODE:
6753 spline_mode_draw(redrawtype, TOSPLINE(EDITPART));
6754 break;
6755 case BOX_MODE: case EPOLY_MODE: case WIRE_MODE:
6756 poly_mode_draw(redrawtype, TOPOLY(EDITPART));
6757 break;
6758 case EPATH_MODE:
6759 path_mode_draw(redrawtype, TOPATH(EDITPART));
6760 break;
6761 case TEXT_MODE: case CATTEXT_MODE: case ETEXT_MODE:
6762 text_mode_draw(redrawtype, TOLABEL(EDITPART));
6763 break;
6764 case SELAREA_MODE:
6765 selarea_mode_draw(redrawtype, NULL);
6766 break;
6767 case RESCALE_MODE:
6768 rescale_mode_draw(redrawtype, NULL);
6769 break;
6770 case CATMOVE_MODE: case MOVE_MODE: case COPY_MODE:
6771 move_mode_draw(redrawtype, NULL);
6772 break;
6773 case ASSOC_MODE: case EINST_MODE: case FONTCAT_MODE: case EFONTCAT_MODE:
6774 case PAN_MODE: case NORMAL_MODE: case UNDO_MODE: case CATALOG_MODE:
6775 normal_mode_draw(redrawtype, NULL);
6776 }
6777
6778 /* flush out multiple expose/resize events from the event queue */
6779 while (XCheckWindowEvent(dpy, areawin->window, ExposureMask, &discard));
6780
6781 /* end by restoring graphics state */
6782 SetForeground(dpy, areawin->gc, areawin->gccolor);
6783
6784 areawin->redraw_needed = False;
6785 }
6786
6787 /*----------------------------------------------------------------------*/
6788 /* Draw the current window (areawin). Check if other windows contain */
6789 /* the same object or one of its ancestors. If so, redraw them, too. */
6790 /*----------------------------------------------------------------------*/
6791
6792 void drawarea(xcWidget w, caddr_t clientdata, caddr_t calldata)
6793 {
6794 XCWindowDataPtr thiswin, focuswin;
6795
6796 if (xobjs.suspend >= 0) {
6797 if (xobjs.suspend == 0)
6798 xobjs.suspend = 1; /* Mark that a refresh is pending */
6799 return;
6800 }
6801
6802 focuswin = areawin;
6803
6804 for (thiswin = xobjs.windowlist; thiswin != NULL; thiswin = thiswin->next) {
6805 if (thiswin == focuswin) continue;
6806
6807 /* Note: need to check ancestry here, not just blindly redraw */
6808 /* all the windows all the time. */
6809 areawin = thiswin;
6810
6811 #ifdef HAVE_CAIRO
6812 /* Don't respond to an expose event if the graphics context */
6813 /* has not yet been created. */
6814 if (areawin->cr != NULL)
6815 #endif
6816 drawwindow(NULL, NULL, NULL);
6817 }
6818 areawin = focuswin;
6819 drawwindow(w, clientdata, calldata);
6820 }
6821
6822 /*-------------------------------------------------------------------------*/
XCircuit is a program for drawing publishable-quality electrical circuit schematic diagrams and related figures, and produce circuit netlists through schematic capture.