Legacy ImageMagick Discussions Archive

Code: Select all

onvert image.jpg \\( +clone -blur 10x4 -fill white -colorize 30% \\) \\( +clone -gamma 0 -shave 30x30 -bordercolor white -border 30x30 \\) -composite \\( +clone -gamma 0 -shave 30x30 -bordercolor white -border 1x1 -bordercolor black -border 29x29 \\) -compose screen -composite image.jpg

Code: Select all

on open theObjects
	repeat with theObject in theObjects
		
		set Aperture to my getAperture(POSIX path of theObject as string)
		
		set ExposureTime to my getExposureTime(POSIX path of theObject as string)
		
		set FocalLength to my getFocalLength(POSIX path of theObject as string)
		
		set ISOSpeed to my getISOSpeed(POSIX path of theObject as string)
		
		set DateOrigin to my getDateOrigin(POSIX path of theObject as string)
		
		do shell script "/opt/local/bin/convert '" & (POSIX path of theObject as string) & "' \\( +clone -blur 10x4 -fill white -colorize 30% \\) \\( +clone -gamma 0 -shave 30x30 -bordercolor white -border 30x30 -pointsize 25 -font /Library/Fonts/Cracked -fill black -gravity SouthEast -annotate +30+1 '" & FocalLength & "mm | " & ExposureTime & "s @ " & Aperture & " | ISO" & ISOSpeed & "' -gravity SouthWest -annotate +30+1 '" & DateOrigin & "' -gravity South -annotate +30+1 " & "'photos.kjal.de' " & " \\) -composite \\( +clone -gamma 0 -shave 30x30 -bordercolor white -border 1x1 -bordercolor black -border 29x29 \\) -compose screen -composite '" & (POSIX path of theObject as string) & "'"
		
	end repeat
end open

on theSplit(theString, theDelimiter)
	
	-- save delimiters to restore old settings
	set oldDelimiters to AppleScript's text item delimiters
	-- set delimiters to delimiter to be used
	set AppleScript's text item delimiters to theDelimiter
	-- create the array
	set theArray to every text item of theString
	-- restore the old setting
	set AppleScript's text item delimiters to oldDelimiters
	-- return the result
	return theArray
	
end theSplit

on getAperture(file)
	
	set Aperture to do shell script "/opt/local/bin/exiv2 -PEkt '" & (POSIX path of theObject as string) & "' | grep -E \"\\.ApertureValue\" | awk '{print $2}'"
	
	return Aperture
	
end getAperture

on getExposureTime(file)
	
	set ExposureTime to do shell script "/opt/local/bin/exiv2 -PEkt '" & (POSIX path of theObject as string) & "' | grep -E \"\\.ShutterSpeedValue\" | awk '{print $2}'"
	
	return ExposureTime
	
end getExposureTime

on getFocalLength(file)
	
	set FocalLength to do shell script "/opt/local/bin/exiv2 -PEkt '" & (POSIX path of theObject as string) & "' | grep -E \"\\.FocalLength\" | awk '{print $2}'"
	
	return FocalLength
	
end getFocalLength

on getISOSpeed(file)
	
	#set ISOSpeed to do shell script "exiv2 -PEkt '" & (POSIX path of theObject as string) & "' | grep -E \"\\.ISOSpeedRatings\" | awk '{print $2}'"
	
	set ISOSpeed to do shell script "/opt/local/bin/exiv2 -PEkt pr '" & (POSIX path of theObject as string) & "' | grep -E \"\\.ISOSpeedRatings\" | awk '{print $2}'"
	
	return ISOSpeed
	
end getISOSpeed

on getDateOrigin(file)
	
	set DateOrigin to do shell script "opt/local/bin/exiv2 -PEkt '" & (POSIX path of theObject as string) & "' | grep \"\\.DateTimeOriginal\" | awk '{print $2}'"
	
	set myArray to my theSplit(DateOrigin, ":")
	
	set DYear to item 1 of myArray
	
	set DMonth to item 2 of myArray
	
	set DDay to item 3 of myArray
	
	return DDay & "." & DMonth & "." & DYear
	
end getDateOrigin

Code: Select all

@echo off
echo Processing…
:loop
if “%1”==”” goto endloop
if exist %1 call “E:\Programme\ImageMagick-6.3.5-Q8\convert.exe” -unsharp 0.3×0.4+0.45+0.05 -unsharp 0.2×0.3+2.0+0.05 -bordercolor White -border 1×1 -bordercolor Black -border 30×30 %1 %1
shift
goto loop
:endloop

Code: Select all

convert P1030252.jpg ( +clone -blur 10x4 -fill white -colorize 30% ) ( +clone -gamma 0 -shave 30x30 -bordercolor white -border 30x30 ) -composite ( +clone -gamma 0 -shave 30x30 -bordercolor white -border 1x1 -bordercolor black -border 29x29 ) -compose screen -composite image.jpg

Code: Select all

@echo off
echo Processing...
:loop
if "%1"=="" goto endloop
if exist %1 call convert ( +clone -blur 10x4 -fill white -colorize 30% ) ( +clone -gamma 0 -shave 30x30 -bordercolor white -border 30x30 ) -composite ( +clone -gamma 0 -shave 30x30 -bordercolor white -border 1x1 -bordercolor black -border 29x29 ) -compose screen -composite %1 
shift
goto loop
:endloop