魚眼レンズパッケージ

• "fisheyeR"パッケージ(こちら)
• 魚眼レンズのWiki記事はこちら
• 使ってみよう

library(fisheyeR)
x<-y<-seq(from=-1,to=1,length=21)

for(i in 1:length(x)){
	for(j in 1:length(y)){
		tmpx<-rep(x[i],length(y))
		tmpy<-y
		tmpx2<-x
		tmpy2<-rep(y[j],length(x))
		
		hh1<-toHiperbolico(matrix(c(tmpx,tmpy),ncol=2))
		hh2<-toHiperbolico(matrix(c(tmpx2,tmpy2),ncol=2))
		xlim<-ylim<-c(-1,1)
		plot(hh1[[1]],type="l",xlim=xlim,ylim=ylim)
		par(new=TRUE)
		plot(hh2[[1]],type="l",xlim=xlim,ylim=ylim)
		par(new=TRUE)
	}
}