Перспектива в 2D.

[Vova777]

Не подскажете, возможно ли изображение выведенной канвой на форму или в битмапе обработать с таким эффектом: нужно правую сторону изображения сделать меньше чем левую, но чтобы и изображение исказилось также. Т.е. сделать из прямоугольной области трапецеидальную с уклоном вправо (эффект перспективы). Пример:
__
l .\
l__/

Или сделать смещение верхних точек прямоугольной области вправо, вот, например, как-то так:
. ___
/___/

Можно так сделать?

P.S. Прошу прощения за такие фигуры )))

[GreyScall]

Если прямоугольная область остаётся параллелепипедом - то можно обойтись аффинными матричными преобразованиями (в GDI они уже предусмотрены)...
При помощи матрицы 3x3 задаётся аффинное отображение одной системы координат в другую... Частными случаями такого преобразования являются масштабирование, сдвиг (наклон) и поворот...

Пример:

. . .
      Private
            { Private declarations }
            Pict: TBitmap;
. . .

Procedure TForm1.FormCreate(Sender: TObject);
Begin
DoubleBuffered:=True;
Pict:=TBitmap.Create;
Pict.Width:=64;
Pict.Height:=64;
Pict.Canvas.Brush.Color:=clGreen;
Pict.Canvas.Pen.Color:=clYellow;
Pict.Canvas.Pen.Width:=4;
Pict.Canvas.FillRect(Pict.Canvas.ClipRect);
Pict.Canvas.Rectangle(10, 10, 54, 54);
Pict.Canvas.Font.Color:=clWhite;
Pict.Canvas.Font.Size:=12;
Pict.Canvas.Font.Style:=[fsBold];
Pict.Canvas.TextOut(14, 22, 'Test');
End;

Procedure TForm1.FormPaint(Sender: TObject);
Var GM: Integer; Ang: Double; XF: tagXFORM;
Begin
GM:=SetGraphicsMode(Form1.Canvas.Handle, GM_ADVANCED); // Установили улучшенный графический режим (нужно для работы SetWorldTransform);
XF.eM11:=1;
XF.eM12:=0;
XF.eM21:=0.3; // Matrix for the Horizontal Shear;
XF.eM22:=1;
XF.eDx:=Pict.Width;
XF.eDy:=0;
SetWorldTransform(Form1.Canvas.Handle, XF); // Horizontal Shear;
Form1.Canvas.Draw(10, 10, Pict); // Вывод изображения;
XF.eM11:=1;
XF.eM12:=0.3; // Matrix for the Vertical Shear;
XF.eM21:=0;
XF.eM22:=1;
XF.eDx:=0;
XF.eDy:=Pict.Height;
SetWorldTransform(Form1.Canvas.Handle, XF); // Vertical Shear;
Form1.Canvas.Draw(10, 10, Pict); // Вывод изображения;
XF.eM11:=1.33;
XF.eM12:=0.3;
XF.eM21:=0.3;
XF.eM22:=1.33; // Matrix for an Affine Transformation;
XF.eDx:=Pict.Width;
XF.eDy:=Pict.Height;
SetWorldTransform(Form1.Canvas.Handle, XF); // Affine Transformation;
Form1.Canvas.Draw(10, 10, Pict); // Вывод изображения;
ModifyWorldTransform(Form1.Canvas.Handle, XF, MWT_IDENTITY); // Сбросили матрицу преобразований;
SetGraphicsMode(Form1.Canvas.Handle, GM); // Вернули обратно "старый" графический режим;
Form1.Canvas.Draw(10, 10, Pict); // Вывод изображения;
End;

Procedure TForm1.FormDestroy(Sender: TObject);
Begin
Pict.Free;
End;

А для "не аффинных" (например отобразить квадрат в трапецию) придётся либо искать готовую библиотеку, либо вручную.....

[Vova777]

Вроде код что мне и надо, но что-то непонятно, а у квадратного изображения одну сторону (правую) меньше сделать как? т.е. в трапецию превратить?

так например:
_
l_\

или так:
_
l \
l_/

P.S. Опять же извиняюсь за фигурки )))