% Session using the Schwarz-Christoffel Toolbox, p. 223, Footnote 83

pol = polygon([10+i -10+i -10-i 10-i]);
f = center(crdiskmap(pol,scmapopt('Tolerance',1e-11)),0);
prevert = get(diskmap(f),'prevertex'); p = angle(prevert(1))/pi