1# This file is a Tcl script to test out RAW reading and writing. 2# It is organized in the standard fashion for Tcl tests. 3# 4 5if {[string compare test [info procs test]] == 1} { 6 source defs 7} 8 9set rawdata \ 10{TWFnaWM9UkFXCldpZHRoPTE2CkhlaWdodD0xMgpOdW1DaGFuPTMKQnl0ZU9yZGVyPUludGVs 11ClNjYW5PcmRlcj1Ub3BEb3duClBpeGVsVHlwZT1ieXRlCtnZ2dnZ2dnZ2QAAAAAAAAAAAAAA 12ANnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2QAAAPD/gPD/gPD/gPD/gAAAANnZ 132dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2QAAAPD/gPD/gPD/gPD/gPD/gPD/gAAAANnZ2dnZ 142dnZ2dnZ2dnZ2dnZ2dnZ2QAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 15ANnZ2dnZ2dnZ2QAAAPD/gPD/gPD/gPD/gPD/gPD/gPD/gPD/gPD/gPD/gPD/gAAAANnZ2dnZ 162dnZ2QAAAPD/gPD/gPD/gPD/gPD/gPD/gPD/gPD/gPD/gPD/gPD/gAAAANnZ2dnZ2dnZ2QAA 17APD/gPD/gPD/gPD/gPD/gPD/gPD/gPD/gPD/gPD/gPD/gAAAANnZ2dnZ2dnZ2QAAAPD/gPD/ 18gPD/gPD/gPD/gPD/gPD/gPD/gPD/gPD/gPD/gAAAANnZ2dnZ2dnZ2QAAAPD/gPD/gPD/gPD/ 19gPD/gPD/gPD/gPD/gPD/gPD/gPD/gAAAANnZ2dnZ2dnZ2QAAAPD/gPD/gPD/gPD/gPD/gPD/ 20gPD/gPD/gPD/gPD/gPD/gAAAANnZ2dnZ2dnZ2QAAAPD/gPD/gPD/gPD/gPD/gPD/gPD/gPD/ 21gPD/gPD/gPD/gAAAANnZ2dnZ2dnZ2QAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 22AAAAAAAAANnZ2dnZ2dnZ2Q==} 23 24test raw-1.1 {} { 25 catch {image delete i} 26 image create photo i -file folder.raw 27 i data -format "raw -useheader true -nomap true -nchan 3" 28} $rawdata 29test raw-1.2 {} { 30 catch {image delete i} 31 image create photo i -data $rawdata 32 set data [i data -format "raw -useheader true -nomap true -nchan 3"] 33} $rawdata 34test raw-1.3 {} { 35 i blank 36 i put $rawdata 37 set data [i data -format "raw -useheader true -nomap true -nchan 3"] 38} $rawdata 39test raw-1.4 {} { 40 i blank 41 i put $rawdata -format raw 42 set data [i data -format "raw -useheader true -nomap true -nchan 3"] 43} $rawdata 44if {[info tclversion] < 8.0} { 45 return 46} 47 48test raw-2.0 {Binary I/O with RAW images} { 49 i blank 50 set f [open folder.raw r] 51 fconfigure $f -translation binary 52 set return [catch {i put [read $f]} msg] 53 close $f 54 lappend return $msg 55} {0 {}} 56