view generateIcon.R @ 194:34797795a76c

Clearing the selection by hitting Esc now restores the selected region of the pitch track to its contents from before the selection was made (and any alternate candidate chosen). Fixes feature #885

t <- seq(0,8*pi,.01)
w <- pnorm(t, 4*pi, .7)
n <- length(t)
pitchDiff <- 6
sin1 <- sin(t) + pitchDiff
sin2 <- sin(t)
x <- sin1 * w + sin2 * (1-w)

pad <- 3

for (sz in c(16,22,24,32,48,64,128)) {
  lineWidth <- 15 * sz/200
  outlineWidth <- 20 * sz/200
  png(sprintf("~/code/tonioni/icons/tony-%ix%i.png",sz,sz), width = sz, height = sz, bg="transparent")
  par(mar=c(0,0,0,0))
  plot(t, x, type='l', 
       lwd=lineWidth*3, bty='n', xaxt='n', yaxt='n',
       ylim = c(-pad, pitchDiff+pad) + c(1,-1)*0.1,
       xlim = c(0, 8*pi) + c(1,-1)*0.1,
       col="white")
  lines(t, x, 
        lwd=lineWidth, col = "black")
  lines(c(0,0),c(-pad,pitchDiff+pad), lwd=outlineWidth, col = 'blue', lend=2)
  lines(c(0,0)+8*pi,c(-pad,pitchDiff+pad), lwd=outlineWidth, col = 'blue', lend=2)
  lines(c(0,8*pi),c(0,0)+pitchDiff+pad, lwd=outlineWidth, col = 'blue', lend=2)
  lines(c(0,8*pi),c(0,0)-pad, lwd=outlineWidth, col = 'blue', lend=2)
  dev.off()
}