PROG_NAME=$(basename $0)
# Set default values
-main_layer="Layer 558"
+bg_layer_name="background"
+ref_layer_prefix="ref"
# Pour conversion vidéo:
fps=8
debug=0
+trames=1
+dry_run=0
SED=sed
+# When reading a file line by line, if a command inside the loop
+# also reads stdin, it can exhaust the input file.
+# -nostdin: disable ffmpeg interaction on standard input:
+FFMPEG_OPTS="-hide_banner -loglevel error -y -nostdin"
+
# -limit memory 5000mb -limit disk 5gb
IM_OPS=""
# Arg1: layer
function get_size()
{
- cat ${layers} | grep "${1}" | ${SED} "s/.*geometry:\([0-9]\+x[0-9]\+\).*/\1/g"
+ cat ${layers} | grep -m 1 "${1}" | ${SED} "s/.*geometry:\([0-9]\+x[0-9]\+\).*/\1/g"
}
# Arg1: layer
function get_pos()
{
- cat ${layers} | grep "${1}" | ${SED} "s/.*geometry:[0-9]\+x[0-9]\+\(+[0-9]\+[0-9]\+\)/\1/g"
+ cat ${layers} | grep "${1}" | ${SED} "s/.*geometry:[0-9]\+x[0-9]\+\(+[0-9]\++[0-9]\+\),.*/\1/g"
}
# Arg1: line
function get_label()
{
- frame=$(echo "${1}" | grep -e "label:.*," | ${SED} "s/label:\(.*\),.*/\1/g")
-
- if [ x"${frame}" = x"" ]; then
- echo ""
- return 1
- else
- echo "${frame}"
- return 0
- fi
+ local token
+ token=$(echo "${1}" | ${SED} "s/.*label:\(.*\),geometry.*/\1/g")
+ echo "${token}"
}
-# Arg1: line
+# Arg1: label
function get_frame_id()
{
- frame=$(echo "${1}" | grep -e "label:[0-9]" | ${SED} "s/label:\([0-9]\+\),.*/\1/g")
+ local token
+ token=$(echo "${1}" | grep -e "^[0-9]\+" | ${SED} "s/^\([0-9]\+\).*/\1/g")
+ echo "${token}"
+}
- if [ x"${frame}" = x"" ]; then
- echo ""
- else
- echo "${frame}"
- fi
+# Arg1: line
+function get_scene_id()
+{
+ local token
+ token=$(echo "${1}" | ${SED} "s/.*scene:\([0-9]\+\),.*/\1/g")
+ echo "${token}"
}
# Arg1: label
-function is_skip_label()
+function get_group_id()
{
- skip=$(echo "${1}" | grep -e "A8_.*")
+ local token
+ token=$(echo "${1}" | grep -e "^groupe" | ${SED} "s/^groupe-\(.*\)/\1/g")
+ echo "${token}"
+}
- if [ x"${skip}" = x"" ]; then
- return 1
- else
- return 0
+# Arg1: group name
+function get_group_ref()
+{
+ local token
+ token=$(echo "${1}" | grep -e "^ref" | ${SED} "s/^\(ref\).*/\1/g")
+ echo "${token}"
+}
+
+# Get duplicate from. Ex: "dup1-7 planXYZ,geometry..." will return 1
+# Arg1: label
+function get_dup_from()
+{
+ local token
+ token=$(echo "${1}" | grep -e "^dup" | ${SED} "s/^dup\([0-9]\+\)-.*/\1/g")
+ echo "${token}"
+}
+
+# Get duplicate to. Ex: "dup1-7 planXYZ,geometry..." will return 7
+# Arg1: label
+function get_dup_to()
+{
+ local token
+ token=$(echo "${1}" | grep -e "^dup" | ${SED} "s/^dup[0-9]\+-\([0-9]\+\).*/\1/g")
+ echo "${token}"
+}
+
+# Arg1: start frame
+# Arg1: end frame
+function insert_empty_frames()
+{
+ local w
+ local start
+ local end
+
+ start=${1}
+ end=${2}
+
+ for w in $(seq ${start} ${end}); do
+ log_dbg "New frame ID: ${w} (empty)"
+ cp ${dest}/background.png ${dest}/${group}-f${w}.png
+ done
+}
+
+function generate_video()
+{
+ if which ffmpeg 1> /dev/null 2>&1; then
+ if [ -f ${dest}/${group}-f1.png ]; then
+ log_dbg "generate_video start"
+ if [ ${dry_run} -eq 1 ]; then
+ touch ${dest}/${group}.mp4
+ else
+ ffmpeg ${FFMPEG_OPTS} -r ${fps} -start_number 1 -i ${dest}/${group}-f%d.png ${dest}/${group}.mp4
+ fi
+
+ log_dbg "generate_video: end"
+ fi
fi
}
echo
echo "Options:"
echo " -d affiche les informations de debug"
+ echo " -f ne regénère pas les trames, mais uniquement la séquence vidéo"
+ echo " -n mode de test (dry-run)"
echo " -r nombre de trames par seconde (FPS)"
echo " -h affiche ce message d'aide"
}
-while getopts "dhr:" flag ;do
+while getopts "dhfnr:" flag ;do
case ${flag} in
d)
debug="1"
;;
+ f)
+ trames=0
+ ;;
+ n)
+ dry_run=1
+ ;;
r)
fps="${OPTARG}"
;;
if [ ! -d ${dest} ]; then
mkdir ${dest}
- # rm -rf ${dest}
fi
for tool in convert composite identify; do
fi
done
-identify ${IM_OPS} -verbose -format "label:%l,geometry:%g\n" ${src} > ${layers}
-
-# Ignore empty labels:
-${SED} -i -e /label:,.*/d ${layers}
-
-# Extract global frame size:
-size=$(get_size "${main_layer}")
-
-log_dbg "CANVAS SIZE=${size}"
+if [ ${trames} -eq 1 ]; then
+ # %s: scene number
+ identify ${IM_OPS} -verbose -format "scene:%s,label:%l,geometry:%g,\n" ${src} > ${layers}
-# Create background frame:
-convert -size ${size} xc:none ${dest}/background.png
+ # Remove line(s) with empty label:
+ ${SED} -i -e /label:,.*/d ${layers}
-# Remove first line (Layer 558):
-${SED} -i -e '1d' ${layers}
+ # Extract global frame size:
+ size=$(get_size "${bg_layer_name}")
-# Will start at frame 2 at first loop iteration
-f=1
+ log_dbg "Background size: ${size}"
-files=""
-
-while read l; do
- f=$((${f} + 1))
-
- label=$(get_label "${l}")
- p=$(get_pos "${l}")
- nf=$(get_frame_id "${l}")
-
- log_dbg "Couche ${f}"
- log_dbg " nom: ${label}"
- log_dbg " pos: ${p}"
-
- if is_skip_label "${label}"; then
- log_dbg " skip..."
- continue
- fi
-
- files="${files} -page ${p} ${src}[${f}]"
-
- if [ x"${nf}" != x"" ]; then
- log_dbg "New frame ID: ${nf}"
- convert -colorspace sRGB -page +0+0 ${dest}/background.png ${files} -background none -layers merge ${dest}/f${nf}.png
- files=""
+ if [ x"${size}" = x"" ]; then
+ echo "Error: background layer not found"
+ exit 1
fi
-done <${layers}
-
-if which ffmpeg 1> /dev/null 2>&1; then
- # Conversion vidéo:
- ffmpeg -y -r ${fps} -start_number 1 -i ${dest}/f%d.png ${dest}/sequence.mp4
+ # Remove background line:
+ ${SED} -i -e /label:${bg_layer_name},.*/d ${layers}
+
+ # Create background frame:
+ convert -size ${size} xc:none ${dest}/background.png
+
+ nf=""
+ oldnf=""
+ files=""
+ group="default"
+
+ while read l; do
+ scene=$(get_scene_id "${l}")
+ label=$(get_label "${l}")
+ p=$(get_pos "${l}")
+
+ nf=$(get_frame_id "${label}")
+ ng=$(get_group_id "${label}")
+ dup_from=$(get_dup_from "${label}")
+ dup_to=$(get_dup_to "${label}")
+
+ # Also indicate a new frame, but to be copied from..to:
+ if [ x"${dup_from}" != x"" ]; then
+ nf=${dup_from}
+ fi
+
+ log_dbg "Layer ${scene}"
+ log_dbg " nom: ${label}"
+ log_dbg " pos: ${p}"
+
+ group_ref=$(get_group_ref "${group}")
+ log_dbg " group_ref: ${group_ref}"
+
+ # Only change group if ng is set...
+ if [ x"${ng}" != x"" ]; then
+ if [ x"${group_ref}" != x"ref" ]; then
+ generate_video
+ fi
+
+ group="${ng}"
+ log_dbg "New group: ${ng}"
+
+ nf=""
+ oldnf=""
+ files=""
+
+ # Skip image from group ID...
+ continue
+ fi
+
+ if [ x"${group_ref}" != x"" ]; then
+ # Ignore all images in groupe-ref:
+ log_dbg " ignore (groupe-ref)"
+ continue
+ fi
+
+ files="${files} -page ${p} ${src}[${scene}]"
+
+ if [ x"${nf}" != x"" ]; then
+ # Only check expected frame if oldnf is set...
+ if [ x"${oldnf}" != x"" ]; then
+ expected_nf=$((${oldnf} + 1))
+
+ if [ ${expected_nf} -ne ${nf} ]; then
+ echo "Warning: non-sequential frame sequence: ${nf}"
+ echo " previous: ${oldnf}"
+ echo " expected: ${expected_nf}"
+ insert_empty_frames ${expected_nf} $((${nf} -1))
+ fi
+ fi
+
+ log_dbg "New frame ID: ${nf}"
+
+ if [ ${dry_run} -eq 1 ]; then
+ touch ${dest}/${group}-f${nf}.png
+ else
+ convert -colorspace sRGB -page +0+0 ${dest}/background.png \
+ ${files} -background none -layers merge \
+ ${dest}/${group}-f${nf}.png
+ fi
+
+ if [ x"${dup_from}" != x"" ]; then
+ log_dbg " dup from: ${dup_from}"
+ log_dbg " dup to: ${dup_to}"
+
+ dup_start=$((${dup_from} + 1))
+ for w in $(seq ${dup_start} ${dup_to}); do
+ log_dbg "New frame ID: ${w} (duplicate)"
+
+ # Use symlink???
+ cp ${dest}/${group}-f${nf}.png ${dest}/${group}-f${w}.png
+ done
+ fi
+
+ files=""
+ oldnf="${nf}"
+ fi
+ done <${layers}
fi
+
+# Special case for last group...
+generate_video