![](https://secure.gravatar.com/avatar/e79f226aa442b589932230491affa641.jpg?s=120&d=mm&r=g)
Hi, I need some help for shorten the TeX code in the following example: My footnotes are defined like this: \def\setnotebodyfont {\let\setnotebodyfont\relax \restoreglobalbodyfont \switchtobodyfont[rm,9pt]\setupinterlinespace[line=9.8pt] \parskip2pt} But sometimes at single pages I need to shrink footnote's setupinterlinespace and parskip a bit. To adjust the percentage of shrinking (setupinterlinespace[line= \dimexpr(9.8\MyFaktor)]\parskip\dimexpr(2\MyFaktor)}) I use the following: \newdimen\MyFaktor \MyFaktor=0.978pt [Normal body-text ...] \def\setnotebodyfont {\let\setnotebodyfont\relax \restoreglobalbodyfont \switchtobodyfont[rm,9pt]\setupinterlinespace[line=\dimexpr(9.8 \MyFaktor)]\parskip\dimexpr(2\MyFaktor)} [...] Text with footnotes [...] \def\setnotebodyfont {\let\setnotebodyfont\relax \restoreglobalbodyfont \switchtobodyfont[rm,9pt]\setupinterlinespace[line=9.8pt] \parskip2pt} [...] This works great, but looks ugly and not clear at all!! Could someone please provide me a definition like \ThightNotes[0.978] and \NormalNotes that I could hook handy and clear in the respective body-text? Thanks in advance, Steffen