mirror of https://github.com/tongzx/nt5src
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
250 lines
4.1 KiB
250 lines
4.1 KiB
#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"
|
|
|
|
typedef LONG CLR;
|
|
|
|
InitLines();
|
|
Animate(CVS hps);
|
|
|
|
#ifdef WIN
|
|
LONG mppenclr [] =
|
|
{
|
|
RGB(0x00, 0x00, 0x00),
|
|
RGB(0x00, 0x00, 0x80),
|
|
RGB(0x00, 0x80, 0x00),
|
|
RGB(0x00, 0x80, 0x80),
|
|
RGB(0x80, 0x00, 0x00),
|
|
RGB(0x80, 0x00, 0x80),
|
|
RGB(0x80, 0x80, 0x00),
|
|
RGB(0x80, 0x80, 0x80),
|
|
RGB(0xc0, 0xc0, 0xc0),
|
|
RGB(0x00, 0x00, 0xff),
|
|
RGB(0x00, 0xff, 0x00),
|
|
RGB(0x00, 0xff, 0xff),
|
|
RGB(0xff, 0x00, 0x00),
|
|
RGB(0xff, 0x00, 0xff),
|
|
RGB(0xff, 0xff, 0x00),
|
|
RGB(0xff, 0xff, 0xff)
|
|
};
|
|
|
|
#define CLR_BLACK 0
|
|
#endif
|
|
|
|
|
|
WORD PenRand();
|
|
VOID DrawLine(CVS cvs, INT x1, INT y1, INT x2, INT y2, CLR clr);
|
|
|
|
|
|
INT dxScreen, dyScreen;
|
|
CVS cvs;
|
|
|
|
|
|
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_OPEN:
|
|
lpsz = (PSZ) l1;
|
|
lpch = "Dancing Lines";
|
|
while ((*lpsz++ = *lpch++) != '\0')
|
|
;
|
|
|
|
lpsz = (PSZ) l2;
|
|
lpch = "Colored line patterns\n\nby Brad Christian";
|
|
while ((*lpsz++ = *lpch++) != '\0')
|
|
;
|
|
|
|
#ifdef PM
|
|
dxScreen = WinQuerySysValue(HWND_DESKTOP, SV_CXSCREEN);
|
|
dyScreen = WinQuerySysValue(HWND_DESKTOP, SV_CYSCREEN);
|
|
#endif
|
|
#ifdef WIN
|
|
dxScreen = GetSystemMetrics(SM_CXSCREEN);
|
|
dyScreen = GetSystemMetrics(SM_CYSCREEN);
|
|
#endif
|
|
break;
|
|
|
|
case SSM_BLANK:
|
|
InitLines();
|
|
return fFalse;
|
|
|
|
case SSM_ANIMATE:
|
|
Animate((CVS) l1);
|
|
break;
|
|
}
|
|
|
|
return fTrue;
|
|
}
|
|
|
|
|
|
#define ilinMax 10
|
|
|
|
typedef struct _lin
|
|
{
|
|
INT x1, y1, x2, y2;
|
|
} LIN;
|
|
|
|
|
|
typedef struct _qix
|
|
{
|
|
INT x, y, x2, y2;
|
|
INT dx1, dy1, dx2, dy2;
|
|
INT pen;
|
|
LIN rglin [ilinMax];
|
|
INT ilinCur;
|
|
INT cfrCycle;
|
|
INT ifrCycle;
|
|
} QIX;
|
|
|
|
|
|
#define iqixMax 4
|
|
|
|
QIX rgqix [iqixMax];
|
|
|
|
|
|
InitLines()
|
|
{
|
|
QIX * pqix;
|
|
INT iqix;
|
|
|
|
for (iqix = 0; iqix < iqixMax; iqix += 1)
|
|
{
|
|
pqix = &rgqix[iqix];
|
|
|
|
pqix->x = WRand(dxScreen);
|
|
pqix->y = WRand(dyScreen);
|
|
pqix->x2 = WRand(dxScreen);
|
|
pqix->y2 = WRand(dyScreen);
|
|
|
|
pqix->dx1 = 3 * (WRand(20) - 10);
|
|
pqix->dy1 = 3 * (WRand(20) - 10);
|
|
pqix->dx2 = 3 * (WRand(20) - 10);
|
|
pqix->dy2 = 3 * (WRand(20) - 10);
|
|
pqix->pen = PenRand();
|
|
pqix->cfrCycle = WRand(100) + 1;
|
|
pqix->ifrCycle = 0;
|
|
pqix->ilinCur = 0;
|
|
}
|
|
}
|
|
|
|
|
|
Animate(CVS hps)
|
|
{
|
|
INT ilin;
|
|
INT iqix;
|
|
PT pt;
|
|
QIX * pqix;
|
|
|
|
for (iqix = 0; iqix < iqixMax; iqix += 1)
|
|
{
|
|
LIN * plin;
|
|
pqix = &rgqix[iqix];
|
|
|
|
ilin = (pqix->ilinCur + 1) % ilinMax;
|
|
plin = &pqix->rglin[ilin];
|
|
|
|
DrawLine(hps, plin->x1, plin->y1, plin->x2, plin->y2,
|
|
CLR_BLACK);
|
|
|
|
pqix->x += pqix->dx1;
|
|
if (pqix->x < 0 || pqix->x >= dxScreen)
|
|
{
|
|
pqix->dx1 = -pqix->dx1;
|
|
pqix->x += 2 * pqix->dx1;
|
|
}
|
|
|
|
pqix->y += pqix->dy1;
|
|
if (pqix->y < 0 || pqix->y >= dyScreen)
|
|
{
|
|
pqix->dy1 = -pqix->dy1;
|
|
pqix->y += 2 * pqix->dy1;
|
|
}
|
|
|
|
pqix->x2 += pqix->dx2;
|
|
if (pqix->x2 < 0 || pqix->x2 >= dxScreen)
|
|
{
|
|
pqix->dx2 = -pqix->dx2;
|
|
pqix->x2 += 2 * pqix->dx2;
|
|
}
|
|
|
|
pqix->y2 += pqix->dy2;
|
|
if (pqix->y2 < 0 || pqix->y2 >= dyScreen)
|
|
{
|
|
pqix->dy2 = -pqix->dy2;
|
|
pqix->y2 += 2 * pqix->dy2;
|
|
}
|
|
#ifdef PM
|
|
DrawLine(hps, pqix->x, pqix->y, pqix->x2, pqix->y2,
|
|
pqix->pen);
|
|
#endif
|
|
#ifdef WIN
|
|
DrawLine(hps, pqix->x, pqix->y, pqix->x2, pqix->y2,
|
|
mppenclr[pqix->pen]);
|
|
#endif
|
|
pqix->rglin[pqix->ilinCur].x1 = pqix->x;
|
|
pqix->rglin[pqix->ilinCur].y1 = pqix->y;
|
|
pqix->rglin[pqix->ilinCur].x2 = pqix->x2;
|
|
pqix->rglin[pqix->ilinCur].y2 = pqix->y2;
|
|
|
|
pqix->ilinCur += 1;
|
|
if (pqix->ilinCur == ilinMax)
|
|
pqix->ilinCur = 0;
|
|
|
|
if (++pqix->ifrCycle >= pqix->cfrCycle)
|
|
{
|
|
pqix->ifrCycle = 0;
|
|
pqix->pen += 1;
|
|
if (pqix->pen == 16)
|
|
pqix->pen = 0;
|
|
}
|
|
}
|
|
}
|
|
|
|
|
|
|
|
WORD PenRand()
|
|
{
|
|
return WRand(16);
|
|
}
|
|
|
|
|
|
VOID DrawLine(CVS cvs, INT x1, INT y1, INT x2, INT y2, CLR clr)
|
|
{
|
|
#ifdef PM
|
|
PT pt;
|
|
|
|
GpiSetColor(cvs, clr);
|
|
pt.x = x1;
|
|
pt.y = y1;
|
|
GpiMove(cvs, &pt);
|
|
pt.x = x2;
|
|
pt.y = y2;
|
|
GpiLine(cvs, &pt);
|
|
#endif
|
|
#ifdef WIN
|
|
HANDLE hPrev;
|
|
|
|
hPrev = SelectObject(cvs, CreatePen(PS_SOLID, 1, clr));
|
|
(VOID)MMoveTo(cvs, x1, y1);
|
|
LineTo(cvs, x2, y2);
|
|
DeleteObject(SelectObject(cvs, hPrev));
|
|
#endif
|
|
}
|