# Logo for web site
# efg, May 2005
# Copy as metafile to Word document
# In Word:  Format Picture | Size 25%
# File | Save As | Web Page, Filtered (*.htm; *.html)
# Logo.htm
# Recover GIFs with transparency from Logo_files directory

par(mar=c(0,0,0,0))
N  <- 24

set.seed(17)
noise <- 0.6

t1 <- sort(0:N + noise*rnorm(N+1))
A1 <- 1.0
T1 <- N
phase1 <- 0
y1 <- A1*sin(2*pi*t1/T1 + phase1)
colors1 <- hsv( (1-y1) /6 , 1,1)

t2 <- sort(0:N + noise*rnorm(N+1))
A2 <- 0.75
T2 <- N
phase2 <- pi/2
y2 <- A2*sin(2*pi*t2/T2 + phase2)
colors2 <- hsv( (1-y2) /6, 1,1)

t <- seq(0,N,0.5)
matplot(t,
        cbind( A1*sin(2*pi*t/T1 + phase1),
               A2*sin(2*pi*t/T2 + phase2) ),
        type="l", col="black", lty=1,
        xlim=c(0,24), ylim=c(-1,1),
        axes=FALSE, xlab="", ylab="")

symbols(t1, y1, circles=rep(2,length(t1)), inches=0.15,  bg=colors1, fg="black", add=TRUE)
symbols(t2, y2, circles=rep(2,length(t2)), inches=0.15,  bg=colors2, fg="black", add=TRUE)