#!/bin/tcsh -f
#
#
set xdisp=/home/sw/osf1/HKL2000/0.98.691h/xdisp

switch (${1:e})

case mar1800: 

${xdisp} mar345 180mm 100 marpck ${1}

breaksw

case mar1200: 

${xdisp} mar345 180mm 150 marpck ${1}

breaksw

case mar2400: 

${xdisp} mar345 240mm 100 marpck ${1}

breaksw

case mar1600: 

${xdisp} mar345 240mm 150 marpck ${1}

breaksw

case mar3000: 

${xdisp} mar345 300mm 100 marpck ${1}


breaksw

case mar2000: 

${xdisp} mar345 300mm 150 marpck ${1}

breaksw

case mar2300: 

${xdisp} mar345 345mm 150 marpck ${1}

breaksw

case mar3450:

${xdisp} mar345 345mm 100 marpck ${1}

breaksw

case mccd:

${xdisp} ccd unsupported-m325 ${1}

breaksw

case image:

set i = `od -x ${1} | head -1`

if (${i[2]} =~ [dD]007 || \
    ${i[3]} =~ [dD]007 || \
    ${i[2]} =~ 07[dD]0 || \
    ${i[3]} =~ 07[dD]0) then

${xdisp} mar 30cm ${1}

else 

${xdisp} mar 18cm ${1}

endif

breaksw

case img:

set scanner = `head -32 ${1} | grep -E "DETECTOR_SN *= *[0-9]+" | sed "s/[=;]/ /g"`

if (${#scanner} >= 2) then
if (${scanner[2]} >= 900) then

set scanner = "unsupported-q315"

else

set scanner = "unsupported-q210"

endif
else

set scanner = "unsupported-q4"

endif

set binning = `head -32 ${1} | grep -E "BIN *= *[0-9a-zA-Z]+" | sed "s/[=;]/ /g"`

if (${#binning} < 2) set binning = ("BIN" "none")

if (${binning[2]} =~ [2-9][xX][2-9]) then

${xdisp} ccd adsc ${scanner} binned ${1}

else

${xdisp} ccd adsc ${scanner} ${1}

endif

breaksw

default:

if (${#argv} == 1) then

echo usage: ${0} image

else

${xdisp} ${*}

endif

breaksw

endsw

done:

exit