From: Ben Harris <bjh21@bjh21.me.uk>
Date: Mon, 25 May 2020 08:24:10 +0000 (+0100)
Subject: Tolerable APL quad jot and del tilde
X-Git-Tag: bedstead-002.002~23
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~bjharris/git?a=commitdiff_plain;h=f4484f7cde366ac75275f0710e63e23d41930071;p=bedstead.git

Tolerable APL quad jot and del tilde

That completes the IBM APL2 character set.
---

diff --git a/bedstead.c b/bedstead.c
index 23d0842..2f45ed1 100644
--- a/bedstead.c
+++ b/bedstead.c
@@ -1317,6 +1317,7 @@ static struct glyph {
  {{037,021,037,021,037,021,037,000,000}, U(2338) }, /* APL quad equal */
  {{037,025,021,037,021,025,037,000,000}, U(2339) }, /* APL quad divide */
  {{037,025,033,021,033,025,037,000,000}, U(233A) }, /* APL quad diamond */
+ {{037,021,025,033,025,021,037,000,000}, U(233B) }, /* APL quad jot */
  {{004,016,025,025,025,016,004,000,000}, U(233D) }, /* APL circle stile */
  {{000,001,012,004,012,020,000,000,000}, U(233F) }, /* APL slash bar */
  {{000,020,012,004,012,001,000,000,000}, U(2340) }, /* APL backslash bar */
@@ -1338,6 +1339,7 @@ static struct glyph {
  {{012,000,004,012,012,004,000,000,000}, U(2364) }, /* APL jot dieresis */
  {{012,000,010,025,002,000,000,000,000}, U(2368) }, /* APL tilde dieresis */
  {{000,000,000,037,000,000,004,004,010}, U(236A) }, /* APL comma bar */
+ {{037,021,021,016,033,004,004,000,000}, U(236B) }, /* APL del tilde */
  {{016,021,031,025,023,021,016,000,000}, U(236C) }, /* APL zilde */
  {{010,025,002,000,021,012,004,000,000}, U(2371) }, /* APL nor */
  {{010,025,002,000,004,012,021,000,000}, U(2372) }, /* APL nand */