[trunk] FolderReorgProposal task: add JP3D

Update issue 177

1 files changed, 272 insertions, 0 deletions

diff --git a/src/bin/jp3d/tcltk/decoder.tcl b/src/bin/jp3d/tcltk/decoder.tcl
new file mode 100755
index 00000000..98edcde9
--- /dev/null
+++ b/src/bin/jp3d/tcltk/decoder.tcl
@@ -0,0 +1,272 @@
+

+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 } {

+

+}

+