diff options
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 |