征集73x73缩略图若干（尤其是R用户请进来练手）

Ihavenothing

我也来恶搞一个，看有没有人看得懂。[s:11]

library(Cairo);<br />
CairoPNG("s.png",73,73);<br />
par(mar=rep(0,4),ann=FALSE,xaxt="n",yaxt="n");<br />
pie(c(1,1,2,3,3),labels="",col=rainbow(5),radius=1,border="white");<br />
theta=0.1*pi;<br />
text(0.75*cos(theta),0.75*sin(theta),"A",col="white");<br />
theta=0.3*pi;<br />
text(0.75*cos(theta),0.75*sin(theta),"C",col="white");<br />
theta=0.6*pi;<br />
text(0.75*cos(theta),0.75*sin(theta),"I",col="white");<br />
theta=1.1*pi;<br />
text(0.75*cos(theta),0.75*sin(theta),"S",col="white");<br />
theta=1.7*pi;<br />
text(0.75*cos(theta),0.75*sin(theta),"T",col="white");<br />
dev.off();

对于这种小图还是用Cairo比较清楚吧。

cogitovita

png("cut_a_circle.png", width = 73, height = 73)<br />
rot = function(x,y,theta){<br />
	x1 = sin(theta)*x + cos(theta)*y<br />
	y1 = -cos(theta)*x + sin(theta)*y<br />
	list(x=x1,y=y1)<br />
	}<br />
x = runif(1000,-7,7)<br />
y = x + runif(1,3,5)<br />
plot(x,y, xlim = c(-14,14), ylim= c(-14,14), type = "n")<br />
n = 99 # change as you will<br />
# copy color function from Xie Laoda!<br />
color = apply(replicate(2 * n, sample(c(0:9, LETTERS[1:6]),<br />
    8, replace = TRUE)), 2, function(x) sprintf("#%s", paste(x,<br />
    collapse = "")))<br />
for(i in 1:n){<br />
	points(rot(x,y,runif(1,-pi,pi)),col = color,pch = 19,cex = 0.2)<br />
}<br />
dev.off()

ming_uld

回复第21楼的 Ihavenothing：STATISTICS!!

警告信息：

In install.packages("Cairo") : 安装程序包'Cairo'时退出狀態的值不为0

咋整啊，站长～

Ihavenothing

回复第23楼的 ming_uld：

1、尽可能多地贴出错误信息；

2、貌似现在Cairo只支持32位系统，你确认一下。

Ihavenothing

回复第22楼的 cogitovita：

这个很酷啊。[s:17]

ming_uld

回复第24楼的 Ihavenothing：

<br />
checking for pkg-config... /usr/bin/pkg-config<br />
checking whether pkg-config knows about cairo... no<br />
configure: CAIRO_LIBS is unset, attempting to guess it.<br />
configure: CAIRO_CFLAGS=<br />
checking if R was compiled with the RConn patch... no<br />
checking cairo.h usability... no<br />
checking cairo.h presence... no<br />
checking for cairo.h... no<br />
configure: error: Cannot find cairo.h! Please install cairo (http://www.cairographics.org/) and/or set CAIRO_CFLAGS/LIBS correspondingly.<br />
ERROR: configuration failed for package ‘Cairo’</p>
<p>> sessionInfo()<br />
R version 2.12.0 (2010-10-15)<br />
Platform: i486-pc-linux-gnu (32-bit)</p>
<p>locale:<br />
 [1] LC_CTYPE=zh_CN.utf8       LC_NUMERIC=C<br />
 [3] LC_TIME=zh_CN.utf8        LC_COLLATE=zh_CN.utf8<br />
 [5] LC_MONETARY=C             LC_MESSAGES=zh_CN.utf8<br />
 [7] LC_PAPER=zh_CN.utf8       LC_NAME=C<br />
 [9] LC_ADDRESS=C              LC_TELEPHONE=C<br />
[11] LC_MEASUREMENT=zh_CN.utf8 LC_IDENTIFICATION=C      </p>
<p>attached base packages:<br />
[1] stats     graphics  grDevices utils     datasets  methods   base     </p>
<p>loaded via a namespace (and not attached):<br />
[1] tcltk_2.12.0 tools_2.12.0</p>
<p>

是我的问题么？

yihui

回复第21楼的 Ihavenothing：没猜出来什么意思，但已收录。

回复第22楼的 cogitovita：这图片有点大，不过也已收录，谢谢。

回复第26楼的 ming_uld：你没装Cairo，在新力得里搜一下libcairo2装上，我不确定要不要装相应的devel包。

现在的主题已经可以正式预览，你们都可以看到你们的作品了： http://cos.name

cogitovita

回复第25楼的 Ihavenothing：cosplay一下五彩轮法王

yihui

回复第28楼的 cogitovita：这是个啥法王？我差点看成了敏感词

Ihavenothing

回复第26楼的 ming_uld：

原来是Linux下啊，我不知道新立得里面有没有现成的r-cran-cairo包，要自己编译的话，像谢老大说的，把libcairo2装上，devel版的应该也需要。

回复第27楼的谢益辉：

其实没什么特别的意思啦，只是为了反映STATISTICS里面五个字母的频数。[s:11]

yihui

回复第30楼的 Ihavenothing：我拿到字母通常是先“解码”为数字，看数字规律，没想到是这个……

cogitovita

回复第29楼的谢益辉：我开始是想画一个敏感词的……这个法王是我乱编的。不过谁能在我的圈圈里画个小菩萨啥的么……

doctorjxd

我引用一个MetaPost语言的(代码来自http://tex.loria.fr/prod-graph/zoonekynd/metapost/metapost.html，有很多图可以借鉴)[s:11]

[attachment=211019,669]

<br />
beginfig(1)<br />
    pair A,B,C,D;<br />
    u:=2cm;<br />
    A=(0,0); B=(u,0); C=(u,u); D=(0,u);</p>
<p>    transform T;<br />
    A transformed T = 1/5[A,B];<br />
    B transformed T = 1/5[B,C];<br />
    C transformed T = 1/5[C,D];</p>
<p>    path p;<br />
    p = A--B--C--D--cycle;<br />
    for i=0 upto 100:<br />
      draw p;<br />
      p:= p transformed T;<br />
    endfor;</p>
<p>endfig;<br />

生成图片用以下命令：

<br />
mptopdf me.mp<br />
convert -density 200 me-1.pdf -resize 73x -depth 8 me.png<br />

« 上一页