LINUX.ORG.RU

Re: Добавить надпись к картинкам

сам то хоть понял ч0 написал?

anonymous ()

Re: Добавить надпись к картинкам

свойство ALT тега IMG тебе поможет

anonymous ()

Re: Добавить надпись к картинкам

вообще, я всю эту херню видел, но это искать надо... надо бы такую борду сделать, для вских поленостей. Нашел, понимаешь, что пригодится, но счас не нужно.

vilfred ☆☆ ()
Ответ на: Re: Добавить надпись к картинкам от anonymous

Re: Добавить надпись к картинкам

В ImageMagick'e можно объединять вместе только картинки, да и смещение должно быть заранее известно :(

anonymous ()
Ответ на: Re: Добавить надпись к картинкам от anonymous

Re: Добавить надпись к картинкам

#!/usr/bin/perl -w

use Image::Size;
use strict;
while(</home/vilfred/*.*>){
  my ($w,$h) = imgsize($_);
  $w=$w-20;
  $h=$h-20;
  print "$w\t$h\n";
  my $newname=$1 if m!^.*/(.*?)$!;
  $newname="new_".$newname;
  qx[convert -font Arial.ttf -fill orange -draw "text $w,$h \"`date -R`\"" $_ images_new/$newname];
}


собственно, команда, которая это делает - convert, что находится 
внутри qx[blah-blah-blah]. Осталось дописать вывод имени всех картинок
 в директории, узнать их размер например при помощи модуля Image::Size
 (лежит на http://www.cpan.org/ или заюзать для узнавания размеров 
Image::Magick), от размера отнять 20 по х и 20 по у и полученный 
результат разности взять как координаты начала текста(вычисление 
координат позволяет избавиться от разных размеров у разных картинок), 
находящегося в нижнем углу картинки, ну или что-то в этом роде. На 
картинку ставится текущая дата.

p.s. работу скрипта не проверял, так что сделай резервную копию 
картинок и попробуй, чего выйдет.

vilfred ☆☆ ()
Ответ на: Re: Добавить надпись к картинкам от vilfred

Re: Добавить надпись к картинкам

Спасибо! только этим скриптом пользоваться не стал ибо нет перла, 
а ставить не хочется. Поэтому чуть-чуть переписал на шелле используя 
только ImageMagick:
for i in `ls ${1}`; do
        array=(`identify ${1}/$i|cut -f 3 -d ' '| cut -f 1 -d '+'|tr x ' '`)
#        width=${array[0]};
        width=5;
        height=$((${array[1]}-10));
        convert -font helvetica -fill black -draw "text $width,$height Mytext" ${1}/$i ${1}/../new/$i;

done

anonymous ()
Вы не можете добавлять комментарии в эту тему. Тема перемещена в архив.