diff generateIcon.R @ 75:279cf9b11c73

logo generation code

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/generateIcon.R	Fri Nov 29 13:46:12 2013 +0000
@@ -0,0 +1,22 @@
+t <- seq(0,8*pi,.01)
+w <- pnorm(t, 4*pi, 1)
+n <- length(t)
+pitchDiff <- 6
+sin1 <- sin(t) + pitchDiff
+sin2 <- sin(t)
+
+lineWidth <- 15
+outlineWidth <- 20
+sz <- 200
+
+png("tonyLogoWave.png", width = sz, height = sz)
+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,
+     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)
+dev.off()
\ No newline at end of file