Mercurial > hg > tony
changeset 80:ce44317dd055
merge
| author | matthiasm |
|---|---|
| date | Fri, 29 Nov 2013 14:55:25 +0000 |
| parents | f2c853101aeb (diff) 896b89e67f3c (current diff) |
| children | f3ab20d784ff |
| files | |
| diffstat | 2 files changed, 5 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/generateIcon.R Fri Nov 29 14:53:46 2013 +0000 +++ b/generateIcon.R Fri Nov 29 14:55:25 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)