From 35567d1ef4f1d0721f298865132174858b15ae75 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?John=20Ankarstr=C3=B6m?= <john@ankarstrom.se>
Date: Sun, 20 Jun 2021 08:57:28 +0200
Subject: Have c copy relative font size instead of absolute from l

This is done by calculating the difference between the l environment's
font size and that of the 0 environment.
---
 g.tmac | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/g.tmac b/g.tmac
index 2a01390..7a2f290 100644
--- a/g.tmac
+++ b/g.tmac
@@ -224,7 +224,10 @@ ___________________
 .\" c -- constant-width font
 .de c
 .
-. \" copy family and point size from l environment
+. \" copy family and (relative) point size from l environment
+. _E 0
+. nr _S \n(.s
+. _E
 . _E l
 . ds _fam \n[.fam]
 . nr _s \n(.s
@@ -232,7 +235,7 @@ ___________________
 .
 \&\$3\c
 . fam \*[_fam]
-. ps \n(_s
+. ps +(\n(_s-\n(_S)u
 \&\$1\c
 . fam
 . ps
-- 
cgit v1.2.3