Лабораторная работа №1 по предмету Компьютерная графика icon

Лабораторная работа №1 по предмету Компьютерная графика



НазваниеЛабораторная работа №1 по предмету Компьютерная графика
Дата конвертации07.09.2012
Размер36.83 Kb.
ТипЛабораторная работа
1. /Comp_gr/LAB_1/LAB1_CH.DOC
2. /Comp_gr/LAB_2/PROG2K.DOC
3. /Comp_gr/LAB_2/ПСЕВДО.DOC
4. /Comp_gr/LAB_2/Семантика.doc
5. /Comp_gr/LAB_2/титул.doc
6. /Comp_gr/LAB_3/LAB3_СН.DOC
7. /Comp_gr/LAB_4/LAB4.DOC
8. /Comp_gr/LAB_4/TITUL.DOC
9. /Comp_gr/LAB_4/Результат1.doc
10. /Comp_gr/LAB_4/Результат2.doc
11. /Comp_gr/LAB_5/LAB5_CH.DOC
12. /Comp_gr/LAB_8/LABA8.DOC
Лабораторная работа №1 по предмету Компьютерная графика
Program Lab2; { Программа построения растра 32x32 }
{активация гр режима}
Семантика базы переменных
Технический университет Лабораторная работа №2 по компьютерной графике тема: Построение растра
Лабораторная работа №3 по компьютерной графике
Постановка задачи
Лабораторная работа №4 по компьютерной графике
Шаг | Координаты (X,Y) | Расчетн.(X,Y)
Шаг | Координаты (X,Y) | Расч(X,Y)
Лабораторная работа №5 по компьютерной графике
Лабораторная работа №8

Московский институт радиотехники электроники и автоматики

(технический университет)


Лабораторная работа № 1

по предмету Компьютерная графика




ТЕМА: Простейшие методы анимации




Работу выполнил студент

Группы ----------------

Работу приняла Криницкая Е.В.


Москва

2001

Постановка задачи



1.Создать цветной фон с применением графических примитивов по заданной картинке.


2.Создать спрайт с применением графических примитивов по заданной картинке.


3.Осуществить движение спрайта с дальнейшим восстановлением экрана.



Алгоритм реализуемого метода




База данных


Переменная

Семантика

Диапазон значений
graphresult

признак ошибки инициализации графического режима

graphresult =0,1,…


I

1)Параметр цикла

2)Параметр для определения видимой видеостраницы

0
P

Переменная для хранения номера видеостраницы

0<=P<=255


pmax

Переменная для хранения максимально возможного номера видеостраницы

0<=P<=255



Начало


Инициализация графического режима


if (graphresult <> 0 ) then выход из алгоритма


Нарисовать фон на всех видеостраницах


i:=0

p:=0


while (i<73) do

Установить активную видеостраницу номер p

Установить видимую видеостраницу номер p+1

Изменить координаты вывода спрайта

Нарисовать на активной видеостранице спрайт

Установить активную видеостраницу номер p+1

Установить видимую видеостраницу номер p

Очистить активную видеостраницу

Нарисовать фон на активной видеостранице

Задержать выполнение программы на некоторое время

p=p+1

if (p > pmax ) then p=0

Инициализация текстового режима



Конец.


uses Crt, Graph;


type PRVZ=object {Объект паровоз}

x,y:integer; {координаты паровоза}

{метод инициализации паровоза}

procedure init_PRVZ(px,py:integer;pcolor:byte);

procedure put_PRVZ; {метод вывода паровоза}

procedure draw_PRVZ(dx,dy:integer); {метод перемещения паровоза}

end;


procedure PRVZ.init_PRVZ;

begin

x:=px;

y:=py;

end;


procedure PRVZ.put_PRVZ; {рисование паровоза}

var i:word;

begin

setfillstyle(1,8);

bar(x,y,x+100,y+26);

setfillstyle(1,9);

bar(x+2,y+2,x+20,y+10);

setfillstyle(1,2);

setcolor(2);

fillellipse(x+10,y+30,6,6);

fillellipse(x+30,y+30,6,6);

fillellipse(x+70,y+30,6,6);

fillellipse(x+90,y+30,6,6);

setfillstyle(1,8);

bar(x+100,y+20,x+130,y+23);

setfillstyle(1,8);

bar(x+130,y,x+230,y+26);

setfillstyle(1,2);

setcolor(2);

fillellipse(x+10+130,y+30,6,6);

fillellipse(x+30+130,y+30,6,6);

fillellipse(x+70+130,y+30,6,6);

fillellipse(x+90+130,y+30,6,6);

end;


