Rev 3342 | Rev 8046 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed
| Rev | Author | Line No. | Line |
|---|---|---|---|
| 14 | reyssat | 1 | #! /bin/sh |
| 2 | # |
||
| 3 | # Mandatary parms: $1=plot number. $2=session number. |
||
| 4 | # environment parms: ins_source. |
||
| 5 | # reserved words: ins_border (border size). |
||
| 6 | |||
| 7 | intermediate_format=gif |
||
| 8 | flydraw=$w_wims_home/other/bin/flydraw |
||
| 9 | |||
| 10 | CONVERT_DIS=2 |
||
| 11 | CONVERT_OPT="-quality 90 -dispose $CONVERT_DIS" |
||
| 12 | |||
| 13 | # default size |
||
| 14 | if [ -z "$w_insdraw_size" ]; then |
||
| 15 | w_insdraw_size=256,256 |
||
| 16 | fi |
||
| 17 | |||
| 18 | if [ "$w_anim_format" != "mng" ]; then |
||
| 19 | w_anim_format=gif |
||
| 20 | fi |
||
| 21 | |||
| 22 | if [ -z "$2" ]; then exit; fi |
||
| 23 | |||
| 24 | if [ ! -z "$w_insdraw_transparent" ]; then |
||
| 25 | draw_transp=transparent |
||
| 26 | convert_transp="-transparent $w_insdraw_transparent" |
||
| 27 | else |
||
| 28 | convert_transp= |
||
| 29 | fi |
||
| 30 | |||
| 31 | # png transparency is not compatible with browsers |
||
| 2052 | bpr | 32 | #if [ "$w_ins_format" = "png" ]; then |
| 33 | # convert_transp="-transparent '#000000'" |
||
| 34 | #fi |
||
| 14 | reyssat | 35 | |
| 36 | if [ -z "$w_ins_anim_loop" ]; then w_ins_anim_loop=0; fi |
||
| 37 | |||
| 38 | rm -f $2/insert$w_wims_inssub-$1.* 2>/dev/null |
||
| 39 | rm -f $2/insdraw.cmd 2>/dev/null |
||
| 40 | |||
| 41 | draw_content= |
||
| 42 | anim_list= |
||
| 43 | i=0 |
||
| 44 | while [ $i -lt $ins_anim_frames ]; do |
||
| 45 | draw_content="$draw_content |
||
| 46 | new $w_insdraw_size |
||
| 47 | animstep=$i |
||
| 48 | s=$i/$ins_anim_frames |
||
| 49 | wims_linecount 0 |
||
| 50 | $ins_source |
||
| 51 | output $2/insert$w_wims_inssub-$1-$i.$intermediate_format |
||
| 52 | " |
||
| 53 | anim_list="$anim_list $2/insert$w_wims_inssub-$1-$i.$intermediate_format" |
||
| 54 | i=`expr $i + 1` |
||
| 55 | done |
||
| 56 | |||
| 57 | if [ -z "$w_insdraw_filebase" ]; then |
||
| 58 | if [ "$trusted_module" = "yes" ]; then |
||
| 59 | flydraw_filebase="$module_dir/insdraw gifs" |
||
| 60 | else |
||
| 61 | flydraw_filebase="$module_dir gifs" |
||
| 62 | fi |
||
| 63 | else |
||
| 64 | if [ "$trusted_module" = "yes" ]; then |
||
| 65 | flydraw_filebase="$w_insdraw_filebase" |
||
| 66 | else |
||
| 67 | flydraw_filebase= |
||
| 68 | fi |
||
| 69 | for b in $w_insdraw_filebase |
||
| 70 | do |
||
| 71 | case $b in |
||
| 72 | modules/data/*) flydraw_filebase="$flydraw_filebase $b" |
||
| 73 | ;; |
||
| 3342 | bpr | 74 | datamodule/*) b_=`echo "$b" | sed "s!datamodule!modules/data!"` |
| 75 | flydraw_filebase="$flydraw_filebase $module_dir/images $b_" |
||
| 76 | ;; |
||
| 4779 | bpr | 77 | */log/classes/*) flydraw_filebase="$flydraw_filebase $b" |
| 78 | ;; |
||
| 79 | */getfile/oefimg*) flydraw_filebase="$flydraw_filebase $b" |
||
| 80 | ;; |
||
| 14 | reyssat | 81 | *) flydraw_filebase="$flydraw_filebase $module_dir/$b" |
| 82 | ;; |
||
| 83 | esac |
||
| 84 | done |
||
| 85 | flydraw_filebase="$flydraw_filebase gifs" |
||
| 86 | fi |
||
| 87 | export flydraw_filebase |
||
| 88 | |||
| 89 | $flydraw <<@ |
||
| 90 | $draw_content |
||
| 91 | @ |
||
| 92 | echo "$draw_content" >>$2/insdraw.cmd |
||
| 93 | |||
| 94 | alist= |
||
| 95 | for i in $anim_list |
||
| 96 | do |
||
| 97 | if [ -s $i ]; then alist="$alist $i"; fi |
||
| 98 | done |
||
| 99 | |||
| 100 | if [ $ins_anim_frames -lt 2 ]; then |
||
| 101 | if [ $w_ins_format = $intermediate_format ]; then |
||
| 102 | bin/ch..root mv $2/insert$w_wims_inssub-$1-0.$intermediate_format $2/insert$w_wims_inssub-$1.$w_ins_format |
||
| 103 | else |
||
| 104 | 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 |
||
| 105 | fi |
||
| 106 | else |
||
| 107 | w_ins_format=$w_anim_format |
||
| 108 | if [ "$intermediate_format" = "gif" ] && [ "w_ins_format" = "gif" ]; then |
||
| 109 | whirlgif -disp prev -time $ins_anim_delay -loop $w_ins_anim_loop -o $2/insert$w_wims_inssub-$1.$w_ins_format $alist |
||
| 110 | else |
||
| 111 | 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 |
||
| 112 | fi |
||
| 113 | fi |
||
| 114 | |||
| 115 | # Remove zero-sized jpeg file, for otherwise netscape doesn't understand, |
||
| 116 | # and waits forever trying to interprete it. |
||
| 117 | if [ ! -s $2/insert$w_wims_inssub-$1.$w_ins_format ]; then rm -f $2/insert$w_wims_inssub-$1.$w_ins_format; fi |
||
| 118 |