#!/bin/csh
# shrink to a target width

set name=$0
set bname=$name:t

if( $#argv != 3 ) then
	echo "${bname}: usage: $bname <in> <out> <target width>"
	exit 1
endif

set inwidth = `$VIPSHOME/bin/header $1 Xsize`
set factor = `bc <<morrissey \
scale=10 \
$inwidth / $3 \
morrissey`

$VIPSHOME/bin/im_shrink $1 $2 $factor $factor
