Форум: "Начинающим";
Текущий архив: 2010.02.21;
Скачать: [xml.tar.bz2];
Вниз
Движение по синусоиде Найти похожие ветки
← →
Pup © (2009-12-19 17:24) [0]Здравствуйте! Очень хотелось бы узнать, как заставить треугольник (ну или просто точку) двигаться по синусоиде?
← →
Anatoly Podgoretsky © (2009-12-19 17:33) [1]> Pup (19.12.2009 17:24:00) [0]
Sin(x)/Cos(X)
← →
Омлет © (2009-12-19 18:00) [2]Простой код, который при нажатии на Button1 рисует синусоиду прямо на форме.
Как преобразовать для движения, надеюсь, разберешься. (Height div 9) - это просто длина "волны".procedure TForm1.Button1Click(Sender: TObject);
var
X, Y: Integer;
begin
Canvas.MoveTo(0, 0);
for X := 0 to Width do
begin
Y := Round(Sin(X*Pi/180)*(Height div 9)) + Height div 2;
Canvas.LineTo(X, Y);
end;
end;
← →
Омлет © (2009-12-19 18:04) [3]> (Height div 9) - это просто длина "волны".
Вру. Это амплитуда.
← →
Pup © (2009-12-19 18:29) [4]Аррр спасибо =)
← →
Омлет © (2009-12-19 18:39) [5]> Аррр спасибо =)
Почему-то именно Анатолию спасибо, хотя он сказал про тангенс.
← →
:) (2009-12-19 18:55) [6]> Омлет © (19.12.09 18:39) [5]
app говорил отнюдь не о тангенсе, а о том, что движение по синусоиде ничем не отличается от движения по косинусоиде
← →
Anatoly Podgoretsky © (2009-12-19 19:00) [7]А кто то за тангенс посчитал?
← →
Pup © (2009-12-19 19:21) [8]"Аррр" это типа звук я такой издаю когда довольна 8)
← →
Омлет © (2009-12-19 20:03) [9]Как всё интересно в этом мире.
← →
app © (2009-12-19 20:46) [10]
> Pup © (19.12.09 19:21) [8]
> "Аррр" это типа звук я такой издаю когда довольна 8)
А я когда недоволен
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2010.02.21;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.005 c