Mercurial > hg > tony
changeset 81:f3ab20d784ff
white background to pitchtrack in icon
| author | matthiasm |
|---|---|
| date | Sun, 01 Dec 2013 14:33:55 +0000 |
| parents | ce44317dd055 |
| children | 92e8231466a8 0cbe560f0fa1 |
| files | generateIcon.R |
| diffstat | 1 files changed, 5 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/generateIcon.R Fri Nov 29 14:55:25 2013 +0000 +++ b/generateIcon.R Sun Dec 01 14:33:55 2013 +0000 @@ -4,6 +4,7 @@ pitchDiff <- 6 sin1 <- sin(t) + pitchDiff sin2 <- sin(t) +x <- sin1 * w + sin2 * (1-w) pad <- 3 lineWidth <- 15 @@ -12,13 +13,13 @@ png("tonyLogoWave.png", width = sz, height = sz, bg="transparent") par(mar=c(0,0,0,0)) -plot(t, sin1 * w + sin2 * (1-w), type='l', - lwd=lineWidth, bty='n', xaxt='n', yaxt='n', +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") -plot(t, sin1 * w + sin2 * (1-w), type='l', - lwd=lineWidth, col = blacj) +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)