read_image.tcl

来自「Spartan3_virtualplatform_8_1」· TCL 代码 · 共 30 行

proc read_image {filename addr size} {
set WR [open $filename "w"]
fconfigure $WR -translation binary

set count 0
#set size 0x2d0d

puts "Reading image from $addr into file: $filename"
while {$count < $size} {
    #puts $count
    set loc [expr $addr+$count]
    set val [xrmem 0 $loc 4]
    set val1 [binary format c [lindex $val 1]]
    set val2 [binary format c [lindex $val 2]]
    set val3 [binary format c [lindex $val 3]]
    set val4 [binary format c [lindex $val 4]]
    puts -nonewline $WR $val1
    puts -nonewline $WR $val2
    puts -nonewline $WR $val3
    puts -nonewline $WR $val4
    incr count
    incr count
    incr count
    incr count
}

close $WR
puts "Wrote Jpeg Image to file $filename"
}