#!/usr/bin/env bqn
⟨c⇐color⋄d⇐draw⋄k⇐key⋄w⇐window⟩←r←•Import"rayed-bqn/rayed.bqn"
grid‿cs←(↕⋈⥊⟜c.lightblue‿c.pink‿c.floralwhite‿c.pink‿c.lightblue)5‿5
Frame←{
  scale←2‿2⥊𝕩÷≠grid⋄((⊑⟜cs)d.Rectangle(scale×≍⟜(1⊸+)))¨grid
  ⊢◶𝕩‿w.GetSize r.raylib.IsWindowResized⟨⟩
}d._withCanvas_ c.black
(Frame•_While_(¬w.ShouldClose)w.GetSize)w._openAs"trans"