Полёт самолёта

[Сyberbitch]

Вечер добрый господа и дамы.
Мне была поставлена следующая задача: "Написать программу, которая рисует полет самолета. Раскрасть свой рисунок."
С координатами у меня всё плохо. Одна надежда на вас.

[Arigato]

Сообщение от Сyberbitch

С координатами у меня всё плохо.

Полет самолета можно нарисовать в виде кривой линии на карте (трек). Можно нарисовать сам самолет сбоку на 2D плоскости. Можно реализовать 3D сцену. Вам что конкретно нужно?

[Сyberbitch]

Arigato, Простой,зацикленный полёт самолёта от начала и до конца формы.
А самолёт нарисовать с помощью графических примитивов.

[Desc]

Так вот есть готовый проект >>Имитация полета крылатой ракеты на OpenGL WinApi C++

[Pavia]

https://js1k.com/2011-trail/demo/992

[Desc]

сильно, ТС оценит..

[Arigato]

Вот такой получился:

var
  x: integer = 0;
  f: integer = 15;

procedure TForm1.draw(x,y: integer; fan: integer; del: boolean);
const flag: array[0..2] of tcolor=(clWhite,clBlue,clRed);
var i: integer;
begin
  if del then begin
    Canvas.Pen.Color := Color;
    Canvas.Brush.Color := Color;
  end else begin
    Canvas.Pen.Color := clBlack;
    Canvas.Brush.Color := clTeal;
  end;
  with Canvas do begin
    MoveTo(x,y);
    LineTo(x-40,y-20);
    LineTo(x-140,y-20);
    LineTo(x-160,y-35);
    LineTo(x-160,y);
    LineTo(x,y);
    LineTo(x+2,y);
    MoveTo(x+2,y-fan);
    LineTo(x+2,y+fan);
    for i:=0 to 4 do
      Ellipse(x-50-i*20-5,y-15,x-50-i*20+5,y-5);
    for i:=0 to 2 do begin
      if not del then Pen.Color:=flag[i];
      MoveTo(x-145,y-18+i*2);
      LineTo(x-155,y-18+i*2);
      MoveTo(x-145,y-18+i*2+1);
      LineTo(x-155,y-18+i*2+1);
    end;
  end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var y: integer;
begin
  y:=clientheight div 2;
  draw(x,y,f,true);
  inc(x,2);
  if x>clientwidth+200 then x:=-200;
  dec(f,3);
  if f<-14 then f:=15;
  draw(x,y,f,false);
end;

airplane.png

[Алексей1153]

Pavia, игрушка огонь :D

[NetSpace]

а если ещё ему показать как музыку включать в файл ресурса *.res. героическая чтоб играла на фоне...
и сбоку бегунок с минимальной и максимальной отметсками 20 и 200 - высоту самолёта регулировать.

y:= Trackbar.Position;