/usr/share/xcrysden/Tcl/setIsosurfArray.tcl is in xcrysden-data 1.5.60-1build3.
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 | #############################################################################
# Author: #
# ------ #
# Anton Kokalj Email: Tone.Kokalj@ijs.si #
# Department of Physical and Organic Chemistry Phone: x 386 1 477 3523 #
# Jozef Stefan Institute Fax: x 386 1 477 3811 #
# Jamova 39, SI-1000 Ljubljana #
# SLOVENIA #
# #
# Source: $XCRYSDEN_TOPDIR/Tcl/setIsosurfArray.tcl
# ------ #
# Copyright (c) 1996-2003 by Anton Kokalj #
#############################################################################
proc SetIsoSurfArray {} {
global isosurf
set isosurf(spin) {}
set isosurf(res_type) "angstroms"
set isosurf(mb_angs/bohr) "Angstroms"
set isosurf(space_sel) "whole_cell"
set isosurf(Y_Sel) "centered"
set isosurf(Z_Sel) "centered"
set isosurf(expand) "none"
set isosurf(expand_X) 1
set isosurf(expand_Y) 1
set isosurf(expand_Z) 1
set isosurf(type_of_isosurf) "solid"
set isosurf(shade_model) "smooth"
set isosurf(transparency) "off"
set isosurf(twoside_lighting) [xc_getGLparam lightmodel -get two_side_iso]
set isosurf(tessellation_type) cubes
set isosurf(normals_type) gradient
}
|