![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to line.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [OS/2 SDKs] / pmsdk / samples / line|
Return to line.c CVS log | Up to [OS/2 SDKs] / pmsdk / samples / line |
1.1 root 1: /****************************************************************************
2:
3: PROGRAM: line.c Created by Microsoft Corp., 1988
4:
5: PURPOSE: Demonstrate the color, line, arc, and retained
6: drawing capabilities of the MS OS/2 Presentation Manager.
7:
8: FUNCTIONS:
9: GENERICWNDPROC
10: ABOUT
11: ARCPDLGPROC
12: FIL_S_DLGPROC
13:
14:
15: COMMENTS:
16: This code demonstrates some of the features of GPI, the Graphics
17: Programming Interface for MS OS/2. The user interface consists of
18: menus, dialogs, and message boxes.
19:
20: You can use menu selections to:
21:
22: o Erase the current screen contents
23: o Open a segment for retained drawing
24: o Save a segments contents
25: o Display a series of segments
26: o Select line widths ranging from 2 to 50 pels
27: o Select a line color from one of the 16 default colors
28: o Select a line-end style
29: o Select a line-join style
30: o Select a foreground line mix mode
31: o Plot an x- and y-axis for arc and ellipse drawing
32: o Draw 3 types of arcs
33: o Collect points for fillet and spline drawings
34: o Draw fillets and splines
35:
36: You can draw lines by pressing the left-most mouse button and
37: dragging the mouse.
38:
39: You can collect points for fillets and splines by clicking the
40: leftmost button when the mouse cursor is at the appropriate
41: position in the window's client area.
42:
43:
44:
45:
46: ****************************************************************************/
47: #include "line.h"
48:
49: HAB hab; /* handle to the anchor block */
50: HMQ hmq; /* handle to the message queue */
51: HPS hps; /* handle to the presentation space */
52: SIZEL page; /* ps pagesize */
53: HDC hdc; /* device context handle */
54: LONG width = 2; /* wide-line width */
55: POINTL point1, point2; /* pel points */
56: POINTL cur_pos, prev_pos, point; /* points used in tracking mouse */
57: LONG larray[4]; /* array of fillet sharpness values */
58: POINTL farray[20]; /* array fillet & spline params */
59: LONG m; /* full arc multiplier */
60: BOOL draw_full_arc, draw_geom_line, collect_points, geom_line_flag = 1;
61: LONG seg_num=0; /* unique segment identifier */
62: LONG i,j, point_count; /* loop counter */
63: POINTL parray[4] = { 10,10, 50,50, 200,10, 10,10 };
64: LONG bflWinStyle; /* window style */
65: CHAR str[80]; /* char string from sprintf */
66: LINEBUNDLE pbundle; /* attribute bundle pointer */
67: SHORT lP, lQ, lR, lS; /* temporary arc parameters */
68: ARCPARAMS arcparams; /* arc parameters */
69: POINTL arc_array[2] = {450, 150, 550, 100}; /* params for point arc */
70:
71:
72: CHAR szClassName[] = "Line"; /* window class name */
73: HWND hwndClient; /* handle to the client */
74: HWND hwndFrame; /* handle to the frame window */
75: QMSG qmsg; /* message queue structure */
76:
77: VOID cdecl main() {
78: hab = WinInitialize(NULL);
79: hmq = WinCreateMsgQueue(hab, 0);
80: if (!WinRegisterClass(hab, szClassName, GenericWndProc, CS_SIZEREDRAW, 0))
81: DosExit(EXIT_PROCESS, 1);
82: bflWinStyle = FCF_SYSMENU | FCF_TITLEBAR | FCF_SIZEBORDER | FCF_MINMAX |
83: FCF_MENU;
84: if (!(hwndFrame = WinCreateStdWindow(HWND_DESKTOP, 0L, &bflWinStyle,
85: szClassName, "Line Graphics", 0L, NULL, ID_RESOURCE, &hwndClient)))
86: DosExit(EXIT_PROCESS, 1);
87: WinSetWindowPos(hwndFrame, NULL, 0, 0, 639, 349,
88: SWP_SIZE | SWP_MOVE | SWP_SHOW);
89:
90: /* obtain a handle to a window DC */
91: hdc = WinOpenWindowDC(hwndClient);
92:
93: /* create a ps */
94: hps = GpiCreatePS (hab, /* handle to anchor block */
95: hdc, /* handle to window DC */
96: &page, /* page size is 0 by 0 */
97: PU_PELS | GPIA_ASSOC); /* map 1 world coordinate to 1
98: * pel, associate the new ps
99: * with hdc
100: */
101:
102: GpiSetMarker(hps, MARKSYM_SMALLCIRCLE);
103:
104: while (WinGetMsg(hab, &qmsg, NULL, 0, 0))
105: WinDispatchMsg(hab, &qmsg);
106:
107:
108: WinDestroyWindow(hwndFrame);
109: WinDestroyMsgQueue(hmq);
110: WinTerminate(hab);
111: DosExit(EXIT_PROCESS, 0);
112: }
113:
114: /****************************************************************************
115:
116: FUNCTION: GenericWndProc(HWND, USHORT, MPARAM, MPARAM)
117:
118: PURPOSE: Processes messages
119:
120: MESSAGES:
121:
122: WM_COMMAND - input received
123: WM_PAINT - paint the window
124:
125: ****************************************************************************/
126:
127: MRESULT FAR PASCAL GenericWndProc(hwnd, usMessage, mp1, mp2)
128: HWND hwnd;
129: USHORT usMessage;
130: MPARAM mp1;
131: MPARAM mp2;
132: {
133: RECTL rcl;
134: HWND hMenu; /* handle to the System menu */
135: POINTL point1, point2; /* point structures */
136: RECTL rect; /* rect structure */
137: CHAR str[126]; /* array of characters */
138: HPS hgpi; /* special ps for repainting */
139:
140: switch (usMessage) {
141: case WM_COMMAND:
142: switch (LOUSHORT (mp1)) {
143:
144: /*
145: * ABOUT menu case statement
146: */
147: case IDM_ABOUT:
148: WinDlgBox(HWND_DESKTOP, hwndFrame, About, NULL, ID_ABOUT,
149: NULL);
150: return 0L;
151:
152: /*
153: * LINE menu case statement
154: */
155: case IDM_DR_LINE:
156: geom_line_flag = TRUE;
157: collect_points = FALSE;
158: return 0L;
159:
160: /*
161: * ARC menu case statements
162: */
163: case IDM_AR_PARM: /* display arc param dialog box */
164: WinDlgBox(HWND_DESKTOP,
165: hwndFrame,
166: (PFNWP)ArcPDlgProc,
167: NULL,
168: IDDLG_ARCP,
169: NULL);
170: return 0L;
171: case IDM_AR_AXIS: /* draw cartesian coord system */
172: point1.x = 500; point1.y = 200;
173: GpiMove(hps, &point1);
174: DrawAxis(hps, &point1);
175: return 0L;
176: case IDM_AR_FULL: /* draw a full arc */
177: point1.x = 500; point1.y = 200;
178: GpiMove(hps, &point1);
179: GpiFullArc(hps, DRO_OUTLINE, 50L * 65536L);
180: return 0L;
181: case IDM_AR_3PNT: /* draw a 3 point arc */
182: point1.x = 500; point1.y = 200;
183: GpiMove(hps, &point1);
184: GpiPointArc(hps, arc_array);
185: return 0L;
186: case IDM_AR_PRTL: /* draw a partial arc */
187: point1.x = 500; point1.y = 200;
188: GpiPartialArc(hps,
189: &point1, /* arc's center */
190: 50L * 65536L,/* radii multiplier */
191: 0L, /* start angle=0 * 65536 */
192: 5898240L); /* sweep angle=90 * 65536 */
193: return 0L;
194: case IDM_AR_CPNT: /* collect points for fillet or spline */
195: draw_geom_line = FALSE;
196: geom_line_flag = FALSE;
197: collect_points = TRUE;
198: i = 0;
199: return 0L;
200: case IDM_AR_SPLN: /* draw spline using collected points */
201: collect_points = FALSE;
202: if (!(j = --i % 3)){ /* check for mult. of 3 points */
203: j = i; /* set up j for polyspline call */
204: for (i = 0; i<=j; i++){ /* shift elements */
205: farray[i].x = farray[i+1].x;
206: farray[i].y = farray[i+1].y;
207: }
208: farray[i].x = farray[i+1].x; farray[i].y = farray[i+1].y;
209: GpiQueryCurrentPosition(hps, &cur_pos);
210: GpiPolySpline(hps, j, farray);
211: for (i = 0; i<=j; i++){
212: farray[i].x = 0;
213: farray[i].y = 0;
214: }
215: i = 0;
216: }
217: else
218: {
219: sprintf(str,"((Number_of_Points - 1) mod 3) != 0");
220: WinMessageBox(HWND_DESKTOP,
221: hwndClient,
222: str,
223: "Try Again...",
224: 0,
225: MB_OK);
226: for (i = 0; i<20; i++){
227: farray[i].x = 0;
228: farray[i].y = 0;
229: }
230: i = 0;
231: }
232: return 0L;
233: case IDM_AR_SFLL: /* draw sharp fillet using collected pts */
234: collect_points = FALSE;
235: sprintf(str, "Plot 9 points. (If sharpness > 1, the fillet is a parabola, if sharpness < 0, the fillet is a hyperbola.) Four fillets will be drawn.");
236: WinMessageBox(HWND_DESKTOP,
237: hwndClient,
238: str,
239: "PolyFilletSharp",
240: 0,
241: MB_OK);
242: WinDlgBox(HWND_DESKTOP,
243: hwndFrame,
244: (PFNWP)Fil_S_DlgProc,
245: NULL,
246: IDDLG_FSDP,
247: NULL);
248: j = i; /* set up j for polyspline call */
249: for (i = 0; i<=j; i++){ /* shift elements */
250: farray[i].x = farray[i+1].x;
251: farray[i].y = farray[i+1].y;
252: }
253: GpiPolyFilletSharp(hps,--j, farray, larray);
254: for (i = 0; i<=j; i++){
255: farray[i].x = 0;
256: farray[i].y = 0;
257: }
258: i = 0;
259: return 0L;
260: case IDM_AR_FLLT: /* draw fillet using collected points */
261: collect_points = FALSE;
262: sprintf(str, "This selection will draw multiple fillets.");
263: WinMessageBox(HWND_DESKTOP,
264: hwndClient,
265: str,
266: "PolyFillet",
267: 0,
268: MB_OK);
269: GpiPolyFillet(hps,i, farray);
270: for (i = 0; i<20; i++){
271: farray[i].x = 0;
272: farray[i].y = 0;
273: }
274: i = 0;
275: return 0L;
276:
277: /*
278: * QUERY menu case statement
279: */
280: case IDM_QUERY: /* query the line attributes */
281: QueryLBundle();
282: return 0L;
283:
284: /*
285: * WIDTH menu case statments
286: */
287: case IDM_WI_2: /* set the line width to 2 pels */
288: width = 2;
289: return 0L;
290: case IDM_WI_5: /* set the line width to 5 pels */
291: width = 5;
292: return 0L;
293: case IDM_WI_10: /* set the line width to 10 pels */
294: width = 10;
295: return 0L;
296: case IDM_WI_15: /* set the line width to 15 pels */
297: width = 15;
298: return 0L;
299: case IDM_WI_20: /* set the line width to 20 pels */
300: width = 20;
301: return 0L;
302: case IDM_WI_25: /* set the line width to 25 pels */
303: width = 25;
304: return 0L;
305: case IDM_WI_50: /* set the line width to 50 pels */
306: width = 50;
307: return 0L;
308:
309: /*
310: * LINE END menu case statements
311: */
312: case IDM_LE_DEFAULT: /* set the lineend to default */
313: GpiSetLineEnd(hps, LINEEND_DEFAULT);
314: return 0L;
315: case IDM_LE_FLAT: /* set the lineend to flat */
316: GpiSetLineEnd(hps, LINEEND_FLAT);
317: return 0L;
318: case IDM_LE_SQUARE: /* set the lineend to square */
319: GpiSetLineEnd(hps, LINEEND_SQUARE);
320: return 0L;
321: case IDM_LE_ROUND: /* set the lineend to round */
322: GpiSetLineEnd(hps, LINEEND_ROUND);
323: return 0L;
324:
325: /*
326: * LINE JOIN menu case statments
327: */
328: case IDM_LI_DEFAULT: /* set the linejoin to default */
329: GpiSetLineJoin(hps, LINEJOIN_DEFAULT);
330: return 0L;
331: case IDM_LI_BEVEL:
332: GpiSetLineJoin(hps, LINEJOIN_BEVEL);
333: return 0L;
334: case IDM_LI_ROUND:
335: GpiSetLineJoin(hps, LINEJOIN_ROUND);
336: return 0L;
337: case IDM_LI_MITRE:
338: GpiSetLineJoin(hps, LINEJOIN_MITRE);
339: return 0L;
340:
341: /*
342: * COLOR menu case statments
343: */
344: case IDM_CO_BACKGROUND: /* set the color to background */
345: GpiSetColor(hps, CLR_BACKGROUND);
346: return 0L;
347: case IDM_CO_BLUE: /* set the color to blue */
348: GpiSetColor(hps, CLR_BLUE);
349: return 0L;
350: case IDM_CO_RED: /* set the color to red */
351: GpiSetColor(hps, CLR_RED);
352: return 0L;
353: case IDM_CO_PINK: /* set the color to pink */
354: GpiSetColor(hps, CLR_PINK);
355: return 0L;
356: case IDM_CO_GREEN: /* set the color to green */
357: GpiSetColor(hps, CLR_GREEN);
358: return 0L;
359: case IDM_CO_CYAN: /* set the color to cyan */
360: GpiSetColor(hps, CLR_CYAN);
361: return 0L;
362: case IDM_CO_YELLOW: /* set the color to yellow */
363: GpiSetColor(hps, CLR_YELLOW);
364: return 0L;
365: case IDM_CO_NEUTRAL: /* set the color to neutral */
366: GpiSetColor(hps, CLR_NEUTRAL);
367: return 0L;
368: case IDM_CO_DARKGRAY: /* set the color to darkgray */
369: GpiSetColor(hps, CLR_DARKGRAY);
370: return 0L;
371: case IDM_CO_PALEBLUE: /* set the color to paleblue */
372: GpiSetColor(hps, CLR_PALEBLUE);
373: return 0L;
374: case IDM_CO_PALERED: /* set the color to palered */
375: GpiSetColor(hps, CLR_PALERED);
376: return 0L;
377: case IDM_CO_PALEPINK: /* set the color to palepink */
378: GpiSetColor(hps, CLR_PALEPINK);
379: return 0L;
380: case IDM_CO_DARKGREEN: /* set the color to darkgreen */
381: GpiSetColor(hps, CLR_DARKGREEN);
382: return 0L;
383: case IDM_CO_DARKCYAN: /* set the color to darkcyan */
384: GpiSetColor(hps, CLR_DARKCYAN);
385: return 0L;
386: case IDM_CO_BROWN: /* set the color to brown */
387: GpiSetColor(hps, CLR_BROWN);
388: return 0L;
389: case IDM_CO_PALEGRAY: /* set the color to palegray */
390: GpiSetColor(hps, CLR_PALEGRAY);
391: return 0L;
392:
393: /*
394: * MIX MODE menu case statments
395: */
396: case IDM_MM_DEFAULT: /* set the mix mode to default */
397: GpiSetMix(hps, FM_DEFAULT);
398: return 0L;
399: case IDM_MM_OR: /* set the mix mode to or */
400: GpiSetMix(hps, FM_OR);
401: return 0L;
402: case IDM_MM_OVERPAINT: /* set the mix mode to overpaint */
403: GpiSetMix(hps, FM_OVERPAINT);
404: return 0L;
405: case IDM_MM_XOR: /* set the mix mode to xor */
406: GpiSetMix(hps, FM_XOR);
407: return 0L;
408: case IDM_MM_LEAVEALONE: /* set the mix mode to leavealone */
409: GpiSetMix(hps, FM_LEAVEALONE);
410: return 0L;
411: case IDM_MM_AND: /* set the mix mode to and */
412: GpiSetMix(hps, FM_AND);
413: return 0L;
414: case IDM_MM_SUBTRACT: /* set the mix mode to subtract */
415: GpiSetMix(hps, FM_SUBTRACT);
416: return 0L;
417: case IDM_MM_MASKSRCNOT: /* set the mixmode to masksrcnot */
418: GpiSetMix(hps, FM_MASKSRCNOT);
419: return 0L;
420: case IDM_MM_ZERO: /* set the mix mode to zero */
421: GpiSetMix(hps, FM_ZERO);
422: return 0L;
423: case IDM_MM_NOTMERGESRC: /* set the mix mode to notmergesrc */
424: GpiSetMix(hps, FM_NOTMERGESRC);
425: return 0L;
426: case IDM_MM_NOTXORSRC: /* set the mix mode to notxorsrc */
427: GpiSetMix(hps, FM_NOTXORSRC);
428: return 0L;
429: case IDM_MM_INVERT: /* set the mix mode to invert */
430: GpiSetMix (hps, FM_INVERT);
431: return 0L;
432: case IDM_MM_MERGESRCNOT: /* set the mix mode to mergesrcnot
433: GpiSetMix (hps, FM_MERGESRCNOT);
434: return 0L;
435: case IDM_MM_NOTCOPYSRC: /* setthe mix mode to notcopysrc */
436: GpiSetMix(hps, FM_NOTCOPYSRC);
437: return 0L;
438: case IDM_MM_MERGENOTSRC:/* set the mix mode to mergenotsrc */
439: GpiSetMix(hps, FM_MERGENOTSRC);
440: return 0L;
441: case IDM_MM_NOTMASKSRC: /* set the mix mode to notmasksrc */
442: GpiSetMix (hps, FM_NOTMASKSRC);
443: return 0L;
444: case IDM_MM_ONE: /* set the mix mode to one */
445: GpiSetMix(hps, FM_ONE);
446: return 0L;
447:
448: /*
449: * SCREEN menu case statement
450: */
451: case IDM_SC_ERASE: /* erase the screen */
452: WinQueryWindowRect(hwnd, &rcl);
453: WinFillRect(hps, &rcl, CLR_WHITE);
454: return 0L;
455:
456: /*
457: * SEGMENT menu case statements
458: */
459: case IDM_DR_DRAW1: /* open a segment for drawing */
460: GpiSetDrawingMode(hps,
461: DM_DRAWANDRETAIN);
462: GpiOpenSegment (hps,
463: ++seg_num);
464: GpiSetSegmentAttrs (hps, seg_num, ATTR_CHAINED, ATTR_ON);
465: return 0L;
466:
467: case IDM_DR_SAVE: /* close a segment and save its contents */
468: GpiCloseSegment (hps);
469: return 0L;
470:
471:
472: case IDM_DR_DRAW2: /* display all of the saved segments */
473: if (seg_num == 1)
474: GpiDrawSegment(hps, seg_num);
475: else
476: GpiDrawFrom(hps, 1L, seg_num);
477: return 0L;
478:
479: }
480: return 0L;
481:
482: /*
483: * User pressed the leftmost mouse button
484: */
485: case WM_BUTTON1DOWN: /*...and they're drawing or collecting points */
486: if (geom_line_flag){ /* drawing wide lines */
487: cur_pos.x = (LONG) LOUSHORT(mp1); /* get the x-coordinate of the current pos */
488: cur_pos.y = (LONG) HIUSHORT(mp1); /* get the y-coord of the current pos */
489: GpiMove (hps, &cur_pos); /* move to the current pos */
490: draw_geom_line = TRUE;
491: }
492: if (collect_points){ /* collecting points */
493: cur_pos.x = (LONG) LOUSHORT(mp1); /* get the x-coordinate of the current pos */
494: cur_pos.y = (LONG) HIUSHORT(mp1); /* get the y-coord of the current pos */
495: if (i == 0){
496: point.x = cur_pos.x; point.y = cur_pos.y;
497: }
498: farray[i].x = cur_pos.x; farray[i++].y = cur_pos.y;
499: GpiMarker(hps, &cur_pos);
500: GpiSetCurrentPosition(hps, &point);
501: }
502: return TRUE;
503:
504: /*
505: * User is dragging the mouse
506: */
507: case WM_MOUSEMOVE: /*...and their drawing */
508: if (draw_geom_line)
509: {
510: cur_pos.x = (LONG) LOUSHORT(mp1); /* get the x-coord for the mouse */
511: cur_pos.y = (LONG) HIUSHORT(mp1); /* get the y-coord for the mouse */
512: DrawWideLine(hps, cur_pos); /* draw the line */
513: return TRUE;
514: }
515: return FALSE;
516: /*
517: * User released the leftmost mouse button
518: */
519: case WM_BUTTON1UP: /*...stop all drawing */
520: draw_geom_line = FALSE;
521: return TRUE;
522:
523:
524: /*
525: * Paint the window
526: */
527: case WM_PAINT:
528: hgpi = WinBeginPaint(hwnd, NULL, NULL);
529: GpiErase(hgpi);
530: WinEndPaint(hgpi);
531: break;
532:
533: default:
534: return (WinDefWindowProc(hwnd, usMessage, mp1, mp2));
535: }
536: return (0L);
537: }
538:
539: /****************************************************************************
540:
541: FUNCTION: About(HWND, USHORT, MPARAM, MPARAM)
542:
543: PURPOSE: Processes messages for "About" dialog box
544:
545: MESSAGES:
546:
547: WM_COMMAND - Input received
548:
549: COMMENTS:
550:
551: Wait for user to click on "Ok" button, then close the dialog box.
552:
553: ****************************************************************************/
554:
555: MRESULT FAR PASCAL About(hwnd, usMessage, mp1, mp2)
556: HWND hwnd;
557: USHORT usMessage;
558: MPARAM mp1;
559: MPARAM mp2;
560: {
561: switch (usMessage) {
562: case WM_COMMAND:
563: switch (LOUSHORT(mp1)) {
564: case ID_OK:
565: WinDismissDlg(hwnd, 0);
566: break;
567: }
568: break;
569:
570: default:
571: return (WinDefDlgProc(hwnd, usMessage, mp1, mp2));
572: }
573: return (0L);
574: }
575:
576: /***************************************************************************
577:
578: FUNCTION: DrawWideLine
579:
580: PURPOSE: This function uses the coordinates of the cursor to draw
581: a line of specified width and color. (Note: since this is
582: a wide line, the drawing occurs within a path)
583:
584: ***************************************************************************/
585:
586: DrawWideLine(hps, cur_pos)
587: HPS hps;
588: POINTL cur_pos;
589: {
590: GpiSetLineWidthGeom(hps, width);
591: GpiBeginPath(hps, 1L); /* start a path */
592: GpiLine(hps, &cur_pos);
593: GpiEndPath(hps);
594: GpiModifyPath(hps,
595: 1L,
596: MPATH_STROKE);
597: GpiFillPath(hps,
598: 1L,
599: FPATH_ALTERNATE);
600: }
601:
602: /***************************************************************************
603:
604: FUNCTION: ArcParam Dlg Proc
605:
606: PURPOSE: This function processes the arc parameters and scaling factor
607: that the user enters.
608:
609: COMMENTS: The application uses these values when it draws a full arc,
610: a partial arc, or, a three-point arc.
611:
612: ***************************************************************************/
613:
614:
615: MRESULT FAR PASCAL ArcPDlgProc(hwnd, Msg, lParam1, lParam2)
616: HWND hwnd;
617: USHORT Msg;
618: MPARAM lParam1;
619: MPARAM lParam2;
620: {
621: switch (Msg)
622: {
623: case WM_COMMAND:
624: switch (LOUSHORT (lParam1))
625: {
626: case DM_QUIT:
627: WinDismissDlg(hwnd, FALSE);
628: break;
629: case DM_OK:
630: /*
631: * Capture lP
632: */
633: WinQueryDlgItemShort(hwnd,
634: DM_LP,
635: &lP,
636: 0);
637:
638: /*
639: * Capture lQ
640: */
641: WinQueryDlgItemShort(hwnd,
642: DM_LQ,
643: &lQ,
644: 0);
645:
646: /*
647: * Capture lR
648: */
649: WinQueryDlgItemShort(hwnd,
650: DM_LR,
651: &lR,
652: 0);
653:
654: /*
655: * Capture lS
656: */
657: WinQueryDlgItemShort(hwnd,
658: DM_LS,
659: &lS,
660: 0);
661: arcparams.lP = (LONG)(lP);
662: arcparams.lQ = (LONG)(lQ);
663: arcparams.lR = (LONG)(lR);
664: arcparams.lS = (LONG)(lS);
665:
666: GpiSetArcParams(hps, &arcparams);
667: WinDismissDlg(hwnd, TRUE);
668: break;
669: default:
670: break;
671: }
672: break;
673: default:
674: return WinDefDlgProc (hwnd, Msg, lParam1, lParam2);
675: }
676: return 0L;
677: }
678:
679:
680: /***************************************************************************
681:
682: FUNCTION: QueryLBundle
683:
684: PURPOSE: Query the line attribute structure and print attributes
685: in a message box
686:
687: ***************************************************************************/
688:
689: QueryLBundle()
690: {
691: GpiQueryAttrs(hps,
692: PRIM_LINE,
693: LBB_COLOR | LBB_MIX_MODE | LBB_WIDTH |
694: LBB_GEOM_WIDTH | LBB_TYPE | LBB_END |
695: LBB_JOIN,
696: &pbundle);
697:
698: sprintf(str, "Color %ld Mix %d C_Width %ld G_Width %ld Type %d End %d Join %d", pbundle.lColor, pbundle.usMixMode, pbundle.fxWidth, pbundle.lGeomWidth, pbundle.usType, pbundle.usEnd, pbundle.usJoin);
699:
700: WinMessageBox(HWND_DESKTOP,
701: hwndClient,
702: str,
703: "Line Attributes",
704: 0,
705: MB_OK);
706:
707: }
708:
709: /***************************************************************************
710:
711: FUNCTION: DrawAxis()
712:
713: PURPOSE: Plots a Graph that identifies origin for full arcs
714:
715: ***************************************************************************/
716:
717:
718: DrawAxis(hps, pOrigin)
719: HPS hps;
720: PPOINTL pOrigin;
721: {
722: POINTL start, end; /* points for axis plotting */
723: LONG color; /* old color */
724:
725: color = GpiQueryColor(hps);
726: GpiSetColor (hps, CLR_BLUE);
727: /* plot y-axis */
728: start.x = pOrigin->x; start.y = 600;
729: end.x = start.x; end.y = 5;
730: DrawLine(hps, &start, &end);
731:
732: /* plot x-axis */
733: start.x = 5; start.y = pOrigin->y;
734: end.x = 810; end.y = start.y;
735: DrawLine(hps, &start, &end);
736:
737: /* plot units along x-axis */
738: start.x = 300; start.y = 202;
739: end.x = 300; end.y = 198;
740: DrawLine(hps, &start, &end);
741:
742: start.x = 400; start.y = 202;
743: end.x = 400; end.y= 198;
744: DrawLine(hps, &start, &end);
745:
746: start.x = 600; start.y = 202;
747: end.x = 600; end.y = 198;
748: DrawLine(hps, &start, &end);
749:
750: start.x = 700; start.y = 202;
751: end.x = 700; end.y = 198;
752: DrawLine(hps, &start, &end);
753:
754: /* plot units along y-axis */
755: start.x = 497; start.y = 400;
756: end.x = 502; end.y = 400;
757: DrawLine(hps, &start, &end);
758:
759: start.x = 497; start.y = 300;
760: end.x = 502; end.y = 300;
761: DrawLine(hps, &start, &end);
762:
763: start.x = 497; start.y = 100;
764: end.x = 502; end.y = 100;
765: DrawLine(hps, &start, &end);
766:
767: GpiSetColor(hps, color);
768: }
769:
770: /***************************************************************************
771:
772: FUNCTION: DrawLine(start, end)
773:
774: PURPOSE: Draws a line from a starting point to an ending point
775:
776: ***************************************************************************/
777:
778: DrawLine(hps, pStart, pEnd)
779: HPS hps;
780: PPOINTL pStart;
781: PPOINTL pEnd;
782: {
783: POINTL start, end; /* start and end points */
784: start.x = pStart->x; start.y = pStart->y;
785: end.x = pEnd->x; end.y = pEnd->y;
786: GpiMove(hps, &start);
787: GpiLine(hps, &end);
788: }
789: MRESULT FAR PASCAL Fil_S_DlgProc(hwnd, Msg, lParam1, lParam2)
790: HWND hwnd;
791: USHORT Msg;
792: MPARAM lParam1;
793: MPARAM lParam2;
794: {
795: switch (Msg)
796: {
797: case WM_COMMAND:
798: switch (LOUSHORT (lParam1))
799: {
800: case DM_QUITF:
801: WinDismissDlg(hwnd, FALSE);
802: break;
803: case DM_OKF:
804: /*
805: * Capture Sharpness for Fillet1
806: */
807: WinQueryDlgItemShort(hwnd,
808: DM_S1,
809: &lP,
810: 1);
811:
812: /*
813: * Capture Sharpness for Fillet2
814: */
815: WinQueryDlgItemShort(hwnd,
816: DM_S2,
817: &lQ,
818: 1);
819:
820: /*
821: * Capture Sharpness for Fillet3
822: */
823: WinQueryDlgItemShort(hwnd,
824: DM_S3,
825: &lR,
826: 1);
827:
828: /*
829: * Capture Sharpness for Fillet4
830: */
831: WinQueryDlgItemShort(hwnd,
832: DM_S4,
833: &lS,
834: 1);
835: larray[0] = (LONG)(65536 * lP);
836: larray[1] = (LONG)(65536 * lQ);
837: larray[2] = (LONG)(65536 * lR);
838: larray[3] = (LONG)(65536 * lS);
839:
840: WinDismissDlg(hwnd, TRUE);
841: break;
842: default:
843: break;
844: }
845: break;
846: default:
847: return WinDefDlgProc (hwnd, Msg, lParam1, lParam2);
848: }
849: return 0L;
850: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.