From 24e2d0e091d7b4af2e351c484151964d14bcf4e3 Mon Sep 17 00:00:00 2001 From: Ben Harris Date: Thu, 14 May 2020 23:24:47 +0100 Subject: [PATCH] Reasonably complete attempt at an APL character set --- bedstead.c | 51 +++++++++++++++++++++++++++++++++++++++++++++++++-- 1 file changed, 49 insertions(+), 2 deletions(-) diff --git a/bedstead.c b/bedstead.c index 07cc3a2..030ff1d 100644 --- a/bedstead.c +++ b/bedstead.c @@ -1219,19 +1219,24 @@ static struct glyph { {{016,021,001,017,021,021,016,000,000}, 0x2202, "partialdiff" }, {{004,004,012,012,021,021,037,000,000}, 0x2206, "Delta" }, {{037,021,021,012,012,004,004,000,000}, 0x2207, "gradient" }, + {{017,020,020,037,020,020,017,000,000}, 0x2208, "element" }, + {{000,017,020,037,020,017,000,000,000}, U(220A) }, /* small element of */ {{037,021,021,021,021,021,021,021,021}, 0x220f, "product" }, {{021,021,021,021,021,021,021,021,037}, U(2210) }, /* n-ary coproduct */ {{037,020,010,004,002,004,010,020,037}, 0x2211, "summation" }, {{000,000,000,037,000,000,000,000,000}, 0x2212, "minus" }, {{037,000,004,004,037,004,004,000,000}, U(2213) }, /* minusplus */ + {{000,000,004,012,012,004,000,000,000}, U(2218) }, /* ring operator */ {{000,000,004,016,004,000,000,000,000}, U(2219) }, /* bulletoperator */ {{007,004,004,004,024,014,004,000,000}, 0x221a, "radical" }, {{023,012,022,012,022,006,002,000,000}, U(221B) }, /* cube root */ {{015,025,035,005,001,003,001,000,000}, U(221C) }, /* fourth root */ {{000,012,025,025,025,012,000,000,000}, 0x221e, "infinity" }, {{000,020,020,020,020,037,000,000,000}, 0x221f, "orthogonal" }, - {{004,004,004,004,004,004,004,000,000}, U(2223), }, /* divides */ - {{012,012,012,012,012,012,012,000,000}, U(2225), }, /* parallel */ + {{004,004,004,004,004,004,004,000,000}, U(2223) }, /* divides */ + {{012,012,012,012,012,012,012,000,000}, U(2225) }, /* parallel */ + {{000,000,004,012,021,000,000,000,000}, 0x2227, "logicaland" }, + {{000,000,021,012,004,000,000,000,000}, 0x2228, "logicalor" }, {{000,016,021,021,021,021,000,000,000}, 0x2229, "intersection" }, {{000,021,021,021,021,016,000,000,000}, 0x222a, "union" }, {{002,005,004,004,004,004,004,024,010}, 0x222b, "integral" }, @@ -1239,8 +1244,10 @@ static struct glyph { {{000,021,000,000,000,004,000,000,000}, U(2235) }, /* because */ {{000,010,024,025,005,002,000,000,000}, U(223F) }, /* sinewave */ {{000,010,025,002,010,025,002,000,000}, 0x2248, "approxequal" }, + {{000,004,012,021,012,004,000,000,000}, U(224C) }, /* diamond operator */ {{000,002,037,004,037,010,000,000,000}, 0x2260, "notequal" }, {{000,037,000,037,000,037,000,000,000}, 0x2261, "equivalence" }, + {{002,037,004,037,004,037,010,000,000}, U(2262) }, /* not identical */ {{003,014,020,014,003,030,007,000,000}, 0x2264, "lessequal" }, {{030,006,001,006,030,003,034,000,000}, 0x2265, "greaterequal" }, {{000,017,020,020,020,017,000,000,000}, 0x2282, "propersubset" }, @@ -1253,16 +1260,54 @@ static struct glyph { {{000,037,025,037,025,037,000,000,000}, U(229E) }, /* squared plus */ {{000,037,021,037,021,037,000,000,000}, U(229F) }, /* squared minus (DLE) */ {{000,037,021,025,021,037,000,000,000}, U(22A1) }, /* squared dot */ + {{000,020,020,037,020,020,000,000,000}, U(22A2) }, /* right tack */ + {{000,001,001,037,001,001,000,000,000}, U(22A3) }, /* left tack */ + {{000,037,004,004,004,004,000,000,000}, U(22A4) }, /* down tack */ + {{000,004,004,004,004,037,000,000,000}, U(22A5) }, /* up tack */ {{000,004,000,004,000,004,000,000,000}, U(22EE) }, /* vertical ellipsis */ {{000,000,000,025,000,000,000,000,000}, U(22EF) }, /* midline ellipsis */ {{000,001,000,004,000,020,000,000,000}, U(22F0) }, /* /-diagonal ellipsis */ {{000,020,000,004,000,001,000,000,000}, U(22F1) }, /* \-diagonal ellipsis */ + {{017,020,020,037,020,020,017,000,037}, U(22F8) }, /* element of underbar */ /* Miscellaneous technical */ {{004,012,021,021,021,021,037,000,000}, 0x2302, "house" }, + {{016,010,010,010,010,010,010,010,010}, U(2308) }, /* APL upstile */ + {{010,010,010,010,010,010,010,010,016}, U(2309) }, /* APL downstile */ {{000,000,037,020,020,000,000,000,000}, 0x2310, "revlogicalnot" }, {{000,000,002,005,004,004,004,004,004}, 0x2320, "integraltp" }, {{004,004,004,004,004,024,010,000,000}, 0x2321, "integralbt" }, + {{000,037,004,004,004,037,000,000,000}, U(2336) }, /* APL I-beam */ + {{016,012,012,012,012,012,016,000,000}, U(2337) }, /* APL squish quad */ + {{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 */ + {{004,016,025,025,025,016,004,000,000}, U(233C) }, /* APL circle stile */ + {{000,001,032,004,013,020,000,000,000}, U(233F) }, /* APL slash bar */ + {{000,020,013,004,032,001,000,000,000}, U(2340) }, /* APL backslash bar */ + {{000,026,011,025,022,015,000,000,000}, U(2349) }, /* APL circle backslash */ + {{004,004,012,012,025,025,037,004,004}, U(234B) }, /* APL delta stile */ + {{004,016,025,025,016,004,037,000,000}, U(234E) }, /* APL down tack jot */ + {{004,004,037,025,025,012,012,004,004}, U(2352) }, /* APL del stile */ + {{037,004,016,025,025,016,004,000,000}, U(2355) }, /* APL up tack jot */ + {{000,016,021,033,025,021,000,000,000}, U(235D) }, /* APL up show jot */ + {{037,025,025,021,021,021,037,000,000}, U(235E) }, /* APL quote quad */ + {{016,021,033,025,033,021,016,000,000}, U(235F) }, /* APL circle star */ + {{037,021,025,021,025,021,037,000,000}, U(2360) }, /* APL quad colon */ + {{012,000,025,016,004,016,025,000,000}, U(2363) }, /* APL star dieresis */ + {{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 */ + {{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 */ + {{000,000,014,004,004,004,002,000,000}, U(2373) }, /* APL iota */ + {{000,000,016,021,021,021,036,020,020}, U(2374) }, /* APL rho */ + {{000,000,014,004,004,004,002,000,037}, U(2373) }, /* APL iota underbar */ + {{000,000,012,021,025,025,012,000,000}, U(2375) }, /* APL omega */ + {{017,020,037,020,017,000,037,000,000}, U(2377) }, /* APL epsilon underbar */ + {{000,000,012,021,025,025,012,000,037}, U(2379) }, /* APL omega underbar*/ + {{000,000,015,022,022,022,015,000,000}, U(237A) }, /* APL alpha */ {{000,000,005,002,025,010,000,000,000}, U(237B) }, /* crossed tick (NAK) */ {{000,000,000,000,000,033,016,000,000}, U(237D) }, /* nbsp symbol */ {{000,016,021,037,012,033,000,000,000}, U(237E) }, /* bell symbol (BEL) */ @@ -1270,6 +1315,7 @@ static struct glyph { {{000,016,012,012,012,033,000,000,000}, U(238D) }, /* monostable (SYN) */ {{000,007,012,012,012,034,000,000,000}, U(238E) }, /* hysteresis */ {{000,000,037,000,025,000,000,000,000}, U(2393) }, /* directcurrent */ + {{037,021,021,021,021,021,037,000,000}, U(2395) }, /* APL quad */ {{002,004,010,010,010,010,010,010,010}, U(239B) }, /* long parenleft top */ {{010,010,010,010,010,010,010,010,010}, U(239C) }, /* long parenleft middle */ {{010,010,010,010,010,004,002,000,000}, U(239D) }, /* long parenleft bottom */ @@ -1472,6 +1518,7 @@ static struct glyph { {{000,001,007,037,007,001,000,000,000}, 0x25c4, "triaglf" }, {{000,004,016,037,016,004,000,000,000}, U(25C6) }, /* black diamond shape */ {{000,004,012,021,012,004,000,000,000}, U(25C7) }, /* white diamond shape */ + {{004,012,012,021,012,012,004,000,000}, 0x25ca, "lozenge" }, {{000,016,021,021,021,016,000,000,000}, 0x25cb, "circle" }, {{000,004,021,000,021,004,000,000,000}, U(25CC) }, /* dottedcircle */ {{000,016,037,037,037,016,000,000,000}, 0x25cf, "H18533" }, -- 2.30.2