Maximaで世界地図を描画

投稿者: | 2022年2月13日

Maximaで世界地図を描画

Maximaでのソースコード(平面)


load(worldmap)$
arg:[
    dimensions = [1200,900],
    /*terminal =jpg,*/
    color=black,
    geomap(makelist(k,k,0,2800)),
    grid=false
]$
apply(draw2d,arg)$

出力画像


Maximaでのソースコード(地球儀)


load(worldmap)$
d2r:%pi/180$
draw3d(
    dimensions = [1200,1200],
    /*terminal =jpg,*/
    surface_hide = true,
    color = black,
    parametric_surface(
        cos(phi*d2r)*cos(theta*d2r),
        cos(phi*d2r)*sin(theta*d2r),
        sin(phi*d2r),
        theta,-180,180,
        phi,-90,90),
    color = black,
    line_width = 1,
    axis_3d = false,
    geomap(World_coastlines))$

出力画像


関連記事





最近の投稿