Реферат: Изображение движущегося объекта на фоне неподвижных предметов
Название: Изображение движущегося объекта на фоне неподвижных предметов Раздел: Рефераты по информатике Тип: реферат |
Московская открытая социальная академия Финансово-экономический факультет Кафедра информационных технологий в экономике К У Р С О В А Я Р А Б О Т А по дисциплине «Компьютерная графика»
на тему: «Изображение движущегося объекта на фоне неподвижных предметов. Луна на звездном небе»
Выполнил (а) студент (ка) __Семакина _______________________ ____Наталья Сергеевна______группы__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. |