R paintblob rotate