裏 RjpWiki

Julia ときどき R, Python によるコンピュータプログラム,コンピュータ・サイエンス,統計学

家紋シリーズ 稲妻(2) 角立て絡み稲妻

2021年09月04日 | ブログラミング

家紋シリーズ 稲妻(2) 角立て絡み稲妻

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

include("plotter.jl")

function sumitatekaramiinazuma(; r=1, width=400, height=400)
    plotbegin(w=width, h=height)
    x = [0, 39, 5, -29, -5, 19, 5, -9, -5, 5, 11, -5,
         -21, 5, 31, -4] .* r

    y = [-39, 0, 34, 0, -24, 0, 14, 0, -4, 6, 0, -16,
         0, 26, 0, -35] .* r

    plotpolygon(x, y, lwd=0, fcol=:black)
    plotpolygon(-x , -y, lwd=0, fcol=:black)
    plotend()
end

sumitatekaramiinazuma()

コメント
  • X
  • Facebookでシェアする
  • はてなブックマークに追加する
  • LINEでシェアする

家紋シリーズ 稲妻(1) 丸に平稲妻

2021年09月04日 | ブログラミング

家紋シリーズ 稲妻(1) 丸に平稲妻

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

include("plotter.jl")

function hirainazuma(; r=1, maru=false, width=400, height=400)
    plotbegin(w=width, h=height)
    if maru
        plotcircle(-0.5r, -0.5r, 25, lwd=0, fcol=:black)
        plotcircle(-0.5r, -0.5r, 15.25*sqrt(2), lwd=0, fcol=:white)
    end
    x = [-15,  14, 14, -15, -15,   9, 9, -10, -10,  4, 4, -5,
        
-5, 0,  0, -6, -6, 5,  5, -11, -11, 10,  10, -15] .* r
    y = [-15, -15, 14,  14, -10, -10, 9,   9,  -5, -5, 4,  4,
         0, 0, -1, -1,  5, 5, -6,  -6,  10, 10, -11, -11] .* r

    plotpolygon(x, y, lwd=0, fcol=:black)
    plotend()
end

marunihirainazuma(; r=1, width=400, height=400) =
    hirainazuma(; r, maru=true, width, height)

hirainazuma()


コメント
  • X
  • Facebookでシェアする
  • はてなブックマークに追加する
  • LINEでシェアする

PVアクセスランキング にほんブログ村

PVアクセスランキング にほんブログ村