reset all
verbose=f
ncur = 3
nseg = 10
cyl = \rr[.4/.5]
hstart = 22
satu = .7
mode s
mathsv s 22 1 .3 e


scale=.27
drop all 52 35 -20

drop ca black
drop cb black
drop cc #216
drop cd #216


load Monster.k


txt init
txt colour white
txt font 4
txt centre
txt space _  % unfortunate hack
txt c -30 "Guess the Knot Type!"
if \ppar1 < 5 then "txt c -55 Unknot_or_Trefoil?" else "txt c -55 Trefoil_or_Unknot?"

txt on

txt centre
txt fill off
txt font 4
txt c -100 "Unknown 1"
txt font 3
txt c 100 "click the button below for the answer, but first compare it to Unknown2"

txt on

txt centre
txt fill off
txt font 4

txt on

silent = true

Draw = false

popview = false
disp limit 66
load MonsterMovie.k
disp limit -1  % not really needed

disp t

ncur = 3
nbead 20
power=2
coll a
Draw = t
ago 200

silent = false

txt centre
txt fill off
txt font 4
txt c -100 "It's an unknot!"
txt on

