- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
这是一个圆角正方形的代码,我想知道它是否可以得到一个squircle的代码,这是一个非常相似的数字。
Wikipedia指出:
Although constructing a rounded square may be conceptually and physically simpler, the squircle has the simpler equation and can be generalised much more easily.
{
x<-c(1,1,0,0)
y<-c(1,0,0,1)
rad <- max(x)/7
ver<-25
yMod<-y
yMod[which(yMod==max(yMod))]<-yMod[which(yMod==max(yMod))]-rad
yMod[which(yMod==min(yMod))]<-yMod[which(yMod==min(yMod))]+rad
topline_y<-rep(max(y),2)
topBotline_x<-c(min(x)+rad, max(x)-rad)
bottomline_y<-rep(min(y),2)
pts<- seq(-pi/2, pi*1.5, length.out = ver*4)
ptsl<-split(pts, sort(rep(1:4, each=length(pts)/4, len=length(pts))) )
xy_1 <- cbind( (min(x)+rad) + rad * sin(ptsl[[1]]), (max(y)-rad) + rad * cos(ptsl[[1]]))
xy_2 <- cbind( (max(x)-rad) + rad * sin(ptsl[[2]]), (max(y)-rad) + rad * cos(ptsl[[2]]))
xy_3 <- cbind( (max(x)-rad) + rad * sin(ptsl[[3]]), (min(y)+rad) + rad * cos(ptsl[[3]]))
xy_4 <- cbind( (min(x)+rad) + rad * sin(ptsl[[4]]), (min(y)+rad) + rad * cos(ptsl[[4]]))
newLongx<-c(x[1:2] ,xy_3[,1],topBotline_x,xy_4[,1], x[3:4], xy_1[,1],topBotline_x,xy_2[,1])
newLongy<-c(yMod[1:2],xy_3[,2],bottomline_y,xy_4[,2], yMod[3:4], xy_1[,2],topline_y ,xy_2[,2])
par(pty="s")
plot.new()
polygon(newLongx,newLongy, col="red")
}
最佳答案
这是一个基础 R squircle
功能。
我相信这些论点是自我描述的。
x0
, y0
- 中心坐标。 radius
- 方圆半径。 n
- 要计算的点数,默认 1000
应该使松鼠光滑。 ...
- 要传递给 lines
的更多参数.见 help('par')
. squircle <- function(x0 = 0, y0 = 0, radius, n = 1000, ...){
r <- function(radius, theta){
radius/(1 - sin(2*theta)^2/2)^(1/4)
}
angle <- seq(0, 2*pi, length.out = n)
rvec <- r(radius, angle)
x <- rvec*cos(angle) + x0
y <- rvec*sin(angle) + y0
lines(x, y, ...)
}
plot(-5:5, -5:5, type = "n")
squircle(0, 0, 2, col = "red")
squircle(1, 1, 2, col = "blue", lty = "dashed")
s
,给出方格的方形。
# squircleFG: Manuel Fernandez-Guasti (1992)
squircleFG <- function(x0 = 0, y0 = 0, radius, s, n = 1000, ...){
angle <- seq(0, 2*pi, length.out = n)
cosa <- cos(angle)
sina <- sin(angle)
sin2a <- sin(2*angle)
k <- sqrt(1 - sqrt(1 - s^2*sin2a^2))
x <- k*radius*sign(cosa)/(sqrt(2)*s*abs(sina)) + x0
y <- k*radius*sign(sina)/(sqrt(2)*s*abs(cosa)) + y0
lines(x[-n], y[-n], ...)
}
plot(-5:5, -5:5, type = "n")
squircleFG(0, 0, 2, s = 0.75, col = "red")
squircleFG(1, 1, 2, s = 0.75, col = "blue", lty = "dashed")
关于r - 如何在R中画一个松鼠,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/57232230/
我想以 headless 模式(屏幕上根本没有 GUI)将 JPanel 绘制到 BufferedImage 中。 final JPanel panel = createPanel(); panel.
我是 Canvas 的新手,正在尝试创建看起来逼真的 float 粒子动画。 目前,我正在创建 400 个随机散布在 400x400 Canvas 上的粒子。 然后,在每个 requestAnimat
有没有办法在悬停时停止悬 float 画? :hover 这是一个显示动画的链接: https://codepen.io/youbiteme/pen/RprPrN 最佳答案 只需为您的 svg 悬停添
我想在谷歌地图上绘制覆盖图,其中除了特定点周围 1.5 公里半径以外的所有内容都被遮蔽了。为此,我尝试使用带有大量边框的圆圈,所以我会在边框中放置透明中心和覆盖颜色来实现这一点,但它无法渲染。
我正在尝试通过扩展类 UIView 来创建自定义 View ,该类可以在自定义 View 的中心显示一个圆圈。为了添加自定义绘图,我重写了 draw(_ rect: CGRect) 方法,如下所示。
我是一名优秀的程序员,十分优秀!