Maximaで世界地図を描画

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

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))$