作者josephw (With or Without u)
看板NCTU-STAT95G
标题Re: [分享]彩色无痕迹平面版 渐层背景!
时间Mon May 19 14:01:50 2008
#看起来好像是左右渐层,不晓得有没有上下 、中心之类的 呵~~
#上下渐层
background2_2 <- function(x = c(-20,20), y = c(-20,20), r = 0.5, g=0.5, b =
0.5, xcorint = 5, ycorint = 5, axbox = TRUE, xlable="",ylable="",title ="")
{
ax <- min(x)
bx <- max(x)
ay <- min(y)
by <- max(y)
if(ax == bx || ay == by ||r > 1 ||r < 0 ||g > 1 ||g < 0 ||b > 1 ||b < 0 ){
warning("给我去看note!!")
return(0);
}
if(xcorint > bx || ycorint > by){
warning("间隔大於你的最大轴座标啦")
return(0);
}
plot(x, y, type='n', axes=F, xlab=(xlable), ylab=(ylable), main=(title))
i<-1
while(r+i*0.005 < 1 && g+i*0.005 < 1 && b+i*0.005 < 1){
if(r == 0){
if(b == 0)
polygon(c(ax-5,ax-5,bx+5,bx+5),c(ay-5, by+5-(i-1)/5, by+5-(i-1)/5,
ay-5),col= rgb(0,g+i*0.005,0), lty=0)
else if(g == 0)
polygon(c(ax-5,ax-5,bx+5, bx+5),c(ay-5, by+5-(i-1)/5, by+5-(i-1)/5,
ay-5),col= rgb(0,0,b+i*0.005), lty=0)
else
polygon(c(ax-5,ax-5,bx+5,bx+5),c(ay-5, by+5-(i-1)/5, by+5-(i-1)/5,
ay-5),col= rgb(0,g+i*0.005,b+ i*0.005), lty=0)
}
else if(b == 0){
if(g == 0)
polygon(c(ax-5,ax-5,bx+5,bx+5),c(ay-5, by+5-(i-1)/5, by+5-(i-1)/5,
ay-5),col= rgb(r+i*0.005,0,0), lty=0)
else
polygon(c(ax-5,ax-5,bx+5,bx+5),c(ay-5, by+5-(i-1)/5, by+5-(i-1)/5,
ay-5),col= rgb(r+i*0.005,g+i*0.005,0), lty=0)
}
else if(g == 0)
polygon(c(ax-5,ax-5,bx+5,bx+5),c(ay-5, by+5-(i-1)/5, by+5-(i-1)/5,
ay-5),col= rgb(r+i*0.005,0,b+ i*0.005), lty=0)
else
polygon(c(ax-5,ax-5,bx+5,bx+5),c(ay-5, by+5-(i-1)/5, by+5-(i-1)/5,
ay-5),col= rgb(r+i*0.005,g+i*0.005,b+ i*0.005), lty=0)
i <- i + 1
}
ix<- seq(ax,bx,xcorint)
iy<- seq(ay,by,ycorint)
abline(v=ix, h=iy, col = "lightyellow", lty = "dotted")
if(axbox == TRUE){
box()
axis(1, ix)
axis(2, iy)
}
else{
axis(1, seq(ax-xcorint,bx+xcorint,xcorint),lwd=2, lty='dotted')
axis(2, seq(ay-ycorint,by+ycorint,ycorint),lwd=2, lty='dotted')
}
}
#### Example:上下渐层
x <-c(-20,20)
y <-c(-30,30)
##(1)红色
background2_2(x , y, r = 0.01, g = 0, b = 0)
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.113.191.14
1F:→ shyfang:这样印论文会很贵吧XD 05/19 17:16
2F:→ josephw:XD 没有要放在论文阿 做好玩的 XD 05/19 17:54