Восход солнца на море

//---------------------------------------------------------------------------
 
#ifndef Unit2H
#define Unit2H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ExtCtrls.hpp>
//---------------------------------------------------------------------------
class TForm2 : public TForm
{
__published:    // IDE-managed Components
        TTimer *Timer1;
        void __fastcall FormCreate(TObject *Sender);
        void __fastcall Timer1Timer(TObject *Sender);
        void __fastcall FormResize(TObject *Sender);
        void __fastcall FormClose(TObject *Sender, TCloseAction &Action);
private:    // User declarations
        Graphics::TBitmap *bitmap;
        int Horizon;
        int radius;
        double x, y;
public:     // User declarations
        __fastcall TForm2(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm2 *Form2;
//---------------------------------------------------------------------------
#endif

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit2.h"
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm2 *Form2;
//---------------------------------------------------------------------------
__fastcall TForm2::TForm2(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm2::FormCreate(TObject *Sender)
{
bitmap = new Graphics::TBitmap;
bitmap->Canvas->Font->Color = clWhite;
 
this->DoubleBuffered = true;
this->Show();
Timer1->Interval = 10;
Timer1->Enabled = true;
 
x = 1; y = this->Height;
}
//---------------------------------------------------------------------------
#include <math.h>
void __fastcall TForm2::Timer1Timer(TObject *Sender)
{
bitmap->Canvas->Brush->Color = clBlue;                // Синее небо
bitmap->Canvas->FillRect( this->Canvas->ClipRect );   //
 
 
x>this->Width ? x=-radius : x++;
 
 
y = this->Height * fabs( sin( x/100 ) );                           //// Солнышко
int halo = radius/5;                                                //// Гало
TRect r;                                                             ////
r.Left   = x-radius-halo;   r.right = x+radius+halo;                 ////
r.Bottom = y-radius/10;     r.Top   = y+radius/10;                   ////
  bitmap->Canvas->FillRect(r);                                       ////
r.Left   = x-radius/10;     r.right = x+radius/10;                   ////
r.Bottom = y-radius-halo*6; r.Top   = y+radius+halo;                 ////
  bitmap->Canvas->FillRect(r);                                       ////
bitmap->Canvas->Brush->Color = clYellow;                             //
bitmap->Canvas->Ellipse( x-radius, y-radius, x+radius, y+radius ); ////
 
 
if( y - radius == Horizon )                                //// Проверка на зеленый луч
  {                                                       //
  WORD hours, mins, secs, milliSecs;                      //// Поправка на текущие широты
  DecodeTime(Now(), hours, mins, secs, milliSecs);        ////
  RandSeed = milliSecs;                                   ////
                                                          //
  if( rand() % 2 )                                        // Проверка на наблюдательность
    {                                                     //
    bitmap->Canvas->Brush->Color = clGreen;               //
    bitmap->Canvas->FillRect( bitmap->Canvas->ClipRect ); //
    Sleep( 10 );                                          //
    return;                                               //
    }                                                     //
  }                                                     ////
 
bitmap->Canvas->Brush->Color = clAqua;                              // Лазурная гладь воды
bitmap->Canvas->Rectangle( 0, Horizon, this->Width, this->Height ); //
 
if( y + radius > Horizon && y < Horizon )               // Озорные брызги
  bitmap->Canvas->TextOut( x, Horizon, "Плюх!" );       //
 
this->Canvas->Draw( 0, 0, bitmap );
}
//---------------------------------------------------------------------------
void __fastcall TForm2::FormResize(TObject *Sender)
{
Horizon = this->Height*2/3;
 
bitmap->Width  = this->Width;
bitmap->Height = this->Height;
 
radius = this->Height/10;
}
//---------------------------------------------------------------------------
void __fastcall TForm2::FormClose(TObject *Sender, TCloseAction &Action)
{
Timer1->Enabled = false;
delete bitmap;
bitmap = NULL;
}
//---------------------------------------------------------------------------