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: lineWidth <- 15
matthiasm@75: outlineWidth <- 20
matthiasm@75: sz <- 200
matthiasm@75: 
matthiasm@76: png("tonyLogoWave.png", width = sz, height = sz, bg="transparent")
matthiasm@75: par(mar=c(0,0,0,0))
matthiasm@81: plot(t, x, type='l', 
matthiasm@81:      lwd=lineWidth*3, bty='n', xaxt='n', yaxt='n',
matthiasm@76:      ylim = c(-pad, pitchDiff+pad) + c(1,-1)*0.1,
matthiasm@79:      xlim = c(0, 8*pi) + c(1,-1)*0.1,
matthiasm@79:      col="white")
matthiasm@81: lines(t, x, 
matthiasm@81:      lwd=lineWidth, col = "black")
matthiasm@76: lines(c(0,0),c(-pad,pitchDiff+pad), lwd=outlineWidth, col = 'blue', lend=2)
matthiasm@76: lines(c(0,0)+8*pi,c(-pad,pitchDiff+pad), lwd=outlineWidth, col = 'blue', lend=2)
matthiasm@76: lines(c(0,8*pi),c(0,0)+pitchDiff+pad, lwd=outlineWidth, col = 'blue', lend=2)
matthiasm@76: lines(c(0,8*pi),c(0,0)-pad, lwd=outlineWidth, col = 'blue', lend=2)
matthiasm@75: dev.off()