This file is indexed.

/usr/share/xcrysden/examples/Scripting/animation.tcl is in xcrysden-data 1.5.60-1.

This file is owned by root:root, with mode 0o644.

The actual contents of the file can be viewed below.

  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
 36
 37
 38
 39
 40
 41
 42
 43
 44
 45
 46
 47
 48
 49
 50
 51
 52
 53
 54
 55
 56
 57
 58
 59
 60
 61
 62
 63
 64
 65
 66
 67
 68
 69
 70
 71
 72
 73
 74
 75
 76
 77
 78
 79
 80
 81
 82
 83
 84
 85
 86
 87
 88
 89
 90
 91
 92
 93
 94
 95
 96
 97
 98
 99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
# ------------------------------------------------------------------------
#****** ScriptingExamples/animation.tcl ***
#
# NAME
# animation.tcl -- a simple example for animating a molecular structure
#
# USAGE
# xcrysden --script animation.tcl
#
# COPYRIGHT
# Anton Kokalj (C) 2003
#
# PURPOSE

# This is a scripting example that shows how to produce an animation
# of a molecular structure. In this example the structure is rotated
# infinitely in different directions (see the scripting:rotate below).

#
# WARNINGS

# In this example XCRYSDEN switches to fullscreen mode. To exit from
# fullscreen mode double-click the first mouse button. Note also that
# in fullscreen mode the right-mouse button triggers the pop-up menu

#
# AUTHOR
# Anton Kokalj
#
# CREATION DATE
# Sometime in February 2003
# 
# SOURCE


# ------------------------------------------------------------------------
# load the structure (the argument to scription:open is the command line
# ------------------------------------------------------------------------

scripting::open --xyz $env(XCRYSDEN_TOPDIR)/examples/XYZ/mol1.xyz


# ------------------------------------------------------------------------
# switch to fullscreen mode
# ------------------------------------------------------------------------

scripting::displayWindow fullscreen


# ------------------------------------------------------------------------
# display the structure in appropriate display-mode
# ------------------------------------------------------------------------

#-----
# uncomment this is for Lighting-On modes:
#-----
# scripting::lighting On
# 
# # choose a 3D-display mode
# 
# #scripting::displayMode3D Stick
# #scripting::displayMode3D Pipe&Ball
# scripting::displayMode3D BallStick
# #scripting::displayMode3D SpaceFill
#----

# #---
# # this is for Lighting-Off modes:
# #---
# scripting::lighting Off
# 
# # choose a 2D-display mode
# 
# #scripting::displayMode2D WireFrame  
# #scripting::displayMode2D PointLine  
# #scripting::displayMode2D Pipe&Ball  
# #scripting::displayMode2D BallStick-1 
# scripting::displayMode2D BallStick-2  
# #scripting::displayMode2D SpaceFill  
# #---



# ------------------------------------------------------------------------
# first zoom the structure slowly
# ------------------------------------------------------------------------

scripting::zoom +0.02 5


# ------------------------------------------------------------------------
# rotate a few times
#
# usage: 
#    scripting::rotate x|y|z step_size number_of_times
# or
#    scripting::rotate xy|xz|yz step_size1 step_size2 number_of_times
#
# ------------------------------------------------------------------------

scripting::rotate x +3 20
scripting::rotate y +3 20
scripting::rotate z -3 10    

# ------------------------------------------------------------------------
# rotate infinitely
# ------------------------------------------------------------------------

while {1} {
    scripting::rotate xy +5 +1 3
    scripting::rotate xy +5 +3 5
    scripting::rotate xy +5 +5 20
    scripting::rotate xy +5 +3 5
    scripting::rotate xy +5 +1 3
    scripting::rotate xy +5 +0 1
    scripting::rotate xz +5 +1 3
    scripting::rotate xz +5 +3 5
    scripting::rotate xz +5 +5 20
    scripting::rotate xz +5 +3 5
    scripting::rotate xz +5 +1 3
    scripting::rotate xz +5 +0 1
}

#****
# ------------------------------------------------------------------------