From a9a5a3584ff6d4918f6c72993310d183f505c1ce Mon Sep 17 00:00:00 2001
From: Glen Whitney <glen@studioinfinity.org>
Date: Wed, 17 Jan 2024 23:14:02 +0000
Subject: [PATCH] fix: Improve labeling of line segments (#54)

Gets all of Joyce through Book V working.

Reviewed-on: https://code.studioinfinity.org/glen/archematics/pulls/54
Co-authored-by: Glen Whitney <glen@studioinfinity.org>
Co-committed-by: Glen Whitney <glen@studioinfinity.org>
---
 src/adapptlet.civet | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/adapptlet.civet b/src/adapptlet.civet
index 73ea846..65fe4ee 100644
--- a/src/adapptlet.civet
+++ b/src/adapptlet.civet
@@ -378,7 +378,8 @@ function jToG(
                   when 'line'
                      (`Midpoint(${name})`
                       + ` + Rotate(Direction(${name})`
-                      +    `*Length(${name})*0.02, pi/2)`)
+                      +    `*Length(${name})*0.025/Length(Direction(${name})),`
+                      +    `pi/2)`)
                   when 'circle'
                      (`Center(${name})`
                       + ` + Radius(${name})*Vector((12/13,5/13))*1.03`)