This file is indexed.

/usr/share/xcrysden/Tcl/mpegParam.tcl is in xcrysden-data 1.5.53-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
#############################################################################
# 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/mpegParam.tcl
# ------                                                                    #
# Copyright (c) 1996-2003 by Anton Kokalj                                   #
#############################################################################

proc mpegCreateParamFile {output_file input_dir input_files} {
    global system gifAnim myParam

    if { $gifAnim(frame_files_format) == "PPM" } {
	set input_convert "INPUT_CONVERT    cat *"
    } else {
	set input_convert "INPUT_CONVERT    jpegtopnm *"
    }

    if { [info exists myParam(MPEG_ENCODE_PARAM_FILE)] } {
	# encode_param file parameters are specified in the definition file
	
	set encode_param [subst $myParam(MPEG_ENCODE_PARAM_FILE)]

    } else {
	# load the dafult definition

	set encode_param [subst {
# ------------------------------------------------------------------------
# Please edit this ppmtompeg (MPEG_ENCODE) parameter file to suit your needs
# ------------------------------------------------------------------------

PATTERN          IBBPBBPBBPBBPBBP
OUTPUT           $output_file
BASE_FILE_FORMAT PPM

# ------------------------------------------------------------------------
# Put here the appropriate image conversion/nahdling program.
# Native format is PPM, therefore if your frame-files are in 
# PPM format put:
#
# INPUT_CONVERT    cat *
#
# if your files are in JPEG format, then the following would do:
#
# INPUT_CONVERT    jpegtopnm *
# ------------------------------------------------------------------------
$input_convert
GOP_SIZE         16
SLICES_PER_FRAME 1

INPUT_DIR        $input_dir
INPUT
[join $input_files \n]
END_INPUT

PIXEL           FULL
RANGE           10
PSEARCH_ALG     EXHAUSTIVE
BSEARCH_ALG     CROSS2
IQSCALE         7
PQSCALE         10
BQSCALE         15
REFERENCE_FRAME DECODED
BUFFER_SIZE     327680
FRAME_RATE      23.976
BIT_RATE        10000000

# There are many more options, see the users manual for examples....
# ASPECT_RATIO, USER_DATA, GAMMA, IQTABLE, etc.
	}]
    }
	 
    if { $gifAnim(temp_files_dir) == "pwd" } {
	set dir $system(PWD)
    } else {
	set dir $system(SCRDIR)
    }	    

    set file [file join $dir mpeg_encode.param]
    WriteFile $file $encode_param w
    
    if { $gifAnim(edit_param) } {
	xcEditFile $file foreground
    }
    return $file
}