First pass at initial identity values for "modify" embedding -- not right yet.

git-svn-id: svn://svn.r-forge.r-project.org/svnroot/rgl@1053 79a1b648-8b68-254f-b20b-c0b50f5137bf