Skip to content

Instantly share code, notes, and snippets.

@tslumley

tslumley/redpeak.R

Last active September 9, 2015 14:02
Show Gist options
  • Star 1 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save tslumley/21a7770318c4ff2e3466 to your computer and use it in GitHub Desktop.
Save tslumley/21a7770318c4ff2e3466 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
redpeak.R
redpeak=function(s,w){
x=c(0,0,1,NA, 1,2,2,NA,0.5,1,1.5)
y=c(0,1,1,NA,1,1,0,NA,0,0.5,0)
polygon(x*w+s[1],y*w+s[2],col=c("black","navyblue","#98332f"))
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment