1 files changed, 26 insertions, 0 deletions
diff --git a/sys/gio/gks/gschh.x b/sys/gio/gks/gschh.x
new file mode 100644
index 00000000..172af231
--- /dev/null
+++ b/sys/gio/gks/gschh.x
@@ -0,0 +1,26 @@
+# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
+
+include	<gset.h>
+include	"gks.h"
+
+# GSCHH -- Set character height.
+
+procedure gschh (chh)
+
+real	chh		# Character height in world coordinates
+
+real	dx, dy, ndc_chh
+include	"gks.com"
+
+begin
+	# Input chh is in world coordinates; it must be transformed to NDC.
+	# Assuming spatial transformation is linear, input coordinates to
+	# ggscale are not used and so are set to 0.0.
+
+	call ggscale (gp[gk_std], 0.0, 0.0, dx, dy)
+	if (dy != 0) {
+	    ndc_chh = chh / dy
+	    call gsawr (G_CHARSIZE, ndc_chh)
+	} else
+	    call gsawr (G_CHARSIZE, chh)
+end