Sponsored Content
Full Discussion: print metadata to jpg
Top Forums Shell Programming and Scripting print metadata to jpg Post 302484944 by flash80 on Monday 3rd of January 2011 05:56:15 PM
Old 01-03-2011
Here is the Jhead output. but I only need th gps part.

Code:
alioune@baccus ~/GPStagtoPic $ jhead ML.jpg 
File name    : ML.jpg
File size    : 583257 bytes
File date    : 2010:12:28 16:45:05
Camera make  : Apple
Camera model : iPhone 3G
Date/Time    : 2010:11:18 18:40:28
Resolution   : 1200 x 1600
Flash used   : No
Aperture     : f/2.8
Whitebalance : Auto
Metering Mode: average
Exposure     : program (auto)
GPS Latitude : N 14d 40.54m  0s
GPS Longitude: W 17d 27.82m  0s
GPS Altitude :  53.00m

From that command I only need the following to be printed on the bottom left corner of the pictures.
Code:
GPS Latitude : N 14d 40.54m  0s
GPS Longitude: W 17d 27.82m  0s
GPS Altitude :  53.00m

---------- Post updated at 05:56 PM ---------- Previous update was at 05:54 PM ----------

Thx for your reply,
I have tested with the following error.

Code:
alioune@baccus ~/GPStagtoPic $ 
alioune@baccus ~/GPStagtoPic $ ls
001.JPG  002.JPG  003.JPG  004.JPG  006.JPG  GPStagtoPic.sh  IMG_0276.JPG  IMG_0327.JPG  ML.jpg
alioune@baccus ~/GPStagtoPic $ ./GPStagtoPic.sh 
convert -pointsize 18 -font /path/to/font.ttf -fill white -stroke black -strokewidth 1 -draw " GPS Latitude : N 14d 40.54m  0s  10,-50" -draw " Longitude:  10,-32" -draw " GPS Altitude :  53.00m   10,-14"  ML.jpg target.jpg
alioune@baccus ~/GPStagtoPic $ ls
001.JPG  002.JPG  003.JPG  004.JPG  006.JPG  GPStagtoPic.sh  IMG_0276.JPG  IMG_0327.JPG  ML.jpg
alioune@baccus ~/GPStagtoPic $

