diff generateIcon.R @ 76:df8784695584

icons

--- a/generateIcon.R	Fri Nov 29 13:46:12 2013 +0000
+++ b/generateIcon.R	Fri Nov 29 14:35:39 2013 +0000
@@ -1,5 +1,5 @@
 t <- seq(0,8*pi,.01)
-w <- pnorm(t, 4*pi, 1)
+w <- pnorm(t, 4*pi, .7)
 n <- length(t)
 pitchDiff <- 6
 sin1 <- sin(t) + pitchDiff
@@ -9,14 +9,14 @@
 outlineWidth <- 20
 sz <- 200
 
-png("tonyLogoWave.png", width = sz, height = sz)
+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',
-     ylim = c(-2, pitchDiff+2) + c(1,-1)*0.1,
+     ylim = c(-pad, pitchDiff+pad) + c(1,-1)*0.1,
      xlim = c(0, 8*pi) + c(1,-1)*0.1)
-lines(c(0,0),c(-2,pitchDiff+2), lwd=outlineWidth, col = 'blue', lend=2)
-lines(c(0,0)+8*pi,c(-2,pitchDiff+2), lwd=outlineWidth, col = 'blue', lend=2)
-lines(c(0,8*pi),c(0,0)+pitchDiff+2, lwd=outlineWidth, col = 'blue', lend=2)
-lines(c(0,8*pi),c(0,0)-2, lwd=outlineWidth, col = 'blue', lend=2)
+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)
+lines(c(0,8*pi),c(0,0)-pad, lwd=outlineWidth, col = 'blue', lend=2)
 dev.off()
\ No newline at end of file