Julia で正方形基準の格子模様を描く（3）

Julia で正方形基準の格子模様を描く（3）

plotter.jl を include
https://blog.goo.ne.jp/r-de-r/e/bd71a52a09801335d56f7c47d879bfe3

include("plotter.jl")

function asanoha7(nx=6, ny=5; a=1, width=600, height=400)
    function unit(x, y, a)
        xy = [0 0; 4a 0; 4a 4a; 0 4a; 0 0; 3a a; 4a 4a; a 3a; 0 0; 4a 4a; NaN NaN;
                  0 4a; a 3a; NaN NaN; 4a 0; 3a a]
        xs = vcat(xy[:, 1], xy[:, 1], -xy[:, 1], -xy[:, 1])
        ys = vcat(xy[:, 2], -xy[:, 2], xy[:, 2], -xy[:, 2])
        plotline(4a*x - 2a .+ xs, 4a*y - 2a .+ ys, lwd=2, col=:bisque)
    end
    plotbegin(w=width, h=height)
    x1, y1, x2, y2 = 0, 0, 4a*nx, 4a*ny
    println("(width, height) = ($(x2 - x1), $(y2 - y1))")
    plotlimit(x1, y1, x2, y2)
    plotbox(x1, y1, x2, y2, col=:gray, fcol=:gray)
    for x = 1:nx
        for y = 1:ny
            unit(x, y, a)
        end
    end
    plotend()
end

asanoha7(6, 4, width=480, height=320)
savefig("fig7.png")