Последние записи

made in programmersforum 6

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

26th
Июл

Алгоритм преобразования сферических координат в декартовые. Графическая иллюстрация

Posted by obzor under Delphi

Разработать алгоритм преобразования сферических координат в декартовы… дать графическую иллюстрацию.

artemavd

Могу предложить код выпрямления глобуса в карту на Delphi. Не знаю поможет или нет, но посмотри, вдруг что-нибудь пригодится. Вот код:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var i,j:integer;
    ox,oy:integer;
    alfa,aux:Extended;

begin
  Image2.Height:=round(Image1.Height/2);
  Image2.Width:=round(2*PI*Image2.Height);
  for i := 1 to Image2.Width do
    for j := 1 to Image2.Height do
    begin
      aux:=i/Image2.Width;
      alfa:=-2*pi*(aux)-PI/2;
      ox:= round(Image1.Width/2+ j* cos(alfa));
      oy:= -1*round(j* sin(alfa)- Image1.Height/2);
      Image2.Canvas.Pixels[i,Image2.Height-j]:=Image1.Canvas.Pixels[ox,oy]
    end;
end;