Graphics 256,128,0,2
SetBuffer FrontBuffer()

Text 128,16,"Endtexturformat wählen",1
Text 128,48,"[1] 16×16  [4] 128×128",1
Text 128,64,"[2] 32×32  [5] 256×256",1
Text 128,80,"[3] 64×64  [6] 512×512",1

FlushKeys
WaitKey

If KeyHit(2) wrkh=16
If KeyHit(3) wrkh=32
If KeyHit(4) wrkh=64
If KeyHit(5) wrkh=128
If KeyHit(6) wrkh=256
If KeyHit(7) wrkh=512

If wrkh=0 End Else Cls

Text 128,16,"Dateinamen eingeben",1
Locate 32,48

img$=Input()

wrkf=wrkh*2
wrky=wrkf-1
wrks=wrkh-1

f1#=0:f2#=0
r1#=0:r2#=0
g1#=0:g2#=0
b1#=0:b2#=0

If wrkf<256
 Graphics 256,256,0,2
Else
 Graphics wrkf,wrkf,0,2
End If

SetBuffer FrontBuffer()

aus=CreateImage(wrkh,wrkh)
ein=LoadImage(img)
DrawImage ein,0,0

LockBuffer FrontBuffer()

 For y=0 To wrky
  For x=0 To wrks
   f1=ReadPixelFast(x,y)
   r1=(f1 And $FF0000)/$10000
   g1=(f1 And $FF00)/$100
   b1=(f1 And $FF)
   r1=Int((r1/wrkh)*x)
   g1=Int((g1/wrkh)*x)
   b1=Int((b1/wrkh)*x)
   f2=ReadPixelFast(x+wrkh,y)
   r2=(f2 And $FF0000)/$10000
   g2=(f2 And $FF00)/$100
   b2=(f2 And $FF)
   r2=Int((r2/wrkh)*(wrks-x))
   g2=Int((g2/wrkh)*(wrks-x))
   b2=Int((b2/wrkh)*(wrks-x))
   WritePixelFast x,y,(r1+r2)*$10000+(g1+g2)*$100+(b1+b2)
  Next
 Next

 For y=0 To wrks
  For x=0 To wrks
   f1=ReadPixelFast(x,y)
   r1=(f1 And $FF0000)/$10000
   g1=(f1 And $FF00)/$100
   b1=(f1 And $FF)
   r1=Int((r1/wrkh)*y)
   g1=Int((g1/wrkh)*y)
   b1=Int((b1/wrkh)*y)
   f2=ReadPixelFast(x,y+wrkh)
   r2=(f2 And $FF0000)/$10000
   g2=(f2 And $FF00)/$100
   b2=(f2 And $FF)
   r2=Int((r2/wrkh)*(wrks-y))
   g2=Int((g2/wrkh)*(wrks-y))
   b2=Int((b2/wrkh)*(wrks-y))
   WritePixelFast x,y,(r1+r2)*$10000+(g1+g2)*$100+(b1+b2)
  Next
 Next

UnlockBuffer FrontBuffer()

GrabImage aus,0,0
TileBlock aus,0,0

Color 0,0,0:Rect 20,20,144,27,1
Color 255,255,255:Rect 20,20,144,27,0
Text 24,20,"escape: abbrechen"
Text 24,32,"andere: speichern"

img=Left(img,Len(img)-4)
img=img+".bmp"

FlushKeys
WaitKey

If Not KeyHit(1) SaveImage (aus,img)

End