- •До розрахунково-графічної роботи
- •2.1. Мета роботи...............................................................................................................................15
- •3.1. Мета роботи...............................................................................................................................17
- •4.1. Мета роботи...............................................................................................................................21
- •5.1. Мета роботи...............................................................................................................................21
- •Завдання
- •Календарний план
- •Індивідуальні завдання
- •Список скорочень
- •Розділ 1. Моделі геометрії просторових об’єктів
- •1.2. Комбінаційні моделі геометричного об’єкта Комбінаційна модель геометричного об’єкта
- •Розділ 2. Координатне перетворення
- •Розділ 3. Побудови кривих
- •Розділ 4 колірні моделі. Змішування кольорів
- •4.2. Розрахунок кольорів та колірних перетворень
- •1. Тексти програмної реалізації завдання:
- •Int main(void)
- •2. Результати виконання програми (PrintScreen):
- •Розділ 5 програмні реалізації
- •5.2. Програмна реалізація з OpenGl
- •InitializeComponent();
- •5.2.2 Віконні інтерфейси
- •5.3. Програмна реалізація з WinApi
- •5.3.1 Опис алгоритму
- •Interface
- •Image1: tImage;
- •Implementation
- •Var daDi:integer;
- •If Form1.CheckBox2.Checked then
- •5.3.2 Віконні інтерфейси
- •5.4. Програмна реалізація афінних перетворень та анімації
- •5.4.1 Опис алгоритму
- •2. Тексти програмної реалізації завдання:
- •Void drawB()
- •Void DrawObjects()
- •Int main( int argc, char *argv[])
- •5.4.2 Віконні інтерфейси
- •5.5. Програмні реалізація розрахунків кривих ліній, координат, кольорів
- •5.5.1 Опис алгоритмів
- •Int main(void)
- •5.5.2 Віконні інтерфейси
- •Висновки
- •Список використаних джерел
- •Додатки
- •InitializeComponent();
- •Interface
- •Image1: tImage;
- •Implementation
- •Var daDi:integer;
- •If Form1.CheckBox2.Checked then
- •Void drawB()
- •Void DrawObjects()
- •Int main( int argc, char *argv[])
- •Int main(void)
Var daDi:integer;
Begin
Form1.Image1.Canvas.Pen.Color:=colAx;
Form1.Image1.Canvas.MoveTo(0,Trunc(Form1.Image1.Height/2));
Form1.Image1.Canvas.LineTo(Form1.Image1.Width,Trunc(Form1.Image1.Height/2));
Form1.Image1.Canvas.MoveTo(Trunc(Form1.Image1.Width/2),0);
Form1.Image1.Canvas.LineTo(Trunc(Form1.Image1.Width/2),Form1.Image1.Height);
Form1.Image1.Canvas.MoveTo(Form1.Image1.Width,Trunc(Form1.Image1.Height/2));
Form1.Image1.Canvas.LineTo(Form1.Image1.Width-10,Trunc(Form1.Image1.Height/2)-6);
Form1.Image1.Canvas.MoveTo(Form1.Image1.Width,Trunc(Form1.Image1.Height/2));
Form1.Image1.Canvas.LineTo(Form1.Image1.Width-10,Trunc(Form1.Image1.Height/2)+6);
Form1.Image1.Canvas.MoveTo(Trunc(Form1.Image1.Width/2),0);
Form1.Image1.Canvas.LineTo(Trunc(Form1.Image1.Width/2)-6,10);
Form1.Image1.Canvas.MoveTo(Trunc(Form1.Image1.Width/2),0);
Form1.Image1.Canvas.LineTo(Trunc(Form1.Image1.Width/2)+6,10);
Form1.Image1.Canvas.Pen.Color:=clSilver;
x:=Trunc(Form1.Image1.Width/2);
DADi:=0;
Form1.Image1.Canvas.TextOut(Trunc(Form1.Image1.Width/2)+3,Trunc(Form1.Image1.Height/2)+3,IntToStr(DADi));
while x<Form1.Image1.Width do
begin
x:=x+kd*10;
Form1.Image1.Canvas.MoveTo(x,0);
Form1.Image1.Canvas.LineTo(x,Form1.Image1.Height);
DADi:=DADi+1;
Form1.Image1.Canvas.TextOut(x+3,Trunc(Form1.Image1.Height/2)+3,IntToStr(DADi));
end;
x:=Trunc(Form1.Image1.Width/2);
DADi:=0;
while x>0 do
begin
x:=x-kd*10;
Form1.Image1.Canvas.MoveTo(x,0);
Form1.Image1.Canvas.LineTo(x,Form1.Image1.Height);
DADi:=DADi-1;
Form1.Image1.Canvas.TextOut(x+1,Trunc(Form1.Image1.Height/2)+3,IntToStr(DADi));
end;
y:=Trunc(Form1.Image1.Height/2);
DADi:=0;
while y<Form1.Image1.Height do
begin
y:=y+kd*10;
Form1.Image1.Canvas.MoveTo(0,y);
Form1.Image1.Canvas.LineTo(Form1.Image1.Width,y);
DADi:=DADi-1;
Form1.Image1.Canvas.TextOut(Trunc(Form1.Image1.Width/2)+2,y+2,IntToStr(DADi));
end;
y:=Trunc(Form1.Image1.Width/2);
DADi:=0;
while y>0 do
begin
y:=y-kd*10;
Form1.Image1.Canvas.MoveTo(0,y);
Form1.Image1.Canvas.LineTo(Form1.Image1.Width,y);
DADi:=DADi+1;
Form1.Image1.Canvas.TextOut(Trunc(Form1.Image1.Width/2)+2,y+2,IntToStr(DADi));
end
End;
Procedure funcD;
Begin
if Form1.RadioButton1.Checked then fd:=1
else if Form1.RadioButton2.Checked then fd:=2
else if Form1.RadioButton3.Checked then fd:=3
else if Form1.RadioButton4.Checked then fd:=4;
case fd of
1:GraficD(1);
2:GraficD(2);
3:GraficD(3);
4:Begin
GraficD(2);
GraficD(3)
end
end;
End;
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
FonDraw;
if Form1.CheckBox2.Checked=False then DrawAxes else DrawAxesD
end;
procedure TForm1.FormActivate(Sender: TObject);
begin
colGr1:=clBlue;
colGr2:=clDefault;
colAx:=clRed;
FonDraw;
if Form1.CheckBox2.Checked=False then DrawAxes else DrawAxesD;
kd:=Form1.TrackBar2.Position;
end;
procedure TForm1.TrackBar1Change(Sender: TObject);
begin
if Form1.CheckBox2.Checked=False then
begin
FonDraw;
DrawAxes;
func
end
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
FonDraw;
if Form1.CheckBox2.Checked=False then
begin
DrawAxes;
func
end
else
begin
DrawAxesD;
funcD
end
end;
procedure TForm1.Label4Click(Sender: TObject);
begin
ShowMessage
end;
procedure TForm1.TrackBar2Change(Sender: TObject);
begin
kd:=Form1.TrackBar2.Position;