reset all
load smallmonster
panel off 
pop
Draw=f
scale=.813
trx=.9
try=-.2
spe vwts

string 0 -4 -2   3 6 "This relaxation is"
string 1 -4 -2.3 3 6 "different each time it runs."
string 2 -4 -2.8 3 6 "Sometimes it works better"
string 3 -4 -3.1 3 6 "than at other times."
string 4 -4 -3.6 3 6 "Try running more than once."
Draw=t
disp

nap 3
string
string 0 -4 -3.1  3 6 "Trying to delete beads"
string 1 -4 -3.4 3 6 "randomly until down to 15."

del downto 15

string
string 0 -4 -3.1   3 6 "Now try relaxing the"
string 1 -4 -3.4   3 6 "knot 300 iteration steps."

silent=t
frame comm "go 10; string 2 0 -3.4 3 6 %d"
frame 10 to 300 step 10

string

#9 read small-monster-relaxationCaux
silent=f

string 0 "Done!"


panel on

