pa_image_width_height (public)

 pa_image_width_height filename width_var height_var

Defined in packages/photo-album/tcl/photo-album-procs.tcl

Uses ImageMagick program to get the width and height in pixels of filename. Sets height to the variable named in height_var in the calling level. Sets width_var to the variable named in width_var in the calling level. I Use ImageMagick instead of AOLserver function because it can handle more than just gifs and jpegs.

Parameters:

filename
width_var
height_var

Partial Call Graph (max 5 caller/called nodes):

Testcases:

No testcase defined.

Source code:

    set identify_string [exec [parameter::get -parameter ImageMagickPath]/identify $filename]
    regexp {[ ]+([0-9]+)[x]([0-9]+)[\+]*} $identify_string x width height
    uplevel "set $width_var $width"
    uplevel "set $height_var $height"

Generic XQL file:

packages/photo-album/tcl/photo-album-procs.xql

PostgreSQL XQL file:

packages/photo-album/tcl/photo-album-procs-postgresql.xql

Oracle XQL file:

packages/photo-album/tcl/photo-album-procs-oracle.xql