blob: 172af23165638e1fdeefa26b755229508e361a5c (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
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
|
