Version 36 of Timing Photo Image Loading under Pixane

Updated 2011-05-28 15:46:50 by gold

Timing Photo Image Loading under Pixane Example

This page is under development. Comments are welcome, but please load any comments in the comments section at the middle of the page. Thanks,gold

gold Here is an eTCL script to estimate timing photo image loading under pixane. This script was largely derived from posting of Eric Hassold on The comp.lang.tcl newsgroup The timing statements were pulled from the program below after the timing info was calculated. The impetus for the script was an ask9 question about time of "loading single image ...". My solution to a different application on Unix some grey hairs ago was creating batch thumbnails with ImageMagick, before loading the application script. If one can work with thumbnails, a tcl or perl script can use ImageMagick to thumbnail every image in a directory or tailor to specific megabyte size. Since now, I'm using etcl and pixane on an Acer Aspire pc notepad, it might be desirable to establish some peg points or timing results with the pixane image library. The timing results with pixane are similar to those reported for ImageMagick on a Pentium, Fast image resizing

In planning any software, there is a need to develop testcases. 

 Testcase 1.
  Output of timing statements.
quantitynumberunits
photo size of bird.jpg 1.6 m
loading 1595970 microseconds per iteration
Scaling (1944 x 2592) => (180 x 240)pixels
resizex 68 microseconds per iteration
blanking 4283 microseconds per iteration
rescale 230934 microseconds per iteration
saving 14458 microseconds per iteration
proc time 1863222 microseconds per iteration

Screenshots Section

http://img854.imageshack.us/img854/7704/image33.gif

Comments Section

Please place any comments here, Thanks.

References:

Appendix TCL programs and scripts

* Pretty Print Version

        # Pretty print version from autoindent
        # and ased editor
        # program of image load under pixane
        # written on Windowws XP on eTCL
        # working under TCL version 8.5.6 and eTCL 1.0.1
        # gold on TCL WIKI , 25may2011
  package require Tk  
  package require pixane
    console show
        global targetpix photox
    proc jackpix {} {
        global targetpix photox
        set fin [file join [file dirname [info script]] bird6.jpg]
        set fout [file rootname $fin]_new[file extension $fin]
        set p [pixane create]
        pixane load $p -file $fin 
        set w [pixane width $p]
        set h [pixane height $p]
        set maximumwidth 240
        set maximumheight 240
        set ratiopicture 1
        if {$ratiopicture} {
            set sourcewidth [pixane width $p]
            set sourceheight [pixane height $p]
            if {$maximumwidth*$sourceheight<$maximumheight*$sourcewidth} {
                set virtualwidth $maximumwidth
                set virtualheight [expr {($sourceheight*$maximumwidth)/$sourcewidth}]
            } else {
                set virtualwidth [expr {($sourcewidth*$maximumheight)/$sourceheight}]
                set virtualheight $maximumheight
            }
        } else {
                set virtualwidth $maximumwidth
                set virtualheight $maximumheight
        }
        set targetpix [pixane create]
        pixane resize $targetpix $virtualwidth $virtualheight 
        pixane blank $targetpix  
        pixane scale $targetpix $p 
        pixane save $targetpix -file $fout -format jpg 
        set photox [pixane create]
    }
        jackpix  
        set tkpicturex [pixcopy $targetpix]
        pack [button .pixanes -image $tkpicturex -bd 30 -bg tan] -fill both -expand true
        wm title . "Timing Photo Image Loading under Pixane "
        tkwait window .
        exit

Code scraps, timing statements

        puts " loading [time {pixane load $p -file $fin} ]"        
        puts "Scaling ($sourcewidth x $sourceheight) => ($virtualwidth x $virtualheight)"
        puts " resizex [time {pixane resize $targetpix $virtualwidth $virtualheight } ]"
        puts " blanking [time {pixane blank $targetpix } ]"
        puts " rescale [time {pixane scale $targetpix $p } ]"
        puts " saving [time {pixane save $targetpix -file $fout -format jpg } ]"
        puts " proc time [time { jackpix } ]"
Category TestingCategory ToysCategory PerformanceCategory Image ProcessingCategory GraphicsCategory ExampleCategory Mathematics