blob: be321060a15d6db5cf5ec6126e660e3321e18ec9 (
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
27
28
29
30
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include "gks.h"
# GSASF -- Set aspect source flags. Aspect source flags allow the following
# elements to be set to either GBUNDL or GINDIV:
# 1 linetype ASF
# 2 linewidth scale factor ASF
# 3 polyline colour index ASF
# 4 marker type ASF
# 5 marker size scale factor ASF
# 6 polymarker colout index ASF
# 7 text font and precision factor ASF
# 8 character expansion factor ASF
# 9 character spacing ASF
# 10 text colour index ASF
# 11 fill area interior style ASF
# 12 fill area style index ASF
# 13 fill area colout index ASF
procedure gsasf (lasf)
int lasf[13] # List of aspect source flags
int i
include "gks.com"
begin
do i = 1, NASF
gk_asf[i] = lasf[i]
end
|
