Download Schilder, F. (2004). Torcont v1 (2003) user manual.

At first, we read in all solutions given in a list (nums). The for-loop creates a set of
plot-structures.
> nums:=[-($ -7..-0), $8..24]:
an:=NULL:
for i from 1 by 1 to nops(nums) do
printf("reading graph %d\n", nums[i]);
data:=read_torus_data("lang", 1, nums[i]):
data:=select_torus_coords(data, 3,4,5):
an:=an, surfdata({data}):
od:
reading
reading
reading
reading
reading
reading
reading
reading
reading
reading
reading
reading
reading
reading
reading
reading
reading
reading
reading
reading
reading
reading
reading
reading
reading
graph
graph
graph
graph
graph
graph
graph
graph
graph
graph
graph
graph
graph
graph
graph
graph
graph
graph
graph
graph
graph
graph
graph
graph
graph
7
6
5
4
3
2
1
0
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Then, we display the tori together in a plot with the option insequence=true, which creates an
animation. Select the plot and start the animation with the buttons in the toolbar.
> display([an], insequence=true);