procedure PRVZ.draw_PRVZ;

begin

x:=x+dx; {изменение координат вывода паровоза}

y:=y+dy;

put_PRVZ; {вывод паровоза}

end;


procedure fone; {рисование фона}

begin

FillEllipse(50,250,30,30); {рисует закрашенный элипс}

setfillstyle(1,9); {тип закраски и ее цвет}

bar(0,getmaxy,getmaxx,1); {рисует столбец}

setfillstyle(1,6);

bar(0,getmaxy,getmaxx,270);

setcolor(6);

setlinestyle(0,0,3);

line(100,270,105,270-150);

setfillstyle(1,2);

setcolor(2);

fillellipse(103,150,30,60);

setfillstyle(1,2);

setfillstyle(1,14);

setcolor(14);

fillellipse(570,70,30,25);

end;


var

GraphDriver, GraphMode : integer;

i,j:word;

r:PRVZ;


begin

GraphDriver:=9;

GraphMode:=1;

InitGraph(GraphDriver, GraphMode, ''); {инициализация граф. режима}

if graphresult<>0 then

begin

writeln('Graph Error!');

halt(1);

end;

setbkcolor(1); {установка фон. цвета}

{Рисование фона на обоих видео-страницах}

for i:=0 to 1 do

begin

setactivepage(i); {устанавливает актив. вид. стр.}

fone;

end;

setactivepage(0);

setvisualpage(0); {зад. номер отображ. вид. стр.}


r.init_PRVZ(500,240,7); {инициализация паровоза}

r.put_PRVZ; {вывод паровоза}

delay(20000);

for i:=0 to 73 do {перемещение паровоза}

begin

setactivepage(i);

setvisualpage(i+1);

r.draw_PRVZ(-10,0);

setactivepage(i+1);

setvisualpage(i);

delay(300);

cleardevice;

fone;

end;

delay(20000);

closegraph;

end.




Похожие:

Лабораторная работа №1 по предмету Компьютерная графика iconДокументы
1. /OOP/Лабораторная работа ь00-Введение.doc
2. /OOP/Лабораторная...

Лабораторная работа №1 по предмету Компьютерная графика iconПриказ №327 от 10. 10. 2010 года отдела образования администрации Александрово-Гайского муниципального района «О проведении дистанционного конкурса «Компьютерная графика 2011»» 27 декабря 2011 года были подведены итоги конкурса «Компьютерная графика 2011»,
Александрово-Гайского муниципального района «О проведении дистанционного конкурса «Компьютерная графика – 2011»» 27 декабря 2011...
Лабораторная работа №1 по предмету Компьютерная графика iconЛабораторная работа: создание мини-презентации «Памятники Кремля»
Лабораторная работа проводится в компьютерном классе, с подключением к сети Internet
Лабораторная работа №1 по предмету Компьютерная графика iconДокументы
1. /Lab1/Лабораторная работа 1.doc
2. /Lab2/Лабораторная...

Лабораторная работа №1 по предмету Компьютерная графика iconКомпьютерная графика Графические редакторы

Лабораторная работа №1 по предмету Компьютерная графика iconИ я забуду Покажи мне и я запомню, Дай мне действовать самому и я научусь. Китайская мудрость Тема: Лабораторная работа
Тема: «Лабораторная работа «Измерение работы и мощности тока в электрической лампочке»
Лабораторная работа №1 по предмету Компьютерная графика iconДокументы
1. /Когнитивная компьютерная графика.doc
Лабораторная работа №1 по предмету Компьютерная графика iconДокументы
1. /Nash/lab1/Лабораторная работа ь1.doc
2. /Nash/lab10/Лабораторная...

Лабораторная работа №1 по предмету Компьютерная графика iconСлободскова Екатерина – Новые зубы – фантазия или реальность?
Редактор, корректор, художник (рисунки, компьютерная графика, дизайн обложки): Е. Слободскова
Лабораторная работа №1 по предмету Компьютерная графика iconЛабораторная работа №2 «Система безопасности Windows xp»
Лабораторная работа №2 «Система безопасности Windows xp» Цель работы: Изучить систему безопасности Windows xp
Лабораторная работа №1 по предмету Компьютерная графика iconКомпьютерная графика Изучив эту тему вы узнаете: Виды графических компьютерных изображений
Большинство редакторов ориентированы не столько на создание изображений, сколько на их обработку
Разместите кнопку на своём сайте:
Документы


База данных защищена авторским правом ©podelise.ru 2000-2014
При копировании материала обязательно указание активной ссылки открытой для индексации.
обратиться к администрации
Документы

Разработка сайта — Веб студия Адаманов