Mercurial > hg > tony
changeset 79:f2c853101aeb
added white halo to pitchtrack in icon
| author | matthiasm |
|---|---|
| date | Fri, 29 Nov 2013 14:54:36 +0000 |
| parents | df8784695584 |
| children | ce44317dd055 |
| files | generateIcon.R tony.icns |
| diffstat | 2 files changed, 5 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/generateIcon.R Fri Nov 29 14:35:39 2013 +0000 +++ b/generateIcon.R Fri Nov 29 14:54:36 2013 +0000 @@ -5,6 +5,7 @@ sin1 <- sin(t) + pitchDiff sin2 <- sin(t) +pad <- 3 lineWidth <- 15 outlineWidth <- 20 sz <- 200 @@ -14,7 +15,10 @@ plot(t, sin1 * w + sin2 * (1-w), type='l', lwd=lineWidth, 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) + 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(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)