Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/6: Рейтинг темы: голосов - 6, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 13.06.2014
Сообщений: 7
1

Возможно ли сделать движение зрачков, реагирующее на движение какого-либо объекта

18.06.2014, 20:41. Просмотров 1055. Ответов 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
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
unit graph1;
interface
uses graph,crt;
procedure Telo;
var
    d,h:integer;
    x,y:integer;
    implementation
    procedure Telo;
begin
    d := detect;
    initgraph(d,h,'i:\tp7');
    setbkcolor(15);
    x := 320;
    y := 240;
 
 
 
        fillellipse(320,100,120,55);
 
    setcolor(8);
        fillellipse(320,100,120,55);
        setcolor(8);
 
 
        SetLineStyle ( 0, 0, 3);
    Circle ( 270, 90,17) ;          {glaza}
    Circle ( 370, 90,17) ;
        SetLineStyle ( 0, 0, 0);
    circle (270,90,2)    ;
    circle (370,90,2)    ;
 
        SetLineStyle ( 0, 0, 3);
    line    (260,65,290,70);
    line    (350,70,380,65);        {brovy}
 
 
 
        SetLineStyle ( 0, 0, 0);        {volosy}
 
    Ellipse (215,110,60,140,20,40);
    Ellipse (240,95, 40,120,20,40);
    Ellipse (270,85, 40,120,20,40);
    Ellipse (300,80, 40,120,20,40);
    Ellipse (330,78, 40,120,20,40);
    Ellipse (360,80, 40,120,20,40);
    Ellipse (390,89, 40,105,20,40);
 
    line    (255,80,285,83); {glazVek1}
    line    (255,97,285,96);
 
    line    (355,83,385,80); {glazVek2}
    line    (355,96,385,97);
        SetLineStyle ( 0, 0, 3);
    line    (320,100,330,110);  {noise}
    line    (330,110,320,115);
 
        SetLineStyle ( 0, 0, 0);
    Ellipse (330,170,70,110,20,40); {mouth}
    line    (330,125,335,130);
    line    (328,136,333,132);
 
 
 
 
    Arc ( 316, 205, 90, 180, 50);   {{telo}
    Arc ( 348, 202, 360, 90, 50);
 
 
    Arc ( 300, 175, 360, 90, 18);{Lyamki}
 
    Arc ( 310, 176, 360, 90, 20);
 
    setfillstyle(1,16);
    Arc ( 340, 182, 360, 90, 29);
    Arc ( 339, 188, 360, 60, 42);
    floodfill(305,175,8);
    floodfill(340,182,8);
        setfillstyle(1,12);                 {righthand}
    Ellipse (290,190,360,90,20,10);
    Ellipse (300,200,180,360,20,10);
    Ellipse (326,185,65,180,20,10);
    Ellipse (340,200,85,180,20,8);
    Ellipse (330,192,225,9,10,12);
 
    Ellipse (330,190,360,70,10,16);
    Ellipse (330,186,360,90,20,10);
 
 
 
 
 
    Ellipse (362,193,20,170,20,10); {lefthand}
    Arc     ( 378, 190, 250, 315, 30);
    line    (344,210,369,219);
    line    (330,205,344,210);
 
    Arc     ( 294, 205, 170, 390, 28);      {chest}
    Arc     ( 350, 205, 175, 320, 20);
    Arc     ( 380, 205, 320, 10, 18);
 
    Arc     ( 516, 210, 180, 200, 250);
     Arc    ( 135, 220, 345, 360, 250);
 
 
     setfillstyle(1,11);
     line   (328,280,333,270);
     line   (328,280,330,327);
     line   (281,295,291,328);
 
    Ellipse (320,343,45,135,17,20);{rightfoot}
    Ellipse (300,305,225,315,15,30);
    Ellipse (296,343,100,250,7,12);
    Ellipse (320,345,180,90,30,20);
 
    line    (377,280,377,317); {leftfood}
    Ellipse (363,330,45,135,20,17);
    Ellipse (340,295,225,315,15,30);
 
 
    Ellipse (365,335,235,90,30,20);
    floodfill(368,345,8);
    floodfill(320,345,8);
 
 
 
    setfillstyle(1,4);
    circle (327,225,10)    ; {pugovica}
    circle (324,222,2) ;
    circle (330,222,2) ;
    circle (324,228,2) ;
    circle (330,228,2) ;
    floodfill(327,225,8);
setfillstyle(1,14);
    floodfill(316,205,8);
    floodfill(348,202,8);
    floodfill(330,160,8);
    floodfill(338,210,8);
setfillstyle(1,lightred);
    floodfill(316,255,8);
    floodfill(316,160,8);
    floodfill(366,160,8);
    floodfill(328,210,8);
 
    floodfill(324,228,8);
    floodfill(324,222,8);
    floodfill(330,222,8);
    floodfill(330,228,8);
 
if readkey =#0 then
        d:= ord(readkey);
        closegraph
 
 
    end;end.
    readln
    end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
18.06.2014, 20:41
Ответы с готовыми решениями:

Реализовать движение какого-либо объекта по экрану
Графика в Паскале.  составить программу на паскале, содержащую движение какого-либо объекта по...

Движение зрачков за указателем мыши
Нужно написать программу,в которой рисуется лицо с глазами и зрачки бегают за указателем мыши. Вот...

Нужно отслеживать движение зрачков
Возможно ли в адроиде осуществить возможность отслеживать движение зрачков? Существуют ли какие...

Движение объекта при нажатии какой-либо клавиши связать с таймером
begin if Key=$26 then begin tmr1.enabled:=true; end; end; procedure...

1
10 / 10 / 15
Регистрация: 24.05.2014
Сообщений: 84
22.06.2014, 00:32 2
это на паскале сделать трудно. нужно перерисовывать картинку каждый раз (или например глаза полностью закрасить и нарисовать следующий кадр). ну и муху тоже придется замазывать и рисовать в новом месте квждый раз.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
22.06.2014, 00:32

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

Сформировать меню: 1) свободное движение объекта 2)движение с клавиатуры
Сформировать на экране меню, состоящее из следующих пунктов: 1. Движение вдоль периметра экрана....

Движение объекта в 2D. Помогите сделать прыжок
Нужно сделать движение объекта на плоскости. С перемещением вперёд-назад справился. А вот прыжок...

Как сделать движение объекта за мышкой?
Короче я сделал так, чтобы при нажатии булевая переменная isPushed делалась истинной, а при...

Как сделать плавное движение объекта?
Есть фигура ,я кликаю в любую точку на форме и надо сделать, чтобы она плавно двигалась к месту...

Как сделать движение объекта плавным?
Как сделать движение объекта плавным. При передвижении объекта изображение немного...


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

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

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