silent=t
Draw=f
if \rr99 < 33 then "frame \ri[0/23]"
if \rr99 < 80 then "torus \rr99 \rr99 \rr99" else "unknot \ri[3/30] \rr[1/10]"
about z \rr360
if \rr1 < .5 then "refl x"
if \rr1 < .5 then "refl y"
if \rr1 < .5 then "refl z"
if \rr99 < 15 then "reflect r"
if \rr99 < 1 then "read thing1-multi"
if \rr99 < 40 then "clrfun zf;disp t;clrfun z"
Draw=t
tfunc \rr[20/80] "read thing1-aux" 1
