From 3720fb2c1d1ad9c556d61ea69275382a58d7b94f Mon Sep 17 00:00:00 2001 From: Marshall Lochbaum Date: Tue, 14 Dec 2021 11:14:05 -0500 Subject: =?UTF-8?q?Set=20a=20fill=20cell=20for=20=E2=8E=89=20with=20an=20e?= =?UTF-8?q?mpty=20frame?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- src/r1.bqn | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'src') diff --git a/src/r1.bqn b/src/r1.bqn index 9d302118..ffa926d1 100644 --- a/src/r1.bqn +++ b/src/r1.bqn @@ -593,7 +593,8 @@ Windows←{ EncCell ← { f←𝕨↑≢𝕩 ⋄ c←1×´s←𝕨Cell𝕩 ⋄ d←⥊𝕩 i←s⥊↕c - (f⥊{d⊏˜(c×𝕩)⊸+⌜i}⌜↕1×´f)˙_fillBy_{𝕩˙⌜i} 𝕩 + E←{e←Fill d⊢_fillBy_(0⍟(3≤Type)⊣)↕0 ⋄ (d⊣_fillBy_⊢˜e˙⌜i)Fill𝕩} + f⥊ E⍟(0=≠) {d⊏˜(c×𝕩)⊸+⌜i}⌜↕1×´f } _cells ← { F←𝔽 ⋄ _m←{𝔽⌜⊘(𝔽¨)_fillByPure_𝔽○(1⊸EncCell)} -- cgit v1.2.3