Add optional angle argument to \hoekje

1 files changed, 6 insertions, 3 deletions

diff --git a/giraf.sty b/giraf.sty
index b5ef2e8..87690d4 100644
--- a/giraf.sty
+++ b/giraf.sty
@@ -59,11 +59,14 @@
 	\\%
 }
 
-\newcommand\hoekje{%
+\newcommand\hoekje[1][90]{%
 	\raisebox{-0.5pt}{%
 		\begin{tikzpicture}[scale=0.25]
-		\draw [line cap=round] (0,1) -- (0,0) -- (1,0);
-		\draw[black,fill=black] (0.3,0.3) circle [radius=0.15];
+		\def\ang{(#1)}
+		\def\dotdist{(2/(\ang/6+3)+0.3)}
+		\def\dotscale{((0.15-0.5/(\ang/15+0.5/0.15))*(\ang>19))}
+		\draw [line cap=round] ({cos(\ang)},{sin(\ang)}) -- (0,0) -- (1,0);
+		\draw [black,fill=black] ({\dotdist * cos(\ang/2)},{\dotdist * sin(\ang/2)}) circle [radius=\dotscale];
 		\end{tikzpicture}%
 	}%
 }