g←p5.g
p5.sz ← 2⥊400

ram←0
td←(p5.sz÷2)
p5.Resized ← {
  td ↩ (10+𝕩÷2)∾20‿"D2"‿"center"‿"baseline"
  ram+↩ 1
}

p5.Draw ← {𝕩:
  g.BG '1'
  td g.Text "At frame "∾(⍕p5.fc)∾" "∾(⍕ram)
  (20⊸+⌾(1⊸⊑)td) g.Text ⍉>{∾⍕¨⟨𝕩.p,𝕩.pp,𝕩.c,𝕩.r⟩}¨⟨p5.lm,p5.mm,p5.rm⟩
  a←¯12‿12+2÷˜1⊑p5.sz
  ⟨"80ffffff",2⟩ g.Ln 10‿a‿(¯10+⊑p5.sz)‿a
  ⟨"fff","00f",3⟩ g.Rect ⟨0‿100, 0‿0, 50‿150, 50‿50⟩
  ⟨"80000000"⟩ g.Circle ⟨25‿75‿125, 25, 50⟩
  ⟨"00f",3⟩ g.Ellipse ⟨75‿225÷2, 75, 75,50, "f00"‿"0f0"⟩
  ((p5.sz-≢)g.Img⊢) {(𝕩∾˜0×𝕩)∾˘𝕩∾𝕩}⍟7 1‿1⥊¯1+2*32
  ⟨"0f0"⟩ g.Poly 200‿10‿220‿120‿300‿10
}