1# This file is a Tcl script to test out SGI reading and writing. 2# It is organized in the standard fashion for Tcl tests. 3# 4 5puts "img::sgi [package require img::sgi]" 6 7set sgidata \ 8{AdoBAQADABAADAADAAAAAAAAAP8AAAAAbm8gbmFtZQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 9AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 10AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 11AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 12AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 13AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 14AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 15AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 16AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 17AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAARAAAAEJQAABAoAAAPvAAAD1AAAA7kAAAOe 18AAADgwAAA3QAAANWAAADNQAAAyAAAARFAAAELgAABBMAAAP4AAAD3QAAA8IAAAOnAAADjAAA 19A3kAAANgAAADQAAAAycAAARKAAAENwAABBwAAAQBAAAD5gAAA8sAAAOwAAADlQAAA34AAANq 20AAADSwAAAy4AAAAFAAAACQAAAAkAAAAJAAAACQAAAAkAAAAJAAAACQAAAAUAAAAKAAAACwAA 21AAcAAAAFAAAACQAAAAkAAAAJAAAACQAAAAkAAAAJAAAACQAAAAUAAAAKAAAACwAAAAcAAAAF 22AAAACQAAAAkAAAAJAAAACQAAAAkAAAAJAAAACQAAAAUAAAAKAAAACwAAAAcD2QQACdkAA9kE 23AAnZAAPZBAAJ2QCD2dkABPCBAAjZAIPZ2QAE/4EACNkAg9nZAASAgQAI2QCC2QAG8IEAB9kA 24gtkABv+BAAfZAILZAAaAgQAH2QANAAPZAA0AA9kADQAD2QCBAAvwgQAD2QCBAAv/gQAD2QCB 25AAuAgQAD2QCBAAvwgQAD2QCBAAv/gQAD2QCBAAuAgQAD2QCBAAvwgQAD2QCBAAv/gQAD2QCB 26AAuAgQAD2QCBAAvwgQAD2QCBAAv/gQAD2QCBAAuAgQAD2QCBAAvwgQAD2QCBAAv/gQAD2QCB 27AAuAgQAD2QCBAAvwgQAD2QCBAAv/gQAD2QCBAAuAgQAD2QCBAAvwgQAD2QCBAAv/gQAD2QCB 28AAuAgQAD2QANAAPZAA0AA9kADQAD2QA=} 29 30test sgi-1.1 {} { 31 catch {image delete i} 32 image create photo i -file [file join $tcltest::testsDirectory folder.rgb] 33 i data -format sgi 34} $sgidata 35test sgi-1.2 {} { 36 catch {image delete i} 37 image create photo i -data $sgidata 38 set data [i data -format sgi] 39} $sgidata 40test sgi-1.3 {} { 41 i blank 42 i put $data 43 set data [i data -format sgi] 44} $sgidata 45test sgi-1.4 {} { 46 i blank 47 i put $data -format sgi 48 set data [i data -format sgi] 49} $sgidata 50 51if {[info tclversion] < 8.0} { 52 return 53} 54 55 56test sgi-2.0 {Binary I/O with SGI images} { 57 i blank 58 set f [open [file join $tcltest::testsDirectory folder.rgb] r] 59 fconfigure $f -translation binary 60 set return [catch {i put [read $f]} msg] 61 close $f 62 lappend return $msg 63} {0 {}} 64