/**************/
/* shakkila.c */
/**************/
/*
**  Ohjelma piirtää shakkilaudan.
**  Project: shakkila.c, demo.def, ALI\tabhand.c
*/

#include <windows.h>
#include "tabhand.h"

#define MUSTA 0
#define VAREJA 5

int Varit[] = {BLACK_BRUSH,WHITE_BRUSH,GRAY_BRUSH,DKGRAY_BRUSH,LTGRAY_BRUSH};

/****************************************************************************/
TblClassSWindowMAIN("TblShakkiClass",NULL,"Shakkilauta",MsgTbl,0);
/****************************************************************************/

/****************************************************************************/
void seuraava_vari(int *vari)
{
  if ( ++(*vari) >= VAREJA) *vari = MUSTA;
}

/****************************************************************************/
void Lauta(HDC hDC, int x, int y, int nx, int ny, int ruudun_koko)
{
  HBRUSH vanha,sutit[VAREJA];
  int i, xi, yi, vari, rivin_eka_vari = MUSTA;

  for (i=0; i<VAREJA; i++) sutit[i] = GetStockObject(Varit[i]);

  vanha = SelectObject(hDC, sutit[MUSTA]);

  for (yi = 0; yi < ny; yi++) {
	 vari = rivin_eka_vari;

	 for (xi = 0; xi < nx; xi++){
		SelectObject(hDC, sutit[vari]);
		Rectangle(hDC, x + ruudun_koko * xi, y + ruudun_koko * yi,
		ruudun_koko * (xi + 1) + x, ruudun_koko * (yi +  1) + y);
		seuraava_vari(&vari);
	 }

	 seuraava_vari(&rivin_eka_vari);
  }

  SelectObject(hDC, vanha);
}


#define RUUTUJA_X 8
#define RUUTUJA_Y 8
#define KOKO      40
#define SIIRTO    50
/****************************************************************************/
static EVENT WM_paint(tMSGParam *msg) /* # MAKE_DC # */
{
  Lauta(msg->hDC,SIIRTO,SIIRTO,RUUTUJA_X,RUUTUJA_Y,KOKO);
  return 0;
}

static EVENT WM_create(tMSGParam *msg)
{
  POINT h = tGetClientLost(msg->hWnd);
  MoveWindow(msg->hWnd,10,10,
				 RUUTUJA_X*KOKO+2*SIIRTO+h.x,RUUTUJA_Y*KOKO+2*SIIRTO+h.y,FALSE);
  return 0;
}


/****************************************************************************/
/* Viestien käsittelytaulukko                                               */
/****************************************************************************/
tMSGEntry MsgTbl[] = {
  EV_HANDLE_WM_DESTROY,
  { WM_PAINT , DoC , DoC , WM_paint,  MAKE_DC  }, /*a*/
  { WM_CREATE , DoC , DoC , WM_create }, /*a*/
  { 0 }
};
/****************************************************************************/