<<peeters` ;
peeters`setGitDir[ "blogit" ]

Clear[kF]
kF = N[ 2 Sqrt[Pi]] 
N[ 2 Sqrt[Pi] - Pi]  

Clear[p]
p = Module[{range, p, u, pp},
range = {-4, 4} ;
p = Pi/2 ;
u = {{0, p}, {p, 0}} ;
pp = ParametricPlot[ 
kF{Cos[t], Sin[t]}
, {t, 0, 2 Pi}
, PlotRange -> {range, range}
] ;
Show[Graphics[{
EdgeForm[Black],White,
Polygon[{{-Pi,-Pi},{-Pi,Pi},{Pi,Pi},{Pi,-Pi}}]
}]
,pp
]
]

peeters`exportForLatex["qmSolidsPs9P1bFig1", p]