家紋シリーズ 井筒(1) 角立て井筒，丸に角立て井筒，丸に平井筒
plotter.jl を include
include("plotter.jl")
function sumidateizutu(; r=1, maru=false, width=400, height=400)
plotbegin(w=width, h=height)
if maru
plotcircle(0, 0, 243r, lwd=0, fcol=:black)
plotcircle(0, 0, 205r, lwd=0, fcol=:white)
end
a, b, c, d = 136, 194, -20, -78
e, f, g, h = -78, -20, 194, 136
plotpolygon([ a, b, c, d], [ e, f, g, h], lwd=0, fcol=:black)
plotpolygon([-a, -b, -c, -d], [ e, f, g, h], lwd=0, fcol=:black)
plotpolygon([ a, b, c, d], [-e, -f, -g, -h], lwd=0, fcol=:black)
plotpolygon([-a, -b, -c, -d], [-e, -f, -g, -h], lwd=0, fcol=:black)
plotend()
end
marunisumidateizutu(; r=1, width=400, height=400) = sumidateizutu(; r, maru=true, width, height)
function hiraizutu(; r=1, maru=false, width=400, height=400)
plotbegin(w=width, h=height)
if maru
plotcircle(0, 0, 705r, lwd=0, fcol=:black)
plotcircle(0, 0, 557r, lwd=0, fcol=:white)
end
a, b, c, d = 100, 320, 320, 100
e, f, g, h = 400, 400, -400, -400
plotpolygon([ a, b, c, d], [ e, f, g, h], lwd=0, fcol=:black)
plotpolygon([-a, -b, -c, -d], [ e, f, g, h], lwd=0, fcol=:black)
a, b, c, d = -400, 400, 400, -400
e, f, g, h = 320, 320, 100, 100
plotpolygon([ a, b, c, d], [ e, f, g, h], lwd=0, fcol=:black)
plotpolygon([ a, b, c, d], [-e, -f, -g, -h], lwd=0, fcol=:black)
plotend()
end
marunihiraizutu(; r=1, width=400, height=400) = hiraizutu(; r, maru=true, width, height)
sumidateizutu()
marunisumidateizutu() # ≡ sumidateizutu(maru=true)
# hiraizutu()
marunihiraizutu() # ≡ hiraizutu(maru=true)
