blob: 1364ad285e5933d25891e829f252a2701fff3ba0 (
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
32
33
34
35
36
37
38
39
40
41
42
43
44
|
C
C
C +-----------------------------------------------------------------+
C | |
C | Copyright (C) 1986 by UCAR |
C | University Corporation for Atmospheric Research |
C | All Rights Reserved |
C | |
C | NCARGRAPHICS Version 1.00 |
C | |
C +-----------------------------------------------------------------+
C
C
C ---------------------------------------------------------------------
C
SUBROUTINE AGCHCU (IFLG,KDSH)
C
C The routine AGCHCU is called by AGCURV just before and just after each
C curve is drawn. The default version does nothing. A user may supply
C a version to change the appearance of the curves. The arguments are
C as follows:
C
C - IFLG is zero if a curve is about to be drawn, non-zero if a curve
C has just been drawn.
C
C - KDSH is the last argument of AGCURV, as follows:
C
C AGCURV called by Value of KDSH
C ---------------- ----------------------------------------
C EZY 1
C EZXY 1
C EZMY "n" or "-n", where n is the curve number
C EZMXY "n" or "-n", where n is the curve number
C the user program the user value
C
C The sign of KDSH, when AGCURV is called by EZMY or EZMXY, indicates
C whether the "user" dash patterns or the "alphabetic" dash patterns
C were selected for use.
C
C Done.
C
RETURN
C
END
|
