//---------------------------------------------------------------------------
/* demo.cpp
**	Pieni demonnäköinen kikkailu about-lootaksi
**
**  Tekijät:          Tommi Lahtonen
**  Tehty:            Huhtikuu 1997
**
**  Muutettu:         07.9.1997
**  Mitä muutettu:    Muutettu ulkonäkö täysin, edelleen hyvin huonoa
**					  koodia, voisi nopeuttaa huomattavasti.
**  Ja haukkuisin kyllä lyttyäkin lytympään muutenkin koodista,
**  sen kommentoinnista ja muuttujien nimien valinnasta/ vl 7.1.2000!!!
**
*/
#include <vcl\vcl.h>
#pragma hdrstop
#include <math.h>
#include "demo.h"
//---------------------------------------------------------------------------
#pragma resource "*.dfm"
TDemotus *Demotus;
//---------------------------------------------------------------------------
__fastcall TDemotus::TDemotus(TComponent* Owner)
	: TForm(Owner), teksti("                                                                Winkerho v1.0 by Vesa Lappalainen (vesal@mit.jyu.fi) & Tommi Lahtonen (tlahtone@cc.hut.fi) ...                                                                                                           ")
{
	int i;
    phase = 0; vari = 0;  suunta = 1;
    scrollpos = 1;

    logotin  = 0;
  // luodaan kuvat kaksoisbufferointia varten

	for( i=0;i<2;i++) {
	  	images[i] = new TImage(this);
        images[i]->ClientWidth = ClientWidth;
        images[i]->ClientHeight = ClientHeight;
        images[i]->Canvas->Brush->Color = clBlack;
        bitmaps[i] = new Graphics::TBitmap();
        bitmaps[i]->Width = ClientWidth;
        bitmaps[i]->Height = ClientHeight;
        }

//	bitmaps[0]->Handle = CreateCompatibleBitmap(Canvas->Handle, ClientWidth, ClientHeight);
//    bitmaps[1]->Handle = CreateCompatibleBitmap(Canvas->Handle, ClientWidth, ClientHeight);

    scroll = 8;
// lasketaan liikeratoja

    for( i=0;i<MAX;i++) {
    	y[0] = x[i] = 0;
        index[i] = i;
        }
    double a = 0;
    for( i=0; a<2*M_PI; i++) {
    	x[i] = cos(a) * ClientWidth/2 + ClientWidth/2;
        y[i] = sin(a) * ClientHeight/2 + ClientHeight/2;
 		a += 0.06;
        }
    lkm = i;
    a=0;

    for( i=0; i<ClientWidth; i++) {
        yy[i] = sin(a) * ClientHeight/2 + ClientHeight/2;
		xx[i] = i*cos(a)*sin(a);
 		a += 0.03;
        }
    hazh = Hazlogo->ClientHeight;
    hazw = Hazlogo->ClientWidth;

// väritemppuilua
    for( i=0;i<MAX-10;i++) {	// värit eivät oikein toimi toivotulla tavalla
			colorit[i] = TColor(0x00f00000);
			colorit[i+1] = TColor(0x00ff0000);
			colorit[i+2] = TColor(0x00f00000);
			colorit[i+3] = TColor(0x00e00000);
			colorit[i+4] = TColor(0x00d00000);
			colorit[i+5] = TColor(0x00c00000);
			colorit[i+6] = TColor(0x00b00000);
			colorit[i+7] = TColor(0x00a00000);
			colorit[i+8] = TColor(0x00900000);
			colorit[i+9] = TColor(0x00800000);

        }




}
//---------------------------------------------------------------------------
void __fastcall TDemotus::Timer1Timer(TObject *Sender)
{

	 TRect apu = Texbar->ClientRect, apu2 = Texbar2->ClientRect , apu3 = Hazlogo->ClientRect;
//     int foo = apu.Bottom;
//     int bar = apu2.Right;
     int foo1 = apu3.Bottom, bar1 = apu3.Right;

     TImage *kuva, *clear;
//     Graphics::TBitmap *image; // *tyhja;
     if (phase) {
     	kuva = images[0];
        clear = images[1];
//     	image = bitmaps[0];
//        tyhja = bitmaps[1];
        phase = 0;
        }
     else {
     	kuva = images[1];
        clear = images[0];
//     	image = bitmaps[1];
//        tyhja = bitmaps[0];
        phase = 1;
        }

        kuva->Canvas->Pen->Color = clLime;


//   int count = 0;

        apu3.Right = apu3.Left + bar1 + y[index[40]]/2;
       apu3.Bottom = apu3.Top + foo1 + x[index[10]]/2;
        kuva->Canvas->CopyRect(apu3, Hazlogo->Canvas, Hazlogo->ClientRect);

        for(int i=0;i<ClientWidth;i++) {
        kuva->Canvas->Pen->Color = colorit[i];
     	kuva->Canvas->MoveTo(xx[i],xx[i]);
		kuva->Canvas->LineTo(i, yy[xx[i]]);
        }

     kuva->Canvas->Font->Color = TColor(0x00ffffff);
     AnsiString txt = teksti;
     kuva->Canvas->Font->Size = 12;

          
		kuva->Canvas->TextOut(scroll-10, ClientHeight-40, //ikuva->ClientHeight-20,
        			txt.SubString(scrollpos,90).c_str());
     if (scroll<=0) {
     	scroll = kuva->Canvas->TextWidth(AnsiString(txt[scrollpos]));
        scrollpos++;
        }
     else scroll -= 1;



     if ( scrollpos > strlen(teksti) ) scrollpos = 1;
     clear->Canvas->FillRect(clear->ClientRect);

     Canvas->CopyRect(ClientRect, kuva->Canvas, kuva->ClientRect);

     for(int i=0;i<lkm;i++) {
     	index[i]++;
        if (index[i]>=lkm) index[i] = 0;
        }
     if (index[0]>=30) logotin = 0;
     else logotin = 1;

     for(int i=0;i<ClientWidth;i++) {
     	xx[i]++;
        if (xx[i]>=ClientWidth) xx[i] = 0;
        }

}
//---------------------------------------------------------------------------