symb-imp-was.mkiv /size: 9710 b    last modification: 2021-10-28 13:50
1%D \module
2%D   [       file=symb-was,
3%D        version=2005.10.15,
4%D          title=\CONTEXT\ Symbol Libraries,
5%D       subtitle=Roland Waldi's Symbols (wasy-2),
6%D         author=Henning Hraban Ramm,
7%D           date=\currentdate,
8%D      copyright={Public Domain}]
9%C
10%C This module is in the public domain.
11
12%D Converted to \MKIV\ by Hans but not yet complete.
13
14\unprotect
15
16\definefontsynonym [WaldiSymbol]     [wasy10]
17\definefontsynonym [WaldiSymbolBold] [wasyb10]
18
19% \def\wasy@over#1#2{{\setbox0\hbox{$#2$}\hbox to \wd0{\hss$#1$\hss}\kern-\wd0\box0}}
20
21\def\WaldiSymbol  {\getnamedglyphdirect{WaldiSymbol}} % #1
22\def\WaldiSymbol#1{\getglyph{WaldiSymbol}{\fontchar{#1}}}
23
24% general symbols
25
26\startsymbolset [wasy general]
27    \definesymbol [male]        [\WaldiSymbol{male}]
28    \definesymbol [female]      [\WaldiSymbol{female}]
29    \definesymbol [currency]    [\WaldiSymbol{currency}]
30    \definesymbol [cent]        [\WaldiSymbol{cent}]
31    \definesymbol [lozenge]     [\WaldiSymbol{lozenge}]
32    \definesymbol [kreuz]       [\WaldiSymbol{kreuz}]
33    \definesymbol [smiley]      [\WaldiSymbol{smiley}]
34    \definesymbol [blacksmiley] [\WaldiSymbol{blacksmil}]
35    \definesymbol [frownie]     [\WaldiSymbol{frownie}]
36    \definesymbol [sun]         [\WaldiSymbol{sun}]
37    \definesymbol [checked]     [\WaldiSymbol{checked}]
38    \definesymbol [brokenvert]  [\WaldiSymbol{brokenver}]
39    \definesymbol [diameter]    [\WaldiSymbol{diameter}]
40    \definesymbol [invdiameter] [\WaldiSymbol{invdiamet}]
41    \definesymbol [phone]       [\WaldiSymbol{phone}]
42    \definesymbol [recorder]    [\WaldiSymbol{recorder}]
43    \definesymbol [clock]       [\WaldiSymbol{clock}]
44    \definesymbol [permil]      [\WaldiSymbol{permil}]
45    \definesymbol [bell]        [\WaldiSymbol{bell}]
46    \definesymbol [ataribox]    [\WaldiSymbol{ataribox}]
47    \definesymbol [pointer]     [\WaldiSymbol{pointer}]
48    \definesymbol [lightning]   [\WaldiSymbol{lightning}]
49    \definesymbol [agemO]       [\WaldiSymbol{agemO}]
50\stopsymbolset
51
52\startsymbolset [wasy music]
53    \definesymbol [eighthnote]  [\WaldiSymbol{eighthnote}]
54    \definesymbol [quarternote] [\WaldiSymbol{quarternote}]
55    \definesymbol [halfnote]    [\WaldiSymbol{halfnote}]
56    \definesymbol [fullnote]    [\WaldiSymbol{fullnote}]
57    \definesymbol [twonotes]    [\WaldiSymbol{twonotes}]
58\stopsymbolset
59
60\startsymbolset [wasy astronomy]
61    \definesymbol [ascnode]     [\WaldiSymbol{ascnode}]
62    \definesymbol [descnode]    [\WaldiSymbol{descnode}]
63    \definesymbol [astrosun]    [\WaldiSymbol{astrosun}]
64    \definesymbol [sun]         [\WaldiSymbol{sun}]
65    \definesymbol [newmoon]     [\WaldiSymbol{newmoon}]
66    \definesymbol [fullmoon]    [\WaldiSymbol{fullmoon}]
67    \definesymbol [rightmoon]   [\WaldiSymbol{rightmoon}]
68    \definesymbol [leftmoon]    [\WaldiSymbol{leftmoon}]
69    \definesymbol [vernal]      [\WaldiSymbol{vernal}]
70    \definesymbol [mercury]     [\WaldiSymbol{mercury}]
71    \definesymbol [mars]        [\WaldiSymbol{mars}]
72    \definesymbol [saturn]      [\WaldiSymbol{saturn}]
73    \definesymbol [neptune]     [\WaldiSymbol{neptune}]
74    \definesymbol [earth]       [\WaldiSymbol{earth}]
75    \definesymbol [venus]       [\WaldiSymbol{venus}]
76    \definesymbol [jupiter]     [\WaldiSymbol{jupiter}]
77    \definesymbol [uranus]      [\WaldiSymbol{uranus}]
78    \definesymbol [pluto]       [\WaldiSymbol{pluto}]
79\stopsymbolset
80
81\startsymbolset [wasy astrology]
82    \definesymbol [conjunction] [\WaldiSymbol{conjunction}]
83    \definesymbol [opposition]  [\WaldiSymbol{opposition}]
84    \definesymbol [aries]       [\WaldiSymbol{aries}]
85    \definesymbol [libra]       [\WaldiSymbol{libra}]
86    \definesymbol [taurus]      [\WaldiSymbol{taurus}]
87    \definesymbol [scorpio]     [\WaldiSymbol{scorpio}]
88    \definesymbol [gemini]      [\WaldiSymbol{gemini}]
89    \definesymbol [sagittarius] [\WaldiSymbol{sagittarius}]
90    \definesymbol [cancer]      [\WaldiSymbol{cancer}]
91    \definesymbol [capricornus] [\WaldiSymbol{capricornus}]
92    \definesymbol [leo]         [\WaldiSymbol{leo}]
93    \definesymbol [aquarius]    [\WaldiSymbol{aquarius}]
94    \definesymbol [virgo]       [\WaldiSymbol{virgo}]
95    \definesymbol [pisces]      [\WaldiSymbol{pisces}]
96\stopsymbolset
97
98\startsymbolset [wasy geometry]
99    \definesymbol [fivestar]    [\WaldiSymbol{fivestar}] % HHR additional
100    \definesymbol [hexstar]     [\WaldiSymbol{hexstar}]
101    \definesymbol [varhexstar]  [\WaldiSymbol{varhexstar}]
102    \definesymbol [davidsstar]  [\WaldiSymbol{davidsstar}]
103    \definesymbol [Circle]      [\WaldiSymbol{Circle}]
104    \definesymbol [CIRCLE]      [\WaldiSymbol{CIRCLE}]
105    \definesymbol [Leftcircle]  [\WaldiSymbol{Leftcircle}]
106    \definesymbol [LEFTCIRCLE]  [\WaldiSymbol{LEFTCIRCLE}]
107    \definesymbol [Rightcircle] [\WaldiSymbol{Rightcircle}]
108    \definesymbol [RIGHTCIRCLE] [\WaldiSymbol{RIGHTCIRCLE}]
109%   \definesymbol [LEFTcircle]  [\dontleavehmode\hbox to \zeropoint{\WaldiSymbol {LEFTCIRCLE}\hss}\WaldiSymbol{Circle}]
110%   \definesymbol [RIGHTcircle] [\dontleavehmode\hbox to \zeropoint{\WaldiSymbol{RIGHTCIRCLE}\hss}\WaldiSymbol{Circle}]
111    \definesymbol [LEFTarrow]   [\WaldiSymbol{LEFTarrow}]
112    \definesymbol [RIGHTarrow]  [\WaldiSymbol{RIGHTarrow}]
113    \definesymbol [UParrow]     [\WaldiSymbol{UParrow}]
114    \definesymbol [DOWNarrow]   [\WaldiSymbol{DOWNarrow}]
115    \definesymbol [Box]         [\WaldiSymbol{Box}]
116    \definesymbol [APLbox]      [\WaldiSymbol{APLbox}]
117    \definesymbol [XBox]        [\WaldiSymbol{XBox}]
118    \definesymbol [Bowtie]      [\WaldiSymbol{Bowtie}]
119    \definesymbol [Diamond]     [\WaldiSymbol{Diamond}]
120    \definesymbol [octagon]     [\WaldiSymbol{octagon}]
121    \definesymbol [hexagon]     [\WaldiSymbol{hexagon}]
122    \definesymbol [varhexagon]  [\WaldiSymbol{varhexagon}]
123    \definesymbol [pentagon]    [\WaldiSymbol{pentagon}]
124%   \definesymbol [pentastar]   [\dontleavehmode\hbox to \zeropoint{\WaldiSymbol{pentagon}\hss}\lower.04em\hbox{\WaldiSymbol{fivestar}}]
125\stopsymbolset
126
127% \startsymbolset [wasy physics]
128%     \definesymbol [varangle]    [\WaldiSymbol{30}]
129%     \definesymbol [invneg]      [\WaldiSymbol{24}]
130%     \definesymbol [leftturn]    [\WaldiSymbol{34}]
131%     \definesymbol [rightturn]   [\WaldiSymbol{33}]
132%     \definesymbol [diameter]    [\WaldiSymbol{31}]
133%     \definesymbol [invdiameter] [\WaldiSymbol{21}] % additional
134%     \definesymbol [therefore]   [\WaldiSymbol {5}]
135%     \definesymbol [AC]          [\mbox{\kern.05em\WaldiSymbol{58}\kern.05em}]
136%     \definesymbol [HF]          [\dontleavehmode
137%                                  \lower.09em\hbox to \zeropoint{\kern.05em\WaldiSymbol{58}\hss}%
138%                                  \raise.09em\hbox{\kern.05em\WaldiSymbol{58}\kern.05em}]
139%     \definesymbol [VHF]         [\WaldiSymbol{64}]
140%     \definesymbol [photon]      [\hbox{\WaldiSymbol{58}\WaldiSymbol{58}\WaldiSymbol{58}\WaldiSymbol{58}}]
141%     \definesymbol [gluon]       [\hbox{\WaldiSymbol{80}\WaldiSymbol{80}\WaldiSymbol{80}\WaldiSymbol{80}\WaldiSymbol{80}\WaldiSymbol{80}}]
142% \stopsymbolset
143
144% \startsymbolset [wasy apl]
145%     \definesymbol [APLup]           [\WaldiSymbol{0}]
146%     \definesymbol [APLdown]         [\WaldiSymbol{70}]
147%     \definesymbol [APLbox]          [\WaldiSymbol{126}]
148%     \definesymbol [APLinv]          [\dontleavehmode\hbox to \zeropoint{$\div$\hss}\WaldiSymbol{126}]
149%     \definesymbol [APLleftarrowbox] [\WaldiSymbol{112}]
150%     \definesymbol [APLrightarrowbox][\WaldiSymbol{113}]
151%     \definesymbol [APLuparrowbox]   [\WaldiSymbol{110}]
152%     \definesymbol [APLdownarrowbox] [\WaldiSymbol{111}]
153%     \definesymbol [APLinput]        [\WaldiSymbol{125}]
154%     \definesymbol [APLminus]        [\dontleavehmode\raise.7ex\hbox{$-$}]
155%     \definesymbol [APLlog]          [\WaldiSymbol{22}]
156%     \definesymbol [APLstar]         [\WaldiSymbol{69}]
157%     \definesymbol [APLcomment]      [\WaldiSymbol{127}]
158%   % \definesymbol [notslash]        [\wasy@over{/}{-}]
159%   % \definesymbol [notbackslash]    [\wasy@over{\backslash}{-}]
160%   % %
161%   % %definesymbol [APLvert]         [\WaldiSymbol{}]
162%   % %definesymbol [APLnot]          [\WaldiSymbol{}]
163%   % %definesymbol [APLcirc]         [\WaldiSymbol{}]
164%   % %
165%   % % HH: messy, best define all combinations (todo)
166%   % %
167%   % \def\APLnot #1{\wasy@over{\sim }{#1}}
168%   % \def\APLcirc#1{\wasy@over{\circ}{#1}}
169%   % \def\APLvert#1{\wasy@over{\vert}{#1}}
170%   % %
171% \stopsymbolset
172
173\protect
174
175\continueifinputfile{symb-imp-was.mkiv}
176
177\usemodule[article-basic]
178
179\starttext
180
181\starttitle[title=Regular]
182
183    \startsubject[title={wasy general}]   \showsymbolset[wasy general]   \stopsubject
184    \startsubject[title={wasy music}]     \showsymbolset[wasy music]     \stopsubject
185    \startsubject[title={wasy astronomy}] \showsymbolset[wasy astronomy] \stopsubject
186    \startsubject[title={wasy astrology}] \showsymbolset[wasy astrology] \stopsubject
187    \startsubject[title={wasy geometry}]  \showsymbolset[wasy geometry]  \stopsubject
188
189\stoptitle
190
191\starttitle[title=Bold]
192
193    \startsubject[title={wasy general}]   \start \bf \showsymbolset[wasy general]   \stop \stopsubject
194    \startsubject[title={wasy music}]     \start \bf \showsymbolset[wasy music]     \stop \stopsubject
195    \startsubject[title={wasy astronomy}] \start \bf \showsymbolset[wasy astronomy] \stop \stopsubject
196    \startsubject[title={wasy astrology}] \start \bf \showsymbolset[wasy astrology] \stop \stopsubject
197    \startsubject[title={wasy geometry}]  \start \bf \showsymbolset[wasy geometry]  \stop \stopsubject
198
199\stoptitle
200
201
202% \startsubject[title={wasy physics}]   \showsymbolset[wasy physics]   \stopsubject
203% \startsubject[title={wasy apl}]       \showsymbolset[wasy apl]       \stopsubject
204
205\stoptext
206
207