Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
legozaur
8 / 8 / 13
Регистрация: 03.02.2013
Сообщений: 145
1

Проблем закраски движущихся объектов

27.02.2013, 13:13. Просмотров 771. Ответов 1
Метки нет (Все метки)

закрашивает голыбым цветом от окна (ему никто не разреал) что делать?)
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
uses graphABC;
var x,y,i:integer;
begin
textout(x,y,'äâèæåГ*ГЁГҐ');
for i:=1 to 200 do begin
 
SetPenWidth(3);// òîëùèГ*Г* ГЇГҐГ°Г* 3 äëÿ ГўГ±ГҐГЈГ®
{äîì}rectangle(500,300,600,400);//äîì
     rectangle(530,330,570,360);//îêГ*Г®
     line(500,300,550,250);//êðûøГ*
     line(550,250,600,300);
     floodfill(510,310,clBrown);//öâåò äîìГ*
     floodfill(520,290,clMedGray);//öâåò îêГ*Г*
     floodfill(535,335,clSkyBlue);//öâåò êðûøè
 
{ÑîëГ*öå} circle(0,0,80);//ñîëГ*öå
         line(80,40,140,60);//ëó÷ 1
         line(40,90,80,120);//ëó÷ 2
         line(60,60,100,100);//ëó÷ 3
         floodfill(1,1,clYellow); //öâåò ñîëГ*Г¶Г*
         floodfill(80,40,clYellow); //öâåò ëó÷åé
         floodfill(40,90,clYellow);
         floodfill(60,60,clYellow);
         
{Г±Г*ìîë¸ò} SetPenColor(clBlack);
          rectangle(480-i,80-i,580-i,120-i);//êîðïóñ
          line(440-i,100-i,480-i,80-i);
          line(440-i,100-i,480-i,120-i);//ГЄГ*ГЎГЁГ*Г*(òðåóãîëüГ*ГЁГЄ)
          line(500-i,100-i,560-i,155-i);
          line(540-i,100-i,560-i,155-i);//
          floodfill(552-i,145-i,clYellow);
          floodfill(450-i,100-i,clYellow);
          line(520-i,80-i,560-i,60-i);
          line(560-i,60-i,545-i,80-i);//
          line(580-i,80-i,580-i,60-i);
          line(580-i,60-i,560-i,80-i);//
    //      floodfill(490-i,85-i,clGray);//öâåò êîðïóñГ* (Ñåðûé)
         sleep(100);
          SetPenColor(clWhite);
          rectangle(480-i,80-i,580-i,120-i);//êîðïóñ
          line(440-i,100-i,480-i,80-i);
          line(440-i,100-i,480-i,120-i);//ГЄГ*ГЎГЁГ*Г*(òðåóãîëüГ*ГЁГЄ)
          line(500-i,100-i,560-i,155-i);
          line(540-i,100-i,560-i,155-i);//
          floodfill(552-i,145-i,clWhite);
          floodfill(450-i,100-i,clWhite);
          line(520-i,80-i,560-i,60-i);
          line(560-i,60-i,545-i,80-i);//
          line(580-i,80-i,580-i,60-i);
          line(580-i,60-i,560-i,80-i);//
    //      floodfill(490-i,85-i,clGray);//öâåò êîðïóñГ* (Ñåðûé)
Добавлено через 49 секунд
это Паскаль АВС, не могу додуматься в чём моя ошибка
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
27.02.2013, 13:13
Ответы с готовыми решениями:

Детектирование движущихся объектов
Здравствуйте. Прошу помощи в реализации программы для обнаружения движущихся объектов на видео,...

Столкновения движущихся объектов
имеются несколько объектов, движущихся за курсором. нужно расчитать столкновения, чтобы они не...

Анализ движущихся объектов
В видео определить координаты движущегося объекта

Увеличение скорости движущихся объектов
Господа,в игре "ГОНКИ" задумано плавное увеличение скорости объекта CAR .Иммитация движения CAR -за...

Сделать пару движущихся объектов
Всем привет) надо сделать пару движущихся объектов в с# Помогите, кому не сложно:p

1
Puporev
Модератор
57127 / 43609 / 30141
Регистрация: 18.05.2008
Сообщений: 103,985
27.02.2013, 14:26 2
Нужно примерно так.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
uses graphABC;
procedure samolet(x,y:integer);
var i:integer;
begin
SetPenColor(clGray);
setbrushcolor(clgray);
rectangle(x+40,y+20,x+140,y+60);//корпус
line(x,y+40,x+40,y+20);
line(x,y+40,x+40,y+60);//кабина(треугольник)
line(x+60,y+40,x+120,y+95);
line(x+100,y+40,x+120,y+95);
floodfill(x+112,y+85,clYellow);
floodfill(x+10,y+40,clYellow);
line(x+80,y+20,x+120,y);
line(x+120,y,x+105,y+20);
line(x+140,y+20,x+140,y);
line(x+140,y,x+120,y+20);
end;
procedure solnce;
begin
setpencolor(clyellow);
setbrushcolor(clyellow);
circle(0,0,80);//солнце
line(80,40,140,60);//луч 1
line(40,90,80,120);//луч 2
line(60,60,100,100);//луч 3
end;
procedure dom;
begin
setpencolor(clBrown);
setbrushcolor(clBrown);
rectangle(500,300,600,400);//дом
setpencolor(clMedGray);
setbrushcolor(clMedGray);
rectangle(530,330,570,360);//окно
setpencolor(clSkyBlue);
line(500,300,550,250);//крыша
line(550,250,600,300);
line(500,300,600,300);
floodfill(550,275,clSkyBlue);//цвет крыши
end;
var x,y:integer;
begin
clearwindow(claqua);
SetPenWidth(3);// толщина пера 3 для всего
x:=480;
y:=90;
solnce;
dom;
samolet(x,y);
lockdrawing;
repeat
sleep(100);
clearwindow(claqua);
x:=x-5;
solnce;
dom;
samolet(x,y);
redraw;
until x<0;
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
27.02.2013, 14:26

Механика моделирования движущихся 3D объектов
Добрый день. Начал изучать С++, но не совсем понимаю механику моделирования движущихся 3D...

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

Модель закраски
Подскажите пожалуйста, как рассчитывается цвет полигона фигуры для случая одного источника света?


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru