matthiasm@75: t <- seq(0,8*pi,.01)
matthiasm@76: w <- pnorm(t, 4*pi, .7)
matthiasm@75: n <- length(t)
matthiasm@75: pitchDiff <- 6
matthiasm@75: sin1 <- sin(t) + pitchDiff
matthiasm@75: sin2 <- sin(t)
matthiasm@81: x <- sin1 * w + sin2 * (1-w)
matthiasm@75: 
matthiasm@79: pad <- 3
matthiasm@75: 
matthiasm@86: for (sz in c(16,22,24,32,48,64,128)) {
matthiasm@86:   lineWidth <- 15 * sz/200
matthiasm@86:   outlineWidth <- 20 * sz/200
matthiasm@86:   png(sprintf("~/code/tonioni/icons/tony-%ix%i.png",sz,sz), width = sz, height = sz, bg="transparent")
matthiasm@86:   par(mar=c(0,0,0,0))
matthiasm@86:   plot(t, x, type='l', 
matthiasm@86:        lwd=lineWidth*3, bty='n', xaxt='n', yaxt='n',
matthiasm@86:        ylim = c(-pad, pitchDiff+pad) + c(1,-1)*0.1,
matthiasm@86:        xlim = c(0, 8*pi) + c(1,-1)*0.1,
matthiasm@86:        col="white")
matthiasm@86:   lines(t, x, 
matthiasm@86:         lwd=lineWidth, col = "black")
matthiasm@86:   lines(c(0,0),c(-pad,pitchDiff+pad), lwd=outlineWidth, col = 'blue', lend=2)
matthiasm@86:   lines(c(0,0)+8*pi,c(-pad,pitchDiff+pad), lwd=outlineWidth, col = 'blue', lend=2)
matthiasm@86:   lines(c(0,8*pi),c(0,0)+pitchDiff+pad, lwd=outlineWidth, col = 'blue', lend=2)
matthiasm@86:   lines(c(0,8*pi),c(0,0)-pad, lwd=outlineWidth, col = 'blue', lend=2)
matthiasm@86:   dev.off()
matthiasm@86: }
matthiasm@86: