Subversion Repositories wimsdev

#! /bin/sh
#
# Mandatary parms: $1=plot number. $2=session number.
# environment parms: ins_source.
# reserved words: ins_border (border size).

if [ "$w_ins_format" = "tex" ]; then
  intermediate_format=tex
else
  intermediate_format=gif
fi
flydraw=$w_wims_home/other/bin/flydraw

CONVERT_DIS=2
CONVERT_OPT="-quality 90 -dispose $CONVERT_DIS"

# default size
if [ -z "$w_insdraw_size" ]; then
 w_insdraw_size=256,256
fi

if [ "$w_anim_format" != "mng" ]; then
 w_anim_format=gif
fi

if [ -z "$2" ]; then exit; fi

if [ ! -z "$w_insdraw_transparent" ]; then
 draw_transp=transparent
 convert_transp="-transparent $w_insdraw_transparent"
else
 convert_transp=
fi

# png transparency is not compatible with browsers
#if [ "$w_ins_format" = "png" ]; then
# convert_transp="-transparent '#000000'"
#fi

if [ -z "$w_ins_anim_loop" ]; then w_ins_anim_loop=0; fi

rm -f $2/insert$w_wims_inssub-$1.* 2>/dev/null
rm -f $2/insdraw.cmd 2>/dev/null

draw_content=
anim_list=
i=0
if [ "$w_ins_format" = "tex" ]; then
  draw_content="$draw_content
 tikzfile $2/insert$w_wims_inssub-$1.tex
 new $w_insdraw_size
 wims_linecount 0
 $ins_source
 "
else
  while [ $i -lt $ins_anim_frames ]; do
  draw_content="$draw_content
 new $w_insdraw_size
 animstep=$i
 s=$i/$ins_anim_frames
 wims_linecount 0
 $ins_source
 output $2/insert$w_wims_inssub-$1-$i.$intermediate_format
"
  anim_list="$anim_list $2/insert$w_wims_inssub-$1-$i.$intermediate_format"
i=`expr $i + 1`
  done
fi
if [ -z "$w_insdraw_filebase" ]; then
 if [ "$trusted_module" = "yes" ]; then
  flydraw_filebase="$module_dir/insdraw gifs"
 else
  flydraw_filebase="$module_dir gifs"
 fi
else
 if [ "$trusted_module" = "yes" ]; then
  flydraw_filebase="$w_insdraw_filebase"
 else
  flydraw_filebase=
 fi
 for b in $w_insdraw_filebase
 do
  case $b in
   modules/data/*) flydraw_filebase="$flydraw_filebase $b"
   ;;
   datamodule/*) b_=`echo "$b" | sed "s!datamodule!modules/data!"`
   flydraw_filebase="$flydraw_filebase $module_dir/images $b_"
   ;;
   */log/classes/*) flydraw_filebase="$flydraw_filebase $b"
   ;;
   */getfile/oefimg*) flydraw_filebase="$flydraw_filebase $b"
   ;;
   */getfile/click*) flydraw_filebase="$flydraw_filebase $b"
   ;;
   wimshome/public_html*) b_=`echo "$b" | sed "s!wimshome/public_html/!!"`
    flydraw_filebase="$b_ $flydraw_filebase"
   ;;
   *) flydraw_filebase="$flydraw_filebase $module_dir/$b"
   ;;
  esac
 done
 flydraw_filebase="$flydraw_filebase gifs"
fi
export flydraw_filebase

$flydraw <<@
$draw_content
@
echo "$draw_content" >>$2/insdraw.cmd

alist=
for i in $anim_list
do
 if [ -s $i ]; then alist="$alist $i"; fi
done

if [ $ins_anim_frames -lt 2 ]; then
 if [ $w_ins_format = $intermediate_format ]; then
  bin/ch..root mv $2/insert$w_wims_inssub-$1-0.$intermediate_format $2/insert$w_wims_inssub-$1.$w_ins_format
 else
  bin/ch..root convert $CONVERT_OPT $convert_transp -density $w_ins_density $2/insert$w_wims_inssub-$1-0.$intermediate_format $2/insert$w_wims_inssub-$1.$w_ins_format 2>$2/convert.err || bin/convert..switch $2/convert.err
 fi
else
  w_ins_format=$w_anim_format
  if [ "$intermediate_format" = "gif" ] && [ "w_ins_format"  = "gif" ]; then
   whirlgif -disp prev -time $ins_anim_delay -loop $w_ins_anim_loop -o $2/insert$w_wims_inssub-$1.$w_ins_format $alist
  else
   bin/ch..root convert $CONVERT_OPT $convert_transp -delay $ins_anim_delay -loop $w_ins_anim_loop $alist $2/insert$w_wims_inssub-$1.$w_ins_format 2>$2/convert.err || bin/convert..switch $2/convert.err
  fi
fi

# Remove zero-sized jpeg file, for otherwise netscape doesn't understand,
# and waits forever trying to interprete it.
if [ ! -s $2/insert$w_wims_inssub-$1.$w_ins_format ]; then rm -f $2/insert$w_wims_inssub-$1.$w_ins_format; fi