blob: 461cab8da9d04f42d410b3d72c4994971faf5d50 (
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
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include <gset.h>
include "gks.h"
# GSFAIS -- Set fill area interior style. Integer variable "gk_style" is
# set and stored in "gks.com". Procedure GFA will use this value.
procedure gsfais (ints)
int ints # Fill area interior style
include "gks.com"
begin
switch (ints) {
case GHOLLO:
gk_style = GF_HOLLOW
case GSOLID:
gk_style = GF_SOLID
case GPATTR:
gk_style = GF_HATCH4
case GHATCH:
gk_style = GF_HATCH1
default:
gk_style = GF_HOLLOW
}
end
|
