Sample code for plotting vertices and edges of a mesh

plot.jl

function mkplot(elt::Element)
    maxcolor = 100
    rank_colormaps = (colormap("Reds", maxcolor+1),
                      colormap("Greens", maxcolor+1),
                      colormap("Blues", maxcolor+1),
                      colormap("Purples", maxcolor+1),
                      colormap("Oranges", maxcolor+1))
    elts = boundaries(elt, elt.rank)
    ctr = meanpos(elts)
    contract(pos) = pos - 0.1 * (pos-ctr)
    pos1(pos) = length(pos) >= 1 ? pos[1] : 0.0
    pos2(pos) = length(pos) >= 2 ? pos[2] : 0.0
    pos3(pos) = length(pos) >= 3 ? pos[3] : 0.0
    xy(pos) = (pos1(pos), pos2(pos))
    z(pos) = pos3(pos)
    cmin = 25; cmax = 75
    zmin = 0.0; zmax = 1.0
    colval(pos) = clamp(int(cmin + (cmax-cmin) * (z(pos)-zmin) / (zmax-zmin)),
                        0, maxcolor)
    col(pos) = rank_colormaps[elt.rank+1][colval(pos)+1]
    ctxts = {}
    if elt.rank==0
        for i in 1:length(elts)
            push!(ctxts, compose(context(),
                                 circle(xy(contract(elts[i].pos))..., 0.03),
                                 fill(col(ctr))))
        end
    else
        for i in 1:length(elts)
            for j in i+1:length(elts)
                push!(ctxts, compose(context(),
                                     line([xy(contract(elts[i].pos)),
                                           xy(contract(elts[j].pos))]),
                                     stroke(col(ctr))))
            end
        end
    end
    compose(context(), ctxts)
end

function mkplot(mf::Manifold)
    ctxts = {}
    for rank in 0:mf.maxrank
        for elt in mf.eltss[rank+1]
            push!(ctxts, mkplot(elt))
        end
    end
    compose(context(), ctxts)
end