Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

как крутить картинки в delphi? [D7, WinXP]

Страницы: 1 2 >
jeet © (2007-11-15 09:45:00)
как крутить картинки в delphi?

antonn (2007-12-01 23:09:00) [1]

> @!!ex © (01.12.07 16:38) [26]

Ага, типа того в Потрепаца один Живописец хотел :)
Кстати, зачастую "неподготовившись" перевести что 5 баксов, что 20 - однофигственно сложновато.

Anatoly Podgoretsky (2007-12-01 16:40:00) [2]
> Denis__ (01.12.2007 15:48:25) [25]

Старушка 20 копеек, пять старушек рубль.

@!!ex (2007-12-01 16:38:00) [3]
> [25] Denis__ © (01.12.07 15:48)

Мне еще ни одного заказа на 5 баксов не дали. :)
Кому то бесплатно помогаю, кому то никак не помогаю.
А 5 баксов пишу для того, чтобы до авторов дошло, что их задачи бесплатно делать никто не нанимался, а то обычно "сделайте мне! не сделали? Да вы все лохи, зачем здесь сидите"

Denis__ (2007-12-01 15:48:00) [4]

> @!!ex © (27.11.07 16:20) [12]
> > [10] DmT (27.11.07 15:47)
>
> 5 баксов

@!!ex, можно вопрос? А что ты по мелочам подрабатываешь(5,10 Баксов)? Наверняка же зарабатываешь хорошо на играх :)

DmT (2007-12-01 15:42:00) [5]
А что это?

Рамиль (2007-11-28 11:14:00) [6]

> vegarulez © (28.11.07 09:56) [22]

А ты в курсе, сколько это будет выполняться?

И чем неугодила SetWorldTransform? Зачем столько велосипедов?

vegarulez (2007-11-28 09:56:00) [7]
Эта программа плавно поворачивает изображение на один радиан.

uses Math;

procedure TForm1.Button1Click(Sender: TObject);
var
bm, bm1: TBitMap;
x, y: integer;
r, a: single;
xo, yo: integer;
s, c: extended;
begin
bm := TBitMap.Create;
bm.LoadFromFile('ex.bmp');
xo := bm.Width div 2;
yo := bm.Height div 2;
bm1 := TBitMap.Create;
bm1.Width := bm.Width;
bm1.Height := bm.Height;
a := 0;
repeat
for y := 0 to bm.Height - 1 do begin
for x := 0 to bm.Width - 1 do begin
r := sqrt(sqr(x - xo) + sqr(y - yo));
SinCos(a + arctan2((y - yo), (x - xo)), s, c);
bm1.Canvas.Pixels[x,y] := bm.Canvas.Pixels[
round(xo + r * c), round(yo + r * s)];
end;
Application.ProcessMessages;
end;
Form1.Canvas.Draw(xo, yo, bm1);
a := a + 0.05;
Application.ProcessMessages;
until Form1.Tag <> 0;
bm.Destroy;
bm1.Destroy;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Form1.Tag := 1;
end;

antonn (2007-11-27 22:53:00) [8]

> Почему это так?
> Модет там не перспектива подразумеваеться?
>

так выдал мой телепатор:)

> DmT (27.11.07 22:29) [20]

там матрица, по ней и изменяй куда надо...

DmT (2007-11-27 22:29:00) [9]
Да я почти это и имел ввиду. только там картинка повернута относительно левой стороны(относительно нас), а я бы хотел относительнопрмой направленной вертикально(сверху_вниз) и проходящей через центр изображения.

@!!ex (2007-11-27 20:31:00) [10]
> Perspective texture mapping :)

Почему это так?
Модет там не перспектива подразумеваеться?

clickmaker (2007-11-27 20:01:00) [11]

> [15] clickmaker © (27.11.07 19:45)
>
> > jeet (15.11.07 09:45)
> > как крутить картинки в delphi?
>
> avi-файл + TAnimate
> при наличии нужного кодека, можно будет крутить даже порники

нет, порники не получится, это я спутал
Но крутить все равно можно
Кстати, где-то на зеленых полях Тырнета лежит исходник на дельфи функции RotateBitmap. Google в помощь

oxffff (2007-11-27 19:56:00) [12]

> jeet (15.11.07 09:45)
> как крутить картинки в delphi?

см. GDI+

Point destinationPoints[] = {
Point(200, 20), // destination for upper-left point of original
Point(110, 100), // destination for upper-right point of original
Point(250, 30)}; // destination for lower-left point of original
Image image(L"Stripes.bmp");
// Draw the image unaltered with its upper-left corner at (0, 0).
graphics.DrawImage(&image, 0, 0);
// Draw the image mapped to the parallelogram.
graphics.DrawImage(&image, destinationPoints, 3);

antonn (work) (2007-11-27 19:53:00) [13]

> Ни панятно как крутить.

Perspective texture mapping :)

http://desksoft.ru/index.php?forum=13&th=67

clickmaker (2007-11-27 19:45:00) [14]

> jeet (15.11.07 09:45)
> как крутить картинки в delphi?

avi-файл + TAnimate
при наличии нужного кодека, можно будет крутить даже порники

@!!ex (2007-11-27 17:53:00) [15]
> А что не правильно сформулированно?

Ни панятно как крутить.
Понимаем, что вращение по третьей оси - есть фэйк?
ибо у нас всеже моник плоцкий.
Соответственно ваш вопрос не корректен тем, что там не указывается, какой конкретно алгоритм процеирования использовать.

DmT (2007-11-27 17:51:00) [16]

> ты сначала вопросы научись формулировать

А что не правильно сформулированно? Научись довать правильную критику ;)

@!!ex (2007-11-27 16:20:00) [17]
> [10] DmT (27.11.07 15:47)

5 баксов

qq (2007-11-27 15:55:00) [18]

> А теперь изобритите велосипедII

ты сначала вопросы научись формулировать
потом командовать будешь, если доживешь

DmT (2007-11-27 15:47:00) [19]
А теперь изобритите велосипедII, чтобы вращался не относительно центра изображения, а в трех измерениях(хотябы относительно прямой лежащей вертикально по центру изображения).

Jeer (2007-11-16 15:56:00) [20]

> homm © (16.11.07 13:18) [8]

Ты пообщайся с сотней студентов за год, телепатор настроишь как у Вольфа Мессинга (был такой теле*).

Страницы: 1 2 >

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »