blob: ea74e8c998e66ef791e77e39aed18771561da48c (
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
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
|
include <pkg/igsfit.h>
# IGS_SETS -- Set the values of string valued fitting parameters.
procedure igs_sets (param, str)
int param # Parameter to be set
char str[ARB] # String value
include "igsfit.com"
begin
switch (param) {
case IGS_FUNCTION:
call strcpy (str, function, SZ_LINE)
}
end
# IGS_SETI -- Set the values of integer valued fitting parameters.
procedure igs_seti (param, ival)
int param # Parameter to be set
int ival # Integer value
include "igsfit.com"
begin
switch (param) {
case IGS_XORDER:
xorder = ival
case IGS_YORDER:
yorder = ival
}
end
# IGS_SETR -- Set the values of real valued fitting parameters.
procedure igs_setr (param, rval)
int param # Parameter to be set
real rval # Real value
include "igsfit.com"
begin
switch (param) {
case IGS_XMIN:
xmin = rval
case IGS_XMAX:
xmax = rval
case IGS_YMIN:
ymin = rval
case IGS_YMAX:
ymax = rval
}
end
|
