This page is the same as this one except that this one doesn't have the movie, which can take a while to download.
Here is the script that generated the movie.
#!/bin/sh
#Parameters
size="300x300"
start=0
stop=359
delta=5
infile=one.ams
#Generate frames
angle=$start
while [ $angle -le $stop ] ; do
echo "by rotation y " $angle > rotation.file
outfile=`printf frame-%03d.jpg $angle `
molscript -r < $infile > ms.rd
cat <<end-floor >> ms.rd
15
6
-.5 -.6 -.5 0 -.7 .5 .5 -.6 -.5 0 0 0
9
15
6
0 0 -1.5 .5 0 -1.5 .5 .5 -1.5 .1 .1 .7
9
end-floor
render -jpeg -size $size< ms.rd > $outfile
angle=`expr $angle + $delta`
done
#Make movie
convert -delay 5 -loop 0 frame-*.jpg movie.gif
#Cleanup -- leave first frame
angle=`expr $angle + $delta`
while [ $angle -le $stop ] ; do
outfile=`printf frame-%03d.jpg $angle `
rm -f $outfile
angle=`expr $angle + $delta`
done
The relevant part of the molscript file is below.
! This is one.ams
plot
window 50;
slab 100;
background white;
read mol "mona.pdb";
transform atom *
by centre position atom *
by rotation x 180.0
by rotation z -32.8750
by rotation y 19.2393
by translation -1.00 0. 0.0
@rotation.file
;
set segments 12;
set planecolour hsb 0.6667 1 1, plane2colour hsb 0.6667 .7 .7;
strand from A112 to A119;
stuff cut out
end_plot
Have this render header file in the directory.
Call it header.r3d
Main light source above for good shadows on floor
60 60 tiles in x,y
10 10 pixels (x,y) per tile
4 anti-aliasing level 4; 3x3->2x2
1 1 1 background
T cast shadows [T/F]
20 Phong power
0.25 secondary light contribution
0.05 ambient light contribution
0.25 specular reflection component
2 eye position
0 1 1.5 main light source position
1 0 0 0 view matrix describing input coordinate transformation
0 1 0 0
0 0 1 0
0 0 0 52
3 mixed objects
* (free format triangle and plane descriptors)
* (free format sphere descriptors)
* (free format cylinder descriptors)
Good luck,
David Cooper