Тема: PhysicsEngine
Показать сообщение отдельно
Старый 26.08.2010, 15:15   #1
psih1
Знающий
 
Аватар для psih1
 
Регистрация: 20.03.2010
Сообщений: 271
Написано 16 полезных сообщений
(для 32 пользователей)
PhysicsEngine

Вот хочу написать физический движок.Как можно проверить столкновение с линией
program PhysicsEngine;
var
xPos,yPos,xPosBall,yPosBall,xMove,yMove,keyAction,tecla:integer;
Bsize,Psize:integer;
procedure init;
begin
xposball
:=100;
yposball:=100;
yMove := 3;
xPos:=160;
psize:=32;
bsize:=15;
end;
begin
init
;
repeat
tecla
:=getkeypressed
keyaction:= keyToAction(tecla);
        if 
keyAction GA_LEFT then xPos := xPos 2;
        if 
keyAction GA_RIGHT then xPos := xPos 2;
        
            
setColor(255255255);
            
fillRect(00getWidthgetHeight);

            
setColor(000);

        
drawEllipse(xPosballyPosball,bsize,bsize);
        
drawEllipse(xPosball+20yPosball,bsize,bsize);
        
xPosball := xPosball xMove;
        
yPosball := yPosball yMove;
        
delay(30);
        
        
setColor(000);
    
drawline(xpos,getHeight-10,xpos-100,getHeight-10);
    
    
repaint;
until tecla=KE_STAR;
end
__________________
¯¯¯¯\——-/¯¯¯¯ респект любителям BMX
(Offline)
 
Ответить с цитированием