blob: cf87e4f2ea6af729a71774b96fa484b6b12b2bb3 (
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
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include <gset.h>
include "gks.h"
# GSTXP -- Set text path.
procedure gstxp (txp)
int txp # Text path to be set
begin
switch (txp) {
case GRIGHT:
call gsawi (G_TXPATH, GT_RIGHT)
case GLEFT:
call gsawi (G_TXPATH, GT_LEFT)
case GUP:
call gsawi (G_TXPATH, GT_UP)
case GDOWN:
call gsawi (G_TXPATH, GT_DOWN)
default:
call gsawi (G_TXPATH, GT_RIGHT)
}
end
|
