Consider the following example.
Code
% pdflatex -shell-escape test.tex
\documentclass{article}
\usepackage{
auto-pst-pdf,
pst-eucl
}
\usepackage{siunitx}
\begin{document}
\begin{figure}
\def\indryk{5}
\def\bredde{60}
\pstFPdiv\konstA{2}{3}
\pstFPmul\Bb{\konstA}{\bredde}
\pstFPdiv\konstB{6}{5}
\pstFPmul\Ha{\konstB}{\bredde}
\pstFPdiv\konstC{13}{20}
\pstFPmul\Hb{\konstC}{\bredde}
\pstFPdiv\konstD{7}{5}
\pstFPmul\Hc{\konstD}{\bredde}
\pstFPdiv\radiusA{\bredde}{20}
\pstFPdiv\LabelSeparation{\bredde}{12}
\centering
\sisetup{
round-mode=places,
round-precision=0
}
\psset{
unit=0.13cm
}
\begin{pspicture}(8,10)
% Bistadet.
\pnode(\indryk,\indryk){A}
\pnode(!\indryk\space \indryk\space 13 20 div \bredde\space mul add){B1}
\pnode(!\indryk\space \indryk\space 16 20 div \bredde\space mul add){B2}
\pnode(!\indryk\space \indryk\space 19 20 div \bredde\space mul add){B3}
\pnode(!\indryk\space \indryk\space 22 20 div \bredde\space mul add){B4}
\pnode(!\indryk\space \indryk\space 25 20 div \bredde\space mul add){B5}
\pnode(!\indryk\space \indryk\space 28 20 div \bredde\space mul add){B6}
\pnode(!\indryk\space \bredde\space 2 div add \indryk\space 24 5 3 sqrt mul sub 10 div \bredde\space mul add){C}
\pnode(!\indryk\space \bredde\space add \indryk\space 28 20 div \bredde\space mul add){D6}
\pnode(!\indryk\space \bredde\space add \indryk\space 25 20 div \bredde\space mul add){D5}
\pnode(!\indryk\space \bredde\space add \indryk\space 22 20 div \bredde\space mul add){D4}
\pnode(!\indryk\space \bredde\space add \indryk\space 19 20 div \bredde\space mul add){D3}
\pnode(!\indryk\space \bredde\space add \indryk\space 16 20 div \bredde\space mul add){D2}
\pnode(!\indryk\space \bredde\space add \indryk\space 13 20 div \bredde\space mul add){D1}
\pnode(!\indryk\space \bredde\space add \indryk\space){E}
\pnode(!\indryk\space 5 6 div \bredde\space mul add \indryk\space){F}
\pnode(!\indryk\space 1 6 div \bredde\space mul add \indryk\space){G}
\pnode(!\indryk\space 1 6 div \bredde\space mul add \indryk\space 4 20 div \bredde\space mul add){H1}
\pnode(!\indryk\space 1 6 div \bredde\space mul add \indryk\space 7 20 div \bredde\space mul add){H2}
\pnode(!\indryk\space 1 6 div \bredde\space mul add \indryk\space 10 20 div \bredde\space mul add){H3}
\pnode(!\indryk\space 1 6 div \bredde\space mul add \indryk\space 13 20 div \bredde\space mul add){H4}
\pnode(!\indryk\space 5 6 div \bredde\space mul add \indryk\space 4 20 div \bredde\space mul add){I1}
\pnode(!\indryk\space 5 6 div \bredde\space mul add \indryk\space 7 20 div \bredde\space mul add){I2}
\pnode(!\indryk\space 5 6 div \bredde\space mul add \indryk\space 10 20 div \bredde\space mul add){I3}
\pnode(!\indryk\space 5 6 div \bredde\space mul add \indryk\space 13 20 div \bredde\space mul add){I4}
\pspolygon(A)(B6)(C)(D6)(E)
\multido{\iB=1+1,\iD=1+1}{6}{\pcline(B\iB)(D\iD)}
\pcline(G)(H4)
\pcline(F)(I4)
\multido{\iH=1+1,\iI=1+1}{4}{\pcline(H\iH)(I\iI)}
% Betegnelser.
\psset{
nrot=:U
}
\pnode(!0 1 5 div \bredde\space mul \indryk\space add){J}
\pnode(!0 7 5 div \bredde\space mul \indryk\space add){K}
\pcline{|-|}(J)(K)
\ncput*{\SI{\Ha}{\cm}}
\pnode(\indryk,0){L}
\pnode(!\indryk\space \bredde\space add 0){M}
\pcline{|-|}(L)(M)
\ncput*{\SI{\bredde}{\cm}}
\pcline{|<->|}(G)(F)
\ncput*{\SI{\Bb}{\cm}}
\pnode(!\indryk\space 2 mul \bredde\space add \indryk\space){N}
\pnode(!\indryk\space 2 mul \bredde\space add \indryk\space 13 20 div \bredde\space mul add){O}
\pcline{|-|}(N)(O)
\ncput*{\SI{\Hb}{\cm}}
\pnode(!\indryk\space 3 mul \bredde\space add \indryk\space){P}
\pnode(!\indryk\space 3 mul \bredde\space add \indryk\space 7 5 div \bredde\space mul add){Q}
\pcline{|-|}(P)(Q)
\ncput*{\SI{\Hc}{\cm}}
\pstMarkAngle[
MarkAngleRadius=\radiusA,
LabelSep=\LabelSeparation
]{B6}{C}{D6}{\footnotesize{\SI{150}{\degree}}}
\end{pspicture}
\end{figure}
\end{document}
Output
Question
I have the desired output but the code is rather messy; can anyone help me simplify if?
$\phantom{{}^\circ}150^\circ$
.\phantom
150
. Of course, you could also\rlap
the\circ
. It looks better in my opinion.