Graphics 800,600,16,2

Global img=LoadImage("Test.bmp") ;128x128

;Im Uhrzeigersinn 4 Punkte
;Im Bild einfach mal Linien machen 1-2 2-3 3-4 4-1

x1=14
y1=18

x2=116
y2=37

x3=123
y3=76

x4=20
y4=113

x=0
y=0

Local a#,b#,c#,d#
Local col

Local txx#=128 ;Ziel breite
Local txy#=128 ;Ziel höhe

For x=0 To txx
For y=0 To txy

 a=intp(x1,x2,x/txx)*((txy-y)/txy) ;H Oben
 b=intp(x4,x3,x/txx)*((    y)/txy) ;H Unten

 c=intp(y1,y4,y/txy)*((txx-x)/txx) ;V Links
 d=intp(y2,y3,y/txy)*((    x)/txx) ;V Rechts

 col=ReadPixel(a+b,c+d,ImageBuffer(img))
 Color 0,0,col
 Plot x,y
Next
Next
WaitKey
End

Function Intp#(y1#,y2#,mu#)
 Return y1+(y2-y1)*mu
End Function