print metadata to jpg Post: 302485407

Sponsored Content

Top Forums Shell Programming and Scripting print metadata to jpg Post 302485407 by flash80 on Wednesday 5th of January 2011 06:43:25 AM

01-05-2011

Registered User

thx again Chuble_XL it is working very well the black frame is perfect.

The script is working for a specific jpg. I would like it work for any jpg, using the following form.

GPStoPic file1.jpg # for a chosen file
or
GPStoPic for * # for all the files in a specific directory.

Once the program executed it should output append "GPS" in the name of the file.

ex: GPStoPic file1.jpg will output file1GPS.jpg

Actual scipt

Code:

source=source.jpg
target=target.JPG
 
# get the image's size, width=$1, length=$2, you need adjust for your image,
# depand the output format of command identify
set -- $(identify $source |awk 'NR==1{split($3,a,"x"); print a[1],a[2]}')  
I_WIDTH=$1
I_LENGTH=$2
 
function maxwidth()
{
        MAX_WIDTH=0
        while read line
        do
                INFO=$(convert -size 1025x768 xc:lightblue -font times.ttf -pointsize 18 -fill none -undercolor white -annotate +20+100 "$line" -trim info:)
                WIDTH=${INFO##*XC }
                WIDTH=${WIDTH%%x*}
        [ $WIDTH -gt $MAX_WIDTH ] && MAX_WIDTH=$WIDTH
        done
        echo $MAX_WIDTH
}
 
MW=$(jhead $source| grep "GPS " | maxwidth)
let WIDTH=MW+10
HEIGHT=60
 
convert -size ${WIDTH}x${HEIGHT} xc:black plaque.jpg
composite plaque.jpg -geometry +5+$(( $I_LENGTH - $HEIGHT - 5 )) -dissolve 60 $source $target
 
CMD=$(jhead $source |grep "GPS " |awk -v width=$1 -v lngth=$2 -v tfile=$target '
NR==1{Latitude=$0}NR==2{Longitude=$0} NR==3{Altitude=$0}
END{
    printf "convert -pointsize 18 -font times.ttf -fill white "
    printf "-draw \"text 10,%d %c%s%c\" ", lngth-46, 39, Latitude, 39
    printf "-draw \"text 10,%d %c%s%c\" ", lngth-28, 39, Longitude, 39
    printf "-draw \"text 10,%d %c%s%c\" ", lngth-10, 39, Altitude, 39
    printf "%s %s\n", tfile, tfile }')
eval $CMD
#END

Can anybody help
thx again Chuble_XL

Last edited by flash80; 01-05-2011 at 07:44 AM.. Reason: forget to past code

flash80

View Public Profile for flash80

Find all posts by flash80

5 More Discussions You Might Find Interesting

1. UNIX for Dummies Questions & Answers

Print the content of a directory in jpg file

Is there any possible way to print the contents of a directory to a .jpg file? I have a list of thumbnails (e-books) which I want to share (+500) but I don't know how to make this. I would appreciate a lot any comments regarding this issue.

2. Programming

Best way to dump metadata to file: when and by who?

Hi, my application (actually library) indexes a file of many GB producing tables (arrays of offset and length of the data indexed) for later reuse. The tables produced are pretty big too, so big that I ran out of memory in my process (3GB limit), when indexing more than 8GB of file or so....

3. Shell Programming and Scripting

Rename all ".JPG" files to ".jpg" under all subfolders...

Hi, Dear all: One question ! ^_^ I'm using bash under Ubuntu 9.10. My question is not to rename all ".JPG" files to ".jpg" in a single folder, but to rename all ".JPG" files to ".jpg" in all subfolders. To rename all ".JPG" to ".jpg" in a single folder, for x in *.JPG; do mv "$x"...

4. UNIX for Advanced & Expert Users

LVM - restore metadata on other disk

Hi guys, I would like to ask your opinion about my theory, how to fix my broken LVM without risking any data loss. I use Archlinux at home. I just love this distro, even it gives me a lots of work (particularly after system updates). Basic system spec: AMD FX(tm)-6100 Six-Core Processor...

5. UNIX and Linux Applications

About gvfsd-metadata

I need a hint about gvfsd-metadata using mate on bsd. Or dual-core cpu, quad-core cpu ore an old laptop single core, the gvfsd is an obstacle and does not accelerate anything, vice versa, it slows down many processes, coming from gnome. So someone can give me a hint how to wipe it out for good? I...

LEARN ABOUT DEBIAN

graphics::primitive::insets

Graphics::Primitive::Insets(3pm)			User Contributed Perl Documentation			  Graphics::Primitive::Insets(3pm)

NAME

       Graphics::Primitive::Insets - Space between things

DESCRIPTION

       Graphics::Primitive::Insets represents the amount of space that surrounds something.  This object can be used to represent either padding
       or margins (in the CSS sense, one being inside the bounding box, the other being outside)

SYNOPSIS

	 use Graphics::Primitive::Insets;

	 my $insets = Graphics::Primitive::Insets->new({
	   top	   => 5,
	   bottom  => 5,
	   left    => 5,
	   right   => 5
	 });

METHODS

   Constructor
       new Creates a new Graphics::Primitive::Insets.

   Instance Methods
       as_array
	   Return these insets as an array in the form of top, right, bottom and left.

       bottom
	   Set/Get the inset from the bottom.

       equal_to
	   Determine if these Insets are equal to another.

       left
	   Set/Get the inset from the left.

       right
	   Set/Get the inset from the right.

       top Set/Get the inset from the top.

       zero
	   Sets all the insets (top, left, bottom, right) to 0.

AUTHOR

       Cory Watson, "<gphat@cpan.org>"

SEE ALSO

       perl(1)

COPYRIGHT &; LICENSE
       Copyright 2008-2010 by Cory G Watson.

       This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

perl v5.12.3							    2010-08-21					  Graphics::Primitive::Insets(3pm)