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
|
# MKEXAMPLES -- Make ARTDATA examples.
# The example script files use variable s1 to pass the image name,
# variable s2 to pass the image header file, variable i to pass an object
# seed, variable j to pass a noise seed, and variable b1 to pass the comment
# flag.
procedure mkexamples (name, image)
string name {prompt="Example name"}
string image {prompt="Image name"}
int oseed=1 {prompt="Object seed"}
int nseed=1 {prompt="Noise seed"}
bool comments=no {prompt="Add comments to image?"}
bool verbose=yes {prompt="Print operation?"}
bool errors=yes {prompt="Report errors?"}
bool list=no {prompt="List example script file only?"}
begin
string name1, name2, example
# Get and check parameters.
if ($nargs < 1 && mode != "h") {
name1 = "mkexamples"
name2 = ""
while (name1 != name2) {
example = "mkexamples$" // name1 // ".men"
if (!access (example))
break
type (example)
name2 = name1
name1 = name
}
if (name1 == name2)
return
} else
name1 = name
example = "mkexamples$" // name1 // ".cl"
if (!access (example)) {
if (errors)
error (2, "Unknown example " // name1)
return
}
# Make or list the example.
if (list)
page (example)
else {
s1 = image
s2 = "artdata$stdheader.dat"
i = oseed
j = nseed
b1 = comments
if (s1 == "" || name1 == "")
return
if ((access (s1) || access (s1//"."//envget("imtype")))) {
if (errors)
error (1, "Image " // s1 // " already exists")
return
}
if (verbose)
print ("Creating example ", name1, " in image ", s1, " ...")
cl (< example)
}
end
|
