mirror/bedstead
1
0
Fork 1
mirror of https://bjh21.me.uk/bedstead/.git synced 2026-07-11 06:23:09 -04:00
Code Issues Packages Projects Releases Wiki Activity

Reasonably complete attempt at an APL character set

Browse Source
This commit is contained in:
Ben Harris 2020-05-14 23:24:47 +01:00
parent a777d5117f
commit 24e2d0e091
1 changed files with 49 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

51
bedstead.c
View File

@ -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" },