![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to life.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [OS/2 SDKs] / pmsdk / samples / petzold / chap13|
Return to life.c CVS log | Up to [OS/2 SDKs] / pmsdk / samples / petzold / chap13 |
1.1 ! root 1: /*-------------------------------------- ! 2: LIFE.C -- John Conway's Game of Life ! 3: --------------------------------------*/ ! 4: ! 5: #define INCL_WIN ! 6: #define INCL_GPI ! 7: #include <os2.h> ! 8: #include <stdlib.h> ! 9: #include <string.h> ! 10: #include "life.h" ! 11: ! 12: #define ID_TIMER 1 ! 13: ! 14: MRESULT EXPENTRY ClientWndProc (HWND, USHORT, MPARAM, MPARAM) ; ! 15: ! 16: CHAR szClientClass [] = "Life" ; ! 17: HAB hab ; ! 18: ! 19: int main (void) ! 20: { ! 21: static ULONG flFrameFlags = FCF_TITLEBAR | FCF_SYSMENU | ! 22: FCF_SIZEBORDER | FCF_MINMAX | ! 23: FCF_SHELLPOSITION | FCF_TASKLIST | ! 24: FCF_MENU | FCF_ICON ; ! 25: HMQ hmq ; ! 26: HWND hwndFrame, hwndClient ; ! 27: QMSG qmsg ; ! 28: ! 29: hab = WinInitialize (0) ; ! 30: hmq = WinCreateMsgQueue (hab, 0) ; ! 31: ! 32: WinRegisterClass (hab, szClientClass, ClientWndProc, CS_SIZEREDRAW, 0) ; ! 33: ! 34: hwndFrame = WinCreateStdWindow (HWND_DESKTOP, WS_VISIBLE, ! 35: &flFrameFlags, szClientClass, NULL, ! 36: 0L, NULL, ID_RESOURCE, &hwndClient) ; ! 37: ! 38: while (WinGetMsg (hab, &qmsg, NULL, 0, 0)) ! 39: WinDispatchMsg (hab, &qmsg) ; ! 40: ! 41: WinDestroyWindow (hwndFrame) ; ! 42: WinDestroyMsgQueue (hmq) ; ! 43: WinTerminate (hab) ; ! 44: return 0 ; ! 45: } ! 46: ! 47: VOID EnableMenuItem (HWND hwndMenu, SHORT idMenuItem, BOOL fEnable) ! 48: { ! 49: WinSendMsg (hwndMenu, MM_SETITEMATTR, ! 50: MPFROM2SHORT (idMenuItem, TRUE), ! 51: MPFROM2SHORT (MIA_DISABLED, fEnable ? 0 : MIA_DISABLED)) ; ! 52: } ! 53: ! 54: VOID ErrorMsg (HWND hwnd, CHAR *szMessage) ! 55: { ! 56: WinMessageBox (HWND_DESKTOP, hwnd, szMessage, szClientClass, 0, ! 57: MB_OK | MB_ICONEXCLAMATION) ; ! 58: } ! 59: ! 60: VOID DrawCell (HPS hps, SHORT x, SHORT y, SHORT cxCell, SHORT cyCell, ! 61: BYTE bCell) ! 62: { ! 63: RECTL rcl ; ! 64: ! 65: rcl.xLeft = x * cxCell ; ! 66: rcl.yBottom = y * cyCell ; ! 67: rcl.xRight = rcl.xLeft + cxCell - 1 ; ! 68: rcl.yTop = rcl.yBottom + cyCell - 1 ; ! 69: ! 70: WinFillRect (hps, &rcl, bCell & 1 ? CLR_NEUTRAL : CLR_BACKGROUND) ; ! 71: } ! 72: ! 73: VOID DoGeneration (HPS hps, PBYTE pbGrid, SHORT xNumCells, SHORT yNumCells, ! 74: SHORT cxCell, SHORT cyCell) ! 75: { ! 76: SHORT x, y, sSum ; ! 77: ! 78: for (y = 0 ; y < yNumCells - 1 ; y++) ! 79: for (x = 0 ; x < xNumCells ; x++) ! 80: { ! 81: if (x == 0 || x == xNumCells - 1 || y == 0) ! 82: *pbGrid |= *pbGrid << 4 ; ! 83: else ! 84: { ! 85: sSum = (*(pbGrid - 1) + // Left ! 86: *(pbGrid - xNumCells - 1) + // Lower Left ! 87: *(pbGrid - xNumCells ) + // Lower ! 88: *(pbGrid - xNumCells + 1)) // Lower Right ! 89: >> 4 ; ! 90: ! 91: sSum += *(pbGrid + 1) + // Right ! 92: *(pbGrid + xNumCells + 1) + // Upper Right ! 93: *(pbGrid + xNumCells ) + // Upper ! 94: *(pbGrid + xNumCells - 1) ; // Upper Left ! 95: ! 96: sSum = (sSum | *pbGrid) & 0x0F ; ! 97: ! 98: *pbGrid <<= 4 ; ! 99: ! 100: if (sSum == 3) ! 101: *pbGrid |= 1 ; ! 102: ! 103: if ((*pbGrid & 1) != *pbGrid >> 4) ! 104: DrawCell (hps, x, y, cxCell, cyCell, *pbGrid) ; ! 105: } ! 106: pbGrid++ ; ! 107: } ! 108: } ! 109: ! 110: VOID DisplayGenerationNum (HPS hps, SHORT xGen, SHORT yGen, LONG lGeneration) ! 111: { ! 112: static CHAR szBuffer [24] = "Generation " ; ! 113: POINTL ptl ; ! 114: ! 115: ptl.x = xGen ; ! 116: ptl.y = yGen ; ! 117: ! 118: ltoa (lGeneration, szBuffer + 11, 10) ; ! 119: ! 120: GpiSavePS (hps) ; ! 121: ! 122: GpiSetBackMix (hps, BM_OVERPAINT) ; ! 123: GpiCharStringAt (hps, &ptl, (LONG) strlen (szBuffer), szBuffer) ; ! 124: ! 125: GpiRestorePS (hps, -1L) ; ! 126: } ! 127: ! 128: MRESULT EXPENTRY ClientWndProc (HWND hwnd, USHORT msg, MPARAM mp1, MPARAM mp2) ! 129: { ! 130: static BOOL fTimerGoing ; ! 131: static HWND hwndMenu ; ! 132: static LONG lGeneration ; ! 133: static SEL selGrid ; ! 134: static SHORT cxChar, cyChar, cyDesc, cxClient, cyClient, xGenNum, yGenNum, ! 135: cxCell, cyCell, xNumCells, yNumCells, sCellScale = 1 ; ! 136: FONTMETRICS fm ; ! 137: HPS hps ; ! 138: PBYTE pbGrid ; ! 139: POINTL ptl ; ! 140: SHORT x, y ; ! 141: ! 142: switch (msg) ! 143: { ! 144: case WM_CREATE: ! 145: hps = WinGetPS (hwnd) ; ! 146: GpiQueryFontMetrics (hps, (LONG) sizeof fm, &fm) ; ! 147: cxChar = (SHORT) fm.lAveCharWidth ; ! 148: cyChar = (SHORT) fm.lMaxBaselineExt ; ! 149: cyDesc = (SHORT) fm.lMaxDescender ; ! 150: WinReleasePS (hps) ; ! 151: ! 152: hwndMenu = WinWindowFromID ( ! 153: WinQueryWindow (hwnd, QW_PARENT, FALSE), ! 154: FID_MENU) ; ! 155: return 0 ; ! 156: ! 157: case WM_SIZE: ! 158: if (selGrid) ! 159: { ! 160: DosFreeSeg (selGrid) ; ! 161: selGrid = 0 ; ! 162: } ! 163: ! 164: if (fTimerGoing) ! 165: { ! 166: WinStopTimer (hab, hwnd, ID_TIMER) ; ! 167: fTimerGoing = FALSE ; ! 168: } ! 169: ! 170: cxClient = SHORT1FROMMP (mp2) ; ! 171: cyClient = SHORT2FROMMP (mp2) ; ! 172: ! 173: xGenNum = cxChar ; ! 174: yGenNum = cyClient - cyChar + cyDesc ; ! 175: ! 176: cxCell = cxChar * 2 / sCellScale ; ! 177: cyCell = cyChar / sCellScale ; ! 178: ! 179: xNumCells = cxClient / cxCell ; ! 180: yNumCells = (cyClient - cyChar) / cyCell ; ! 181: ! 182: if (xNumCells <= 0 || yNumCells <= 0) ! 183: { ! 184: ErrorMsg (hwnd, "Not enough room for even one cell.") ; ! 185: } ! 186: ! 187: else if ((LONG) xNumCells * yNumCells > 65536L) ! 188: { ! 189: ErrorMsg (hwnd, "More than 64K cells not supported.") ; ! 190: } ! 191: ! 192: else if (DosAllocSeg (xNumCells * yNumCells, &selGrid, 0)) ! 193: { ! 194: ErrorMsg (hwnd, "Not enough memory for this many cells.") ; ! 195: selGrid = 0 ; ! 196: } ! 197: ! 198: else ! 199: { ! 200: pbGrid = MAKEP (selGrid, 0) ; ! 201: ! 202: for (y = 0 ; y < yNumCells ; y++) ! 203: for (x = 0 ; x < xNumCells ; x++) ! 204: *pbGrid++ = 0 ; ! 205: } ! 206: ! 207: EnableMenuItem (hwndMenu, IDM_SIZE, TRUE) ; ! 208: EnableMenuItem (hwndMenu, IDM_START, selGrid != 0) ; ! 209: EnableMenuItem (hwndMenu, IDM_STOP, FALSE) ; ! 210: EnableMenuItem (hwndMenu, IDM_STEP, selGrid != 0) ; ! 211: EnableMenuItem (hwndMenu, IDM_CLEAR, selGrid != 0) ; ! 212: ! 213: lGeneration = 0 ; ! 214: return 0 ; ! 215: ! 216: case WM_BUTTON1DOWN: ! 217: x = MOUSEMSG(&msg)->x / cxCell ; ! 218: y = MOUSEMSG(&msg)->y / cyCell ; ! 219: ! 220: if (selGrid && !fTimerGoing && x < xNumCells && y < yNumCells) ! 221: { ! 222: pbGrid = MAKEP (selGrid, 0) ; ! 223: ! 224: hps = WinGetPS (hwnd) ; ! 225: ! 226: DrawCell (hps, x, y, cxCell, cyCell, ! 227: *(pbGrid + y * xNumCells + x) ^= 1) ; ! 228: ! 229: WinReleasePS (hps) ; ! 230: } ! 231: else ! 232: WinAlarm (HWND_DESKTOP, WA_WARNING) ; ! 233: break ; ! 234: ! 235: case WM_COMMAND: ! 236: switch (COMMANDMSG(&msg)->cmd) ! 237: { ! 238: case IDM_LARGE: ! 239: case IDM_SMALL: ! 240: case IDM_TINY: ! 241: WinSendMsg (hwndMenu, MM_SETITEMATTR, ! 242: MPFROM2SHORT (sCellScale, TRUE), ! 243: MPFROM2SHORT (MIA_CHECKED, 0)) ; ! 244: ! 245: sCellScale = COMMANDMSG(&msg)->cmd ; ! 246: ! 247: WinSendMsg (hwndMenu, MM_SETITEMATTR, ! 248: MPFROM2SHORT (sCellScale, TRUE), ! 249: MPFROM2SHORT (MIA_CHECKED, MIA_CHECKED)) ; ! 250: ! 251: WinSendMsg (hwnd, WM_SIZE, NULL, ! 252: MPFROM2SHORT (cxClient, cyClient)) ; ! 253: ! 254: WinInvalidateRect (hwnd, NULL, FALSE) ; ! 255: return 0 ; ! 256: ! 257: case IDM_START: ! 258: if (!WinStartTimer (hab, hwnd, ID_TIMER, 1)) ! 259: { ! 260: ErrorMsg (hwnd, "Too many clocks or timers.") ; ! 261: } ! 262: else ! 263: { ! 264: fTimerGoing = TRUE ; ! 265: ! 266: EnableMenuItem (hwndMenu, IDM_SIZE, FALSE) ; ! 267: EnableMenuItem (hwndMenu, IDM_START, FALSE) ; ! 268: EnableMenuItem (hwndMenu, IDM_STOP, TRUE) ; ! 269: EnableMenuItem (hwndMenu, IDM_STEP, FALSE) ; ! 270: EnableMenuItem (hwndMenu, IDM_CLEAR, FALSE) ; ! 271: } ! 272: return 0 ; ! 273: ! 274: case IDM_STOP: ! 275: WinStopTimer (hab, hwnd, ID_TIMER) ; ! 276: fTimerGoing = FALSE ; ! 277: ! 278: EnableMenuItem (hwndMenu, IDM_SIZE, TRUE) ; ! 279: EnableMenuItem (hwndMenu, IDM_START, TRUE) ; ! 280: EnableMenuItem (hwndMenu, IDM_STOP, FALSE) ; ! 281: EnableMenuItem (hwndMenu, IDM_STEP, TRUE) ; ! 282: EnableMenuItem (hwndMenu, IDM_CLEAR, TRUE) ; ! 283: return 0 ; ! 284: ! 285: case IDM_STEP: ! 286: WinSendMsg (hwnd, WM_TIMER, NULL, NULL) ; ! 287: return 0 ; ! 288: ! 289: case IDM_CLEAR: ! 290: lGeneration = 0L ; ! 291: ! 292: pbGrid = MAKEP (selGrid, 0) ; ! 293: ! 294: for (y = 0 ; y < yNumCells ; y++) ! 295: for (x = 0 ; x < xNumCells ; x++) ! 296: *pbGrid++ = 0 ; ! 297: ! 298: WinInvalidateRect (hwnd, NULL, FALSE) ; ! 299: return 0 ; ! 300: } ! 301: break ; ! 302: ! 303: case WM_TIMER: ! 304: hps = WinGetPS (hwnd) ; ! 305: ! 306: DisplayGenerationNum (hps, xGenNum, yGenNum, ++lGeneration) ; ! 307: ! 308: pbGrid = MAKEP (selGrid, 0) ; ! 309: ! 310: DoGeneration (hps, pbGrid, xNumCells, yNumCells, cxCell, cyCell); ! 311: ! 312: WinReleasePS (hps) ; ! 313: return 0 ; ! 314: ! 315: case WM_PAINT: ! 316: hps = WinBeginPaint (hwnd, NULL, NULL) ; ! 317: GpiErase (hps) ; ! 318: ! 319: if (selGrid) ! 320: { ! 321: for (x = 1 ; x <= xNumCells ; x++) ! 322: { ! 323: ptl.x = cxCell * x - 1 ; ! 324: ptl.y = 0 ; ! 325: GpiMove (hps, &ptl) ; ! 326: ! 327: ptl.y = cyCell * yNumCells - 1 ; ! 328: GpiLine (hps, &ptl) ; ! 329: } ! 330: ! 331: for (y = 1 ; y <= yNumCells ; y++) ! 332: { ! 333: ptl.x = 0 ; ! 334: ptl.y = cyCell * y - 1 ; ! 335: GpiMove (hps, &ptl) ; ! 336: ! 337: ptl.x = cxCell * xNumCells - 1 ; ! 338: GpiLine (hps, &ptl) ; ! 339: } ! 340: ! 341: pbGrid = MAKEP (selGrid, 0) ; ! 342: ! 343: for (y = 0 ; y < yNumCells ; y++) ! 344: for (x = 0 ; x < xNumCells ; x++) ! 345: if (*pbGrid++) ! 346: DrawCell (hps, x, y, cxCell, cyCell, ! 347: *(pbGrid - 1)) ; ! 348: ! 349: DisplayGenerationNum (hps, xGenNum, yGenNum, lGeneration) ; ! 350: } ! 351: WinEndPaint (hps) ; ! 352: return 0 ; ! 353: ! 354: case WM_DESTROY: ! 355: if (fTimerGoing) ! 356: WinStopTimer (hab, hwnd, ID_TIMER) ; ! 357: ! 358: if (selGrid) ! 359: DosFreeSeg (selGrid) ; ! 360: ! 361: return 0 ; ! 362: } ! 363: return WinDefWindowProc (hwnd, msg, mp1, mp2) ; ! 364: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.