blob: 41a7b05df205b373200bde0535277959d052b890 (
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
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include <gset.h>
include "gks.h"
# GSMK -- Set marker type. Integer variable "marker" is set and
# stored in "gks.com". Procedure gpm uses this value.
procedure gsmk (mtype)
int mtype # Marker type for polymarker
include "gks.com"
begin
switch (mtype) {
case GPOINT:
gk_marker = GM_POINT
case GPLUS:
gk_marker = GM_PLUS
case GAST:
gk_marker = GM_BOX
case GOMARK:
gk_marker = GM_DIAMOND
case GXMARK:
gk_marker = GM_CROSS
default:
gk_marker = GM_POINT
}
end
|
