diff options
| author | Marshall Lochbaum <mwlochbaum@gmail.com> | 2021-11-19 21:35:29 -0500 |
|---|---|---|
| committer | Marshall Lochbaum <mwlochbaum@gmail.com> | 2021-11-19 21:35:29 -0500 |
| commit | d578f20f3a7a7f06d58bd5bc04fd962df4692d0d (patch) | |
| tree | 3ad6ac2c3b4d321b91e6eadc541933a6dc641971 /doc/combinator.bqn | |
| parent | 3fd43be98cb39903a8f6e62d8d2427daee59a2bf (diff) | |
More ⋈ replacements
Diffstat (limited to 'doc/combinator.bqn')
| -rw-r--r-- | doc/combinator.bqn | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/doc/combinator.bqn b/doc/combinator.bqn index fe0f7879..fa4466f7 100644 --- a/doc/combinator.bqn +++ b/doc/combinator.bqn @@ -17,11 +17,11 @@ n ← Text∘‿2⥊⟨"y",FmtNum h-37, "fill","currentColor"⟩ case ← (¯1‿1×w÷4.6) ("g"At"font-size=21px|font-family=BQN,monospace")_trans¨ 25 lt← Text∘‿2⥊⟨"y",FmtNum h-105, "font-size","19px"⟩ -FromPath ← ≠≍+´ +FromPath ← ≠⋈+´ Connect ← { e ← FromPath ¯1↓𝕨 curve ← ⟨1‿1.3, 1‿1.25‿0.9‿1, 0.5‿1.25‿1‿0⟩ - c ← 𝕨 ((1=≠)⊸∧⟜(2=⊑))◶⟨⟩‿(⊑⊸((⊣(⊢×≢∘⊢⥊1≍⊣)curve⊑˜×)○×)⟜(1⊸⊑)) 𝕩 + c ← 𝕨 ((1=≠)⊸∧⟜(2=⊑))◶⟨⟩‿(⊑⊸((⊣(⊢×≢∘⊢⥊1⋈⊣)curve⊑˜×)○×)⟜(1⊸⊑)) 𝕩 "path" Elt ps∾⟨"d",∾("M"∾(2÷˜≠c)⊏"LQC")∾⟜(Fmt Pnt˘⌾(∘‿2⊸⥊))¨e‿(c∾𝕩)⟩ } @@ -42,7 +42,7 @@ DrawComp ← {𝕊𝕩:(names⊏˜comps⊐𝕩)𝕊𝕩; names 𝕊 spel: notBase ← (1<≠)◶⟨1,0≠¯1⊸⊑⟩¨¨ path path ↓¨¨˜↩ -¬notBase vv ← (1↓⌽↓"𝕨"‿"𝕩") ∾˜¨⎉1 notBase /¨ name - vl ← (2 ≍⚇0 ⟨0⟩‿⟨¯1,1⟩) ∾˜¨⎉1 notBase FromPath¨∘/¨ path + vl ← (2 ⋈⚇0 ⟨0⟩‿⟨¯1,1⟩) ∾˜¨⎉1 notBase FromPath¨∘/¨ path vp ← Pnt¨¨ vl g ← (20+h×⊢)⊸Groups⟜(5+w×0.5+⊢)○↕´ sh |