VOID ShowStatusLine( const HPS hps, const char Moves,
const char Ships, const LONG Width,
const LONG Height )
{
RECTL Rect = { 0, Height, Width, Height + 30 };
POINTL Point = { Width, Height };
CHAR text[256];
WinFillRect( hps, &Rect, CLR_WHITE ); //SYSCLR_WINDOW ); // clear background
GpiSetColor( hps, CLR_BLACK );
GpiSetLineType( hps, LINETYPE_SHORTDASH );
GpiSetLineWidth( hps, LINEWIDTH_NORMAL );
GpiSetMix( hps, FM_OVERPAINT );
GpiMove( hps, &Point );
Point.x = 0;
GpiLine( hps, &Point );
Point.x += 10;
Point.y += 10;
GpiMove( hps, &Point );
if( Ships )
sprintf( text, "%d %s made %d %s still lost", Moves,
Moves == 1 ? "move" : "moves", Ships, Ships == 1 ? "ship" : "ships" );
else
sprintf( text, "%d %s made All ships found", Moves,
Moves == 1 ? "move" : "moves" );
GpiCharString( hps, strlen(text), text );
DosSleep( 1 ); // free time slice
}
/*--------------------------------------------------
* Draws the 3D border
*-------------------------------------------------*/
void PMWindow::draw_3dborder( HPS ps, const SHAPE& rect, long thickness )
{
LONG palette_format;
if( !GpiQueryColorData( ps, 1, &palette_format ))
PM_THROW_GUIERROR();
LONG white = palette_format == LCOLF_RGB ? RGB_WHITE : CLR_WHITE;
LONG darkgray = palette_format == LCOLF_RGB ? RGB_DARKGRAY : CLR_DARKGRAY;
LONG palegray = palette_format == LCOLF_RGB ? RGB_PALEGRAY : CLR_PALEGRAY;
LONG black = palette_format == LCOLF_RGB ? RGB_BLACK : CLR_BLACK;
POINTL pos;
GpiSetLineWidth( ps, LINEWIDTH_NORMAL );
pos.y = rect.y;
pos.x = rect.x;
GpiMove( ps, &pos );
GpiSetColor( ps, white );
pos.x = rect.x+rect.cx-1;
GpiLine( ps, &pos );
pos.y = rect.y+rect.cy-1;
GpiLine( ps, &pos );
GpiSetColor( ps, darkgray );
pos.x = rect.x;
GpiLine( ps, &pos );
pos.y = rect.y;
GpiLine( ps, &pos );
if( thickness > 1 )
{
pos.y = rect.y+1;
pos.x = rect.x+1;
GpiMove( ps, &pos );
GpiSetColor( ps, palegray );
pos.x = rect.x+rect.cx-2;
GpiLine( ps, &pos );
pos.y = rect.y+rect.cy-2;
GpiLine( ps, &pos );
GpiSetColor( ps, black );
pos.x = rect.x+1;
GpiLine( ps, &pos );
pos.y = rect.y+1;
GpiLine( ps, &pos );
}
}
MRESULT EXPENTRY ClientWndProc (HWND hwnd, ULONG msg, MPARAM mp1, MPARAM mp2)
{
static INT cxClient, cyClient ;
static LONG alJoin [] = { LINEJOIN_BEVEL, LINEJOIN_ROUND, LINEJOIN_MITRE },
alEnd [] = { LINEEND_FLAT, LINEEND_SQUARE, LINEEND_ROUND } ;
HPS hps ;
INT i ;
switch (msg)
{
case WM_SIZE:
cxClient = SHORT1FROMMP (mp2) ;
cyClient = SHORT2FROMMP (mp2) ;
return 0 ;
case WM_PAINT:
hps = WinBeginPaint (hwnd, NULLHANDLE, NULL) ;
GpiErase (hps) ;
for (i = 0 ; i < 3 ; i++)
{
// Draw the geometric line
GpiSetLineJoin (hps, alJoin [i]) ;
GpiSetLineEnd (hps, alEnd [i]) ;
GpiSetLineWidthGeom (hps, cxClient / 20) ;
GpiSetColor (hps, CLR_DARKGRAY) ;
GpiBeginPath (hps, 1) ;
DrawFigure (hps, i, cxClient, cyClient) ;
GpiEndPath (hps) ;
GpiStrokePath (hps, 1, 0) ;
// Draw the cosmetic line
GpiSetLineWidth (hps, LINEWIDTH_THICK) ;
GpiSetColor (hps, CLR_BLACK) ;
DrawFigure (hps, i, cxClient, cyClient) ;
}
WinEndPaint (hps) ;
return 0 ;
}
return WinDefWindowProc (hwnd, msg, mp1, mp2) ;
}
/*
draw_thread
This is the drawing-thread.
You have a valid presentation space handle (hps), a valid window
handle (hwndSaver) and the configuration_data structure is loaded.
The screen size is stored in "screenSizeX" and "screenSizeY".
IMPORTANT NOTE 1:
You must check the "stop_draw_thread" flag regularly. If it is set,
free all resources you have allocated and call _endthread (or just
return) to end the drawing-thread.
IMPORTANT NOTE 2:
If the "low_priority" flag is NOT set (that means you run with
regular priority, sharing CPU usage with other programs), you should
call DosSleep(x) with "x" set at least to 1 as often as possible, to
allow other programs to do their work. A screen saver should not eat
up other program's CPU time!
IMPORTANT NOTE 3:
For some of the PM calls to work properly, your thread needs an
own HAB and maybe even a message queue. You have to get and release
both of them here if you use such PM calls.
The following sample code is from the "Pyramids" module that comes
with the ScreenSaver distribution.
It selects a random color and a random point on the screen, then
draws lines in the selected color from each corner of the screen
to the selected point (looks somewhat like a pyramid).
It remembers a number of points (this number can be set in the
configuration dialog). Having filled the point memory, it redraws
the "oldest" visible pyramid in black. This has the effect that more
and more pixels on the screen get black, only a few constantly
changing colored lines remain.
*/
void draw_thread(void *args)
{
int i, j;
const RECTL ScreenRect = { 0, 0, screenSizeX, screenSizeY };
int color_count = 0;
ULONG color;
int pushleftx = 11, pushlefty = 11, pushrightx = 11, pushrighty = 11;
BOOL point_buffer_filled;
BOOL first_paint = TRUE;
POINTL *ptleft, *ptright;
EXCEPTIONREGISTRATIONRECORD xcpthand = {
(PEXCEPTIONREGISTRATIONRECORD)0, GPFHandler };
DosSetExceptionHandler(&xcpthand) ;
i = 0;
point_buffer_filled = FALSE;
/* allocate memory for circular point buffer */
ptleft = malloc(configuration_data.count * sizeof(POINTL));
ptright = malloc(configuration_data.count * sizeof(POINTL));
if( (ptleft == NULL) || (ptright == NULL) ) goto end;
GpiSetLineWidth( hps, LINEWIDTH_THICK );
srand(WinGetCurrentTime(hab));
do{
color = ((unsigned)rand()) % 17 - 2;
}while ( color == -1 || color == 0 || color == 7 || color == 8 );
/* blank screen if requested */
if( configuration_data.blank_screen )
WinFillRect( hps, &ScreenRect, CLR_BLACK );
while(!stop_draw_thread){
if(point_buffer_filled){
/* redraw old line in black */
GpiSetColor(hps, CLR_BLACK);
GpiMove(hps, &ptleft[i]);
GpiLine(hps, &ptright[i]);
}
if( color_count == configuration_data.colors ){
/* select random color */
do{
color = ((unsigned)rand()) % 17 - 2;
}while ( color == -1 || color == 0 || color == 7 || color == 8 );
color_count = 0;
}
GpiSetColor(hps, color);
color_count++;
if (first_paint ){
/* set the start coordinates */
ptleft[0].x = rand() % screenSizeX;
ptleft[0].y = rand() % screenSizeY;
ptright[0].x = rand() % screenSizeX;
ptright[0].y = rand() % screenSizeY;
first_paint = FALSE;
} else {
/* calculate new line points */
j = i==0 ? configuration_data.count - 1 : i - 1;
ptleft[i].x = ptleft[j].x + pushleftx;
ptleft[i].y = ptleft[j].y + pushlefty;
ptright[i].x = ptright[j].x + pushrightx;
ptright[i].y = ptright[j].y + pushrighty;
}
/* adjust lines if they hit a screen border */
if( ptleft[i].x >= screenSizeX ) {
ptleft[i].x = 2 * screenSizeX - ptleft[i].x;
pushleftx = - pushleftx + (rand() % 2);
}
if( ptleft[i].y >= screenSizeY ) {
ptleft[i].y = 2 * screenSizeY - ptleft[i].y;
pushlefty = - pushlefty + (rand() % 2);
}
if( ptright[i].x >= screenSizeX ) {
ptright[i].x = 2 * screenSizeX - ptright[i].x;
pushrightx = - pushrightx + ( rand() % 2);
}
if( ptright[i].y >= screenSizeY ) {
ptright[i].y = 2 * screenSizeY - ptright[i].y;
pushrighty = - pushrighty + ( rand() % 2);
}
if( ptleft[i].x < 0 ) {
ptleft[i].x *= -1;
pushleftx = - pushleftx + (rand() % 2);
}
if( ptleft[i].y < 0 ) {
ptleft[i].y *= -1;
pushlefty = - pushlefty + (rand() % 2);
}
if( ptright[i].x < 0 ) {
ptright[i].x *= -1;
pushrightx = - pushrightx + (rand() % 2);
}
if( ptright[i].y < 0 ) {
ptright[i].y *= -1;
pushrighty = - pushrighty + (rand() % 2);
}
/* draw line */
GpiMove(hps, &ptleft[i]);
GpiLine(hps, &ptright[i]);
/* sleep if necessary */
if(low_priority == FALSE)
DosSleep(1);
// sleep if user requests slower animation
switch(configuration_data.animation_speed){
case 4: break;
case 3: DosSleep(10); break;
case 2: DosSleep(30); break;
case 1: DosSleep(50); break;
case 0: DosSleep(70); break;
}
i++;
/* move circular buffer index */
if(i == configuration_data.count){
point_buffer_filled = TRUE;
i = 0;
}
}
/* free resources */
end: // goto from memory allocation
free( ptleft );
free( ptright );
DosUnsetExceptionHandler(&xcpthand);
_endthread();
}
MRESULT EXPENTRY ClientWndProc (HWND hwnd, ULONG msg, MPARAM mp1, MPARAM mp2)
{
static INT cxClient, cyClient ;
HPS hps ;
INT x, y ;
POINTL ptl ;
switch (msg)
{
case WM_SIZE:
cxClient = SHORT1FROMMP (mp2) ;
cyClient = SHORT2FROMMP (mp2) ;
return 0 ;
case WM_PAINT:
hps = WinBeginPaint (hwnd, NULLHANDLE, NULL) ;
GpiErase (hps) ;
for (x = 0 ; x < 3 ; x++)
for (y = 0 ; y < 2 ; y++)
{
// Create an open sub-path
GpiBeginPath (hps, 1) ;
ptl.x = (1 + 10 * x) * cxClient / 30 ;
ptl.y = (4 + 5 * y) * cyClient / 10 ;
GpiMove (hps, &ptl) ;
ptl.x = (5 + 10 * x) * cxClient / 30 ;
ptl.y = (2 + 5 * y) * cyClient / 10 ;
GpiLine (hps, &ptl) ;
ptl.x = (9 + 10 * x) * cxClient / 30 ;
ptl.y = (4 + 5 * y) * cyClient / 10 ;
GpiLine (hps, &ptl) ;
// Create a closed sub-path
ptl.x = (1 + 10 * x) * cxClient / 30 ;
ptl.y = (3 + 5 * y) * cyClient / 10 ;
GpiMove (hps, &ptl) ;
ptl.x = (5 + 10 * x) * cxClient / 30 ;
ptl.y = (1 + 5 * y) * cyClient / 10 ;
GpiLine (hps, &ptl) ;
ptl.x = (9 + 10 * x) * cxClient / 30 ;
ptl.y = (3 + 5 * y) * cyClient / 10 ;
GpiLine (hps, &ptl) ;
GpiCloseFigure (hps) ;
GpiEndPath (hps) ;
// Possibly modify the path
if (y == 0)
{
GpiSetLineWidthGeom (hps, cxClient / 30) ;
GpiModifyPath (hps, 1, MPATH_STROKE) ;
}
// Perform the operation
GpiSetLineWidth (hps, LINEWIDTH_THICK) ;
GpiSetLineWidthGeom (hps, cxClient / 50) ;
GpiSetPattern (hps, PATSYM_HALFTONE) ;
switch (x)
{
case 0: GpiOutlinePath (hps, 1, 0) ;
break ;
case 1: GpiStrokePath (hps, 1, 0) ;
break ;
case 2: GpiFillPath (hps, 1, FPATH_ALTERNATE) ;
break ;
}
}
WinEndPaint (hps) ;
return 0 ;
}
return WinDefWindowProc (hwnd, msg, mp1, mp2) ;
}
VOID GRAPHBOARD::DrawPMBoard( const HPS hps )
{
POINTL StartHor = LowerLeftPlace;
POINTL EndHor;
POINTL StartVert = LowerLeftPlace;
POINTL EndVert;
int Value;
EndHor.x = StartHor.x + (Columns - 3) * dist; // shown cols = Columns - 2
EndHor.y = StartHor.y;
EndVert.x = StartVert.x;
EndVert.y = StartVert.y + (Rows - 3) * dist;
GpiSetColor( hps, CLR_BLACK );
GpiSetLineType( hps, LINETYPE_SOLID );
GpiSetLineWidth( hps, LINEWIDTH_NORMAL );
if( !InfoData.IsLineStyle(IDC_DIAGONALS) ){
// first we paint the horizontal lines:
for( ; StartHor.y <= EndVert.y; StartHor.y += dist, EndHor.y += dist ){
GpiMove( hps, &StartHor );
GpiLine( hps, &EndHor );
}
// then the vertical lines:
for(; StartVert.x <= EndHor.x; StartVert.x += dist, EndVert.x += dist ){
GpiMove( hps, &StartVert );
GpiLine( hps, &EndVert );
}
} // end if !InfoData.IsLineStyle( IDC_DIAGONALS )
DosSleep( 1 ); // free time slice
if( !InfoData.IsLineStyle(IDC_VERTICALS) ){
// there are still some diagonals left:
// Start... draw from left top to right bottom
GpiSetLineType( hps, LINETYPE_DOT );
StartVert.x = LowerLeftPlace.x;
StartVert.y = LowerLeftPlace.y + dist;
StartHor.x = LowerLeftPlace.x + dist;
StartHor.y = LowerLeftPlace.y;
// End... draw from right top to left bottom
EndVert.x = LowerLeftPlace.x + ( Columns - 3) * dist;
EndVert.y = LowerLeftPlace.y + dist;
EndHor.x = LowerLeftPlace.x + ( Columns - 4) * dist;
EndHor.y = LowerLeftPlace.y;
int VertBreak = 0;
int HorBreak = 0;
while( StartVert.x != StartHor.x || StartVert.y != StartHor.y )
{
GpiMove( hps, &StartHor );
GpiLine( hps, &StartVert );
GpiMove( hps, &EndHor );
GpiLine( hps, &EndVert );
if( VertBreak ){
StartVert.x += dist;
EndVert.x -= dist;
} else {
StartVert.y += dist;
EndVert.y += dist;
if( StartVert.y == LowerLeftPlace.y + (Rows - 3)*dist)
VertBreak = 1;
}
if( HorBreak ){
StartHor.y += dist;
EndHor.y += dist;
} else {
StartHor.x += dist;
EndHor.x -= dist;
if( StartHor.x == LowerLeftPlace.x + (Columns - 3 ) * dist )
HorBreak = 1;
}
}
} // end if !InfoData.IsLineStyle( IDC_VERTICALS )
DosSleep( 1 ); // free time slice
// now we insert the values that have already been discovered
for( char i = 1; i < Rows - 1; i++ ){
for( char j = 1; j < Columns - 1; j++ ){
if( (Value = GetDiscovered( i, j) ) != -1 ){
DrawPMPlace( hps, i, j, Value, FALSE );
} else {
ToggleMarked( i, j );
DrawPMMark( hps, i, j );
}
} // for j
DosSleep( 1 ); // free timeslice
} // for i
}
