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
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
|
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 AGDASH (DASH,WODQ,WOCD,SCWP)
C
C AGDASH sets up the DASHD call required to establish the dash pattern
C desired for the next curve. The arguments are as follows:
C
C -- DASH specifies the desired dash pattern. A positive value implies
C that a binary dash pattern is to be used, a negative value that a
C character-string dash pattern is to be used.
C
C -- WODQ is the width of the solid-line segment specified by a dollar
C sign and the gap specified by a quote, expressed as a fraction of
C the smaller side of the curve window.
C
C -- WOCD is the width of a character which is to be a part of the dash
C pattern, expressed in the same units as WODQ.
C
C -- SCWP is the length of the smaller side of the curve window, in
C plotter coordinate units.
C
C The following common block contains other AUTOGRAPH variables, both
C real and integer, which are not control parameters. The only ones
C used here are MWCD and MWDQ - the minimum widths of characters and
C spaces, respectively, in the dash pattern.
C
COMMON /AGORIP/ SMRL , ISLD , MWCL,MWCM,MWCE,MDLA,MWCD,MWDQ ,
+ INIF
C
C The following common block contains other AUTOGRAPH variables, of type
C character.
C
COMMON /AGOCHP/ CHS1,CHS2
C
c+noao
c CHARACTER*504 CHS1,CHS2
CHARACTER*500 CHS1,CHS2
c-noao
C
C The AUTOGRAPH function AGFPBN is of type integer.
C
INTEGER AGFPBN
C
IWCD=MAX0(MWCD,IFIX(WOCD*SCWP))
IWDQ=MAX0(MWDQ,IFIX(WODQ*SCWP))
C
IF (DASH.GE.0.) THEN
CALL DASHDB (AGFPBN(DASH))
ELSE
CALL AGGTCH (IFIX(DASH),CHS1,LNC1)
CALL DASHDC (CHS1(1:LNC1),IWDQ,IWCD)
END IF
C
RETURN
C
END
|
