tell application id "OGfl"
	set lstSeln to (selection of front window)
	set oShape to first item of lstSeln
	
	tell front document
		set oSecondCanvas to make new canvas
		duplicate oShape to end of graphics of oSecondCanvas
	end tell
end tell