/****************/
/* shakki.cpp  */
/****************/
#include <owl\owlpch.h>

class cLauta {
  int x,y;          // yläkulma
  int nx,ny;        // ruutujen määrä
  int ruudun_koko;  // sivun pituus
public:
  cLauta(int ix=20,int iy=20,int iruudun_koko=30,int inx=8,int iny=8)
    :x(ix),y(iy),nx(inx),ny(iny),ruudun_koko(iruudun_koko) {}
  virtual void Draw(TDC &dc);
};

#define VAREJA 2

class cRajattuIndeksi {
  int i;
  int mn;
public:
  cRajattuIndeksi(int n=2) : mn(n), i(0) { }
  int operator++(int ) {
    i++;
    if ( i >= mn ) i = 0;
    return i;  // return i = (i+1) % vareja;
  }
  int operator=(int j) { i = j; return i; }
  operator int() const { return i; }
};


void cLauta::Draw(TDC &dc)
{
  TBrush sutit[4] = {TBrush(RGB(0,0,1)),TBrush(RGB(255,255,255)),TBrush(RGB(255,0,0)),TBrush(RGB(0,255,0))};
  TPen   kynat[4] = {TPen(RGB(0,1,0)),TPen(RGB(255,255,255)),TPen(RGB(255,0,0)),TPen(RGB(0,255,0))};
  int ylax,ylay,iy,ix;
  cRajattuIndeksi vari(VAREJA),rivivari(VAREJA);

  rivivari = 0;
  for(iy=0; iy<ny ; iy++,  rivivari++ ) {
    ylay = y + iy * ruudun_koko;
    vari = rivivari;
    for(ix=0; ix<nx; ix++, vari++ ) {
      ylax = x + ix * ruudun_koko;
      dc.SelectObject(sutit[vari]);
      dc.SelectObject(kynat[vari]);
      dc.Rectangle(ylax,ylay,ylax+ruudun_koko,ylay+ruudun_koko);   // Pää punaisella sisustalla, musta raami
    }
  }

  // Raamit
  dc.SelectObject(kynat[0]);
  dc.MoveTo(x,y);
  dc.LineTo(x+nx*ruudun_koko,y);
  dc.LineTo(x+nx*ruudun_koko,y+ny*ruudun_koko);
  dc.LineTo(x,y+ny*ruudun_koko);
  dc.LineTo(x,y);

  dc.RestoreBrush();
}

//------------------------------------------------------------------------------
class TMainWindow : public TFrameWindow {
private:
  cLauta lauta;
  cLauta lauta2;
public:
  TMainWindow(TWindow *Parent, LPCSTR ATitle) :
    lauta(10,10,20,7,7),
    lauta2(200,10,20,8,8),
    TFrameWindow(Parent, ATitle) {}
  void Paint(TDC &dc,bool, TRect &);
//  DECLARE_RESPONSE_TABLE(TMainWindow);
};

/*
DEFINE_RESPONSE_TABLE1(TMainWindow,TFrameWindow)
  EV_WM_PAINT,
END_RESPONSE_TABLE;
*/

//------------------------------------------------------------------------------
void TMainWindow::Paint(TDC &dc,bool, TRect &)
{
  lauta.Draw(dc);
  lauta2.Draw(dc);
}



//------------------------------------------------------------------------------
class TDrawManApp : public TApplication {
public:
  TDrawManApp(const char far *name = 0) : TApplication(name) {};
  void InitMainWindow() { MainWindow = new TMainWindow(NULL, Name); }
};



//------------------------------------------------------------------------------
int OwlMain(int ,char far * [])
{
  return TDrawManApp("Shakkilauta").Run();
}