% Time-stamp: <2018-04-09 10:20:51 nagata>
% コンパイルの仕方：ソースが file.tex であれば
% lualatex file
%
\documentclass[a4paper]{article}
\usepackage{fontspec}
\usepackage[polutonikogreek,german]{babel}
\usepackage{libertine}
\usepackage{tikz}
\usetikzlibrary{decorations.text}
\pagestyle{empty}
\begin{document}
\newcommand\sptext{Ich schreibe dieses heute freytags dς 18tς, den Morgen wird hart so viel Zeit übrig bleibς etwas zu schreibς. In der frühe um halbe 10 uhr wird die erste probe seÿn mit allς Instrumentς. dieser täge warς 3 Recitativ Probς. Gestern Nachts ist erst der Tenor angekomς, und heute hat der Wolfgς: 2 Arien für ihn gemacht, und hat ihm noch 2 zu machς. Sontag den 20tς ist die zweÿte probe, Erchtag dς 22 die dritte Probe, Mittwoch dς 23 die Hauptprobe. donerstag und freytag nichts, am Samstag dς 26 die erste opera, mit Gott, ebς an dem Tag, da ihr diesς Brief erhaltet. dies schreibe ich beÿ dς Nacht um 11 uhr, da dς Wolfgς: ebς die 2te Tenor Arie fertig hat. Am Weinacht abend werdς wir einem andächtigς Soupée beÿ hς: v Germani beÿwohnς, die sich euch empfehlς und euere Gegenwart wünschς. Morgς speibς, oha! speisen wir beÿ hς: v Maÿr. Nach der Tafl werde noch ein paar Worte schreibς könnς. Heute sind wir beÿ Sr: Exς: Gr: v Firmian gewesς um unsere Gratulation wegς der erlangtς Cardinalswürde Sr: Eminez von Passau abzulegς. der Currier von Rom kam dς 17 abends um Gebettleutς hier mit der Nachricht an. addio Lebts wohl.}
\tikz\draw [
decoration={
  text along path,
  text/.expanded=\sptext},
  decorate] 
  (0,0) \foreach \i in {50,...,0}{ -- ++(-\i*-90:.5+\i/5) };
\end{document}
