dev.new(width=3,height=6)
par( mai = c(0,0,0,0) )
plot(c(-0.1,1.2),c(-0.1,3.5),type="n",xlab="",ylab="",axes=FALSE,asp=1)
symbols(0,0,circles=1, inches=FALSE, add=TRUE,lwd=2); h <- 2*pi/360
j <- (0:72)*5; segments(sin(h*j),cos(h*j),sin(h*j)*0.85,cos(h*j)*0.85,col="brown")
j <- (0:36)*10; segments(sin(h*j)*0.75,cos(h*j)*0.75,sin(h*j)*0.85,cos(h*j)*0.85,col="brown")
j <- (0:12)*30; segments(sin(h*j)*0.75,cos(h*j)*0.75,sin(h*j)*0.65,cos(h*j)*0.65,col="brown")
axis(2,pos=1,label=FALSE,col="grey",at=seq(0,4,0.05))
axis(2,pos=1,label=FALSE,col="red",at=seq(0,4,0.1))
axis(2,pos=1,label=FALSE,at=seq(0,4,0.5)); points(0,0)
p <- runif(1)*3+0.5; d <- atan(p)*180/pi; lines(c(0,1.05),c(0,1.05*p))
n <- c(0,0.5,1,1.5,2,2.5,3,3.5); text(1+0.2,n,n)