summaryrefslogtreecommitdiff
path: root/tmac
diff options
context:
space:
mode:
Diffstat (limited to 'tmac')
-rw-r--r--tmac/Makefile.sub1
-rw-r--r--tmac/X.tmac1
-rw-r--r--tmac/Xps.tmac6
-rw-r--r--tmac/dvi.tmac2
-rw-r--r--tmac/europs.tmac38
-rw-r--r--tmac/lj4.tmac2
-rw-r--r--tmac/ps.tmac2
7 files changed, 49 insertions, 3 deletions
diff --git a/tmac/Makefile.sub b/tmac/Makefile.sub
index 4bdea45e..0fd06938 100644
--- a/tmac/Makefile.sub
+++ b/tmac/Makefile.sub
@@ -23,6 +23,7 @@ NORMALFILES=\
lj4.tmac \
lbp.tmac \
html.tmac www.tmac \
+ europs.tmac \
eqnrc \
troffrc troffrc-end \
hyphen.us
diff --git a/tmac/X.tmac b/tmac/X.tmac
index 8d133904..c91aa5f3 100644
--- a/tmac/X.tmac
+++ b/tmac/X.tmac
@@ -48,6 +48,7 @@
.fchar \[ij] ij
.fchar \[fo] <
.fchar \[fc] >
+.fchar \[OK] \s[\En[.s]*6u/10u]\[rs]\s[0]/
.
.de X-achar
. \" Note that character definitions are always interpreted with
diff --git a/tmac/Xps.tmac b/tmac/Xps.tmac
index 61493668..e81bd5f4 100644
--- a/tmac/Xps.tmac
+++ b/tmac/Xps.tmac
@@ -35,7 +35,7 @@
.Xps-char \[.i] i
.Xps-char \[fo] <
.Xps-char \[fc] >
-.Xps-char \[OK] \s[\En[.s]*6u/10u]\e\s[0]/
+.Xps-char \[OK] \s[\En[.s]*6u/10u]\[rs]\s[0]/
.Xps-char \[tm] \v'-.3m'\s[\En[.s]*6u/10u]TM\s[0]
.Xps-char \[dd] "\Z'\h'.25m'\v'.15m'\D'l 0 -.8m'\v'.2m'\h'-.195m'\
\D'l .39m 0'\v'.4m'\D'l -.39m 0''"
@@ -43,8 +43,8 @@
\D'l .39m 0''"
.Xps-char \[en] \-
.Xps-char \[%0] %\s[\En[.s]*6u/10u]\f[I]0
-.Xps-char \[lh] \[->]
-.Xps-char \[rh] \[<-]
+.Xps-char \[lh] \[lA]
+.Xps-char \[rh] \[rA]
.
.cp \n[_C]
.
diff --git a/tmac/dvi.tmac b/tmac/dvi.tmac
index a7cc66c1..0d216395 100644
--- a/tmac/dvi.tmac
+++ b/tmac/dvi.tmac
@@ -90,6 +90,8 @@ D\v'-.33m'\s0\v'.33m'
.fchar \[hy] -
.fschar CW \[va] \o'\[ua]\[da]'
.fschar CWI \[va] \o'\[ua]\[da]'
+.fchar \[lh] \[lA]
+.fchar \[rh] \[rA]
.
.\" Define some fractions.
.de dvi-frac
diff --git a/tmac/europs.tmac b/tmac/europs.tmac
new file mode 100644
index 00000000..2d17668c
--- /dev/null
+++ b/tmac/europs.tmac
@@ -0,0 +1,38 @@
+.\" europs.tmac
+.
+.do char \[eu] \f[EURO]\N'0'
+.
+.do fschar AB \[Eu] \f[EURO]\N'7'
+.do fschar ABI \[Eu] \f[EURO]\N'9'
+.do fschar AI \[Eu] \f[EURO]\N'8'
+.do fschar AR \[Eu] \f[EURO]\N'6'
+.do fschar BMB \[Eu] \f[EURO]\N'3'
+.do fschar BMBI \[Eu] \f[EURO]\N'5'
+.do fschar BMI \[Eu] \f[EURO]\N'4'
+.do fschar BMR \[Eu] \f[EURO]\N'2'
+.do fschar CB \[Eu] \f[EURO]\N'11'
+.do fschar CBI \[Eu] \f[EURO]\N'13'
+.do fschar CI \[Eu] \f[EURO]\N'12'
+.do fschar CR \[Eu] \f[EURO]\N'10'
+.do fschar HB \[Eu] \f[EURO]\N'7'
+.do fschar HBI \[Eu] \f[EURO]\N'9'
+.do fschar HI \[Eu] \f[EURO]\N'8'
+.do fschar HR \[Eu] \f[EURO]\N'6'
+.do fschar HNB \[Eu] \f[EURO]\N'7'
+.do fschar HNBI \[Eu] \f[EURO]\N'9'
+.do fschar HNI \[Eu] \f[EURO]\N'8'
+.do fschar HNR \[Eu] \f[EURO]\N'6'
+.do fschar NB \[Eu] \f[EURO]\N'3'
+.do fschar NBI \[Eu] \f[EURO]\N'5'
+.do fschar NI \[Eu] \f[EURO]\N'4'
+.do fschar NR \[Eu] \f[EURO]\N'2'
+.do fschar PB \[Eu] \f[EURO]\N'3'
+.do fschar PBI \[Eu] \f[EURO]\N'5'
+.do fschar PI \[Eu] \f[EURO]\N'4'
+.do fschar PR \[Eu] \f[EURO]\N'2'
+.do fschar TB \[Eu] \f[EURO]\N'3'
+.do fschar TBI \[Eu] \f[EURO]\N'5'
+.do fschar TI \[Eu] \f[EURO]\N'4'
+.do fschar TR \[Eu] \f[EURO]\N'2'
+.
+.\" EOF
diff --git a/tmac/lj4.tmac b/tmac/lj4.tmac
index 31e2f9ea..3d12f1ca 100644
--- a/tmac/lj4.tmac
+++ b/tmac/lj4.tmac
@@ -21,6 +21,8 @@
.
.char \[ru] \Z'\v'-.02m'\D'R .54m .04m''\h'.5m'
.
+.fchar \[OK] \s[\En[.s]*6u/10u]\[rs]\s[0]/
+.
.cp \n[_C]
.
.do mso latin1.tmac
diff --git a/tmac/ps.tmac b/tmac/ps.tmac
index 59e80390..02b34eee 100644
--- a/tmac/ps.tmac
+++ b/tmac/ps.tmac
@@ -633,4 +633,6 @@
.el \
. do mso cp1047.tmac
.
+.do mso europs.tmac
+.
.\" make sure that no blank lines creep in at the end of this file.