家紋シリーズ 梅(9) 八重向こう梅

家紋シリーズ　梅(9)　八重向こう梅

include("plotter.jl")

function yaemukouume(; r=1, width=400, height=400)
    u = r/72
    plotbegin(w=width, h=height)
    for i = 54:72:342
        plotcircle(43u*cosd(i), 43u*sind(i), 31u, fcol=:black)
    end
    for i = 18:72:306
        plotcircle(43u*cosd(i), 43u*sind(i), 30u, lwd=3, col=:white, fcol=:white)
    end
    for i = 18:72:306
        plotcircle(43u*cosd(i), 43u*sind(i), 28u, lwd=3, fcol=:black)
    end
    plotcircle(0, 0, 40u, fcol=:black)
    plotcircle(0, 0, 9u, col=:white, fcol=:white)
    plotcircle(0, 0, 7u * r, fcol=:black)
    d = 3
    for i = 6:12:354
        plotpolygon([39u*cosd(i), 9u*cosd(i-d), 9u*cosd(i+d)],
                    [39u*sind(i), 9u*sind(i-d), 9u*sind(i+d)],
                    col=:white, fcol=:white)
        plotcircle(39u*cosd(i), 39u*sind(i), u, col=:white, fcol=:white)
    end
    plotend()
end

yaemukouume()