РОБОТА
This presentation is the property of its rightful owner.
Sponsored Links
1 / 21

РОБОТА З ГРАФІКОЮ PowerPoint PPT Presentation


  • 102 Views
  • Uploaded on
  • Presentation posted in: General

РОБОТА З ГРАФІКОЮ. Пашко Анатолій Олексійович Кафедра інформаційних систем і технологій Європейського університету [email protected] Графіка комп'ютерна Векторна MoveTo(X,Y) LineTo(X,Y) Растрова Pixels[x][y] - Фрактальна математичні перетворення. Загальний вигляд.

Download Presentation

РОБОТА З ГРАФІКОЮ

An Image/Link below is provided (as is) to download presentation

Download Policy: Content on the Website is provided to you AS IS for your information and personal use and may not be sold / licensed / shared on other websites without getting consent from its author.While downloading, if for some reason you are not able to download a presentation, the publisher may have deleted the file from their server.


- - - - - - - - - - - - - - - - - - - - - - - - - - E N D - - - - - - - - - - - - - - - - - - - - - - - - - -

Presentation Transcript


6884939

РОБОТА

З

ГРАФІКОЮ

Пашко Анатолій Олексійович

Кафедра інформаційних систем і технологій

Європейського університету

[email protected]


6884939

  • Графіка комп'ютерна

  • Векторна

  • MoveTo(X,Y)

  • LineTo(X,Y)

  • Растрова

  • Pixels[x][y]

  • -Фрактальна

  • математичні перетворення


6884939

Загальний вигляд


6884939

Події Image


6884939

void __fastcall TSDIAppForm::Image1MouseDown

(TObject *Sender,

TMouseButton Button,

TShiftState Shift,

int X, int Y)

{

if (Button == mbLeft)

{

Image1->Canvas->Pen->Color=clRed;

Image1->Canvas->Ellipse(X-2,Y-2,X+2,Y+2) ;

}

}


6884939

Побудова точок


6884939

TColor a,b;

a= clRed;

b=clBlue;


6884939

TColor a;

A=0x00 FF 00 00


6884939

void __fastcall TSDIAppForm::N7Click(TObject *Sender)

{

ColorDialog1->Execute();

a=ColorDialog1->Color;

}


6884939

void __fastcall TSDIAppForm::Button1Click(TObject *Sender)

{

Image1->Canvas->Pen->Color=a;

Image1->Canvas->Pen->Style=k;

Image1->Canvas->MoveTo(x[0].x,x[0].y) ;

Image1->Canvas->LineTo(x[1].x,x[1].y);

}


6884939

Побудова ліній різного стилю


6884939

Побудова ліній різної товщини


6884939

Робота таймера


6884939

void __fastcall TSDIAppForm::Timer1Timer(TObject *Sender)

{

Image1->Canvas->Pen->Color=Image1->Canvas->Pen->Color+rand()%1000000000;

Image1->Canvas->Ellipse(s1-10,s2-10,s1+10,s2+10) ;

s1=s1+3*i1;

s2=s2+6*i2;

if (s1>Image1->Width-10) i1=i1*(-1);

if(s2>Image1->Height-10) i2=i2*(-1);

if (s1<10) i1=i1*(-1);

if(s2<10) i2=i2*(-1);

}


6884939

Відображення руху


6884939

void __fastcall TSDIAppForm::Timer1Timer(TObject *Sender)

{

Image1->Canvas->Pen->Color=clWhite;

Image1->Canvas->Ellipse(s1-10,s2-10,s1+10,s2+10) ;

s1=s1+3*i1;

s2=s2+6*i2;

if (s1>Image1->Width-10) i1=i1*(-1);

if(s2>Image1->Height-10) i2=i2*(-1);

if (s1<10) i1=i1*(-1);

if(s2<10) i2=i2*(-1);

Image1->Canvas->Pen->Color=rand()%4000000000;

Image1->Canvas->Ellipse(s1-10,s2-10,s1+10,s2+10) ;

}


  • Login