view generateIcon.R @ 571:2cf4978eb724

Fix failure of "Form Note from Selection" to work correctly when an existing note spanned one end of the selection but did not reach the other. Also update subrepos to fix a deadlock

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()
}