방향키로 좌,우,상,하 또는 좌상,우상,좌하,우하 방향으로
움직이는 것은 쉬워서 만들긴 했는데
이번엔 마우스로 화면좌표(0,0)을 클릭하면
화면좌표(1024,768)에 위치한 캐릭터가
서서히 화면좌표(0,0)으로 이동하는것을 만들어보고 싶습니다.
- 방향키로 움직이는것을 만들고난뒤 마우스로 위치 클릭하면
해당위치까지 움직이는것도 만들긴했는데 일정하게 움직이지가 않더라구요.
캐릭터 위치와 클릭한곳의 위치... 화면상의 거리계산을 어찌해야할찌 ㅡㅡ;
고수님의 가르침좀 받고싶습니다. 그럼 좋은주말되시길 바라며...^^
| #128-1. 안영기 |
2005/08/09 (Tue) |
...
폼에 타이머 하나 올리시고 아래 소스에 나와 있는 3개의 이벤트를 연결하세요.
그리고 폼에다가 마우스 클릭을 하면 빨간점이 그 위치로 등속도 운동을 합니다.
이동 간격은 10-pixel 단위로 10ms입니다. 값은 조정하시면 됩니다.
소스 내용은 별거 아니고 고등학교 수학의 삼각함수와 벡터입니다.
삼각함수로 이동할 각도와 단위벡터를 구한 후 그 단위벡터에 이동 속도를 곱하여 정해진 시간에 맞게 백터 합을 연산하면서 이동합니다.
이것은 샘플입니다.
implementation
{$R *.DFM}
uses
math;
type
TVector = record
x, y: double;
end;
const
MOVE_STEP = 10;
QAZ = MOVE_STEP div 2;
var
g_pos: TVector = (x: 30; y:30);
g_dest: TVector;
g_vector: TVector;
procedure TForm1.FormCreate(Sender: TObject);
begin
Canvas.Brush.Color := clRed;
Timer1.Interval := 10;
Timer1.Enabled := FALSE;
end;
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
angle: double;
begin
angle := arctan2(y - g_pos.y, x - g_pos.x);
g_dest.x := x;
g_dest.y := y;
g_vector.x := MOVE_STEP * cos(angle);
g_vector.y := MOVE_STEP * sin(angle);
timer1.Enabled := TRUE;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
g_pos.x := g_pos.x + g_vector.x;
g_pos.y := g_pos.y + g_vector.y;
if (abs(g_pos.x - g_dest.x) < QAZ) and (abs(g_pos.y - g_dest.y) < QAZ) then begin
g_pos := g_dest;
Timer1.Enabled := FALSE;
end;
Canvas.FillRect(Bounds(round(g_pos.x)-1, round(g_pos.y)-1, 3, 3));
end;
|
|