Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Changes In Branch png-get-physical-dimension Excluding Merge-Ins
This is equivalent to a diff from e6742077ec to b430832e75
2019-02-21
| ||
23:39 | Import trunk fixes Tweak manpage a bit for easier version update. Tweak package index to check core version. Closed-Leaf check-in: ca21301c2a user: aku tags: add-lazyset | |
23:32 | Tkt [fdf6afed94] done. Merged tkt-fdf6afed94, full tests passing. check-in: 5e257ddf79 user: aku tags: trunk | |
21:30 | Merged png-get-physical-dimension, full tests passing. check-in: ee79783f52 user: aku tags: trunk | |
20:02 | Forward port of Harald Oehlmann's work on the png package: - Add "getPhysicalDimension" to png package to get physical pixel size. Closed-Leaf check-in: b430832e75 user: aku tags: png-get-physical-dimension | |
07:19 | Forward port of Andrew Mangogna's fixup work for the namespacex package. Partial port of Pooryorick's extensions, just enough to work and pass a mostly unmodified testsuite. Still to investigate and port the larger changes for relative namespace references, in both code and tests. check-in: 2dfb59ac95 user: aku tags: gam-namespacex-improve | |
2019-02-20
| ||
05:39 | Test fixes in assorted modules - hook: Updated to match changes in 8.6+ core error stack results. - html: Undone bad removal of some trailing whitespace. - markdown: Fixed bad name of untabify2 function, and fixed result postprocessing in tests. - math::pca is Tcl 8.6+ - string::token::shell: Updated to match result variation starting with 8.6. check-in: e6742077ec user: aku tags: trunk | |
2018-12-08
| ||
18:18 | Pulling a commit to uuid that was missed check-in: 63590365a7 user: hypnotoad tags: trunk | |
Changes to modules/png/ChangeLog.
|
Changes to modules/png/pkgIndex.tcl.
1 | 1 2 | - + | if {![package vsatisfies [package provide Tcl] 8.2]} {return} |
Changes to modules/png/png.man.
|
Changes to modules/png/png.tcl.
1 2 3 4 5 6 7 8 9 10 11 | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 | - + | # png.tcl -- # # Querying and modifying PNG image files. # # Copyright (c) 2004-2012 Aaron Faupell <[email protected]> # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # # RCS: @(#) $Id: png.tcl,v 1.11 2012/07/09 16:35:04 afaupell Exp $ |
︙ | |||
205 206 207 208 209 210 211 212 213 214 215 216 217 218 | 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 | + + + + + + + + + + + + + + + + + + + + + + | return } seek $fh [expr {$len + 4}] current } close $fh return -code error "no data chunk found" } proc ::png::getPixelDimension {file} { set fh [_openPNG $file] while {[set r [read $fh 8]] != ""} { binary scan $r Ia4 len type if {$type == "pHYs"} { set r [read $fh [expr {$len + 4}]] binary scan $r IIc ppux ppuy unit close $fh # mask out sign bit, from tcl 8.5, one may use u specifier set res [list ppux [expr {$ppux & 0xFFFFFFFF}]\ ppuy [expr {$ppuy & 0xFFFFFFFF}]\ unit] if {$unit == 1} {lappend res meter} else {lappend res unknown} return $res } seek $fh [expr {$len + 4}] current } close $fh return } proc ::png::image {file} { set fh [_openPNG $file] set chunks [_chunks $fh] set cdata {} set h [lsearch -exact -index 0 -inline $chunks IHDR] |
︙ |
Changes to modules/png/png.test.
︙ | |||
297 298 299 300 301 302 303 304 305 306 | 297 298 299 300 301 302 303 304 305 306 307 308 309 310 311 312 313 314 315 316 317 318 319 320 321 | + + + + + + + + + + + + + + + | ::png::removeComments $copy set res [list [::png::validate $copy] [::png::getComments $copy]] removeFile pngrc.$root set res } {OK {}} } # ------------------------------------------------------------------------- # PhysicalDimensions test png-physical-dimensions-missing {Test for empty list if no physical dimensions present} { ::png::getPixelDimension [file join\ [file dirname [file join [pwd] [info script]]]\ testimages/physicaldimensions/basi0g01.png] } {} test png-physical-dimensions-missing {Test for empty list if no physical dimensions present} { ::png::getPixelDimension [file join\ [file dirname [file join [pwd] [info script]]]\ testimages/physicaldimensions/basi0g01_300dpi.png] } {ppux 11811 ppuy 11811 unit meter} # ------------------------------------------------------------------------- testsuiteCleanup |
Added modules/png/testimages/physicaldimensions/basi0g01.png.
cannot compute difference between binary files
Added modules/png/testimages/physicaldimensions/basi0g01_300dpi.png.
cannot compute difference between binary files