Забыл представитьсяx1ca4064, пишешь какую-то чушь да ещё с грамматическими ошибками, я знаю что и как нужно делать, мне нужно только объяснить с помощью каких математических рассчётов сделать задуманное
Вау! Какая разнузданность. Ну ладно, по теме:
Вот модуль:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
unit UDistort;
interface
uses Windows,Graphics;
type
TRPoint=record
x,y:extended;
end;
TDistortFun=function (x,y:extended;Param:array of extended):TRPoint;
procedure Distort(Src,Trg:TBitmap;DF:TDistortFun;Param:array of extended);
function Dummy(x,y:extended;Param:array of extended):TRPoint;
function SinDistr(x,y:extended;Param:array of extended):TRPoint;
implementation
const
DefColor:TColor=clLime;
function Dummy(x,y:extended;Param:array of extended):TRPoint;
begin
Result.x:=x;
Result.y:=y;
end;
function SinDistr(x,y:extended;Param:array of extended):TRPoint;
begin
Result.x:=x*( 1 +Param[ 0 ]*sin(Param[ 1 ]*pi*y));
Result.y:=y;
end;
procedure Distort(Src,Trg:TBitmap;DF:TDistortFun;Param:array of extended);
var
RP:TRPoint;
p:TPoint;
x,y:integer;
C:TColor;
begin
for y:= 0 to Trg.Height- 1 do
for x:= 0 to Trg.Width- 1 do
begin
RP:=DF(x/Trg.Width,y/Trg.Height,Param);
p.x:=trunc(RP.x*Trg.Width);
p.y:=trunc(RP.y*Trg.Height);
if (p.x< 0 ) or (p.x>=Src.Width) or
(p.y< 0 ) or (p.y>=Src.Height) then C:=DefColor
else C:=Src.Canvas.Pixels[p.x,p.y];
Trg.Canvas.Pixels[x,y]:=C;
end;
end;
end.
Результат я прекрепил.
Уверен, что такой граммотный человек как Вы, СпелЧекер 80 уровня, сможет вспомнить, что такое матрица поворота и доделает эту великую программу.
