1 files changed, 26 insertions, 0 deletions

diff --git a/aux.otx b/aux.otx
index e93e1f5..a3cdf5f 100644
--- a/aux.otx
+++ b/aux.otx
@@ -107,6 +107,32 @@
 \def\hi{\hangindent=1em}
 % ---
 
+% --- seccc
+
+\newcount \_secccnum
+\def \_thesecccnum {\_the\_secccnum}
+
+\_optdef\_seccc[]{\_trylabel \_scantoeol\_inseccc}
+
+\_def\_inseccc #1{\_par \_sectionlevel=4
+   \_def \_savedtitle {#1}% saved to .ref file
+   \_ifnonum \_else {\_globaldefs=1 \_incr\_secccnum \_secccx}\_fi
+   \_edef \_therefnum {\_ifnonum \_space \_else \_thesecccnum \_fi}%
+   \_printseccc{\_scantextokens{#1}}%
+   \_resetnonumnotoc
+}
+\_def \_seccx {\_secccx \_secccnum=0 }
+\_def \_secccx {}
+\public \seccc ;
+
+\_def\_printseccc#1{\_par
+   \_abovetitle{\_penalty-100}{\_medskip}
+   {\_bf \_noindent \_raggedright \_printrefnum[@\_quad]#1\_nbpar}%
+   \_nobreak \_belowtitle{\_smallskip}%
+   \_firstnoindent
+}
+% ---
+
 \fontfam[Pagella]
 \typosize[10/13]
 \def\headtitle{Blueprint for a Higher Civilization}
\ No newline at end of file