Julia で花菱をモチーフとした模様を描く（1）
include("plotter.jl")
以下の関数は単位としての花菱を1つ描く。
function hanabisi(x, y; r=1, lwd=2, fcol=:black, backcol=:white, frame=false, framecol=:red)
u = r / 280
tangent = 5/7
plotcircle(x + 250u, y, 55u, col=fcol, fcol=fcol)
plotcircle(x - 250u, y, 55u, col=fcol, fcol=fcol)
plotcircle(x + 175u, y + 45u, 60u, col=fcol, fcol=fcol)
plotcircle(x - 175u, y + 45u, 60u, col=fcol, fcol=fcol)
plotcircle(x + 175u, y - 45u, 60u, col=fcol, fcol=fcol)
plotcircle(x - 175u, y - 45u, 60u, col=fcol, fcol=fcol)
plotcircle(x + 75u, y + 115u, 55u, col=fcol, fcol=fcol)
plotcircle(x - 75u, y + 115u, 55u, col=fcol, fcol=fcol)
plotcircle(x + 75u, y - 115u, 55u, col=fcol, fcol=fcol)
plotcircle(x - 75u, y - 115u, 55u, col=fcol, fcol=fcol)
plotcircle(x, y + 175u, 55u, col=fcol, fcol=fcol)
plotcircle(x, y - 175u, 55u, col=fcol, fcol=fcol)
plotpolygon(x .+ [0u, 127u, 0u, -127u], y .+ [0u, 95u, 175u, 95u],
lwd=0, fcol=fcol)
plotpolygon(x .+ [0u, 127u, 0u, -127u], y .+ [0u, -95u, -175u, -95u],
lwd=0, fcol=fcol)
plotpolygon(x .+ [0u, 129u, 250u, 129u], y .+ [0u, 86u, 0u, -86u],
lwd=0, fcol=fcol)
plotpolygon(x .+ [0u, -129u, -250u, -129u], y .+ [0u, -86u, 0u, 86u],
lwd=0, fcol=fcol)
plotline(x + 175u, y + 125u, x - 175u, y - 125u, lwd=lwd, col=backcol)
plotline(x + 175u, y - 125u, x - 175u, y + 125u, lwd=lwd, col=backcol)
plotline(x, y + 95u, x, y - 95u, lwd=lwd, col=backcol)
plotline(x+ 115u, y, x - 115u, y, lwd=lwd, col=backcol)
plotcircle(x, y, 45u, col=backcol, fcol=backcol)
plotcircle(x, y, 35u, col=fcol, fcol=fcol)
if frame
d = 1120/3
plotpolygon(x .+ [d*u, 0, -d*u, 0],
y .+ [0, d*tangent*u, 0, -d*tangent*u],
lwd=0.5, col=:red)
end
end
パラメータの設定で2通りの花菱模様を描くプログラム。
function hanabisi1(nx=6, ny=6; r=1, fcol1=:lightpink,
fcol2=:lightgoldenrod, backcol=:lightcyan,
frame=false, framecol=:red, width=600, height=400)
plotbegin(w=width, h=height)
nx += 1
ny = 2ny + 1
tangent = 5/7
x1, y1, x2, y2 = 2r, tangent*r, (2nx+1)r, tangent*ny*r
println("(width, height) = ($(x2 - x1), $(y2 - y1))")
plotbegin(w=width, h=height)
plotlimit(x1, y1, x2, y2)
plotbox(x1, y1, x2, y2, lwd=0, fcol=backcol)
for i = 1:ny
for j = 1:nx
hanabisi(2j + i % 2, tangent*i, r=0.72,
fcol=i % 2 == 1 ? fcol1 : fcol2, backcol=backcol,
frame=frame, framecol=framecol)
end
end
plotend()
end
hanabisi1(4, 4, width=650, height=426)
hanabisi1(4, 4, fcol1=:mediumseagreen, fcol2=:dodgerblue3,
backcol=:darksalmon, frame=true, framecol=:white,
width=650, height=426)
