/usr/share/xcrysden/Tcl/mpegParam.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 | #############################################################################
# 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
}
|