# HG changeset patch
# User matthiasm
# Date 1385908435 0
# Node ID f3ab20d784ffcd9eb638b0ef2b05ec1679f82723
# Parent  ce44317dd0554b909658ab4a5b9653138921193e
white background to pitchtrack in icon

diff -r ce44317dd055 -r f3ab20d784ff generateIcon.R
--- 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)