If Form1.CheckBox2.Checked then
begin
FonDraw;
DrawAxesD;
funcD
end
end;
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
if Form1.ComboBox1.Text='Red' then colGr1:=clRed
else if Form1.ComboBox1.Text='Lime' then colGr1:=clLime
else if Form1.ComboBox1.Text='Yellow' then colGr1:=clYellow
else if Form1.ComboBox1.Text='Blue' then colGr1:=clBlue
else if Form1.ComboBox1.Text='Fuchsia' then colGr1:=clFuchsia
else if Form1.ComboBox1.Text='Aqua' then colGr1:=clAqua
else if Form1.ComboBox1.Text='White' then colGr1:=clWhite
else if Form1.ComboBox1.Text='Default' then colGr1:=clDefault;
end;
procedure TForm1.ComboBox2Change(Sender: TObject);
begin
if Form1.ComboBox2.Text='Red' then colGr2:=clRed
else if Form1.ComboBox2.Text='Lime' then colGr2:=clLime
else if Form1.ComboBox2.Text='Yellow' then colGr2:=clYellow
else if Form1.ComboBox2.Text='Blue' then colGr2:=clBlue
else if Form1.ComboBox2.Text='Fuchsia' then colGr2:=clFuchsia
else if Form1.ComboBox2.Text='Aqua' then colGr2:=clAqua
else if Form1.ComboBox2.Text='White' then colGr2:=clWhite
else if Form1.ComboBox2.Text='Default' then colGr2:=clDefault;
end;
procedure TForm1.ComboBox3Change(Sender: TObject);
begin
if Form1.ComboBox3.Text='Red' then colAx:=clRed
else if Form1.ComboBox3.Text='Lime' then colAx:=clLime
else if Form1.ComboBox3.Text='Yellow' then colAx:=clYellow
else if Form1.ComboBox3.Text='Blue' then colAx:=clBlue
else if Form1.ComboBox3.Text='Fuchsia' then colAx:=clFuchsia
else if Form1.ComboBox3.Text='Aqua' then colAx:=clAqua
else if Form1.ComboBox3.Text='White' then colAx:=clWhite
else if Form1.ComboBox3.Text='Default' then colAx:=clDefault;
end;
procedure TForm1.Label5Click(Sender: TObject);
begin
ShowMessage( :)')
end;
end.
5.3.2 Віконні інтерфейси
Рис. 5.2.1 Програма реалізації
Рис. 5.2.2 Програма реалізації
Рис. 5.2.3 Програма реалізації
5.4. Програмна реалізація афінних перетворень та анімації
5.4.1 Опис алгоритму
Алгоритм виконання завдання (блок-схеми):
Рис.5.3 Блок-схеми алгоритму
2. Тексти програмної реалізації завдання:
#include "stdafx.h"
#include <windows.h>
#include <iostream>
#include <stdio.h>
#include <math.h>
#include <gl/glut.h>
#include <GL/gl.h>
using namespace std;
Void drawB()
{
glClearColor(1, 1,1, 0); // колір очистки
glClear(GL_COLOR_BUFFER_BIT);
glColor3ub(0,255,100); // колір рисування
glLineWidth(2);
float a;
float cx,cy;
int r;
for (int j=0;j<40;j++)
{
cx=0.5*j;
cy=6*sin(cx);
r=rand()%30;
glBegin( GL_LINE_LOOP );
glColor3ub(rand()%255,rand()%100,rand()%255);
for(int i = 0; i < 50; i++ ) {
a = (float)i / 50.0f * 3.1415f * 2.0f;
glVertex2f(cos(a) * r+cx*20, sin(a) * r+cy*20+30);
}
glEnd();
glFlush();
}
glFlush();
}