#!/bin/sh

[ -r .conf ] || exit 125

UFRAW='eval ufraw-batch --interpolation=ahd --out-type=tiff --out-depth=16 --overwrite --create-id=no --zip --rotate=no ${UEVARG}'
DCRAW='eval dcraw -v -M -H 0 -q 3 -o 1 -n 10 -m 4 -t 0 -4 -T ${LINARG} ${DEVARG}'
EXIFTOOL='exiftool -overwrite_original -P'
#EXIFTOOL='true'
EXIFTFF="${EXIFTOOL} -TagsFromFile"
#EXIFTAG='-ImageDescription -Make -Model -Artist -WhitePoint -Copyright -GPS:all -DateTimeOriginal -CreateDate -UserComment -ColorSpace -OwnerName -SerialNumber -ISO -ExposureTime -FNumber -FocalLength -FocalLengthIn35mmFormat -Composite:DigitalZoom -FocalPlaneDiagonal -FocalPlaneXSize -FocalPlaneYSize -FocalPlaneResolutionUnit -FocalPlaneXResolution -FocalPlaneYResolution -ExifImageWidth -ExifImageHeight -ImageWidth -ImageHeight -LensType -LensModel -Lens -Orientation'
EXIFTAG='-EXIF:All -GPS:All'
#PMATIC='eval panomatic -n ${CPUS} --fullscale --surfscore 10 --kdtreesteps 100 --kdtreeseconddist 0.3 --ransacdist 100 --minmatches 48'
PMATIC='eval cpfind -n ${CPUS} --fullscale --kdtreesteps 100 --kdtreeseconddist 0.3 --ransacdist 100 --minmatches 48'
PMATIC="${PMATIC} --celeste"
FULLA='eval fulla -v -t ${CPUS} -s'
FFUSE='eval enfuse -v --compression=${ENCOMP} -m ${MEM} -b 16384 --exposure-weight=0 --saturation-weight=0  --contrast-weight=1 --hard-mask'
#FFUSE='eval enfuse -v --compression=${ENCOMP} -m ${MEM} -b 16384 --exposure-weight=0.01 --saturation-weight=0.01  --contrast-weight=0.99 --hard-mask'
#FFUSE='eval enfuse -v --compression=${ENCOMP} -m ${MEM} -b 16384 --exposure-weight=1.00 --saturation-weight=0.00  --contrast-weight=1.00 --hard-mask --exposure-mu=1.0 --exposure-sigma=0.7'
#CONV='convert -limit memory 512 -limit map 256'
CONV='convert -limit area ${MEM}MiB'
#INPNT='greycstoration -alpha 0.9 -sigma 0.2 -p 5 -a 1 -dt 20 -iter 5 -bits 16 -m mask.png -inpaint'
#INPNT='greycstoration -alpha 0.9 -sigma 0.2 -iter 512 -bits 16 -inpaint'
INPNT='greycstoration -iter 1024 -bits 16 -inpaint'

#RGB='-fx (s<=0.03928)?s/12.92:((s+0.055)/1.055)^2.4'
#sRGB='-fx (s<=0.00304)?s*12.92:s^0.416666667*1.055-0.055'

RGBPROFILE='../../tools/profiles/RGB.icc'
sRGBPROFILE='../../tools/profiles/sRGB.icm'
RGB="-profile ${sRGBPROFILE} -profile ${RGBPROFILE}"
sRGB="-profile ${RGBPROFILE} -profile ${sRGBPROFILE}"

GDIST='0.100:0.040:-0.960:1.820'

## PROCESS = LDR
LDRREMAP='eval nona -v -t ${CPUS} -m TIFF_m -r ldr -p UINT${DEPTH} -z ${ENCOMP} -o ${TMPPFX}-'
LDRTMPSFX='tif'
LDRWMRG='horizontal'
LDRMERGE='eval enfuse -v --compression=${ENCOMP} -m ${MEM} -b 16384 --exposure-mu=0.45 --exposure-sigma=0.25'
#LDRMERGE='eval enfuse -v --compression=${ENCOMP} -m ${MEM} -b 16384 --exposure-weight=1.00 --saturation-weight=0.20 --contrast-weight=0.10 --exposure-mu=0.60 --exposure-sigma=0.40 --gray-projector=value'
#LDRMERGE='eval enfuse -v --compression=${ENCOMP} -m ${MEM} -b 16384 --exposure-weight=1.00 --saturation-weight=0.05 --contrast-weight=0.33 --hard-mask --gray-projector=value'
LDRWBLND='horizontal'
LDRBLEND='eval enblend -v --compression=${ENCOMP} -m ${MEM} -b 16384 --fine-mask --primary-seam-generator=nearest-feature-transform --mask-vectorize=12'
#LDRBLEND='eval enblend -v --compression=${ENCOMP} -m ${MEM} -b 16384 --coarse-mask=2 --primary-seam-generator=graph-cut --mask-vectorize=3'
#LDRBLEND='eval enblend -v --compression=${ENCOMP} -m ${MEM} -b 16384 --fine-mask'
#LDRBLEND='eval wine ~/.wine/drive_c/bin/enblend.exe -v --compression=${ENCOMP} -m ${MEM} -b 16384 --fine-mask'
#LDRBLEND='eval enfuse -v --compression=${ENCOMP} -m ${MEM} -b 16384 --exposure-weight=0.01  --saturation-weight=0.01  --contrast-weight=0.99 --hard-mask'
#LDRBLEND='sh ../../tools/smartblend'
LDRDEGHOST='deghosting_mask -v -s 60 -c 0.8 -t 150 -i 8 -a mw'

## PROCESS = HDR
#HDRREMAP='eval nona -v -t ${CPUS} -m EXR_m -r hdr -p FLOAT -z ${ENCOMP} -o ${TMPPFX}-'
#HDRTMPSFX='exr'
HDRREMAP='eval nona -v -t ${CPUS} -m TIFF_m -r hdr -p FLOAT -z ${ENCOMP} -o ${TMPPFX}-'
HDRTMPSFX='tif'
HDRWMRG=''
#HDRMERGE='hugin_hdrmerge -v -m khan -s 50 -i 8 -a m'
#HDRMERGE='hugin_hdrmerge -v -m avg -c -a di'
#HDRMERGE='eval enfuse -v --compression=${ENCOMP} --exposure-weight=1.00 --saturation-weight=0.50 --contrast-weight=0.00 --exposure-mu=0.45 --exposure-sigma=0.75 --gray-projector=average'
#HDRMERGE='eval enfuse -v --compression=${ENCOMP} -m ${MEM} -b 16384'
#HDRMERGE='sh ../../tools/merge-wrapper -v -m khan -i 1 -s 45 -a m -M 6144 -B 65536 -A'
#HDRMERGE='unset EXIFTOOL EXIFTAG; eval sh ../../tools/pfshdrcalibrate-wrapper -v -x -c robertson -b 16 -m 65536 -r linear -g 8'
#HDRMERGE='unset EXIFTOOL EXIFTAG; eval sh ../../tools/pfshdrcalibrate-wrapper -v -x -c robertson -b 16 -m 65536 -r gamma -g 8'
#HDRMERGE='unset EXIFTOOL EXIFTAG; eval sh ../../tools/pfshdrcalibrate-wrapper -v -x -c none -b 16 -m 65536 -f ${DST}.m'
HDRMERGE='unset EXIFTOOL EXIFTAG; eval sh ../../tools/pfshdrcalibrate-wrapper -v -x -c none -b 16 -m 65536 -f ${DST}.m -O'
#HDRMERGE='unset EXIFTOOL EXIFTAG; eval sh ../../tools/pfshdrcalibrate-wrapper -v -x -c none -b 16 -m 65536 -r linear -g 9'
HDRWBLND='horizontal'
#HDRBLEND='eval enblend -v --compression=${ENCOMP} -m ${MEM} -b 16384 --fine-mask'
HDRBLEND='eval enblend -v --compression=${ENCOMP} -m ${MEM} -b 16384 --fine-mask --primary-seam-generator=nearest-feature-transform --mask-vectorize=8'
#HDRBLEND='eval wine ~/.wine/drive_c/bin/enblend.exe -v --compression=${ENCOMP} -m ${MEM} -b 16384 --fine-mask'
HDRDEGHOST='deghosting_mask -v -s 60 -c 0.8 -t 150 -i 8 -a mw'
HDRTMPL=/usr/local/share/pfstools/hdrhtml_hdrlabs_templ
HDRWBR=1.000
HDRWBG=1.000
HDRWBB=1.000
HDRR02KY=0.09
HDRR05BR=0.00
HDRR05CH=0.90
HDRR05LT=0.40
HDRM06FR=0.40
HDRM06SN=0.80
HDRM08DF='pd=crt'
HDRM08CS=0.90
HDRM08CE=0.75
HDRGAMML=1.00
HDRGAMGM=1.00
HDRCLMMN=1e-20
HDRCLMMX=1e+20

