From fc9eac147ab8bf49f2389c6b90500a35f2aa2e62 Mon Sep 17 00:00:00 2001 From: Marshall Lochbaum Date: Tue, 22 Jun 2021 22:25:09 -0400 Subject: Better fold diagram alignment --- doc/fold.md | 9 +++++---- docs/doc/fold.html | 34 +++++++++++++++++----------------- 2 files changed, 22 insertions(+), 21 deletions(-) diff --git a/doc/fold.md b/doc/fold.md index 6300e715..8e8d17a0 100644 --- a/doc/fold.md +++ b/doc/fold.md @@ -25,16 +25,17 @@ Brak ← { } _pair ← {1(↓𝔽-⊸↓)⊢} -tx ← ↕≠xt ⋄ ty ← 0.8+5×↕2 -sy ← (2÷˜+´ty)-3×0.5-˜(↕÷-⟜1) ≠sx←2÷˜+_pair tx -tp ← tx≍¨⊑ty ⋄ sp ← sx≍¨sy +tx ← ↕≠xt ⋄ ty ← 0.8+5×↕2 ⋄ tp ← tx≍¨⊑ty ⋄ tw ← ¯0.23 +sy ← (2÷˜+´ty)-3×0.5-˜(↕÷-⟜1) ≠sx←0.14-˜2÷˜+_pair tx +sx +↩ (÷´(sx+⟜tw⊸≍○(⊢´)sy)-¯2⊑tp)×-⟜(⊢´)sy +sp ← sx≍¨sy dim ← ⟨2.5+≠tx,0.8+1⊑ty⟩ ⋄ sh ← ¯2.3‿0 lp ← 0.35 ((∾˜d)×((-∾+˜)1‿0.3)+sh∾dim) SVG g Ge ⟨ "rect" Elt rc ∾ (Pos d×sh)∾"width"‿"height"≍˘FmtNum d×dim lg Ge Line¨ ∾⟨ - tp (≍+·≍⟜-·(⊢×lp÷1⊸⊑)-)¨ ¯0.25‿0<⊸(+ ∾ ⊣-˜¯1⊏⊢)sp + tp (≍+·≍⟜-·(⊢×lp÷1⊸⊑)-)¨ tw‿0<⊸(+ ∾ ⊣-˜¯1⊏⊢)sp ((lpׯ0.5‿1≍1.2‿¯0.5)+≍)¨_pair sp ⟨sx {⍉(≍˜𝕨)≍(≍⟜-lp)+𝕩≍1⊑ty}○⊑ sy⟩ ⟩ diff --git a/docs/doc/fold.html b/docs/doc/fold.html index 5ae46961..7c03d174 100644 --- a/docs/doc/fold.html +++ b/docs/doc/fold.html @@ -9,17 +9,17 @@ - - - - - - - - - - - + + + + + + + + + + + 𝕩 @@ -31,12 +31,12 @@ 3 4 2 - 6 - 2-¯4 - 0-4 - 5-1 - 3-2 - 4-2 + 6 + 2-¯4 + 0-4 + 5-1 + 3-2 + 4-2 -- cgit v1.2.3