/usr/lib/open-axiom/input/knot2.input is in open-axiom-test 1.4.1+svn~2626-2ubuntu2.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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 | )cl all
-- see how long this all takes
)set messages time on
-- this is the color function, nothing elaborate for now
f(x:SF):SF == x
--------------------------------------------------------------
-- Creation of the knot!!! --
-- only p/q is really used, but p and q correspond to --
-- the factors in the notes deriving these knotty things --
-- see the notes for detail...too involved to explain here --
--------------------------------------------------------------
[p,q] := [3,5]
PQ := p/q
l := lcm(p, q) quo p
maxRange := (odd? l => l * %pi::SF; 2 * l * %pi::SF)
theRange := 0..maxRange
-- create the knot
knot := tubePlot(sin t * cos(PQ*t),cos t * cos(PQ*t),cos t * sin(PQ*t),
f, theRange, 0.1::SF, 6, "open" )
-- make a viewport out of it
makeViewport3D(knot, concat ["knot", string p,string q])$VIEW3D
|