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
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include "ccp.h"
# Calcomp pen widths
define SINGLE 1 # ***** site dependence!! [MACHDEP]
define DOUBLE 2 #
# CCP_LWIDTH set pen width; see ccp_color, which also sets pens.
# We should only be called if task param "lwtype" was explicitly set to
# "p" for pen method; normally bold lines are handled by ntracing.
procedure ccp_lwidth (index)
int index # index for width switch statement
include "ccp.com"
begin
if (g_lwover) # CL param lwover, line width override is on; noop
return
# ***** site dependence; add other pen numbers here; if pen numbers
# for multiple widths are monotonic, make single call to newpen(index).
switch (index) {
case DOUBLE:
call newpen (DOUBLE)
default:
call newpen (SINGLE)
}
end
|
