1 files changed, 51 insertions, 0 deletions
diff --git a/tex/context/fonts/mkiv/type-imp-concrete.mkiv b/tex/context/fonts/mkiv/type-imp-concrete.mkiv
new file mode 100644
index 000000000..72b0141a5
--- /dev/null
+++ b/tex/context/fonts/mkiv/type-imp-concrete.mkiv
@@ -0,0 +1,51 @@
+%\loadtypescriptfile[texgyre]
+%\resetfontfallback  [concrete-euler-fix]
+%\definefontfallback[concrete-euler-fix][texgyrepagella-math] [0x022EE,0x022F0,0x022F1,0x02661,0x02220][force=yes]
+
+
+\starttypescriptcollection[concrete]
+
+    %\definefontfeature[default-slanted-concrete][default][slant=.2]
+    %\definefontfeature[none-slanted-concrete]   [none]   [slant=.2]
+
+    \starttypescript [\s!serif] [concrete-serif]
+        \definefontsynonym [\s!Serif]           [\s!file:cmunorm]   [\s!features=\s!default]
+        \definefontsynonym [\s!SerifItalic]     [\s!file:cmunoti]   [\s!features=\s!default]
+        \definefontsynonym [\s!SerifSlanted]    [\s!file:cmunorm]   [\s!features=default-slanted-concrete]
+        \definefontsynonym [\s!SerifBold]       [\s!file:cmunobx]   [\s!features=\s!default]
+        \definefontsynonym [\s!SerifBoldItalic] [\s!file:cmunobi]   [\s!features=\s!default]
+        \definefontsynonym [\s!SerifBoldSlanted][\s!file:cmunobx]   [\s!features=default-slanted-concrete]
+    \stoptypescript
+
+    \starttypescript [\s!sans] [concrete-sans]
+        \definefontsynonym [\s!Sans]            [\s!file:cmunss]    [\s!features=\s!default]
+        \definefontsynonym [\s!SansItalic]      [\s!file:cmunsi]    [\s!features=\s!default]
+        \definefontsynonym [\s!SansSlanted]     [\s!file:cmunss]    [\s!features=default-slanted-concrete]
+        \definefontsynonym [\s!SansBold]        [\s!file:cmunsx]    [\s!features=\s!default]
+        \definefontsynonym [\s!SansBoldItalic]  [\s!file:cmunso]    [\s!features=\s!default]
+        \definefontsynonym [\s!SansBoldSlanted] [\s!file:cmunsx]    [\s!features=default-slanted-concrete]
+    \stoptypescript
+
+    \starttypescript [\s!mono] [concrete-mono]
+        \definefontsynonym [\s!Mono]            [\s!file:cmuntt]    [\s!features=\s!none]
+        \definefontsynonym [\s!MonoItalic]      [\s!file:cmunit]    [\s!features=\s!none]
+        \definefontsynonym [\s!MonoSlanted]     [\s!file:cmunst]    [\s!features=\s!none]
+        \definefontsynonym [\s!MonoBold]        [\s!file:cmuntb]    [\s!features=\s!none]
+        \definefontsynonym [\s!MonoBoldItalic]  [\s!file:cmuntx]    [\s!features=\s!none]
+        \definefontsynonym [\s!MonoBoldSlanted] [\s!file:cmuntb]    [\s!features=none-slanted-concrete]
+    \stoptypescript
+
+    \starttypescript [\s!math] [concrete-math] [\s!name]
+        \loadfontgoodies[concrete-math]
+        \definefontsynonym[\s!MathRoman] [\s!file:Concrete-Math.otf] [\s!features=\s!math\mathsizesuffix,\s!goodies=concrete-math]    
+    \stoptypescript
+
+    \starttypescript [concrete]
+        \definetypeface [concrete] [\s!rm] [\s!serif] [concrete-serif] [\s!default]
+        \definetypeface [concrete] [\s!ss] [\s!sans]  [concrete-sans] [\s!default]
+        \definetypeface [concrete] [\s!tt] [\s!mono]  [concrete-mono] [\s!default]
+        \definetypeface [concrete] [\s!mm] [\s!math]  [concrete-math] [\s!default]
+        \quittypescriptscanning
+    \stoptypescript
+
+\stoptypescriptcollection