when I execute the imagemagick command
Code:
alioune@baccus ~/GPStagtoPic $ convert -pointsize 18 -font /path/to/font.ttf -fill white -stroke black -strokewidth 1 -draw " GPS Latitude : N 14d 40.54m  0s  10,-50" -draw " Longitude:  10,-32" -draw " GPS Altitude :  53.00m   10,-14"  ML.jpg target.jpg
convert: non-conforming drawing primitive definition `GPS' @ error/draw.c/DrawImage/3143.
convert: non-conforming drawing primitive definition `Longitude' @ error/draw.c/DrawImage/3143.
convert: non-conforming drawing primitive definition `GPS' @ error/draw.c/DrawImage/3143.
convert: non-conforming drawing primitive definition `Longitude' @ error/draw.c/DrawImage/3143.
convert: non-conforming drawing primitive definition `GPS' @ error/draw.c/DrawImage/3143.
convert: non-conforming drawing primitive definition `Longitude' @ error/draw.c/DrawImage/3143.
convert: non-conforming drawing primitive definition `GPS' @ error/draw.c/DrawImage/3143.
alioune@baccus ~/GPStagtoPic $

The file is generated but the wrong information is printed on it.
Image

Last edited by flash80; 01-03-2011 at 07:06 PM..
 

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. (4 Replies)
Discussion started by: agasamapetilon
4 Replies

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.... (9 Replies)
Discussion started by: emitrax
9 Replies

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"... (7 Replies)
Discussion started by: jiapei100
7 Replies

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... (1 Reply)
Discussion started by: lyynxxx
1 Replies

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... (1 Reply)
Discussion started by: 1in10
1 Replies
GPS::Point(3pm) 					User Contributed Perl Documentation					   GPS::Point(3pm)

NAME
GPS::Point - Provides an object interface for a GPS point. SYNOPSIS
use GPS::Point; my $obj=GPS::Point->newGPSD($GPSD_O_line);#e.g. GPSD,O=.... my $obj=GPS::Point->new( time => $time, #float seconds from the unix epoch lat => $lat, #signed degrees lon => $lon, #signed degrees alt => $hae, #meters above the WGS-84 ellipsoid speed => $speed, #meters/second (over ground) heading => $heading, #degrees clockwise from North climb => $climb, #meters/second etime => $etime, #float seconds ehorizontal => $ehz, #float meters evertical => $evert, #float meters espeed => $espeed, #meters/second eheading => $ehead, #degrees eclimb => $eclimb, #meters/second mode => $mode, #GPS mode [?=>undef,None=>1,2D=>2,3D=>3] tag => $tag, #Name of the GPS message for data ); DESCRIPTION
This is a re-write of Net::GPSD::Point with a goal of being more re-usable. GPS::Point - Provides an object interface for a GPS fix (e.g. Position, Velocity and Time). Note: Please use Geo::Point, if you want 2D or projection support. USAGE
print scalar($point->latlon), " "; #latlon in scalar context my ($x,$y,$z)=$point->ecef; #if Geo::ECEF is available my $GeoPointObject=$point->GeoPoint; #if Geo::Point is available my @distance=$point->distance($point2); #if Geo::Inverse is available my $distance=$point->distance($point2); #if Geo::Inverse->VERSION >=0.05 USAGE TODO
my $obj=GPS::Point->newNMEA($NMEA_lines); #e.g. GGA+GSA+RMC CONSTRUCTOR
new my $obj = GPS::Point->new(); newGPSD my $obj=GPS::Point->newGPSD($GPSD_O_line);#e.g. GPSD,O=.... newMulti Constructs a GPS::Point from a Multitude of arguments. Arguments can be a GPS::Point, Geo::Point, {lat=>$lat,lon=>$lon} (can be blessed), [$lat, $lon] (can be blessed) or a ($lat, $lon) pair. my $point=GPS::Point->newMulti( $lat, $lon, $alt ); #supports lat, lon and alt my $point=GPS::Point->newMulti([$lat, $lon, $alt]); #supports lat, lon and alt my $point=GPS::Point->newMulti({lat=>$lat, lon=>$lon, ...}); my $point=GPS::Point->newMulti(GPS::Point->new(lat=>$lat, lon=>$lon)); my $point=GPS::Point->newMulti(Geo::Point->new(lat=>$lat, long=>$lon, proj=>'wgs84')); my $point=GPS::Point->newMulti({latitude=>$lat, longtude=>$lon}); Note: Hash reference context supports the following keys lat, lon, alt, latitude, longitude, long, altitude, elevation, hae, elev. Note: Units are always decimal degrees for latitude and longitude and meters above the WGS-84 ellipsoid for altitude. initialize, initializeGPSD, initializeMulti METHODS (Base) time Sets or returns seconds since the Unix epoch, UTC (float, seconds) print $obj->time, " "; lat, latitude Sets or returns Latitude (float, degrees) print $obj->lat, " "; lon, long or longitude Sets or returns Longitude (float, degrees) print $obj->lon, " "; alt, altitude, hae, elevation Sets or returns Altitude (float, meters) print $obj->alt, " "; speed Sets or returns speed (float, meters/sec) print $obj->speed, " "; heading, bearing Sets or returns heading (float, degrees) print $obj->heading, " "; climb Sets or returns vertical velocity (float, meters/sec) print $obj->climb, " "; etime Sets or returns estimated timestamp error (float, seconds, 95% confidence) print $obj->etime, " "; ehorizontal Sets or returns horizontal error estimate (float, meters) print $obj->ehorizontal, " "; evertical Sets or returns vertical error estimate (float, meters) print $obj->evertical, " "; espeed Sets or returns error estimate for speed (float, meters/sec, 95% confidence) print $obj->espeed, " "; eheading Sets or returns error estimate for course (float, degrees, 95% confidence) print $obj->eheading, " "; eclimb Sets or returns Estimated error for climb/sink (float, meters/sec, 95% confidence) print $obj->eclimb, " "; mode Sets or returns the NMEA mode (integer; undef=>no mode value yet seen, 1=>no fix, 2=>2D, 3=>3D) print $obj->mode, " "; tag Sets or returns a tag identifying the last sentence received. For NMEA devices this is just the NMEA sentence name; the talker-ID portion may be useful for distinguishing among results produced by different NMEA talkers in the same wire. (string) print $obj->tag, " "; METHODS (Value Added) fix Returns either 1 or 0 based upon if the GPS point is from a valid fix or not. print $obj->fix, " "; At a minimum this method requires mode to be set. datetime Returns a DateTime object from time my $dt=$point->datetime; At a minimum this method requires time to be set. latlon, latlong Returns Latitude, Longitude as an array in array context and as a space joined string in scalar context my @latlon=$point->latlon; my $latlon=$point->latlon; At a minimum this method requires lat and lon to be set. setAltitude Sets altitude from USGS web service and then returns the GPS::Point object. This method is a wrapper around Geo::WebService::Elevation::USGS. my $point=GPS::Point->new(lat=>$lat, lon=>$lon)->setAltitude; $point->setAltitude; my $alt=$point->alt; At a minimum this method requires lat and lon to be set and alt to be undef. ecef Returns ECEF coordinates. This method is a warpper around Geo::ECEF. my ($x,$y,$z) = $point->ecef; my @xyz = $point->ecef; my $xyz_aref = $point->ecef; #if Geo::ECEF->VERSION >= 0.08 At a minimum this method requires lat and lon to be set. (alt of 0 is assumed by Geo::ECEF->ecef). GeoPoint Returns a Geo::Point Object in the WGS-84 projection. my $GeoPointObject = $point->GeoPoint; At a minimum this method requires lat and lon to be set. distance Returns distance in meters between the object point and the argument point. The argument can be any valid argument of newMulti constructor. This method is a wrapper around Geo::Inverse. my ($faz, $baz, $dist) = $point->distance($pt2); #Array context my $dist = $point->distance($lat, $lon); #if Geo::Inverse->VERSION >=0.05 At a minimum this method requires lat and lon to be set. track Returns a point object at the predicted location in time seconds assuming constant velocity. Using Geo::Forward calculation. my $new_point=$point->track($seconds); #default $point->heading my $new_point=$point->track($seconds => $heading); At a minimum this method requires lat and lon to be set. It might be very useful to have speed, heading and time set although they all default to zero. forward Returns a point object at the distance and heading using Geo::Forward calculations. my $point=$point->forward($dist); #default $point->heading my $point=$point->forward($dist => $heading); #meters => degrees At a minimum this method requires lat and lon to be set. It might be useful to have heading set although the default is zero. BUGS
Send to GPSD-DEV or GEO-PERL email lists SUPPORT
Try GPSD-DEV or GEO-PERL email lists AUTHOR
Michael R. Davis CPAN ID: MRDVT DavisNetworks.com account=>perl,tld=>com,domain=>michaelrdavis http://www.davisnetworks.com/ COPYRIGHT
This program is free software licensed under the... The BSD License The full text of the license can be found in the LICENSE file included with this module. SEE ALSO
Geo::Point, Net::GPSD, Net::GPSD::Point, Geo::ECEF, Geo::Functions, Geo::Forward, Geo::Inverse, Geo::Distance, Geo::Ellipsoids, Geo::WebService::Elevation::USGS, DateTime perl v5.10.1 2010-01-30 GPS::Point(3pm)
All times are GMT -4. The time now is 04:44 AM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy