Реферат

Реферат Изображение движущегося объекта на фоне неподвижных предметов

Работа добавлена на сайт bukvasha.net: 2015-10-28

Поможем написать учебную работу

Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.

Предоплата всего

от 25%

Подписываем

договор

Выберите тип работы:

Скидка 25% при заказе до 20.2.2025





Московская открытая социальная академия




Финансово-экономический факультет

Кафедра информационных технологий в экономике
К У Р С О В А Я   Р А Б О Т А
по дисциплине  «Компьютерная графика»


на тему: «Изображение движущегося объекта на фоне неподвижных предметов.

Луна на звездном небе»


                    
Выполнил (а) студент (ка)  __Семакина _______________________

____Наталья Сергеевна______группы__332______
Руководитель курсовой работы  проф. Лаптев Д.Н.
Зачтена                  Оценка                         Подпись преподавателя

«___» __________2010 г.  ________        ____________________
Москва - 2010



Оглавление


Введение
Используя полученные навыки программирования на Turbo Pascal


Код программы:
Анимация пейзажа - домик, дерево, з дымаря домика выпускаются клубочки дыма, а по небу передвигается туча.
program grafika_01;

uses crt,graph;

var

gr1,gr2,x,y,a,b,c,d,i:integer;

begin

a:=200;b:=1;c:=260;d:=100;i:=0;

gr1:=detect;

gr2:=vgahi;

initgraph(gr1,gr2,'C:PascalBGI');

SetFillStyle(1,1);

Bar(0,0,640,480);

SetFillStyle(1,2);

Bar(0,460,640,480);

SetFillStyle(1,6);

Bar(80,340,200,460);

Bar(85,270,115,320);

SetFillStyle(1,9);

Bar(120,380,160,420);

SetColor(0);

Rectangle(120,380,160,420);

Line(140,380,140,420);

Line(140,400,160,400);

Line(60,340,140,280);

line(140,280,220,340);

Line(220,340,60,340);

SetFillStyle(1,6);

FloodFill(140,310,0);

SetFillStyle(1,9);

Sector(140,325,0,180,20,20);

line(140,325,140,305);

Line(140,325,154,315);

Line(140,325,126,315);

SetFillStyle(1,14);

FillEllipse(490,100,40,40);

SetFillStyle(1,7);

FillEllipse(492,104,4,4);

FillEllipse(488,86,6,6);

FillEllipse(500,75,2,3);

FillEllipse(480,120,4,2);

FillEllipse(520,90,2,2);

SetFillStyle(1,6);

Bar(450,340,460,460);

SetFillStyle(1,2);

Arc(415,320,40,320,20);

Arc(455,320,40,140,20);

Arc(455,320,220,320,20);

Arc(495,320,220,500,20);

Arc(435,320,75,135,30);

Arc(475,320,45,105,30);

Arc(435,320,225,315,30);

Arc(475,320,225,320,30);

Arc(455,300,20,160,25);

FloodFill(455,320,0);

x:=0;

y:=460;

SetColor(2);

repeat

Line(x,y,x+10,y-10);

Line(x+10,y,x+30,y-20);

x:=x+20;

until x>=640;

repeat

SetfillStyle(1,1);

Bar(0,140,520,200);

Bar(0,0,200,265);

SetColor(1);

SetColor(0);

if c<0 then begin c:=260;i:=0;d:=100 end;

SetFillStyle(1,15);

Arc(a-40,170,40,320,20);

Arc(a,170,40,140,20);

Arc(a,170,220,320,20);

Arc(a+40,170,220,500,20);

Arc(a-20,170,45,135,30);

Arc(a+20,170,45,135,30);

Arc(a-20,170,225,315,30);

Arc(a+20,170,225,320,30);

FloodFill(a+1,171,0);

SetFillStyle(1,7);

FillEllipse(d,c,8+i,5+i);

FillEllipse(d,c-10,14+i,10+i);

FillEllipse(d,c-25,19+i,15+i);

FillEllipse(d,c-45,25+i,19+i);

c:=c-11;

d:=d+5*b;

i:=i-1;

if a=460 then b:=-1;

if a=40 then b:=1;

a:=a+10*b; delay(64000); delay(64000);

until keypressed;

readln;

end.

1. Реферат Основы наблюдения планет
2. Реферат Типи поділу рослинних клітин 2
3. Научная работа Статистическое изучение цен на недвижимость
4. Реферат на тему Adolf Hitler Essay Research Paper More than
5. Реферат на тему Isaac Newton Essay Research Paper It was
6. Реферат Контрольна работа по Туризму
7. Реферат на тему Gatsby Essay Research Paper Although the precise
8. Реферат на тему Langston Hughes Essay Research Paper Bryan SnyderFebruary
9. Реферат Структура типового робочого вікна ос Windows Опис структури вікна основних елементів вікна в О
10. Реферат на тему О теории и практике исламского правления в странах Среднего Востока