# MOVE VIEW 1 TO DESIRED PERSPECTIVE

script ../../_sptutil/animationplaying.spt

script view01.spt
delay 0.5
moveto /* time, axisAngle */ 1.0 { 187 366 912 157.48} /* zoom, translation */  300.0 0.0 0.0  /* center, rotationRadius */ {0.3825999 81.70495 109.19509} 86.38875 /* navigation center, translation, depth */ {0.0 0.0 0.0} -34.53249 8.892444 50.0;
delay 0.5

#reset
#select [g39]800
#center selected
#rotate z 104.77
#rotate y 47.49
#rotate z 50.6
#zoom 300

# PUT TRANSLUCENT MESH SURFACE AROUND CARTOON

# A similar surface can be generated with
# select :a # there are 4 chains a-d
# isosurface s1 ignore {not *:a} sasurface

isosurface asurf "../molecules4all/2hu4_a.iso" nofill mesh
color isosurface [xffa000]
isosurface asurf translucent 0.9
delay 0.3
isosurface asurf translucent 0.8
delay 0.3
isosurface asurf translucent 0.7
delay 0.3
isosurface asurf translucent 0.6
delay 1

select [g39]800
wireframe 0.5
color bonds cpk
color atoms translucent 0.6
color bonds opaque
delay 0.3
color atoms translucent 0.7
delay 0.3
color atoms translucent 0.8
delay 0.3
color atoms translucent 0.9
delay 0.3
spacefill off
delay 1

#select :a and gln136
#color atoms opaque

set echo wait4calc 20% 50%
font echo 25 sans bold
color echo yellow

# cavitydone is false if <not set>
if (!cavitydone)
	# avoid jump in spinning due to calculation freeze
	wasspinning = _spinning
	if (wasspinning)
		spin off
	end if

 	echo Calculating cavity.|One moment please ...
	refresh
	select :a
	isosurface cavsurf minset 250 POCKET cavity 1.2 5

	cavitydone = true
	echo Calculation completed.
	delay 1
	set echo wait4calc off

	if (wasspinning)
		spin on
	end if
else
	isosurface on
end if

script ../../_sptutil/animationdone.spt