home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Acorn User 10
/
AU_CD10.iso
/
Archived
/
Updates
/
Perl
/
RPC
/
perl_113_riscpc
/
Docs
/
RISCOS-Library-Docs
/
JPEG.pm
< prev
next >
Wrap
Text File
|
1999-04-17
|
988b
|
32 lines
NAME
RISCOS::JPEG -- perl interface to RISC OS JPEG SWIs.
SYNOPSIS
use RISCOS::JPEG 'jpeg_info';
($width, $height, $xdpi, $ydpi, $bw, $no_trans, $ratio) = jpeg_info $jpeg;
DESCRIPTION
This module provides a perl interface to RISC OS JPEG SWIs.
jpeg_info <JPEG> [,<DPI>]
returns an array of `($width, $height, $xdpi, $ydpi, $bw,
$no_trans, $ratio)' for the JPEG contained in the scalar
passed. `$width' and `$height' are in pixels, `$xdpi' and
`$ydpi' are absolute Dots Per Inch if `$ratio' is false. If
`$ratio' is true and *DPI* is defined then it is returned as
the X DPI, and the returned Y DPI is at the correct ratio.
`$bw' is true if the JPEG is greyscale, `$no_trans' is true
if transformed plots are unavailable.
jpeg_size <JPEG> [,<DPI>]
returns `($width, $height)' in Draw units of the JPEG.
BUGS
Not tested enough.
AUTHOR
Nicholas Clark <nick@unfortu.net>