property prScale : 0.5

tell application id "OGfl"
	tell front window
		set lstSeln to selection
		repeat with oShape in lstSeln
			tell oShape
				if class is shape then
					set image sizing to stretched
					set {{rLeft, rTop}, {rWidth, rHeight}} to {origin, size}
					set rNewWidth to rWidth * prScale
					set origin to {rLeft + ((rWidth - rNewWidth) / 2), rTop}
					set size to {rNewWidth, rHeight * prScale}
				end if
			end tell
		end repeat
	end tell
end tell