# download BPTI (9pti) from the PDB ftp site # and change some of the representations set m [molinfo top] mol pdbload 9pti set n [molinfo top] if {$m == $n} { puts "The PDB file for BPTI was not downloaded." puts "Possible reasons are:" puts " - perl was not installed on this machine" puts " - the first line of $env(VMD)/scripts/vmd/ugl_get does not" puts " point to the perl interpreter" puts " - your computer is not on the network" puts " - the network is down" puts " - the PDB ftp site is down" puts " - some other reason" } else { mol delrep 0 top # draw the secondary structure cartoon mol representation Structure 2.1 8 5 mol color Structure mol selection {all} mol addrep top # draw the residues with sulphers in them mol representation Bonds 0.3 8 mol color Name mol selection {same residue as name "S.*"} mol addrep top # and a bit of spin rock y by 1 }