Framework brl.max2d
   Import brl.glmax2d
   Import brl.pngloader
   Import brl.jpgloader
   Import brl.retro
   Import brl.basic


   Graphics 1024,768,0
   SetClsColor 255,255,255
   Local image:TImage = LoadImage("grassland.png")      
         
      Rem
      Hier beliebiges bild einsetzen,
      ich hatte hier 1024x768 sowie > 2500x1900 (foto)
      End Rem
      
   DrawImage image,0,0
   Flip
   Cls
   WaitKey
   Print "resampling"
   image = ResampleImage(image,image.width/2,image.height/2,0)
   Print "ready"

   Repeat
      DrawImage image,0,0
      Flip
      Cls
   Until KeyHit(KEY_ESCAPE)
   End

   Function ResampleImage:TImage(image:TImage,width:Float,height:Float,sampling:Int=0)
      
      If image.width = width And image.height = height Return image
      
      Local nImage:TImage = TImage.Create(width,height,1,MASKEDIMAGE|DYNAMICIMAGE,255,0,0)
      
      nImage.seqs[0]=0
      nImage.Frames[0]=Null
      nImage.Pixmaps[0] = CreatePixmap(width,height,PF_RGBA8888)
      'Hier ist dazu zu sagen, dies ist wie LockImage, nur mit eigener Pixmap
      
      Select sampling
      
         Case 0
            
            Local xFactor:Float = Float(image.width)/Float((image.width-width))
            Local yFactor:Float = Float(Image.height)/Float((Image.height-height))
            
            If xFactor-Int(xFactor) > 0.5
               xFactor = Ceil(xFactor)
            Else
               xFactor = Floor(xFactor)
            EndIf
            If yFactor-Int(yFactor) > 0.5
               yFactor = Ceil(yFactor)
            Else
               yFactor = Floor(yFactor)
            EndIf          
                                              
            For Local x:Float = 0 To Image.width-1    
               'Print x
               If xpos<=xFactor Or x=0
                  
                  For Local y:Float = 0 To Image.height-1
                     If ypos<=yFactor Or y=0
                        If nx < nImage.width And ny < nImage.height
                           nImage.pixmaps[0].WritePixel nx,ny,image.pixmaps[0].ReadPixel(x,y)
                        EndIf
                        ny:+1
                        ypos:+1
                     Else
                        ypos=0
                     EndIf
                  Next
                  ny=0
                  nx:+1
               Else
                  xpos=0
               EndIf
               xpos:+1
            Next
            
            Return nImage
            
      End Select
      
   End Function

Graphics 640, 480, 16, 2
SetBuffer BackBuffer()


Local scale# = 1
Local img = LoadImage("texture.bmp")

IMAGE_WIDTH = ImageWidth(img)-1
IMAGE_HEIGHT = ImageHeight(img)-1

bnk_img = CreateBank(ImageWidth(img)*ImageHeight(img)*4)
bnk_pitch = ImageWidth(img)

For y = 0 To IMAGE_HEIGHT
 For x = 0 To IMAGE_WIDTH
   PokeInt(bnk_img, (y*ImageWidth(img)+x)*4, ReadPixel(x, y, ImageBuffer(img)))
 Next
Next


While Not KeyHit(1)

 LockBuffer BackBuffer()

 dx# = 1/scale#
 dy# = 1/scale#

 w = Floor(IMAGE_WIDTH*scale#-1)
 h = Floor(IMAGE_HEIGHT*scale#-1)

 py# = 0
 For y = 0 To h
  px# = 0

  y1 = Floor(py)
  fractY# = py# - y1
  y2 = (y1 + 1) And IMAGE_HEIGHT

  For x = 0 To w

    x1 = Floor(px)
    fractX# = px# - x1
    x2 = (x1 + 1) And IMAGE_WIDTH

    col = PeekInt(bnk_img, (x1+y1*bnk_pitch) Shl 2)
    Weight# = (1 - fractX#)*(1 - fractY#)
    ar = (col Shr 16) And $FF: ag = (col Shr 8) And $FF: ab = (col) And $FF
    r = ar*Weight#: g = ag*Weight#: b = ab*Weight#

    col = PeekInt(bnk_img, (x1+y2*bnk_pitch) Shl 2)
    Weight# = (1 - fractX#)*fractY#
    ar = (col Shr 16) And $FF: ag = (col Shr 8) And $FF: ab = (col) And $FF
    r = r + ar*Weight#: g = g + ag*Weight#: b = b + ab*Weight#

    col = PeekInt(bnk_img, (x2+y1*bnk_pitch) Shl 2)
    Weight# = fractX#*(1 - fractY#)
    ar = (col Shr 16) And $FF: ag = (col Shr 8) And $FF: ab = (col) And $FF
    r = r + ar*Weight#: g = g + ag*Weight#: b = b + ab*Weight#

    col = PeekInt(bnk_img, (x2+y2*bnk_pitch) Shl 2)
    Weight# = fractX#*fractY#
    ar = (col Shr 16) And $FF: ag = (col Shr 8) And $FF: ab = (col) And $FF
    r = r + ar*Weight#: g = g + ag*Weight#: b = b + ab*Weight#

    WritePixelFast x, y, (r Shl 16) + (g Shl 8) + b

    px# = px# + dx#
  Next
  py# = py# + dy#
 Next

 UnlockBuffer BackBuffer()

 If KeyDown(201) Then scale# = scale# + 0.05
 If KeyDown(209) Then scale# = scale# - 0.05

 Flip
 Cls

Wend

End