/****************/
/* kolmio.cpp   */
/****************/
// Ohjelma, joka aukaisee yhden ikkunan ja piirtää siihen rekursiivisen kolmion.
// Esimerkki kuvan päiväittämisestä ja piirtämisen kestosta   /vl-96
// Projektiin kolmio.cpp ja ALI\timer.c.                      OWL 5.0
// Tehtäviä:
//
#include <owl\owlpch.h>  // Owl 5.0:ssa owlpch.h => owl.h
#include <stdio.h>
#include <math.h>
#include "timer.h"

#define PIENIN_KOLMIO 0.2   /* Säädä tällä kauanko koko kuvan piirt. kest.  */

#define I(x,y) hdc,((int)(x)),((int)(y))

/****************************************************************************/
void kolmio(HDC hdc, double x, double y, double h)
{
  double s2 = h / (sqrt(3));

  MoveToEx(I(x,y),NULL);
  LineTo(I(x-s2,y-h));
  LineTo(I(x+s2,y-h));
  LineTo(I(x,y));
                                                                              
  if ( h < PIENIN_KOLMIO ) return;

  kolmio(hdc,x-s2,y,h/2);  /* Pienempi kolmio vasemmalle */
  kolmio(hdc,x+s2,y,h/2);  /* Pienempi kolmio oikealle   */
  kolmio(hdc,x,y-h,h/2);   /* Pienempi kolmio yläpuolelle*/
}

//------------------------------------------------------------------------------
class TMainWindow : public TFrameWindow {
  TDC *pHoldDC;    // Siirron aikana käytössä oleva laiteyhteys
  TPoint old;
public:
  TMainWindow(TWindow *Parent, LPCSTR ATitle) :
    TFrameWindow(Parent, ATitle) {
    pHoldDC = NULL;
  }
  void Paint(TDC &dc,bool, TRect &) {
    char s[100];
    SetWindowText("Piirretään...");
    start_timer(1);
    kolmio(dc,300,400,200);
    sprintf(s,"Kolmio: %5.2lf s.",stop_timer(1));
    SetWindowText(s);
  }
  void EvLButtonDown(UINT modKeys, TPoint& point) {
    if ( pHoldDC != NULL ) return;
    SetCapture();    // Direct all subsequent mouse input to this window
    pHoldDC = new TClientDC(*this);
    old = point;
  }
  void EvLButtonUp(UINT modKeys, TPoint& point) {
    if ( pHoldDC == NULL ) return;
    ReleaseCapture();
    delete pHoldDC;
    pHoldDC = NULL;
  }
  void EvMouseMove(UINT modKeys, TPoint& point) {
    if ( pHoldDC == NULL ) return;
    pHoldDC->MoveTo(old);
    pHoldDC->LineTo(point);
  }
  DECLARE_RESPONSE_TABLE(TMainWindow);
};

DEFINE_RESPONSE_TABLE1(TMainWindow,TFrameWindow)
  EV_WM_PAINT,
  EV_WM_LBUTTONDOWN,
  EV_WM_LBUTTONUP,
  EV_WM_MOUSEMOVE,
END_RESPONSE_TABLE;

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


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