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.

Додаток B Тексти програми афінних перетворень та анімації

#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();

}

Void DrawObjects()

{

{

glTranslatef(0.5, 6*sin(1.0), 0); // переміщення

drawB(); // перемалювання фігури

Sleep(200); // призупинка виконання

}

}

Int main( int argc, char *argv[])

{

glutInit(&argc, argv);

glutInitDisplayMode(GLUT_RGBA); //ініціалізація графічного режиму

glutInitWindowPosition(100, 100); //розміщення вікна

glutInitWindowSize(800, 500); //розміри вікна

glutCreateWindow("Lab2_Khristian");

glutDisplayFunc(drawB); //рисування фігури

glutIdleFunc(DrawObjects); //відтворення руху фігури

glMatrixMode(GL_PROJECTION);

glLoadIdentity();

gluOrtho2D(0, 300, -50, 300);

glutMainLoop();

return 0;

}

Додаток Г Тексти програм розрахунку координат, кривих ліній, кольорів

#include <math.h>

#include <stdio.h>

#include <conio.h>