家紋シリーズ 梅(2) 加賀梅鉢

家紋シリーズ　梅(2)　加賀梅鉢

include("plotter.jl")

function kagaumebati(; r=1, width=400, height=400)
    u = r/25
    plotbegin(w=width, h=height)
    plotpolygon2(0, 0, r, 5, φ=54, fcol=:black)
    plotcircle(0, 0, 16u, fcol=:white)
    for i = 0:36:324
        plotline(0, 0, r*cosd(i), r*sind(i), lwd=8, col=:white)
    end
    plotcircle(0, 0, 11u, fcol=:black)
    for i = 18:72:306
        plotcircle(48u*cosd(i), 48u*sind(i), r, fcol=:black)
    end
    plotend()
end

kagaumebati()