PROCESS=LDR
EPL=1

[ -n "${RMALL}" ] || RMALL='rm -f'
[ -n "${RMSRC}" ] || RMSRC="${RMALL}"
[ -n "${RMTMP}" ] || RMTMP="${RMALL}"
[ -n "${RMDST}" ] || RMDST="${RMALL}"

LANG=C; export LANG

. ./.conf

eval "REMAP=\${${PROCESS}REMAP}"
eval "TMPSFX=\${${PROCESS}TMPSFX}"
eval "WMERGE=\${${PROCESS}WMRG}"
eval "MERGE=\${${PROCESS}MERGE}"
eval "WBLEND=\${${PROCESS}WBLND}"
eval "BLEND=\${${PROCESS}BLEND}"
eval "DEGHOST=\${${PROCESS}DEGHOST}"

[ -r "${DST}${3}.pto" ] && DST=${DST}${3}

IS360=''
ISSPH=''
ISMLT=''
[ -r "${DST}.pto" ] && {
    [ "$(ptoget -p v "${DST}.pto")" != 360 ] || IS360=1
    [ -z "${IS360}" \
        -o  $(("$(ptoget -p h "${DST}.pto")"*2)) \
            -ne "$(ptoget -p w "${DST}.pto")" ] || ISSPH=1
    [ -z "$(ptoget -i 1,n "${DST}.pto")" ] || ISMLT=1
    PH="$(ptoget -p h "${DST}.pto")"
    PW="$(ptoget -p w "${DST}.pto")"
    PG="${PW}x${PH}"
    eval "PL=$(ptoget -p S "${DST}.pto" |sed -e 's/,/; PR=/' -e 's/,/; PT=/' -e 's/,/; PB=/')"
    [ -z "${PL}" ] \
    || PG=$(printf '%dx%d%+d%+d' $((${PR}-${PL})) $((${PB}-${PT})) ${PL} ${PT})
}

[ -z "${IS360}" -o -z "${ISMLT}" ] \
|| {
    [ -z "${WMERGE}" ] || MERGE="${MERGE} --wrap=${WMERGE}"
    [ -z "${WBLEND}" ] || BLEND="${BLEND} --wrap=${WBLEND}"
}

[ -z "${LIN}" ] || {
    FFUSE="${FFUSE} --fallback-profile='${RGBPROFILE}' --ciecam"
    if [ "${PROCESS}" = LDR ]
    then
        MERGE="${MERGE} --fallback-profile='${RGBPROFILE}' --ciecam"
        BLEND="${BLEND} --fallback-profile='${RGBPROFILE}' --ciecam"
    fi
}

[ -n "${TMPDIR}" ] || TMPDIR=.

[ -n "${TMPPFX}" ] || TMPPFX=tmp
expr -- "${3}" : '^[a-z]$' >/dev/null \
&& TMPPFX="${TMPPFX}-${3}"

[ -n "${DEPTH}" ] || DEPTH="${2}"
[ -n "${DEPTH}" ] || DEPTH=16

[ -z "${KEEPHDR}" ] || KEEPHDR="tee ${DST}.pfs"
[ -n "${KEEPHDR}" ] || KEEPHDR=cat

[ -n "${CPUS}" ] || CPUS=$(sysctl -n kern.smp.cpus)
[ -n "${CPUS}" ] || CPUS=1

#[ -n "${MEM}" ] || MEM="$(($(ulimit -d)/1024))"
#[ -n "${MEM}" ] || MEM=512
[ -n "${MEM}" ] || MEM=3072
[ ${MEM} -le 5120 ] || MEM=5120

#[ -n "${IMCOMP}" ] || IMCOMP=zip
#[ -n "${ENCOMP}" ] || ENCOMP=DEFLATE
[ -n "${IMCOMP}" ] || IMCOMP=lzw
[ -n "${ENCOMP}" ] || ENCOMP=LZW

[ -n "${FQ}" ] || FQ=90
[ -n "${QKF}" ] || QKF=95
[ -n "${WKF}" ] || WKF=760

extractsrc () {
    n="${SRC}"
    o="${NAM}${ESF}${FSF}"
    [ -z "${n}" -o "${n}" = SKIP -o "${n}" = SSKIP ] && continue
    [ -r ${o}.tiff ] && continue
    l="$(expr -- "${n}" : 'LINK:\(.*\)')" && {
        ln -s "${l}" ${o}.tiff
        continue
    }
    n="${n%.bz2}"
    n="${n%.gz}"
    n="${n%.RAW}"
    n="${n%.CR2}"
    n="${n%.JPG}"
    n="${n%.pto}"
    [ -r ${n}.RAW.bz2 ] && bzcat ${n}.RAW.bz2 >${n}.RAW
    [ -r ${n}.RAW.gz ] && zcat ${n}.RAW.gz >${n}.RAW
    [ -r ${n}.CR2 ] && ln -s ${n}.CR2 ${n}.RAW
    if [ -r ${n}.RAW ]
    then
        EVC=NO;
        baselv="${BLV}"
        [ -n "${baselv}" ] || baselv="${BASELV}"
        if [ -n "${baselv}" -o -n "${EVCOMP}" ]
        then
            eval "$(
                ${EXIFTOOL} -Aperture -ShutterSpeed -ISO -LightValue -n ${n}.RAW \
                | awk '
                    BEGIN {
                        EV="";
                    }
                    /^Aperture/ {
                        if (APRT == "") {
                            APRT = $3;
                        }
                    }
                    /^Shutter Speed/ {
                        SHSP = $4;
                    }
                    /^ISO/ {
                        ISO = $3;
                    }
                    /^Light Value/ {
                        EV = $4;
                    }
                    END {
                        if (EV == "") {
                            EV = (2*log(APRT)-log(SHSP)-log(ISO/100))/log(2);
                        }
                        if (BASELV != "") {
                            EV -= BASELV;
                        }
                        print "EVC=" (EV+EVCOMP) "; UEVARG=\"--exposure=" (EV+EVCOMP) "\"; DEVARG=\"-b " (2^(EV+EVCOMP)) "\"";
                    }
                  ' BASELV="${baselv}" EVCOMP="${EVCOMP:-0}" APRT="${APRT}"
            )"
            echo "UEVARG='${UEVARG}'; DEVARG='${DEVARG}'"
        fi
        if [ -z "${LIN}" ]
        then
            uconf="${UCF}"
            [ -n "${uconf}" ] || eval "uconf=\${UCONF${e}S${s}}"
            [ -n "${uconf}" ] || eval "uconf=\${UCONF${e}}"
            [ -n "${uconf}" ] || uconf="${UCONF}"
            [ -z "${uconf}" -o "${uconf}" = "${n}" -o -r "${n}.ufraw" ] \
            || sed -e "s/${uconf}/${n}/g" ${uconf}.ufraw \
               | awk '
                BEGIN {
                    eset=1;
                }
                /^<Exposure>/ && EVC!="NO" {
                    print "<Exposure>"EVC"</Exposure>";
                    eset=0;
                    next;
                }
                /^<\/UFRaw>/ && EVC!="NO" && eset {
                    print "<Exposure>"EVC"</Exposure>";
                }
                {
                    print;
                }
               ' EVC=${EVC} >${n}.ufraw
            [ -r ${n}.ufraw ] || exit 125
            [ -z "${baselv}" ] || UEVARG="${UEVARG} --create-id=no"
            ${UFRAW} --conf=${n}.ufraw --output=${n}.tiff ${n}.RAW
            eval ${CONV} ${n}.tiff \
                -flop \
                -compress ${IMCOMP} ${o}.tiff
        else
            ${DCRAW} ${n}.RAW
        fi
        tca=''
        if [ -z "${TCA}" -a -n "${LENS}" ]
        then
            fl="$(dcraw -i -v ${n}.RAW|awk '/^Focal length: /{print $3}')"
            #fl="$(exiftool -n -e -FocalLength ${n}.RAW |awk '{print $NF}')"
            tca="$( ( cd ../../tools/tca && echo "disp(tca('tca.db','${LENS}',${fl},1,0))"|octave -qf|cat|head -1 ) )"
            echo "Focal length: ${fl}; TCA correction: ${tca}"
        else
            tca="${TCA}"
        fi
        [ -z "${tca}" ] || ${FULLA} ${tca} -o ${n}.tiff ${n}.tiff
        eval "$(identify -format 'w=%w; h=%h' ${n}.tiff)"
        eval ${CONV} ${n}.tiff \
            +repage -crop $((${w}-16))x$((${h}-16))+8+8 +repage \
            -compress ${IMCOMP} ${o}.tiff
        rm -f ${n}.tiff
        if [ -n "${LIN}" -a "${1}" = prep -a "${DEPTH}" = 8 ]
        then
            m='-modulate 100,50'
            eval ${CONV} ${o}.tiff \
                ${m} \
                -strip ${sRGB} \
                -compress ${IMCOMP} ${o}.tiff
        fi
        [ "${DEPTH}" = 16 ] \
        || eval ${CONV} ${o}.tiff -gamma 1.5 -depth 8 -compress ${IMCOMP} ${o}.tiff
    elif [ -r ${n}.JPG ]
    then
        # sRGB => RGB
        [ -z "${LIN}" ] || rgb="${RGB}"
        eval ${CONV} ${n}.JPG \
            -noise 3 -unsharp 0x0.3 \
            ${rgb} \
            -depth ${DEPTH} \
            -compress ${IMCOMP} ${o}.tiff
    elif [ -r ${n}.pto ]
    then
        sh "${0}" pano "${2}" "${n#${DST}}" || exit 124
    else
        exit 126
    fi
    [ -r mask-${o}.png -a \( "${1}" != prep -o "${DEPTH}" != 8 \) ] \
    && eval ${CONV} ${o}.tiff -matte \
        mask-${o}.png -compose copyopacity -composite \
        -compress ${IMCOMP} ${o}.tiff
    #    mask-${o}.png -compose multiply -composite \
    if [ -n "${INP}" ]
    then
        for i in ${INP}
        do
            eval "g=\${${IBASE}I${i}}"
            inpaint ${o} ${g} ${i}
        done
    fi
    [ -r ${n}.RAW ] && ${EXIFTFF} ${n}.RAW ${EXIFTAG} ${o}.tiff
    [ -r ${n}.RAW -a \( -r ${n}.RAW.bz2 -o -r ${n}.RAW.gz -o -r ${n}.CR2 \) ] \
    && rm -f ${n}.RAW
    [ -r ${n}.JPG ] && ${EXIFTFF} ${n}.JPG ${EXIFTAG} ${o}.tiff
}

