20

背景

希望创建有趣的视频过渡（灰度）。

问题

给定代表封闭的对称形状的方程，绘制轮廓并将形状向其中心同心地着色。

例子

考虑以下等式：

x = 16 * sin(t)^3
y = 13 * cos(t) - 5 * cos(2 * t) - 2 * cos(3 * t) - cos(4 * t)
t = [0:2 * pi]

绘制时：

阴影时，它会类似于（未显示完全阴影，但足以显示这个想法）：

请注意，阴影在外侧最暗（例如，#000000 RGB 十六进制），然后在填充到中心时变亮。中心将是一个白色（例如，#FFFFFF）点。

问题

  1. 生成高分辨率、同心阴影灰度图像（例如上面的阴影心形）最方便的方法是什么？
  2. 这种封闭的、对称的形状正式名称是什么？

谢谢！

想法

4

2 回答 2

32

在 R 中试试这个：

# create palette
greyScale <- colorRampPalette(c("black","white"))

# function to draw shape
plotHeart <- function(r, col){
  t <- seq(0,2*pi,length.out=100)
  x <- r*sin(t)^3
  y <- (13*r/16)*cos(t) - (5*r/16)*cos(2*t) - (2*r/16)*cos(3*t) - (r/16)*cos(4*t)
  polygon(x,y,col=col,border=NA)
}



# create new plot canvas
plot.new()
# limits are approximate here
plot.window(xlim=c(-16,16),ylim=c(-16,13))

# use mapply to loop
mapply(plotHeart,seq(16,0,length.out=100),greyScale(100))

结果是：

填充的心情节

这是通过重复绘制尺寸减小和颜色不同的填充多边形来实现的。要回答您的问题：

(1) 这是由我的机器（一台普通的 Core 2 duo 笔记本电脑）在 0.09 秒内生成的。它们可能是其他更快的语言/实现，但这对我来说似乎足够快。

(2) 由不相交的线组成的平面形状通常称为简单多边形。

于 2011-07-01T10:30:59.930 回答
1

使用2D Graphics，此示例使用更改同心圆的透明度drawOval()来实现类似的效果，但该方法可以扩展到draw()任何实现该Shape接口的类。的createTransformedShape()方法AffineTransform可用于同心平移和缩放轮廓。

于 2011-07-01T03:07:54.673 回答