Global screenx=1024
Global screeny=768
Graphics screenx,screeny,32,2

filename$=CommandLine()
If Asc(Left$(filename$,1))=34 Then filename1$=Mid$(filename$,2,Len(filename)-2) Else filename1$=filename
readimg=LoadImage(filename1)
x=ImageWidth(readimg)
y=ImageHeight(readimg)

;If x>screenx Or y>screeny Or x>screenx And y>screeny Then ;---- Millisecs for 1600x1200 to 1024x768
;resizecool(x,y,screenx,screeny,readimg)

;If x>screenx Or y>screeny Or x>screenx And y>screeny Then ;3027 Millisecs for 1600x1280 to 1024x768
;resizecool2(x,y,screenx,screeny,readimg)

If x>screenx Or y>screeny Or x>screenx And y>screeny Then ;???? Millisecs for 1600x1200 to 1024x768
resizecool3(x,y,screenx,screeny,readimg)

;VEERRRYYYYYYYYYYYYYYYYYYYYYYYYY FAST
;If x>screenx Or y>screeny Or x>screenx And y>screeny Then ;>50 Millisecs for 1600x1200 to 1024x768
;ScaleImageFast(readimg,FrontBuffer(),0,0,1024,1000)

Else
drawy=(screeny-y)/2
drawx=(screenx-x)/2
DrawImage readimg,drawx,drawy
WaitKey
End If

End

Function ScaleImageFast(src,dest,x,y,width,height)
temporary=CreateImage(width,height)
start=MilliSecs()
src_width =ImageWidth (src)
src_height =ImageHeight(src)
src_buffer =ImageBuffer(src)
tmp_buffer =ImageBuffer(temporary)
div_x# =Float#(src_width) /Float#(width)
div_y# =Float#(src_height)/Float#(height)
If width=0 Or height=0 Or src_width=0 Or src_height=0 Then Return
For i=0 To width-1
CopyRect i*div_x#,0,1,src_height,i,0,src_buffer,tmp_buffer
Next
For i=0 To height-1
CopyRect 0,i*div_y#,width,1,x,y+i,tmp_buffer,dest
Next
Ende=MilliSecs()
Zeit=Ende-Start
WaitKey
Delay(2500)
Cls
Text screenx/2,screeny/2,Zeit+" Millisecs needed; Press a key",1,1
WaitKey
End Function

Function resizecool3(pixelx,pixely,screenx,screeny,image)
start=MilliSecs()
sfx#=1024.0/pixelx
sfy#=768.0/pixely
If sfx<sfy Then
ScaleImage image,sfx,sfx
Else
ScaleImage image,sfy,sfy
End If
drawy=(screeny-pixely)/2
drawx=(screenx-pixelx)/2
DrawImage Image,drawx,drawy
Ende=MilliSecs()
Zeit=Ende-Start
Delay(2500)
Cls
Text screenx/2,screeny/2,Zeit+" Millisecs needed; Press a key",1,1
WaitKey
End Function

Function resizecool2(pixelx,pixely,screenx,screeny,image)
start=MilliSecs()
pixelx1#=pixelx
pixely1#=pixely
wert#=pixelx/pixely1
wert2#=pixely/pixelx1
difx=pixelx-screenx
dify=pixely-screeny
If difx>dify Then
pixelx=pixelx-difx
pixely=pixelx/wert
Else
pixely=pixely-dify
pixelx=pixely/wert2
End If
drawy=(screeny-pixely)/2
drawx=(screenx-pixelx)/2
ResizeImage image,pixelx,pixely
DrawImage Image,drawx,drawy
Ende=MilliSecs()
Zeit=Ende-Start
Delay(2500)
Cls
Text screenx/2,screeny/2,Zeit+" Millisecs needed; Press a key",1,1
WaitKey
End Function

Function resizecool(pixelx,pixely,screenx,screeny,image)
pixelx1#=pixelx
pixely1#=pixely
wert#=pixelx1/pixely1
wert2#=pixely1/pixelx1
Repeat
If pixelx>screenx And pixely>screeny Then
pixelx=pixelx-1
pixely=pixely-1
End If
If pixelx>screenx And pixely<screeny Then
pixelx=pixelx-1
pixely=pixely-1
End If
If pixelx<screenx And pixely>screeny Then
pixelx=pixelx-1
pixely=pixely-1
End If
If pixelx<screenx And pixely<screeny Then
pixelx=pixelx+1
pixely=pixely+1
End If
If pixelx=screenx And pixely<screeny Then pixely=pixelx/wert:Exit
If pixely=screeny And pixelx<screenx Then pixelx=pixely/wert2:Exit
Forever
If pixelx=screenx Then drawy=(screeny-pixely)/2
If pixely=screeny Then drawx=(screenx-pixelx)/2
ResizeImage image,pixelx,pixely
DrawImage Image,drawx,drawy
Ende=MilliSecs()
Zeit=Ende-Start
WaitKey
Cls
Text screenx/2,screeny/2,Zeit+" Millisecs needed",1,1
WaitKey
End Function