prep () {
    for s in ${SEC}
    do
        IBASE="INP${s}"
        eval "NAM=\${NAM${s}}"
        eval "INP=\${${IBASE}}"
        eval "EXP=\${EXP${s}}"
        e=''
        UCF=''
        BLV=''
        if [ -z "${EXP}" ]
        then
            # no exposures stack for current sector
            ESF=''
            eval "FOC=\${FOC${s}}"
            if [ -z "${FOC}" ]
            then
                # no focuses stack for current sector
                FSF=''
                eval "SRC=\${SRC${s}}"
                eval "UCF=\${UCF${s}}"
                eval "BLV=\${BLV${s}}"
                extractsrc
                continue
            fi
            for f in ${FOC}
            do
                eval "FSF=\${FSF${f}}"
                eval "SRC=\${SRC${s}F${f}}"
                eval "UCF=\${UCF${s}F${f}}"
                eval "BLV=\${BLV${s}F${f}}"
                extractsrc
            done
            continue
        fi
        for e in ${EXP}
        do
            IBASE="INP${s}E${e}"
            eval "ESF=\${ESF${e}}"
            eval "UCFE=\${UCFE${e}}"
            eval "BLVE=\${BLVE${e}}"
            eval "INP=\${${IBASE}}"
            eval "FOC=\${FOC${s}E${e}}"
            if [ -z "${FOC}" ]
            then
                # no focuses stack for current exposure and sector
                FSF=''
                eval "SRC=\${SRC${s}E${e}}"
                eval "UCF=\${UCF${s}E${e}}"
                [ -n "${UCF}" ] || UCF="${UCFE}"
                eval "BLV=\${BLV${s}E${e}}"
                [ -n "${BLV}" ] || BLV="${BLVE}"
                extractsrc
                continue
            fi
            for f in ${FOC}
            do
                eval "FSF=\${FSF${f}}"
                eval "SRC=\${SRC${s}E${e}F${f}}"
                eval "UCF=\${UCF${s}E${e}F${f}}"
                [ -n "${UCF}" ] || UCF="${UCFE}"
                eval "BLV=\${BLV${s}E${e}F${f}}"
                [ -n "${BLV}" ] || BLV="${BLVE}"
                extractsrc
            done
        done
    done
}

