Разработка программы-приложения «Построение композиции геометрических объектов»

Автор работы: Пользователь скрыл имя, 18 Мая 2014 в 13:49, курсовая работа

Краткое описание

Компьютерная графика в настоящее время уже вполне сформировалась как наука. Существует аппаратное и программное обеспечение для получения разнообразных изображений - от простых чертежей до реалистичных образов естественных объектов. Компьютерная графика используется почти во всех научных и инженерных дисциплинах для наглядности восприятия и передачи информации. Знание её основ в наше время необходимо любому ученому или инженеру.
Среди многообразия возможностей, предоставляемых современными вычислительными средствами, те, что основаны на пространственно-образном мышлении человека, занимают особое место

Скачать в ZIP архиве (47.92 Кб) Сколько стоит заказать работу?
Вложенные файлы: 1 файл

Курсовая Компьютерная графика(Русских Т. И.).docx

— 51.97 Кб (Скачать файл)

begin

Image1.Picture.SaveTofile('1.jpg');

ShowMessage('график сохранен')

end;

procedure TForm1.Button4Click(Sender: TObject);

var x,y,step:integer;

    x2,y2:real;

begin

  image1.Canvas.FillRect(image1.Canvas.ClipRect);

//рисование  сетки

  x:=image1.width div 2;

  y:=(image1.height div 2);

image1.Canvas.MoveTo(image1.Width div 2, 0);

image1.Canvas.LineTo(image1.Width div 2, image1.Height);

image1.Canvas.MoveTo(0, image1.Height div 2);

image1.Canvas.LineTo(image1.Width, image1.Height div 2);

  step:=30;

  while x-step>5 do begin

//по Х

    image1.Canvas.MoveTo( x-step,y);

    Image1.Canvas.LineTo(x-step,y-5);

    Image1.Canvas.MoveTo(x+step,y );

    Image1.Canvas.LineTo(x+step,y-5);

//по Y

    image1.Canvas.MoveTo(x,y-step);

    Image1.Canvas.LineTo(x+5,y-step);

    image1.Canvas.MoveTo(x,y+step);

    Image1.Canvas.LineTo(x+5,y+step);

//рисование цифр

    Image1.Canvas.TextOut(x-step-4,y+5,FloatToStr(-step / 30));

    Image1.Canvas.TextOut(x+step-4,y+5,FloatToStr(step / 30));

    if y-step-5>0 then begin

    form1.Image1.Canvas.TextOut(x+10,y-step-10,FloatToStr(step / 30));

    form1.Image1.Canvas.TextOut(x+10,y+step-5,FloatToStr(-step / 30));

    end;

    inc(step,30);

  end;

end;

procedure TForm1.Button5Click(Sender: TObject);

begin

close;

end;

end.


Информация о работе Разработка программы-приложения «Построение композиции геометрических объектов»