Анимация велосипеда.

← →
ARY © (2004-04-18 20:30) [0]

Здравствуйте!
У меня вопрос такой.
Как мне нарисовать движение велосипеда, с движением колес и педалей?

← →
Думкин © (2004-04-18 20:50) [1]

А в чем именно затруднение?
В рисовании? - TCanvas+F1.
В анимации? В постановке задачи?

← →
хз © (2004-04-18 21:43) [2]

> Как мне нарисовать движение велосипеда, с движением колес и
> педалей?

Берешь ручку (карандаш, фломастер - по вкусу), лист чистой бумаги, рисуешь велосипед. Потом закуриваешь косяк и представляешь как крутятся педали и колеса. Все.

← →
ARY © (2004-04-19 12:52) [3]

Думкин
Затруднение в изменение положения педали в течении времини.
хз
Еслибы это могли видеть и другие люди то это пошло, а так нет.

← →
uny (2004-04-19 13:07) [4]

движение педали можно делать по той же модели как движение колеса.

← →
Думкин © (2004-04-19 13:12) [5]

> ARY © (19.04.04 12:52) [3]

Чтобы не было затруднений с координатами - вводите несколько систем координат. Весь велосипед в одной - едет. Затем движущаяся - связана с велосипедом - в ней вращаете колоеса и весь педальный механизм. Педаль во вращающейся системе. и т.п.
Везде есть соотношения перехода - увязываете их друг с другом и все.
Или вы не знаете как должна вести себя педалька относительно горизонта?

← →
ARY © (2004-04-19 13:58) [6]

uny
Движение колеса у меня получилось легко, а вот педали что-то не очень.
Если знаешь напиши.

← →
uny (2004-04-19 14:10) [7]

в колесе же есть спицы - каждая движется как должна двигаться педаль. крепление для ноги вообще не движется - копировать и всё. считай у тебя третье колесо есть - без обода, с 2 спицами

← →
MBo © (2004-04-19 15:11) [8]

Реализьму не хватает? :))))
var Cnt:Integer=1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin Image1.SetBounds(0,0,300,420); Timer1.Interval:=300; Timer1.Enabled:=True; end; procedure TForm1.Timer1Timer(Sender: TObject); var BP:array[0..9] of TPoint; begin Cnt:=-Cnt; with Image1.Canvas do begin FillRect(Image1.ClientRect); Pen.Width:=2; Pen.Color:=clRed; BP[0]:=Point(0,200); BP[1]:=Point(50,150); BP[2]:=Point(50,150); BP[3]:=Point(100,200); BP[4]:=Point(200,200); BP[5]:=Point(100,200); BP[6]:=Point(200,200); BP[7]:=Point(250,150); BP[8]:=Point(250,150); BP[9]:=Point(300,200); PolyBezier(BP); Pen.Width:=5; Pen.Color:=clBlue; MoveTo(25,180); LineTo(100,85); MoveTo(200,85); LineTo(275,180); Ellipse(130,10,170,60); BP[0]:=Point(150,180); BP[1]:=Point(100,100); BP[2]:=Point(60,90); BP[3]:=Point(150,60); BP[4]:=Point(240,90); BP[5]:=Point(200,100); BP[6]:=Point(150,180); PolyBezier(Slice(BP,7)); Ellipse(110,160+10*Cnt,150,220+10*Cnt); Ellipse(150,160-10*Cnt,190,220-10*Cnt); MoveTo(110,200+10*Cnt); LineTo(80,220+15*Cnt); LineTo(120,300+25*Cnt); MoveTo(190,200-10*Cnt); LineTo(220,220-15*Cnt); LineTo(180,300-25*Cnt); Pen.Width:=3; Pen.Color:=clRed; Ellipse(144,200,156,400); Pen.Width:=10; Pen.Color:=clBlack; MoveTo(110,300+25*Cnt); LineTo(130,300+25*Cnt); MoveTo(170,300-25*Cnt); LineTo(190,300-25*Cnt); Pen.Width:=3; MoveTo(130,300+25*Cnt); LineTo(140,300+25*Cnt); LineTo(140,300); LineTo(160,300); LineTo(160,300-25*Cnt); LineTo(170,300-25*Cnt); end; end; procedure TForm1.FormCreate(Sender: TObject); begin DoubleBuffered:=True; end;

← →
Думкин © (2004-04-19 15:59) [9]

> MBo © (19.04.04 15:11) [8]

Ну ты юморист. :)))

>Ну ты юморист
Кинематика немного хромает, конечно. Но не все сразу ;)

MBo
Круто!!! Спасибо!!! Но мне надо желательно вид сбоку.

Анимация велосипеда. Найти похожие ветки