//---------------------------------------------------------------------------

#include <vcl.h>
#include <cstdlib>
#include <iostream>
#include <string>
#pragma hdrstop

#include "Signal.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"

int WysokoscWskaznika,SzerokoscWskaznika;
AnsiString interwal, f; //deklaracja zmiennych
float zmLicznik = 0;
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
DoubleBuffered=True;
Tarcza=new Graphics::TBitmap;
// ---- ustawienie wymiarow ----
WysokoscWskaznika=Image1->Height;
SzerokoscWskaznika=Image1->Width;
Tarcza->Width=SzerokoscWskaznika;
Tarcza->Height=WysokoscWskaznika;
// --- funckja wlasna --------------
    Linia();
    Tarcza_Tlo();
    Tarcza_Tlo2();
    /*
    glowaczer();
    tulow();
    rekal();
    rekap();
    nogal();
    nogap();

    glowaziel();
    tulowziel();
    rekalziel();
    rekalzielp1();
    nogalziell1();
    nogalzielp1();
    */
// ---- przypisanie ----------------
ProstTarcza.left=0;
ProstTarcza.top=0;
ProstTarcza.right=WysokoscWskaznika;
ProstTarcza.bottom=SzerokoscWskaznika;

Image1->Canvas->CopyRect(ProstTarcza,Tarcza->Canvas,ProstTarcza);
}
//---------------------------------------------------------------------------
void TForm1::RysujZielonego()
{
    glowaziel();
    tulowziel();
    rekalziel();
    rekalzielp1();
    nogalziell1();
    nogalzielp1();
}
//---------------------------------------------------------------------------
void TForm1::RysujCzerwonego()
{
    glowaczer();
    tulow();
    rekal();
    rekap();
    nogal();
    nogap();
}
//---------------------------------------------------------------------------
void TForm1::Linia()
{
    Tarcza->Canvas->Pen->Color=RGB(255,0,0); //pióro
    Tarcza->Canvas->Pen->Width=5;
    Tarcza->Canvas->MoveTo(100,50);
}
//-------------------------------------------------------------
void TForm1::Tarcza_Tlo()
{
    Tarcza->Canvas->Pen->Color=RGB(0,0,0); //pióro kolor czarny
    Tarcza->Canvas->Pen->Width=3; //grubosc piora
    Tarcza->Canvas->Brush->Color=RGB(0,0,0); //wypelnianie kolor szary
    Tarcza->Canvas->FillRect(Rect(101,0,296,190));
}
//------------------------------------------------------------
void TForm1::Tarcza_Tlo2()
{
    Tarcza->Canvas->Pen->Color=RGB(0,0,0); //pióro kolor czarny
    Tarcza->Canvas->Pen->Width=3; //grubosc piora
    Tarcza->Canvas->Brush->Color=RGB(0,0,0); //wypelnianie kolor szary
    Tarcza->Canvas->FillRect(Rect(101,200,296,399));
}
// ----------------------------------------------------------
void TForm1::glowaczer()
{
    Tarcza->Canvas->Pen->Color=RGB(250,0,0); //pióro
    Tarcza->Canvas->Pen->Width=1; //grubosc piora
    Tarcza->Canvas->Brush->Color=RGB(255,0,0); //wypelnianie kolorem
    Tarcza->Canvas->Ellipse(180,72,216,36);
}
// ------------------------------------------------------------
void TForm1::tulow()
{
    Tarcza->Canvas->Pen->Color=RGB(255,0,0);
    Tarcza->Canvas->Pen->Width=4;
    Tarcza->Canvas->FillRect(Rect(185,72,211,113));
}
//-------------------------------------------------------------
void TForm1::rekal()
{
    Tarcza->Canvas->Pen->Color=RGB(255,0,0);
    Tarcza->Canvas->Pen->Width=4;
    Tarcza->Canvas->FillRect(Rect(168,73,181,120));

}
//-----------------------------------------------------------
void TForm1::rekap()
{
    Tarcza->Canvas->Pen->Color=RGB(255,0,0);
    Tarcza->Canvas->Pen->Width=4;
    Tarcza->Canvas->FillRect(Rect(215,73,229,121));

}
//------------------------------------------------------------------------
void TForm1::nogal()
{
    Tarcza->Canvas->Pen->Color=RGB(255,0,0);
    Tarcza->Canvas->Pen->Width=4;
    Tarcza->Canvas->FillRect(Rect(186,116,197,159));

}
//--------------------------------------------------------------------------
void TForm1::nogap()
{
    Tarcza->Canvas->Pen->Color=RGB(255,0,0);
    Tarcza->Canvas->Pen->Width=4;
    Tarcza->Canvas->FillRect(Rect(200,116,211,159));

}
//------------------------------------------------------------------
void TForm1::glowaziel()
{
    Tarcza->Canvas->Pen->Color=RGB(0,167,0); //pióro
    Tarcza->Canvas->Pen->Width=1; //grubosc piora
    Tarcza->Canvas->Brush->Color=RGB(0,167,0); //wypelnianie kolorem
    Tarcza->Canvas->Ellipse(188,272,223,237);

}
//-----------------------------------------------------------
void TForm1::tulowziel()
{
    Tarcza->Canvas->Pen->Color=RGB(0,167,0);
    Tarcza->Canvas->Pen->Width=4;
    Tarcza->Canvas->FillRect(Rect(197,273,213,316));
}
//------------------------------------------------------------
void TForm1::rekalziel()
{
    Tarcza->Canvas->Pen->Color=RGB(0,167,0);
    Tarcza->Canvas->Pen->Width=4;

     TPoint points[6];
  points[0] = Point(185,270);
  points[1] = Point(175,285);
  points[2] = Point(158,296);
  points[3] = Point(164,307);
  points[4] = Point(181,295);
  points[5] = Point(196,276);
  Tarcza->Canvas->Polygon(points, 5);
}
//-------------------------------------------------------------
void TForm1::rekalzielp1()
{
    Tarcza->Canvas->Pen->Color=RGB(0,167,0);
    Tarcza->Canvas->Pen->Width=4;

     TPoint points[6];
  points[0] = Point(215,276);
  points[1] = Point(224,291);
  points[2] = Point(216,308);
  points[3] = Point(227,316);
  points[4] = Point(239,293);
  points[5] = Point(225,269);

  Tarcza->Canvas->Polygon(points, 5);
}
//-------------------------------------------------------------
void TForm1::nogalziell1()
{
    Tarcza->Canvas->Pen->Color=RGB(0,167,0);
    Tarcza->Canvas->Pen->Width=4;

     TPoint points[6];
  points[0] = Point(195,315);
  points[1] = Point(174,344);
  points[2] = Point(170,342);
  points[3] = Point(165,347);
  points[4] = Point(178,357);
  points[5] = Point(204,321);
  Tarcza->Canvas->Polygon(points, 5);
}
//-------------------------------------------------------------
void TForm1::nogalzielp1()
{
    Tarcza->Canvas->Pen->Color=RGB(0,167,0);
    Tarcza->Canvas->Pen->Width=4;

     TPoint points[6];
     points[0] = Point(206,322);
     points[1] = Point(223,354);
     points[2] = Point(218,356);
     points[3] = Point(222,362);
     points[4] = Point(235,354);
     points[5] = Point(215,317);
     Tarcza->Canvas->Polygon(points, 5);
}
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
    interwal = Edit1->Text;
    float abc = atof(interwal.c_str());

    Label2->Caption = zmLicznik;

    if (zmLicznik < abc)
    {
        Image1->Picture = NULL;
        Image1->Canvas->CopyRect(ProstTarcza,Tarcza->Canvas,ProstTarcza);
        Linia();
        Tarcza_Tlo();
        Tarcza_Tlo2();
        RysujCzerwonego();
        zmLicznik++;
    }
    else if (zmLicznik >= abc && zmLicznik < 2*abc)
    {
        Image1->Picture = NULL;
        Image1->Canvas->CopyRect(ProstTarcza,Tarcza->Canvas,ProstTarcza);
        Linia();
        Tarcza_Tlo();
        Tarcza_Tlo2();
        RysujZielonego();
        zmLicznik++;
    }
    else
    {
        zmLicznik = 0;
    }
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    Timer1->Enabled=True;
}
//---------------------------------------------------------------------------