blob: 0e90fbe762efb9b351befae3414d72963c2bf34b (
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
31
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include <gset.h>
include "gks.h"
# GQMK -- Query marker type. Integer variable "marker" is read from
# "gks.com" and returned.
procedure gqmk (ierr, mtype)
int ierr # Error indicator - no way it can be set
int mtype # Marker type for polymarker
include "gks.com"
begin
ierr = 0
switch (gk_marker) {
case GM_POINT:
mtype = GPOINT
case GM_PLUS:
mtype = GPLUS
case GM_BOX:
mtype = GAST
case GM_DIAMOND:
mtype = GOMARK
case GM_CROSS:
mtype = GXMARK
default:
mtype = GPOINT
}
end
|
