#Include <GDIPlus.au3>


if($cmdLine[0] <> 1) Then
	msgbox(0,0,"give pic as param :-)")
	Exit
endif 

$oldFileName = $cmdline[1];

;$oldfilename = "C:\test\test\adsfasdf\asdfaf.sdas.s.tiff"


$ext = StringSplit($oldFileName,".")
$extension = $ext[$ext[0]];

$counter = 0;

$name = $ext[1]
for $e in $ext
	if($counter > 1 and $counter < $ext[0]) Then
		$name = $name & "." & $e
	endif 
	$counter = $counter + 1;
Next

$newoldname = $name & "_OLD." & $extension


filemove($oldfilename,$newoldname)


$newFileName = $oldfilename
$oldfilename = $newoldname



$orgH = 2800;
$orgW = 1712;

$minusH = 360;
$minusW = 50;
    
$newH = $orgH - $minusH;
$newW = $orgW - $minusW;
	
	
	
	; Initialize GDI+ library
    _GDIPlus_Startup ()
	
$oldImage = _GDIPlus_ImageLoadFromFile($oldFileName);

;Create New image 

$GC = _GDIPlus_ImageGetGraphicsContext($oldImage) 
$newBmp = _GDIPlus_BitmapCreateFromGraphics($newW,$newH,$GC) 
$newGC = _GDIPlus_ImageGetGraphicsContext($newBmp) 

;Draw 
;_GDIPlus_GraphicsDrawImageRect($newGC,$oldImage,0,0,$newW,$newH)

    _GDIPlus_GraphicsDrawImageRectRect ($newGC, $oldImage,0, 0, $newW, $newH, 0, 0, $newW, $newH)
	
_GDIPlus_ImageSaveToFile($newBmp,$newFileName) 


;Clenaup 
_GDIPlus_GraphicsDispose($GC) 
_GDIPlus_GraphicsDispose($newGC) 
_GDIPlus_BitmapDispose($newBmp) 
_GDIPlus_ImageDispose($oldImage)