namespace eval VMDecoder { | |
variable var | |
variable JP3Ddecoder "../bin/jp3d_to_volume.exe" | |
#variable JP3Ddecoder "jp3d_to_volume.exe" | |
} | |
proc VMDecoder::create { nb } { | |
variable var | |
set frameD [$nb insert end VMDecoder -text "Decoder"] | |
set topfD [frame $frameD.topfD] | |
set medfD [frame $frameD.medfD] | |
set bottomfD [frame $frameD.bottomfD] | |
set srcfD [TitleFrame $topfD.srcfD -text "Source"] | |
set dstfD [TitleFrame $topfD.dstfD -text "Destination"] | |
set paramfD [TitleFrame $medfD.paramfD -text "Decoding parameters"] | |
set infofD [TitleFrame $medfD.infofD -text "Distortion measures"] | |
set frame1 [$srcfD getframe] | |
_sourceD $frame1 | |
set frame2 [$dstfD getframe] | |
_destinationD $frame2 | |
set frame3 [$infofD getframe] | |
_originalD $frame3 | |
set frame4 [$paramfD getframe] | |
_paramsD $frame4 | |
set butD [Button $bottomfD.butD -text "Decode!" \ | |
-command "VMDecoder::_decode $frame1 $frame2 $frame3" \ | |
-helptext "Decoding trigger button"] | |
set butR [Button $bottomfD.butR -text "Save info" \ | |
-command "VMDecoder::_save $frame3" \ | |
-helptext "Save information"] | |
pack $srcfD $dstfD -side left -fill both -padx 10 -ipadx 5 -expand yes | |
pack $topfD -pady 4 -fill x | |
pack $paramfD $infofD -side left -fill both -padx 10 -pady 2 -ipadx 5 -expand yes | |
pack $medfD -pady 4 -fill x | |
pack $butD $butR -side left -padx 4 -pady 5 -expand yes | |
pack $bottomfD -pady 4 -fill x | |
return $frameD | |
} | |
proc fileDialogD {w ent operation} { | |
variable file | |
if {$operation == "open"} { | |
#-----Type names---------Extension(s)--- | |
set types { | |
{"JP3D Files" {.jp3d} } | |
{"All files" *} | |
} | |
set file [tk_getOpenFile -filetypes $types -parent $w ] | |
} elseif {$operation == "original"} { | |
#-----Type names---------Extension(s)--- | |
set types { | |
{"BIN Raw Image Files" {.bin} } | |
{"PGX Raw Image Files" {.pgx} } | |
{"All files" *} | |
} | |
set file [tk_getOpenFile -filetypes $types -parent $w ] | |
} else { | |
#-----Type names---------Extension(s)--- | |
set types { | |
{"BIN Raw Image Files" {.bin} } | |
{"PGX Raw Image Files" {.pgx} } | |
{"All files" *} | |
} | |
set file [tk_getSaveFile -filetypes $types -parent $w -initialfile Untitled -defaultextension "*.bin"] | |
} | |
if {[string compare $file ""]} { | |
$ent delete 0 end | |
$ent insert end $file | |
$ent xview moveto 1 | |
} | |
} | |
proc VMDecoder::_sourceD { parent } { | |
variable var | |
set labsrcD [LabelFrame $parent.labsrcD -text "Select compressed file: " -side top \ | |
-anchor w -relief flat -borderwidth 0] | |
set subsrcD [$labsrcD getframe] | |
set listD [entry $subsrcD.entrysrcD -width 40 -textvariable VMDecoder::var(sourceD)] | |
set labbrw [LabelFrame $parent.labbrw -side top -anchor w -relief flat -borderwidth 0] | |
set subbrw [$labbrw getframe] | |
set butbrw [button $subbrw.butbrw -image [Bitmap::get open] \ | |
-relief raised -borderwidth 1 -padx 1 -pady 1 \ | |
-command "fileDialogD . $subsrcD.entrysrcD open"] | |
pack $listD -side top | |
pack $butbrw -side top | |
pack $labsrcD $labbrw -side left -fill both -expand yes | |
} | |
proc VMDecoder::_destinationD { parent } { | |
variable var | |
set labdstD [LabelFrame $parent.labdstD -text "Save decompressed volume file(s) as: " -side top \ | |
-anchor w -relief flat -borderwidth 0] | |
set subdstD [$labdstD getframe] | |
set listD [entry $subdstD.entrydstD -width 40 -textvariable VMDecoder::var(destinationD)] | |
set labbrw [LabelFrame $parent.labbrw -side top -anchor w -relief flat -borderwidth 0] | |
set subbrw [$labbrw getframe] | |
set butbrw [button $subbrw.butbrw -image [Bitmap::get save] \ | |
-relief raised -borderwidth 1 -padx 1 -pady 1 \ | |
-command "fileDialogD . $subdstD.entrydstD save"] | |
pack $listD -side top | |
pack $butbrw -side top | |
pack $labdstD $labbrw -side left -fill both -expand yes | |
} | |
proc VMDecoder::_originalD { parent } { | |
variable var | |
set laborgD [LabelFrame $parent.laborgD -text "Select original file: " -side top \ | |
-anchor w -relief flat -borderwidth 0] | |
set suborgD [$laborgD getframe] | |
set listorgD [entry $suborgD.entryorgD -width 30 -textvariable VMDecoder::var(originalD)] | |
set labbrw2 [LabelFrame $parent.labbrw2 -side top -anchor w -relief flat -borderwidth 0] | |
set subbrw2 [$labbrw2 getframe] | |
set butbrw2 [button $subbrw2.butbrw2 -image [Bitmap::get open] \ | |
-relief raised -borderwidth 1 -padx 1 -pady 1 \ | |
-command "fileDialogD . $suborgD.entryorgD original"] | |
set infoD [Label $parent.infoD -relief sunken -textvariable VMDecoder::var(decodinfo) -justify left] | |
pack $listorgD -side left -anchor n | |
pack $butbrw2 -side left -anchor n | |
pack $infoD -side bottom -anchor nw -pady 4 -ipadx 150 -ipady 20 -expand yes | |
pack $laborgD $labbrw2 -side left -fill both | |
} | |
proc VMDecoder::_paramsD { parent } { | |
variable var | |
########### DECODING ############# | |
set labcod [LabelFrame $parent.labcod -side top -anchor w -relief sunken -borderwidth 1] | |
set subcod [$labcod getframe] | |
set frameres [frame $subcod.frameres -borderwidth 1] | |
set labres [LabelEntry $frameres.labres -label "Resolutions to discard: " -labelwidth 20 -labelanchor w \ | |
-textvariable VMDecoder::var(resdiscard) -editable 1 \ | |
-helptext "Number of highest resolution levels to be discarded on each dimension" ] | |
set VMDecoder::var(resdiscard) "0,0,0" | |
set framelayer [frame $subcod.framelayer -borderwidth 1] | |
set lablayer [LabelEntry $framelayer.lablayer -label "Layers to decode: " -labelwidth 20 -labelanchor w \ | |
-textvariable VMDecoder::var(layer) -editable 1 \ | |
-helptext "Maximum number of quality layers to decode" ] | |
set VMDecoder::var(layer) "All" | |
set framebe [frame $subcod.framebe -borderwidth 1] | |
set chkbe [checkbutton $framebe.chkbe -text "Write decoded file with BigEndian byte order" \ | |
-variable VMDecoder::var(be) -onvalue 1 -offvalue 0 ] | |
pack $labres -side left -padx 2 -anchor n | |
pack $lablayer -side left -padx 2 -anchor n | |
pack $chkbe -side left -padx 2 -anchor w | |
pack $frameres $framelayer $framebe -side top -anchor w | |
pack $subcod -anchor n | |
pack $labcod -side left -fill both -padx 4 -expand yes | |
} | |
proc VMDecoder::_decode { framesrc framedst frameinfo} { | |
variable var | |
set sourceD [$framesrc.labsrcD.f.entrysrcD get ] | |
set destinationD [$framedst.labdstD.f.entrydstD get ] | |
set originD [$frameinfo.laborgD.f.entryorgD get ] | |
set cond1 [string match *.pgx [string tolower $destinationD]] | |
set cond2 [string match *\**.pgx [string tolower $destinationD]] | |
set cond3 [string match *.bin [string tolower $destinationD]] | |
#comprobamos datos son correctos | |
if {($cond1 == 1) && ($cond2 == 0)} { | |
set pgx "*.pgx" | |
set pattern [string range $destinationD 0 [expr [string length $destinationD]-5]] | |
set destinationD $pattern$img | |
} elseif {$sourceD == ""} { | |
MessageDlg .msgdlg -parent . -message "Error : Source file is not defined !" -type ok -icon error | |
} elseif {$destinationD == ""} { | |
MessageDlg .msgdlg -parent . -message "Error : Destination file is not defined !" -type ok -icon error | |
} else { | |
#creamos datain a partir de los parametros de entrada | |
#set dirJP3Ddecoder [mk_relativepath $VMDecoder::JP3Ddecoder] | |
set dirJP3Ddecoder $VMDecoder::JP3Ddecoder | |
set datain [concat " $dirJP3Ddecoder -i [mk_relativepath $sourceD] "] | |
set datain [concat " $datain -o [mk_relativepath $destinationD] "] | |
if {$originD != ""} { | |
set datain [concat " $datain -O [mk_relativepath $originD] "] | |
if {$cond3 == 1} { | |
set img ".img" | |
set pattern [string range $originD 0 [expr [string length $originD]-5]] | |
set pattern $pattern$img | |
if {[file exists $pattern]} { | |
set datain [concat " $datain -m [mk_relativepath $pattern] "] | |
} else { | |
MessageDlg .msgdlg -parent . -message "Error : IMG file associated to original BIN volume file not found in same directory !" -type ok -icon info | |
} | |
} | |
} | |
if {$VMDecoder::var(resdiscard) != "0,0,0"} { | |
set datain [concat " $datain -r $VMDecoder::var(resdiscard) "] | |
} | |
if {$VMDecoder::var(layer) != "All" && $VMDecoder::var(layer) > 0} { | |
set datain [concat " $datain -l $VMDecoder::var(layer) "] | |
} | |
if {$VMDecoder::var(be) == 1} { | |
set datain [concat " $datain -BE"] | |
} | |
set VMDecoder::var(progval) 10 | |
ProgressDlg .progress -parent . -title "Wait..." \ | |
-type infinite \ | |
-width 20 \ | |
-textvariable "Compute in progress..."\ | |
-variable VMDecoder::progval \ | |
-stop "Stop" \ | |
-command {destroy .progress} | |
after 200 set VMDecoder::var(progval) 2 | |
set fp [open "| $datain " r+] | |
fconfigure $fp -buffering line | |
set jp3dVM::dataout [concat "EXECUTED PROGRAM:\n\t$datain"] | |
while {-1 != [gets $fp tmp]} { | |
set jp3dVM::dataout [concat "$jp3dVM::dataout\n$tmp"] | |
} | |
close $fp | |
destroy .progress | |
set cond [string first "ERROR" $jp3dVM::dataout] | |
set cond2 [string first "PSNR" $jp3dVM::dataout] | |
set cond3 [string first "RESULT" $jp3dVM::dataout] | |
if {$cond != -1} { | |
MessageDlg .msgdlg -parent . -message [string range $jp3dVM::dataout [expr $cond-1] end] -type ok -icon error | |
} elseif {$cond3 != -1} { | |
if {$cond2 != -1} { | |
set VMDecoder::var(decodinfo) [string range $jp3dVM::dataout [expr $cond2-1] end] | |
} | |
MessageDlg .msgdlg -parent . -message [string range $jp3dVM::dataout [expr $cond3-1] end] -type ok -icon info | |
} | |
} | |
} | |
proc VMDecoder::_save { frameinfo } { | |
} | |