diff options
| author | Marshall Lochbaum <mwlochbaum@gmail.com> | 2021-04-12 21:49:10 -0400 |
|---|---|---|
| committer | Marshall Lochbaum <mwlochbaum@gmail.com> | 2021-04-12 21:52:36 -0400 |
| commit | 1fffae50b765419864451975ef1049aa4a6ec08a (patch) | |
| tree | a78e3da59f07135e1867782b5e9910d892e443f6 /src/cjs.bqn | |
| parent | d23e345e929f6eb62cb12b72b07079b1efe5cfc6 (diff) | |
Add very basic SVG •Plot to the REPL
Diffstat (limited to 'src/cjs.bqn')
| -rwxr-xr-x | src/cjs.bqn | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/cjs.bqn b/src/cjs.bqn index 30d94098..2a282b84 100755 --- a/src/cjs.bqn +++ b/src/cjs.bqn @@ -27,10 +27,12 @@ Fconst ← ≡◶⟨@⊸≤◶Num‿Char, Str, ⊑⟩ Fout ← (≠↑⟨F,Fconst,L F¨,F⟩˙) {L𝕎¨𝕩}¨ ⊢ Frun ← "provide"⊸Cat⌾(1⊸⊑) Fout Long ← ∾ (≠↑1‿3/⟨" "⊸∾⋄((@+10)∾" ,")⊸∾⟩˙) {𝕎𝕩}¨ ⊢ -•Out (⊑"r"‿"c"‿"f"‿"e"⊐⊏)◶⟨ +SVG ← {∾⟨"Modify←GetHighlights←⊢⋄"⟩∾ •FChars∘∾⟜".bqn"¨ "../svg"‿𝕩} +•Out (⊑"r"‿"c"‿"f"‿"e"‿"p"⊐⊏)◶⟨ {𝕩⋄ref‿len←•Import"pr.bqn"⋄Long Frun len⊸↓⌾(1⊸⊑)Comp ref} {𝕩⋄Long Fout Comp •FChars "c.bqn"} {𝕩⋄Long Fout Comp •FChars "f.bqn"} - {𝕩⋄Long Fout Comp ∾⟨"Modify←GetHighlights←⊢⋄"⟩∾ •FChars∘∾⟜".bqn"¨ "../svg"‿"e"} + {𝕩⋄Long Fout Comp SVG "e"} + {𝕩⋄Long Fout Comp SVG "p"} ¯1 ↓ · J L∘Fout∘Comp¨ ⟩ args |