Legacy ImageMagick Discussions Archive

Code: Select all

  convert images.tif  -bordercolor white -border 1x1 -fuzz 5% -trim info:

Code: Select all

$ElapsedTime = [System.Diagnostics.Stopwatch]::StartNew()

$InputTif = $args[0]
$OutputPDF = $args[1]

$WorkPath = ".\work"
$ImageMagickPath = "C:\Program Files (x86)\ImageMagick-6.7.5-Q16"

if (Test-Path -path $InputTif) # Check if input tif exist
{
	# Create workdir if not already there
	if (!(Test-Path -path $WorkPath))
	 {
		New-Item $WorkPath -type directory
	 }
	 
	 $InputFileName = split-path $InputTif -Leaf

	#SAMPLE COMMAND:  convert c:\Inv__5675671_1.tif Inv__5675671_1_page%d.tif
	 
	# Split image into single page tiff's in a work directory
	$cmd = "& ""$ImageMagickPath\convert"" ""$InputTif"" " + """$WorkPath\$InputFileName" + "_page%d.tif"""
	invoke-expression $cmd 

	#Loop through single page tiff's and delete pages that are mostly blank
	foreach($fil in (get-childitem $WorkPath\*.tif))
	{
		#SAMPLE COMMAND: convert Inv__5675671_1_page5.tif -format "%[fx:mean>0.99?1:0]" info:
		
		$cmd = "& ""$ImageMagickPath\convert"" ""$fil"" " + "-format ""%[fx:mean>0.99?1:0]"" info:"

		$isblank = invoke-expression $cmd 
		
		if ($isblank -ne 0)
		{
			remove-item $fil.fullname
		}
	}
	
	#Join tiff into single output pdf file
	#SAMPLE COMMAND: convert -adjoin *_page*.tif pdf:all_these_files_in_one.pdf

	$cmd = "& ""$ImageMagickPath\convert"" -adjoin $WorkPath\*_page*.tif $OutputPDF"
	Invoke-expression $cmd 	
	
	#Clear out workdir
	foreach($fil in (get-childitem $WorkPath\*.tif))
	{
		remove-item $fil.fullname
	}
	
	write-host "Finished!!!"
}	
else
{
"Input Tiff does not exist"
}

write-host "Total Elapsed Time: $($ElapsedTime.Elapsed.ToString())"