Constructing bounded pseudoconvex domains of finite D'Angelo type with prescribed weak loci

We construct smoothly bounded pseudoconvex or convex domains in ${\mathbb{C}}^n$ whose weakly pseudoconvex loci realize prescribed closed sets.