auto () {
    mkpto () {
        [ -r "${1}" ] && {
            SRC="${1}"
            return 0
        }
        true || {
        for n in ${SRC}
        do
            eval "$(
                ${EXIFTOOL} -n -FOV -LightValue -ImageWidth -ImageHeight ${n} \
                | awk '
                    /^Field Of View/ {
                        print "FOV="$NF
                    }
                    /^Light Value/ {
                        print "LV="$NF
                    }
                    /^Image Width/ {
                        print "W="$NF
                    }
                    /^Image Height/ {
                        print "H="$NF
                    }
                    /^Scale Factor/ {
                        print "CF="$NF
                    }
                '
            )"
            [ -z "${CF}" ] \
            || echo "#-hugin  cropFactor=${CF}"
            echo "i f0 w${W} h${H} v${FOV} Eev${LV} d0 e0 a0 b0 c0 p0 r0 y0 n\"${n}\""
        done \
        > "${1}"
        }
        pto_gen -o "${1}" ${SRC}
        perl ../../tools/ptsed -I v,b,Ra,Rb,Rc,Rd,Re,Va,Vb,Vc,Vd,Vx,Vy/1-:=0 -o "${1}" "${1}"
        SRC="${1}"
    }
    autoexp () {
        x=${1}; shift
        e=${1}; shift
        eval "ESF=\${ESF${e}}"
        [ -r ${DST}${ESF}${x}-ao.pto ] && return
        [ ${#} -lt 2 ] && return
        SRC=''
        for s
        do
            eval "NAM=\${NAM${s}}"
            FSF=''
            eval "FOC=\${FOC${s}E${e}}"
            [ -n "${FOC}" ] || eval "FOC=\${FOC${s}}"
            [ -z "${FOC}" ] || eval "FSF=\${FSF${FOC%% *}}"
            src="${NAM}${ESF}${FSF}.tiff"
            [ -r "${src}" ] && SRC="${SRC} ${src}"
        done
        printf 'e=%s; S=%s\n' ${e} "${SRC}"
        mkpto ${DST}${ESF}${x}-pm.pto
        ${PMATIC} \
            --multirow \
            --sieve1width 64 --sieve1height 48 --sieve1size 8 \
            --sieve2width 16 --sieve2height 16 --sieve2size 4 \
            -o ${DST}${ESF}${x}-pm.pto ${SRC}
        autooptimiser -a -l -s -o ${DST}${ESF}${x}-ao.pto ${DST}${ESF}${x}-pm.pto
            #--linearmatch --linearmatchlen 22 \
    }
    autoexpex () {
        e="${1}"; shift
        eval "ESF=\${ESF${e}}"
        [ -r ${DST}${ESF}-ao.pto ] && return
        if [ -z "${ROWS}" ]
        then
            autoexp '' "${e}" "${@}"
            return ${?}
        fi
        eval "${ROWS}"
        eval "RROWS=\${ROWS${e}}"
        if [ -n "${RROWS}" ]
        then
            for r in ${RROWS}
            do
                eval "RSF=\${RSF${e}R${r}}"
                eval "RSC=\${RSC${e}R${r}}"
                autoexp "${RSF}" "${e}" ${RSC}
            done
            ptomerge ${DST}${ESF}[^-]*-ao.pto ${DST}${ESF}-ao.pto
            ptosort -i n ${DST}${ESF}-ao.pto ${DST}${ESF}-ao.pto
            autooptimiser -a -l -s -o ${DST}${ESF}-ao.pto ${DST}${ESF}-ao.pto
            return ${?}
        fi
        autoexp '' "${e}" "${@}"
    }
    autosec () {
        s=${1}; shift
        eval "NAM=\${NAM${s}}"
        [ -r ${DST}-${NAM}-ao.pto ] && return
        echo "${DST}-${NAM}-ao.pto: ${#}"
        [ ${#} -lt 2 ] && return
        SRC=''
        for e
        do
            eval "ESF=\${ESF${e}}"
            FSF=''
            eval "FOC=\${FOC${s}E${e}}"
            [ -n "${FOC}" ] || eval "FOC=\${FOC${s}}"
            [ -z "${FOC}" ] || eval "FSF=\${FSF${FOC%% *}}"
            src="${NAM}${ESF}${FSF}.tiff"
            [ -r "${src}" ] && SRC="${SRC} ${src}"
        done
        printf 's=%s; SRC=%s\n' ${s} "${SRC}"
        mkpto ${DST}-${NAM}-pm.pto
        ${PMATIC} \
            --sieve1width 64 --sieve1height 48 --sieve1size 8 \
            --sieve2width 32 --sieve2height 24 --sieve2size 4 \
            -o ${DST}-${NAM}-pm.pto ${SRC}
        autooptimiser -a -o ${DST}-${NAM}-ao.pto ${DST}-${NAM}-pm.pto
    }
    autofoc () {
        s=${1}; shift
        eval "NAM=\${NAM${s}}"
        ESF=''
        e="${1}"; shift
        [ -z "${e}" ] || eval "ESF=\${ESF${e}}"
        [ -r ${DST}-${NAM}${ESF}-ao.pto ] && return
        echo "${DST}-${NAM}${ESF}-ao.pto: ${#}"
        [ ${#} -lt 2 ] && return
        SRC=''
        for f
        do
            eval "FSF=\${FSF${f}}"
            src="${NAM}${ESF}${FSF}.tiff"
            [ -r "${src}" ] && SRC="${SRC} ${src}"
        done
        printf 's=%s; e=%s; SRC=%s\n' ${s} ${e} "${SRC}"
        mkpto ${DST}-${NAM}${ESF}-pm.pto
        ${PMATIC} \
            --linearmatch --linearmatchlen 8 \
            --sieve1width 64 --sieve1height 48 --sieve1size 8 \
            --sieve2width 32 --sieve2height 24 --sieve2size 4 \
            -o ${DST}-${NAM}${ESF}-pm.pto ${SRC}
        autooptimiser -a -o ${DST}-${NAM}${ESF}-ao.pto ${DST}-${NAM}${ESF}-pm.pto
    }
    E=''
    for s in ${SEC}
    do
        eval "EXP=\${EXP${s}}"
        for e in ${EXP}
        do
            echo "${E}" | grep -q "\<${e}\>" && continue
            E="${E} ${e}"
        done
    done
    for e in ${E}
    do
        S=''
        for s in ${SEC}
        do
            eval "echo \"\$EXP${s}\" | grep -q '\<${e}\>'" || continue
            S="${S} ${s}"
        done
        autoexpex "${e}" ${S}
    done
    for s in ${SEC}
    do
        eval "EXP=\${EXP${s}}"
        autosec ${s} ${EXP}
        eval "FOC=\${FOC${s}}"
        if [ -n "${FOC}" ]
        then
            autofoc "${s}" '' ${FOC}
            continue
        fi
        for e in ${EXP}
        do
            eval "FOC=\${FOC${s}E${e}}"
            [ -n "${FOC}" ] || continue
            autofoc "${s}" "${e}" ${FOC}
        done
    done
}

cluster () {
    clexp () {
        e=${1}
        eval "ESF=\${ESF${e}}"
        [ -r ${DST}${ESF}-ao.pto ] || return
        [ -r ${DST}${ESF}.pto ] && return
        [ -z "${2}" ] || D="-D${2}"
        [ -z "${3}" ] || d="-d${3}"
        yrp=y,r,p/0-
        #[ -z "${4}" ] || yrp="y,r,p/0-$((${4}-1)),$((${4}+1))-:r,p/${4}"
        [ -z "${4}" ] || yrp="y,r,p/0-$((${4}-1)),$((${4}+1))-"
        echo "yrp: ${yrp}"
        [ -r ${DST}${ESF}.pto ] && return
        perl ../../tools/ptsed -O0x80ff \
            -s -Vv/0-:b,a,c,d,e/0:${yrp} \
            -o ${DST}${ESF}-ao.txt ${DST}${ESF}-ao.pto
        PToptimizer ${DST}${ESF}-ao.txt
        perl ../../tools/ptscluster -O0xff \
            -x48 -y36 ${D} ${d} \
            -o ${DST}${ESF}-ao.txt ${DST}${ESF}-ao.txt \
        && perl ../../tools/ptsed -O0xff \
            -s -r \
            -o ${DST}${ESF}-ao.txt ${DST}${ESF}-ao.txt
        PToptimizer ${DST}${ESF}-ao.txt
        perl ../../tools/ptscluster -O0xff \
            -x24 -y18 ${D} ${d} \
            -o ${DST}${ESF}-ao.txt ${DST}${ESF}-ao.txt \
        && perl ../../tools/ptsed -O0xff \
            -s -r \
            -o ${DST}${ESF}-ao.txt ${DST}${ESF}-ao.txt
        PToptimizer ${DST}${ESF}-ao.txt
        perl ../../tools/ptscluster -O0xff \
            ${D} ${d} \
            -o ${DST}${ESF}-ao.txt ${DST}${ESF}-ao.txt \
        && perl ../../tools/ptsed -O0xff \
            -s -r \
            -o ${DST}${ESF}-ao.txt ${DST}${ESF}-ao.txt
        PToptimizer ${DST}${ESF}-ao.txt
        perl ../../tools/ptsed -O0xff \
            -i \
            -o ${DST}${ESF}.pto ${DST}${ESF}-ao.txt
    }
    clsec () {
        s=${1}
        eval "NAM=\${NAM${s}}"
        ESF=''
        e=${2}
        [ -z "${e}" ] || eval "ESF=\${ESF${e}}"
        [ -r ${DST}-${NAM}${ESF}-ao.pto ] || return
        [ -r ${DST}-${NAM}${ESF}.pto ] && return
        #[ -r ${DST}-${NAM}${ESF}.pto ] && return
        #    -Ib,v/1-:=0:a,c,d,e/0-:0 \
        perl ../../tools/ptsed -O0xff \
            -Vy,r,p/1- \
            -s -o ${DST}-${NAM}${ESF}-ao.txt ${DST}-${NAM}${ESF}-ao.pto
        PToptimizer ${DST}-${NAM}${ESF}-ao.txt
        perl ../../tools/ptscluster -O0xff \
            -r0x21 -x48 -y36 -d12 -D24 \
            -o ${DST}-${NAM}${ESF}-ao.txt ${DST}-${NAM}${ESF}-ao.txt \
        && perl ../../tools/ptsed -O0xff \
            -s -r \
            -o ${DST}-${NAM}${ESF}-ao.txt ${DST}-${NAM}${ESF}-ao.txt
        PToptimizer ${DST}-${NAM}${ESF}-ao.txt
        perl ../../tools/ptscluster -O0xff \
            -r0x21 -x48 -y36 -d8 -D16 \
            -o ${DST}-${NAM}${ESF}-ao.txt ${DST}-${NAM}${ESF}-ao.txt \
        && perl ../../tools/ptsed -O0xff \
            -s -r \
            -o ${DST}-${NAM}${ESF}-ao.txt ${DST}-${NAM}${ESF}-ao.txt
        PToptimizer ${DST}-${NAM}${ESF}-ao.txt
        perl ../../tools/ptscluster -O0xff \
            -r0x21 -x48 -y36 -D10 \
            -o ${DST}-${NAM}${ESF}-ao.txt ${DST}-${NAM}${ESF}-ao.txt \
        && perl ../../tools/ptsed -O0xff \
            -s -r \
            -Va,c,d,e/1-:y,r,p/1- \
            -o ${DST}-${NAM}${ESF}-ao.txt ${DST}-${NAM}${ESF}-ao.txt
        PToptimizer ${DST}-${NAM}${ESF}-ao.txt
        perl ../../tools/ptscluster -O0xff \
            -r0x21 -x24 -y18 -D7 \
            -o ${DST}-${NAM}${ESF}-ao.txt ${DST}-${NAM}${ESF}-ao.txt \
        && perl ../../tools/ptsed -O0xff \
            -s -r \
            -o ${DST}-${NAM}${ESF}-ao.txt ${DST}-${NAM}${ESF}-ao.txt
        PToptimizer ${DST}-${NAM}${ESF}-ao.txt
        perl ../../tools/ptscluster -O0xff \
            -r0x21 -D5 \
            -o ${DST}-${NAM}${ESF}-ao.txt ${DST}-${NAM}${ESF}-ao.txt \
        && perl ../../tools/ptsed -O0xff \
            -s -r \
            -o ${DST}-${NAM}${ESF}-ao.txt ${DST}-${NAM}${ESF}-ao.txt
        PToptimizer ${DST}-${NAM}${ESF}-ao.txt
        perl ../../tools/ptscluster -O0xff \
            -r0x21 -D3 \
            -o ${DST}-${NAM}${ESF}-ao.txt ${DST}-${NAM}${ESF}-ao.txt \
        && perl ../../tools/ptsed -O0xff \
            -s -r \
            -o ${DST}-${NAM}${ESF}-ao.txt ${DST}-${NAM}${ESF}-ao.txt
        PToptimizer ${DST}-${NAM}${ESF}-ao.txt
        perl ../../tools/ptsed -O0xff \
            -i \
            -o ${DST}-${NAM}${ESF}.pto ${DST}-${NAM}${ESF}-ao.txt
    }
    E=''
    for s in ${SEC}
    do
        eval "EXP=\${EXP${s}}"
        for e in ${EXP}
        do
            echo "${E}" | grep -q "\<${e}\>" && continue
            E="${E} ${e}"
        done
    done
    for e in ${E}
    do
        eval "anc=\${ANC${e}}"
        [ -n "${anc}" ] || anc="${ANC}"
        echo "ANC: ${ANC}; anc: ${anc}"
        clexp ${e} "${DMAX}" "${DMIN}" "${anc}"
    done
    for s in ${SEC}
    do
        clsec ${s}
        eval "EXP=\${EXP${s}}"
        for e in ${EXP}
        do
            clsec ${s} ${e}
        done
    done
}

mkprocessmf () {
    srcdef () {
        awk '
            BEGIN {
                i=0;
            }
            /^p / {
                if (match($0,/ E[^ ]+/))
                    print "EPAN="substr($0,RSTART+2,RLENGTH-2);
            }
            /^i / {
                if (match($0," n\"?"SRC"\"?")) {
                    print "ISRC="i;
                    if (match($0,/ Eev[^ ]+/))
                        print "ESRC="substr($0,RSTART+4,RLENGTH-4);
                    nextfile
                }
                ++i;
            }
        ' SRC=${SRC} ${DST}.pto
    }
    prologue () {
        cat <<EOT
DST?=${DST}
TMPPFX?=${TMPPFX}

CPUS?=${CPUS}
MEM?=${MEM}
DEPTH?=${DEPTH}
IMCOMP?=${IMCOMP}
ENCOMP?=${ENCOMP}
RGBPROFILE?=${RGBPROFILE}
sRGBPROFILE?=${sRGBPROFILE}

CONV?=${CONV}
REMAP?=${REMAP}
FFUSE?=${FFUSE}
MERGE?=${MERGE}
DEGHOST?=${DEGHOST}
BLEND?=${BLEND} ${pg}

EXIFTFF?=${EXIFTFF}
EXIFTAG?=-EXIF:ExposureTime -EXIF:ShutterSpeedValue -EXIF:ApertureValue -EXIF:ISO

RMSRC=${RMSRC}
RMTMP=${RMTMP}
RMDST=${RMDST}
MV=mv
LN=ln -f

all: \${DST}.tiff

EOT
    }
    epilogue () {
        BLIN="${BLIN# }"
        cat <<EOT

\${TMPPFX}.tiff: ${BLIN}
	@\${RMSRC} ${RMIN}
	@\${BLEND} -o \${TMPPFX}.tiff ${BLIN}
	@\${RMTMP} ${BLIN}
EOT
    }
    epilogueLDR () {
        cat <<EOT
\${DST}.tiff: \${TMPPFX}.tiff
EOT
    }
    epilogueHDR () {
        [ -z "${HDRHTML}" ] \
        || cat <<EOT
${html}: \${TMPPFX}.tiff
	@pfsin \${TMPPFX}.tiff \\
	 | pfstag --set FILE_NAME="${HDRHTML}.pfs" \\
	 | pfsclamp --min ${HDRCLMMN} --max ${HDRCLMMX} \\
	 | pfssize --maxx 1024 --maxy 768 \\
	 | pfswb -v -r ${HDRWBR} -g ${HDRWBG} -b ${HDRWBB} \\
	 | pfsclamp --min ${HDRCLMMN} --max ${HDRCLMMX} \\
	 | ( \\
	    rm -rf '${html}' && mkdir '${html}' && cd '${html}' \\
	    && pfsouthdrhtml \\
	        -q 4 \\
	        -p ${HDRTMPL}/hdrhtml_page_templ.html \\
	        -i ${HDRTMPL}/hdrhtml_image_templ.html \\
	        index.html \
	    && cp -r ${HDRTMPL}/hdrhtml_assets ./ \\
	   )
EOT
        cat <<EOT
\${DST}.tiff: \${TMPPFX}.tiff ${html}
EOT
    }
    epilogueLDR1 () {
        srgb=''
        [ -z "${LIN}" ] || srgb="${sRGB}"
        cat <<EOT
	@\${CONV} \${TMPPFX}.tiff \\
		+matte +repage ${srgb} ${DARG} \\
		-compress \${IMCOMP} \${DST}.tiff
	@\${RMTMP} \${TMPPFX}.tiff
EOT
    }
    epilogueHDR0 () {
        cat <<EOT
	@\${CONV} \${TMPPFX}.tiff \\
		+matte +repage ${DARG} \\
		-compress \${IMCOMP} \${DST}.tiff
	@\${RMTMP} \${TMPPFX}.tiff
EOT
    }
    epilogueHDR1 () {
        cat <<EOT
	@pfsin \${TMPPFX}.tiff \\
	 | pfsclamp --min ${HDRCLMMN} --max ${HDRCLMMX} \\
	 | pfsgamma -m ${HDRGAMML} -g ${HDRGAMGM} \\
	 | pfswb -v -r ${HDRWBR} -g ${HDRWBG} -b ${HDRWBB} \\
	 | pfsclamp --min ${HDRCLMMN} --max ${HDRCLMMX} \\
	 | pfstmo_reinhard05 -v -b ${HDRR05BR} -c ${HDRR05CH} -l ${HDRR05LT} \\
	 | pfsoutimgmagick -s -b 16 \${DST}.tiff
	@\${RMTMP} \${TMPPFX}.tiff
	@\${CONV} \${DST}.tiff \\
		+matte +repage ${DARG} \\
		-compress \${IMCOMP} \${DST}.tiff
EOT
    }
    epilogueHDR2 () {
        cat <<EOT
	@pfsin \${TMPPFX}.tiff \\
	 | pfsclamp --min 4 --max 65536 \\
	 | pfswb -v -r ${HDRWBR} -g ${HDRWBG} -b ${HDRWBB} \\
	 | pfsclamp --min ${HDRCLMMN} --max ${HDRCLMMX} \\
	 | pfstmo_mantiuk08 -v -d ${HDRM08DF} -c ${HDRM08CS} -e ${HDRM08CE} \\
	 | pfsoutimgmagick -b 16 \${DST}.0.tiff
	@pfsin \${TMPPFX}.tiff \\
	 | pfsclamp --min 4 --max 65536 \\
	 | pfswb -v -r ${HDRWBR}e-04 -g ${HDRWBG}e-04 -b ${HDRWBB}e-04 \\
	 | pfsclamp --min ${HDRCLMMN} --max ${HDRCLMMX} \\
	 | pfstmo_reinhard05 -v -b ${HDRR05BR} -c ${HDRR05CH} -l ${HDRR05LT} \\
	 | pfsoutimgmagick -s -b 16 \${DST}.1.tiff
	@\${RMTMP} \${TMPPFX}.tiff
	@\${CONV} \${DST}.0.tiff \\
		-colorspace HSL -channel B -separate \\
		-compress \${IMCOMP} \${DST}.2.tiff
	@\${CONV} \${DST}.2.tiff \\
		-negate \\
		+level 0%,90%,1.0 \\
		-compress \${IMCOMP} \${DST}.3.tiff
	@\${CONV} \${DST}.2.tiff \${DST}.3.tiff \\
		-compose lighten -composite \\
		-level 49%,100%,1.2 \\
		+level 0%,98%,1.0 \\
		-compress \${IMCOMP} \${DST}.4.tiff
	@\${CONV} \${DST}.1.tiff \${DST}.4.tiff \\
		-compose copy-opacity -composite \\
		-compress \${IMCOMP} \${DST}.5.tiff
	@\${CONV} \${DST}.0.tiff \${DST}.5.tiff \\
		-compose src-over -composite \\
		+matte +repage ${DARG} \\
		-compress \${IMCOMP} \${DST}.tiff
	@\${RMTMP} \${DST}.0.tiff \${DST}.1.tiff \\
		\${DST}.2.tiff \${DST}.3.tiff \\
		\${DST}.4.tiff \${DST}.5.tiff
EOT
    EPLTMP='${DST}.0.tiff ${DST}.1.tiff ${DST}.2.tiff ${DST}.3.tiff ${DST}.4.tiff ${DST}.5.tiff'
    }
    epilogueHDR3 () {
        cat <<EOT
	@pfsin \${TMPPFX}.tiff \\
	 | pfsclamp --min ${HDRCLMMN} --max ${HDRCLMMX} \\
	 | pfswb -v -r ${HDRWBR} -g ${HDRWBG} -b ${HDRWBB} \\
	 | pfsclamp --min ${HDRCLMMN} --max ${HDRCLMMX} \\
	 | pfstmo_reinhard02 -v -k ${HDRR02KY} \\
	 | pfsgamma -m ${HDRGAMML} -g ${HDRGAMGM} \\
	 | pfsoutimgmagick -s -b 16 \${DST}.tiff
	@\${RMTMP} \${TMPPFX}.tiff
	@\${CONV} \${DST}.tiff \\
		+matte +repage ${DARG} \\
		-compress \${IMCOMP} \${DST}.tiff
EOT
    }
    epilogueHDR4 () {
        cat <<EOT
	@pfsin \${TMPPFX}.tiff \\
	 | pfsclamp --min ${HDRCLMMN} --max ${HDRCLMMX} \\
	 | pfswb -v -r ${HDRWBR} -g ${HDRWBG} -b ${HDRWBB} \\
	 | pfsclamp --min ${HDRCLMMN} --max ${HDRCLMMX} \\
	 | pfstmo_mantiuk08 -v -d ${HDRM08DF} -c ${HDRM08CS} -e ${HDRM08CE} \\
	 | pfsoutimgmagick -b 16 \${DST}.0.tiff
	@pfsin \${TMPPFX}.tiff \\
	 | pfsclamp --min ${HDRCLMMN} --max ${HDRCLMMX} \\
	 | pfswb -v -r ${HDRWBR} -g ${HDRWBG} -b ${HDRWBB} \\
	 | pfsclamp --min ${HDRCLMMN} --max ${HDRCLMMX} \\
	 | pfstmo_reinhard05 -v -b ${HDRR05BR} -c ${HDRR05CH} -l ${HDRR05LT} \\
	 | pfsoutimgmagick -s -b 16 \${DST}.1.tiff
	@\${RMTMP} \${TMPPFX}.tiff
	@\${CONV} \${DST}.0.tiff \\
		-colorspace HSL -channel B -separate \\
		-compress \${IMCOMP} \${DST}.2.tiff
	@\${CONV} \${DST}.2.tiff \\
		-negate \\
		+level 0%,90%,1.0 \\
		-compress \${IMCOMP} \${DST}.3.tiff
	@\${CONV} \${DST}.2.tiff \${DST}.3.tiff \\
		-compose lighten -composite \\
		-level 49%,100%,1.2 \\
		+level 0%,98%,1.0 \\
		-compress \${IMCOMP} \${DST}.4.tiff
	@\${CONV} \${DST}.1.tiff \${DST}.4.tiff \\
		-compose copy-opacity -composite \\
		-compress \${IMCOMP} \${DST}.5.tiff
	@\${CONV} \${DST}.0.tiff \${DST}.5.tiff \\
		-compose src-over -composite \\
		+matte +repage ${DARG} \\
		-compress \${IMCOMP} \${DST}.tiff
	@\${RMTMP} \${DST}.0.tiff \${DST}.1.tiff \\
		\${DST}.2.tiff \${DST}.3.tiff \\
		\${DST}.4.tiff \${DST}.5.tiff
EOT
    EPLTMP='${DST}.0.tiff ${DST}.1.tiff ${DST}.2.tiff ${DST}.3.tiff ${DST}.4.tiff ${DST}.5.tiff'
    }
    epilogueHDR5 () {
        cat <<EOT
	@pfsin \${TMPPFX}.tiff \\
	 | pfsclamp --min ${HDRCLMMN} --max ${HDRCLMMX} \\
	 | pfswb -v -r ${HDRWBR} -g ${HDRWBG} -b ${HDRWBB} \\
	 | pfsclamp --min ${HDRCLMMN} --max ${HDRCLMMX} \\
	 | pfstmo_mantiuk06 -v -f ${HDRM06FR} -s ${HDRM06SN} \\
	 | pfstmo_reinhard02 -v -k ${HDRR02KY} \\
	 | pfsoutimgmagick -s -b 16 \${DST}.tiff
	@\${RMTMP} \${TMPPFX}.tiff
	@\${CONV} \${DST}.tiff \\
		+matte +repage ${DARG} \\
		-compress \${IMCOMP} \${DST}.tiff
EOT
    }
    epilogueHDR6 () {
        cat <<EOT
	@pfsin \${TMPPFX}.tiff \\
	 | pfsclamp --min ${HDRCLMMN} --max ${HDRCLMMX} \\
	 | pfswb -v -r ${HDRWBR} -g ${HDRWBG} -b ${HDRWBB} \\
	 | pfsclamp --min ${HDRCLMMN} --max ${HDRCLMMX} \\
	 | pfstmo_mantiuk08 -v -d ${HDRM08DF} -c ${HDRM08CS} -e ${HDRM08CE} \\
	 | pfsoutimgmagick -b 16 \${DST}.tiff
	@\${RMTMP} \${TMPPFX}.tiff
	@\${CONV} \${DST}.tiff \\
		+matte +repage ${DARG} \\
		-compress \${IMCOMP} \${DST}.tiff
EOT
    }
    remap () {
        SRC="${NAM}${ESF}${FSF}.tiff"
        eval "EV=\${EV${e}}; SEV=\${EV${e}S${s}}"
        eval "$(srcdef)"
        [ -n "${ISRC}" ] || return 1
        [ ${nexp} -gt 1 ] || ESRC="${EPAN}"
        [ -z "${EV}" ] || ESRC="${EV}"
        [ -z "${SEV}" ] || ESRC="${SEV}"
        [ -z "${ESRC}" ] || ESRC="-e ${ESRC}"
        t=$(printf '${TMPPFX}-%04d.%s' ${ISRC} ${TMPSFX})
        m=''
        [ "${PROCESS}" = HDR ] \
        && m=$(printf ' ${TMPPFX}-%04d_gray.pgm' ${ISRC})
        cat <<EOT
${t}: \${DST}.pto ${SRC}
	@\${REMAP} -i ${ISRC} ${ESRC} \${DST}.pto
EOT
        RMIN="${RMIN} ${SRC}${m}"
        n="${SRC}"
        SRC="\${TMPPFX}f${NAM}${ESF}${FSF}.tiff"
        cat <<EOT
${SRC}: ${t}
EOT
        eval "TARGE=\${TARGE${e}F}; TARGSE=\${TARG${s}E${e}F}; TARGSEF=\${TARG${s}E${e}F${f}}"
        XTARG=''
        #[ -z "${LIN}" ] \
        #|| XTARG="${XTARG} ${sRGB}"
        [ -z "${TARGE}" ] \
        || XTARG="${XTARG} ${TARGE}"
        [ -z "${TARGSE}" ] \
        || XTARG="${XTARG} ${TARGSE}"
        [ -z "${TARGSEF}" ] \
        || XTARG="${XTARG} ${TARGSEF}"
        if [ -n "${XTARG}" ]
        then
            cat <<EOT
	@\${CONV} ${t} \\
		${XTARG} \\
		-compress \${IMCOMP} ${SRC}
EOT
        else
            cat <<EOT
	@\${LN} ${t} ${SRC}
EOT
        fi
        [ "${PROCESS}" = HDR ] && cat <<EOT
	@\${EXIFTFF} ${n} \${EXIFTAG} ${SRC}
EOT
        cat <<EOT
	@\${RMTMP} ${t}
EOT
        FCRM="${FCRM} ${t}"
        FFIN="${FFIN} ${SRC}"
    }
    fstack () {
        FFIN="${FFIN# }"
        t="${FFIN}"
        if [ "$(echo "${t}" | wc -w)" -gt 1 ]
        then
            t="\${TMPPFX}et${NAM}${ESF}.tiff"
            cat <<EOT
${t}: ${FFIN}
	@\${FFUSE} -o ${t} ${FFIN}
EOT
            [ "${PROCESS}" = HDR ] && cat <<EOT
	@\${EXIFTFF} ${FFIN%% *} \${EXIFTAG} ${t}
EOT
            cat <<EOT
	@\${RMTMP} ${FFIN}
EOT
            FCRM="${FCRM} ${FFIN}"
        fi
        SRC="\${TMPPFX}e${NAM}${ESF}.tiff"
        eval "PATCH=\${PATCH${s}E${e}}"
        ifs="${IFS}"; IFS=:
        set -- ${PATCH}
        IFS=${ifs}; unset ifs
        ps=''
        ap=''
        for p
        do
            eval "$(echo "${p}" | { read n p g a; echo "n='${n}';p='${p}';g='${g}';a='${a}'"; })"
            [ -n "${p}" ] || continue
            eval "p=\\\${TMPPFX}e${NAM}\${ESF${p}}.tiff"
            ps="${ps} ${p}"
            ap="$(printf '%s\n\t%s' "${ap}" "@env RGBPROFILE='\${RGBPROFILE}' sRGBPROFILE='\${sRGBPROFILE}' CONV='\${CONV}' IMCOMP='\${IMCOMP}' RM='\${RMTMP}' sh ../../tools/applypatch ${g} ${p} ${SRC} ${n} ${LIN} ${a}")"
        done
        cat <<EOT
${SRC}: ${t}${ps}
EOT
        eval "TARGS=\${TARG${s}E}; TARGE=\${TARGE${e}}; TARGSE=\${TARG${s}E${e}}"
        XTARG=''
        [ -z "${TARGS}" ] \
        || XTARG="${XTARG} ${TARGS}"
        [ -z "${TARGE}" ] \
        || XTARG="${XTARG} ${TARGE}"
        [ -z "${TARGSE}" ] \
        || XTARG="${XTARG} ${TARGSE}"
        if [ -n "${XTARG}" ]
        then
            cat <<EOT
	@\${CONV} ${t} \\
		${XTARG} \\
		-compress \${IMCOMP} ${SRC}
EOT
        else
            cat <<EOT
	@\${LN} ${t} ${SRC}
EOT
        fi
        [ -z "${ap}" ] || echo "${ap}" | tail +2
        [ "${PROCESS}" = HDR ] && cat <<EOT
	@\${EXIFTFF} ${t} \${EXIFTAG} ${SRC}
EOT
        cat <<EOT
	@\${RMTMP} ${t}
EOT
        EFRM="${EFRM} ${t}"
        EMIN="${EMIN} ${SRC}"
    }
    estack () {
        EMIN="${EMIN# }"
        t="\${TMPPFX}t${NAM}.tiff"
        cat <<EOT
${t}: ${EMIN}
EOT
        ECNT="$(echo "${EMIN}" | wc -w)"
        if [ "${ECNT}" -gt 1 ]
        then
            [ -z "${STK}" ] \
            || cat <<EOT
	@env CONV='\${CONV}' RM='\${RMTMP}' sh ../../tools/stackmask ${EMIN}
EOT
            if [ -n "${DGH}" ]
            then
                [ -z "${LIN}" ] \
                || cat <<EOT
	@for n in ${EMIN}; \\
	 do \\
		\${CONV} \$\${n} ${sRGB} \$\${n}; \\
	 done
EOT
                cat <<EOT
	@\${DEGHOST} ${EMIN}
EOT
                [ -z "${LIN}" ] \
                || cat <<EOT
	@for n in ${EMIN}; \\
	 do \\
		\${CONV} \$\${n} ${RGB} \$\${n}; \\
	 done
EOT
                cat <<EOT
	@for n in ${EMIN}; \\
	 do \\
		\${CONV} \$\${n} \\( +clone -fx '1-s.o' +matte \$\${n%.tiff}_mask.tif -compose multiply -composite \\) -compose copy-opacity -composite \$\${n}; \\
		\${RMTMP} \$\${n%.tiff}_mask.tif; \\
	 done
EOT
                EFRM="${EFRM} ${n%.tiff}_mask.tif"
            fi
        fi
        if [ "${ECNT}" -eq 1 ]
        then
            if [ "${EMSI}" = LINK ]
            then
                cat <<EOT
	@\${LN} ${EMIN} ${t}
EOT
            else
                cat <<EOT
	@\${MERGE} -o ${t} ${EMIN} ${EMIN}
EOT
            fi
        else
            cat <<EOT
	@\${MERGE} -o ${t} ${EMIN}
EOT
        fi
        cat <<EOT
	@\${RMTMP} ${EMIN}
EOT
        EFRM="${EFRM} ${EMIN}"
        SRC="\${TMPPFX}${NAM}.tiff"
        cat <<EOT
${SRC}: ${t}
EOT
        eval "TARGS=\${TARG${s}}"
        XTARG=''
        [ -z "${TARG}" ] \
        || XTARG="${XTARG} ${TARG}"
        [ -z "${TARGS}" ] \
        || XTARG="${XTARG} ${TARGS}"
        if [ -n "${XTARG}" ]
        then
            cat <<EOT
	@\${CONV} ${t} \\
		${XTARG} \\
		-compress \${IMCOMP} ${SRC}
EOT
        else
            cat <<EOT
	@\${LN} ${t} ${SRC}
EOT
        fi
        cat <<EOT
	@\${RMTMP} ${t}
EOT
        EFRM="${EFRM} ${t}"
        BLIN="${BLIN} ${SRC}"
    }
    clean () {
        cat <<EOT

clean: 
	@-\${RMSRC} ${RMIN# }
	@-\${RMTMP} ${FCRM# }
	@-\${RMTMP} ${EFRM# }
	@-\${RMTMP} ${BLIN# }
	@-\${RMTMP} \${TMPPFX}.tiff ${EPLTMP# }
	@-\${RMDST} \${DST}.tiff
EOT
    }
    pg=''
    [ -z "${PG}" ] || pg="-f ${PG}"
    html=''
    [ -z "${HDRHTML}" ] || html="${HDRHTML}-hdr"
    #expr "${BLEND}" : '.*smartblend' >/dev/null && pg=''
    prologue
    RMIN=''
    FCRM=''
    EFRM=''
    BLIN=''
    EPLTMP=''
    for s in ${SEC}
    do
        eval "NAM=\${NAM${s}}"
        eval "EXP=\${EXP${s}}"
        nexp=$(echo "${EXP}" | wc -w)
        EMIN=''
        if [ -z "${EXP}" ]
        then
            # no exposures stack for current sector
            e=0
            ESF=''
            FFIN=''
            eval "FOC=\${FOC${s}}"
            if [ -z "${FOC}" ]
            then
                # no focuses stack for current sector
                f=0
                FSF=''
                remap || return 1
            fi
            for f in ${FOC}
            do
                eval "FSF=\${FSF${f}}"
                remap || return 1
            done
            fstack
        fi
        for e in ${EXP}
        do
            eval "ESF=\${ESF${e}}"
            eval "FOC=\${FOC${s}E${e}}"
            FFIN=''
            if [ -z "${FOC}" ]
            then
                # no focuses stack for current exposure and sector
                f=0
                FSF=''
                remap || return 1
            fi
            for f in ${FOC}
            do
                eval "FSF=\${FSF${f}}"
                remap || return 1
            done
            fstack
        done
        estack
    done
    epilogue
    "epilogue${PROCESS}"
    "epilogue${PROCESS}${EPL}"
    clean
}

inpaint () {
    local d g n
    d=${1}
    g=${2}
    n=${3}
    [ -r mask-${d}.${n}.png ] || return
    eval ${CONV} ${d}.tiff \
        -crop ${g} \
        -compress ${IMCOMP} ${d}.${n}.tiff 
    mv ${d}.tiff ${d}.0.tiff
    greycstoration -inpaint ${d}.${n}.tiff \
        -iter 1024 -bits 16 \
        -m mask-${d}.${n}.png \
        -o ${d}.${n}.tiff
    eval ${CONV} ${d}.0.tiff ${d}.${n}.tiff \
        -geometry ${g} \
        -compose src-over -composite \
        -compress ${IMCOMP} ${d}.tiff
    rm ${d}.0.tiff ${d}.${n}.tiff
}

apply_patch () {
    g=${1}; shift
    se=${1}; shift
    de=${1}; shift
    n=${1}; shift
    [ -n ${n} ] || n=1
    rgb=''; srgb=''
    [ -n ${LIN} ] || { rgb="${RGB}"; srgb="${sRGB}"; }
    eval ${CONV} ${DST}-e${se}.tiff \
        -crop ${g} +repage \
        ${rgb} "${@}" ${srgb} \
        -compress ${IMCOMP} ${DST}-e${de}.${n}.tiff 
    [ -r mask-${DST}-e${de}.${n}.png ] \
    && eval ${CONV} ${DST}-e${de}.${n}.tiff \
        mask-${DST}-e${de}.${n}.png -compose copyopacity -composite \
        -compress ${IMCOMP} ${DST}-e${de}.${n}.tiff
    mv ${DST}-e${de}.tiff ${DST}-e${de}.0.tiff
    eval ${CONV} ${DST}-e${de}.0.tiff ${DST}-e${de}.${n}.tiff \
        -geometry ${g} \
        -compose src-over -composite \
        -compress ${IMCOMP} ${DST}-e${de}.tiff
    rm ${DST}-e${de}.0.tiff ${DST}-e${de}.${n}.tiff
}

apply_patch2 () 
{
    dg=${1}; shift
    sg=${1}; shift
    n=${1}; shift
    [ -n ${n} ] || n=1
    rgb=''; srgb=''
    [ -n ${LIN} ] || { rgb="${RGB}"; srgb="${sRGB}"; }
    eval ${CONV} ${DST}.tiff \
        -crop ${sg} +repage \
        ${rgb} "${@}" ${srgb} \
        -compress ${IMCOMP} ${DST}.${n}.tiff 
    [ -r mask-${DST}.${n}.png ] \
    && eval ${CONV} ${DST}.${n}.tiff \
        mask-${DST}.${n}.png -compose copyopacity -composite \
        -compress ${IMCOMP} ${DST}.${n}.tiff
    mv ${DST}.tiff ${DST}.0.tiff
    eval ${CONV} ${DST}.0.tiff ${DST}.${n}.tiff \
        -geometry ${dg} \
        -compose src-over -composite \
        -compress ${IMCOMP} ${DST}.tiff
    rm ${DST}.0.tiff ${DST}.${n}.tiff
}

apply_patch3 () 
{
    dst=${1}; shift
    dg=${1}; shift
    src=${1}; shift
    sg=${1}; shift
    n=${1}; shift
    [ -n ${n} ] || n=1
    rgb=''; srgb=''
    [ -n ${LIN} ] || { rgb="${RGB}"; srgb="${sRGB}"; }
    eval ${CONV} ${src}.tiff \
        -crop ${sg} +repage \
        ${rgb} "${@}" ${srgb} \
        -compress ${IMCOMP} ${dst}.${n}.tiff 
    [ -r mask-${dst}.${n}.png ] \
    && eval ${CONV} ${dst}.${n}.tiff \
        mask-${dst}.${n}.png -compose copyopacity -composite \
        -compress ${IMCOMP} ${dst}.${n}.tiff
    mv ${dst}.tiff ${dst}.0.tiff
    eval ${CONV} ${dst}.0.tiff ${dst}.${n}.tiff \
        -geometry ${dg} \
        -compose src-over -composite \
        -compress ${IMCOMP} ${dst}.tiff
    rm ${dst}.0.tiff ${dst}.${n}.tiff
}

qtvr () {
    mkdir -p ${TMPDIR}/${DST}
    eval "${CONV} ${DST}.tiff ${FINAL} ${*} -compress ${IMCOMP} '${TMPDIR}/${DST}/${DST}.tiff'"
    n=''
    [ -z "${NAME}" ] || n="--name='${NAME}'"
    yaw=''
    [ -z "${YAW}" ] || yaw="--yaw='${YAW}'"
    BASEDIR="$(pwd)" \
    && cd "${TMPDIR}/${DST}" \
    && eval "erect2cubic --erect=${DST}.tiff \
        ${yaw} \
        --ptofile=cubic.pto" \
    && ptsed -Pw,h:2048 -Mi:7 -o cubic.pto cubic.pto \
    && ${LDRREMAP} -o face- cubic.pto \
    && for n in 0 1 2 3 4 5
       do
        eval ${CONV} face-000${n}.tif \
            -sharpen 0x1.16331 \
            -compress ${IMCOMP} face-000${n}.tif \
        && gm convert face-000${n}.tif \
            -quality 90 face-big-${n}.jpg \
        && eval ${CONV} face-000${n}.tif \
            -resize 1024 -sharpen 0x0.76105 \
            -compress ${IMCOMP} face-000${n}.tif \
        && gm convert face-000${n}.tif \
            -quality 90 face-middle-${n}.jpg \
        && eval ${CONV} face-000${n}.tif \
            -resize 512 -sharpen 0x0.51848 \
            -compress ${IMCOMP} face-000${n}.tif \
        && gm convert face-000${n}.tif \
            -quality 92 face-small-${n}.jpg \
        && eval ${CONV} face-000${n}.tif \
            -resize 256 -sharpen 0x0.42410 \
            -compress ${IMCOMP} face-000${n}.tif \
        && gm convert face-000${n}.tif \
            -quality 80 preview-${n}.jpg \
        && rm face-000${n}.tif
        #eval ${CONV} face-000${n}.tif \
        #    -sharpen 0x1.16331 \
        #        -quality 90 -write face-big-${n}.jpg \
        #    -resize 1024 -sharpen 0x0.76105 \
        #        -quality 90 -write face-${n}.jpg \
        #    -resize 512 -sharpen 0x0.51848 \
        #        -quality 92 -write face-small-${n}.jpg \
        #    -resize 256 -sharpen 0x0.42410 \
        #        -quality 80 preview-${n}.jpg \
        #eval ${CONV} face-000${n}.tif \
        #    -unsharp 0x0.75+0.5+0.05 \
        #    -quality 90 -write face-${n}.jpg \
        #    -resize 1024 -unsharp 0x0.75+0.5+0.04 \
        #    -quality 90 -write face-small-${n}.jpg \
        #    -resize 512 -unsharp 0x0.65+0.5+0.04 \
        #    -resize 256 -unsharp 0x0.45+0.4+0.03 \
        #    -quality 80 preview-${n}.jpg \
       done \
    && eval "jpeg2qtvr \
        --prefix=face-small- --preview=preview- ${n} \
        --width=400 --height=300 \
        --outfile='${BASEDIR}/${DST}-small.mov'" \
    && eval "jpeg2qtvr \
        --prefix=face-middle- --preview=preview- ${n} \
        --width=768 --height=576 \
        --outfile='${BASEDIR}/${DST}-middle.mov'" \
    && eval "jpeg2qtvr \
        --prefix=face-big- --preview=preview- ${n} \
        --width=1280 --height=960 \
        --outfile='${BASEDIR}/${DST}-big.mov'"
    cd "${BASEDIR}"
    rm -rf ${TMPDIR}/${DST}
    test -r ${DST}.mov
}

globe () {
    [ -z "${GFILL}" ] || {
        h=$(identify -format '%h' ${DST}.tiff)
        y=$((${h}/2))
        r=$((${h}/64))
        s=$((${r}/3))
        echo "globe: h=${h}; y=${y}; blur ${r}x${s}"
        eval ${CONV} ${DST}.tiff \
            \(  -size ${h}x${h} "xc:${GFILL}" \
                \(  -colorspace gray -virtual-pixel white \
                    -size ${h}x${h} xc:white \
                    -fill black -box black -draw "circle ${y},${y} ${y},1" \
                    -blur ${r}x${s} +matte \
                \) \
                -compose copyopacity -composite \
            \) \
            -compose src-over -composite \
            -compress ${IMCOMP} ${DST}.tiff
    }
    ${FULLA} -g "${GDIST}" -o ${DST}.tiff ${DST}.tiff
    [ -z "${GCROP}" ] \
    || eval ${CONV} ${DST}.tiff -crop "${GCROP}" -compress ${IMCOMP} ${DST}.tiff
}

[ "${1}" = cluster -o "${1}" = mkprocessmf -o "${1}" = clean ] \
|| prep "${@}"
[ "${1}" = prep ] && exit
[ "${1}" = auto ] && { auto "${@}"; exit; }
[ "${1}" = cluster ] && { cluster "${@}"; exit; }
[ "${1}" = mkprocessmf ] && { mkprocessmf "${@}"; exit; }
[ "${1}" = clean ] && {
    mkprocessmf "${@}" >Makefile
    make clean
    rm Makefile
    exit
}
{
    mkprocessmf "${@}" >Makefile \
    && make all \
    && { [ -n "${3}" ] || ${RMTMP} Makefile; }
} || exit ${?}
#if [ "${3}" = a ]
#then
#    inpaint ${DST} 480x480+4224+5056 1
#    inpaint ${DST} 64x128+4832+4576 2
#else
#    inpaint ${DST} 320x64+64+2720 1
#    inpaint ${DST} 128x64+7840+2688 2
#fi
#[ "${3}" = a ] || {
#    apply_patch2 64x96+1536+1952 64x96+1546+1952 1
#    apply_patch2 96x320+1504+2032 96x320+1568+2032 2
#}
#inpaint ${DST} 480x480+2976+2592 1
[ "${1}" = pano ] && exit

[ -z "${ISSPH}" ] || qtvr
[ -z "${GLOBE}" ] || globe

(
    set -- ${DST}.tiff
    . ../../tools/tiff2jpeg
    ${RMDST} ${DST}.tiff
)