207 lines
3 KiB
C
207 lines
3 KiB
C
#ifdef PM
|
|
#include <cstd.h>
|
|
#define INCL_WIN
|
|
#define INCL_GPI
|
|
#include <os2.h>
|
|
INT _acrtused = 0;
|
|
#endif
|
|
#ifdef WIN
|
|
#include <windows.h>
|
|
#include <port1632.h>
|
|
#endif
|
|
|
|
#include "std.h"
|
|
#include "scrsave.h"
|
|
|
|
|
|
|
|
INT rand();
|
|
|
|
INT dxScreen, dyScreen;
|
|
INT dxScreenD2, dyScreenD2;
|
|
|
|
typedef struct _str
|
|
{
|
|
SHORT x, y, z;
|
|
SHORT xo, yo;
|
|
} STR;
|
|
|
|
#define istrMax 64
|
|
|
|
STR rgstr [istrMax];
|
|
|
|
Animate(CVS hps);
|
|
MakeStar(STR * pstr);
|
|
SetPel(HDC hdc, INT x, INT y, INT brght);
|
|
|
|
#define dzStep 4
|
|
#define magic 256
|
|
|
|
|
|
BOOL APIENTRY CoolProc(hwnd, wm, wParam, lParam)
|
|
HWND hwnd;
|
|
WORD wm;
|
|
WPARAM wParam;
|
|
LONG lParam;
|
|
{
|
|
switch (wm)
|
|
{
|
|
case WM_INITDIALOG:
|
|
MessageBeep(0);
|
|
MessageBeep(0);
|
|
MessageBeep(0);
|
|
MessageBeep(0);
|
|
MessageBeep(0);
|
|
MessageBeep(0);
|
|
MessageBeep(0);
|
|
return TRUE;
|
|
|
|
case WM_COMMAND:
|
|
EndDialog(hwnd, TRUE);
|
|
return TRUE;
|
|
}
|
|
|
|
return FALSE;
|
|
}
|
|
|
|
BOOL EXPENTRY ScrSaveProc(INT ssm, LPVOID l1, LONG_PTR l2, LONG_PTR l3)
|
|
{
|
|
CHAR FAR * lpsz;
|
|
CHAR FAR * lpch;
|
|
|
|
switch (ssm)
|
|
{
|
|
default:
|
|
return fFalse;
|
|
|
|
case SSM_DIALOG:
|
|
MessageBeep(0);
|
|
MessageBeep(0);
|
|
MessageBeep(0);
|
|
MessageBeep(0);
|
|
MessageBeep(0);
|
|
MessageBeep(0);
|
|
MessageBeep(0);
|
|
/* {
|
|
FARPROC lpproc;
|
|
|
|
lpproc = MakeProcInstance(CoolProc, (HANDLE) l1);
|
|
DialogBox((HANDLE) l1, "Cool", (HWND) l2, lpproc);
|
|
FreeProcInstance(lpproc);
|
|
}*/
|
|
break;
|
|
|
|
case SSM_OPEN:
|
|
lpsz = (PSZ) l1;
|
|
lpch = "Stars";
|
|
while ((*lpsz++ = *lpch++) != '\0')
|
|
;
|
|
|
|
lpsz = (PSZ) l2;
|
|
lpch = "Drifting Through Space\n\nby Brad Christian";
|
|
while ((*lpsz++ = *lpch++) != '\0')
|
|
;
|
|
|
|
dxScreen = GetSystemMetrics(SM_CXSCREEN);
|
|
dyScreen = GetSystemMetrics(SM_CYSCREEN);
|
|
dxScreenD2 = dxScreen / 2;
|
|
dyScreenD2 = dyScreen / 2;
|
|
break;
|
|
|
|
case SSM_ANIMATE:
|
|
Animate((CVS) l1);
|
|
break;
|
|
}
|
|
|
|
return fTrue;
|
|
}
|
|
|
|
|
|
Animate(CVS hps)
|
|
{
|
|
INT x, y;
|
|
INT istr;
|
|
STR * pstr;
|
|
|
|
pstr = rgstr;
|
|
for (istr = 0; istr < istrMax; istr += 1, pstr += 1)
|
|
{
|
|
if ((pstr->z -= dzStep) <= 0)
|
|
MakeStar(pstr);
|
|
|
|
x = pstr->x * magic / pstr->z + dxScreenD2;
|
|
y = pstr->y * magic / pstr->z + dyScreenD2;
|
|
|
|
SetPel(hps, pstr->xo, pstr->yo, 0);
|
|
|
|
if (x < 0 || y < 0 || x >= dxScreen || y >= dyScreen)
|
|
MakeStar(pstr);
|
|
else
|
|
{
|
|
SetPel(hps, x, y, 256 - pstr->z);
|
|
pstr->xo = (SHORT)x;
|
|
pstr->yo = (SHORT)y;
|
|
}
|
|
}
|
|
}
|
|
|
|
|
|
MakeStar(STR * pstr)
|
|
{
|
|
pstr->x = WRand(dxScreen) - dxScreenD2;
|
|
pstr->y = WRand(dyScreen) - dyScreenD2;
|
|
pstr->z = WRand(256) + 1;
|
|
}
|
|
|
|
|
|
|
|
#ifdef PM
|
|
LONG mpbrghtclr [] =
|
|
{
|
|
CLR_BLACK,
|
|
CLR_DARKGRAY,
|
|
CLR_PALEGRAY,
|
|
CLR_WHITE,
|
|
CLR_YELLOW
|
|
};
|
|
#endif
|
|
|
|
#ifdef PM
|
|
SetPel(HPS hps, INT x, INT y, INT brght)
|
|
{
|
|
RECTL rectl;
|
|
|
|
rectl.xLeft = x;
|
|
rectl.xRight = x + 1;
|
|
rectl.yBottom = y;
|
|
rectl.yTop = y + 1;
|
|
|
|
if (brght != 0)
|
|
{
|
|
brght >>= 5; // 0 <= brght <= 7
|
|
|
|
if (brght > 3)
|
|
{
|
|
rectl.xRight += 1;
|
|
rectl.yTop += 1;
|
|
brght >>= 1;
|
|
}
|
|
|
|
brght += 1;
|
|
}
|
|
else
|
|
{
|
|
rectl.xRight += 1;
|
|
rectl.yTop += 1;
|
|
}
|
|
|
|
WinFillRect(hps, &rectl, mpbrghtclr[brght]);
|
|
}
|
|
#endif
|
|
#ifdef WIN
|
|
SetPel(HDC hdc, INT x, INT y, INT brght)
|
|
{
|
|
SetPixel(hdc, x, y, ((LONG) brght << 16) | (brght << 8) | brght);
|
|
}
|
|
#endif
|