From 98cab31fc3659e33aef260efca55bf9f1753164c Mon Sep 17 00:00:00 2001 From: Lars-Dominik Braun Date: Mon, 11 Feb 2019 11:49:19 +0100 Subject: Add source files from Michael --- system/std.zusatz/1.7.3/src/minimal fonts routines | 9 +++++++++ 1 file changed, 9 insertions(+) create mode 100644 system/std.zusatz/1.7.3/src/minimal fonts routines (limited to 'system/std.zusatz/1.7.3/src/minimal fonts routines') diff --git a/system/std.zusatz/1.7.3/src/minimal fonts routines b/system/std.zusatz/1.7.3/src/minimal fonts routines new file mode 100644 index 0000000..adcfc66 --- /dev/null +++ b/system/std.zusatz/1.7.3/src/minimal fonts routines @@ -0,0 +1,9 @@ +PACKET minimal fonts routines DEFINES lf height of current font, + x factor per inch, + y factor per inch: + +REAL CONST lf height of current font :: 2.54 / 6.0; +INT CONST x factor per inch :: 10, + y factor per inch :: 6; + +END PACKET minimal fonts routines; -- cgit v1.2.3