diff generateIcon.R @ 86:91cc6e6a4db3

changed icon code to directly generate the pngs needed (for linux?)

--- a/generateIcon.R	Mon Dec 02 17:12:59 2013 +0000
+++ b/generateIcon.R	Tue Dec 03 17:06:23 2013 +0000
@@ -7,21 +7,23 @@
 x <- sin1 * w + sin2 * (1-w)
 
 pad <- 3
-lineWidth <- 15
-outlineWidth <- 20
-sz <- 200
 
-png("tonyLogoWave.png", width = sz, height = sz, bg="transparent")
-par(mar=c(0,0,0,0))
-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")
-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)
-lines(c(0,8*pi),c(0,0)-pad, lwd=outlineWidth, col = 'blue', lend=2)
-dev.off()
\ No newline at end of file
+for (sz in c(16,22,24,32,48,64,128)) {
+  lineWidth <- 15 * sz/200
+  outlineWidth <- 20 * sz/200
+  png(sprintf("~/code/tonioni/icons/tony-%ix%i.png",sz,sz), width = sz, height = sz, bg="transparent")
+  par(mar=c(0,0,0,0))
+  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")
+  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)
+  lines(c(0,8*pi),c(0,0)-pad, lwd=outlineWidth, col = 'blue', lend=2)
+  dev.off()
+}
+