|
matthiasm@75
|
1 t <- seq(0,8*pi,.01)
|
|
matthiasm@76
|
2 w <- pnorm(t, 4*pi, .7)
|
|
matthiasm@75
|
3 n <- length(t)
|
|
matthiasm@75
|
4 pitchDiff <- 6
|
|
matthiasm@75
|
5 sin1 <- sin(t) + pitchDiff
|
|
matthiasm@75
|
6 sin2 <- sin(t)
|
|
matthiasm@75
|
7
|
|
matthiasm@79
|
8 pad <- 3
|
|
matthiasm@75
|
9 lineWidth <- 15
|
|
matthiasm@75
|
10 outlineWidth <- 20
|
|
matthiasm@75
|
11 sz <- 200
|
|
matthiasm@75
|
12
|
|
matthiasm@76
|
13 png("tonyLogoWave.png", width = sz, height = sz, bg="transparent")
|
|
matthiasm@75
|
14 par(mar=c(0,0,0,0))
|
|
matthiasm@75
|
15 plot(t, sin1 * w + sin2 * (1-w), type='l',
|
|
matthiasm@75
|
16 lwd=lineWidth, bty='n', xaxt='n', yaxt='n',
|
|
matthiasm@76
|
17 ylim = c(-pad, pitchDiff+pad) + c(1,-1)*0.1,
|
|
matthiasm@79
|
18 xlim = c(0, 8*pi) + c(1,-1)*0.1,
|
|
matthiasm@79
|
19 col="white")
|
|
matthiasm@79
|
20 plot(t, sin1 * w + sin2 * (1-w), type='l',
|
|
matthiasm@79
|
21 lwd=lineWidth, col = blacj)
|
|
matthiasm@76
|
22 lines(c(0,0),c(-pad,pitchDiff+pad), lwd=outlineWidth, col = 'blue', lend=2)
|
|
matthiasm@76
|
23 lines(c(0,0)+8*pi,c(-pad,pitchDiff+pad), lwd=outlineWidth, col = 'blue', lend=2)
|
|
matthiasm@76
|
24 lines(c(0,8*pi),c(0,0)+pitchDiff+pad, lwd=outlineWidth, col = 'blue', lend=2)
|
|
matthiasm@76
|
25 lines(c(0,8*pi),c(0,0)-pad, lwd=outlineWidth, col = 'blue', lend=2)
|
|
matthiasm@75
|
26 dev.off() |
