[trunk] FolderReorgProposal task: add JP3D

Update issue 177

6 files changed, 870 insertions, 0 deletions

diff --git a/src/bin/jp3d/tcltk/LPI_JP3D_VM.tcl b/src/bin/jp3d/tcltk/LPI_JP3D_VM.tcl
new file mode 100755
index 00000000..37657b27
--- /dev/null
+++ b/src/bin/jp3d/tcltk/LPI_JP3D_VM.tcl
@@ -0,0 +1,115 @@
+#!/bin/sh
+# The next line is executed by /bin/sh, but not tcl \
+exec wish "$0" ${1+"$@"}
+lappend auto_path /usr/share/tcltk/bwidget1.9.2
+
+namespace eval jp3dVM {
+
+    variable _progress 0
+    variable _afterid  ""
+    variable _status "Compute in progress..."
+    variable notebook
+    variable mainframe
+    variable dataout "Process execution information"
+    variable status
+    variable prgtext
+    variable prgindic
+
+    set pwd [pwd]
+    cd [file dirname [info script]]
+    variable VMDIR [pwd]
+    cd $pwd
+
+    foreach script {encoder.tcl decoder.tcl} {
+	namespace inscope :: source $VMDIR/$script
+    }
+}
+
+
+proc jp3dVM::create { } {
+    variable notebook
+    variable mainframe
+    variable dataout
+
+    bind all <F12> { catch {console show} }
+
+    # Menu description
+    set descmenu {
+        "&File" {} {} 0 {
+            {command "E&xit" {} "Exit BWidget jp3dVM" {} -command exit}
+        }
+        "&Options" {} {} 0 {
+            {command "&Encode" {} "Show encoder" {}
+                -command  {$jp3dVM::notebook raise [$jp3dVM::notebook page 0]}
+            }
+            {command "&Decode" {} "Show decoder" {}
+                -command  {$jp3dVM::notebook raise [$jp3dVM::notebook page 1]}
+            }
+        }
+	"&Help" {} {} 0 {
+            {command "&About authors..." {} "Show info about authors" {} 
+		-command {MessageDlg .msgdlg -parent . -title "About authors" -message " Copyright @ LPI-UVA 2006 " -type ok -icon info}}
+        }
+    }
+
+    set mainframe [MainFrame .mainframe \
+                       -menu         $descmenu \
+                       -textvariable jp3dVM::status \
+                       -progressvar  jp3dVM::prgindic]
+
+    $mainframe addindicator -text "JP3D Verification Model 1.0.0"
+
+    # NoteBook creation
+    set frame    [$mainframe getframe]
+    set notebook [NoteBook $frame.nb]
+
+    set logo [frame $frame.logo]
+    #creo imagen logo
+    image create photo LPIimg -file logoLPI.gif
+    set logoimg [Label $logo.logoimg -image LPIimg]
+    
+    set f0  [VMEncoder::create $notebook]
+    set f1  [VMDecoder::create $notebook]
+
+	set tfinfo [TitleFrame $frame.codinfo -text "Program Execution"]
+	set codinfo [$tfinfo getframe]
+	set sw [ScrolledWindow $codinfo.sw -relief sunken -borderwidth 2 -scrollbar both]
+	set sf [ScrollableFrame $codinfo.sf ]
+	$sw setwidget $sf
+	set subf [$sf getframe]
+	set labinfo [label $subf.labinfo -textvariable jp3dVM::dataout -justify left]
+
+	pack $labinfo -side left 
+	pack $sw 
+
+    $notebook compute_size
+    $notebook raise [$notebook page 0]
+
+    pack $logoimg -side left -fill x -expand yes 
+    pack $notebook -expand yes 
+    pack $logo $tfinfo -side left -expand yes 
+    pack $mainframe -fill both -expand yes
+    update idletasks
+}
+
+
+proc jp3dVM::main {} {
+    variable VMDIR
+
+    lappend ::auto_path [file dirname $VMDIR]
+    namespace inscope :: package require BWidget
+
+    option add *TitleFrame.l.font {helvetica 11 bold italic}
+
+    wm withdraw .
+    wm title . "JP3D Verification Model @ LPI"
+
+    jp3dVM::create
+    BWidget::place . 0 0 center
+    wm deiconify .
+    raise .
+    focus -force .
+}
+
+jp3dVM::main
+wm geom . [wm geom .]
diff --git a/src/bin/jp3d/tcltk/README b/src/bin/jp3d/tcltk/README
new file mode 100644
index 00000000..f4e2e359
--- /dev/null
+++ b/src/bin/jp3d/tcltk/README
@@ -0,0 +1,13 @@
+HOWTO USE THE TCL/TK APP IN 'jp3d/tcltk'
+----------------------------------------
+1. Download the 'BWidget-1.9.2'
+    http://www.sourceforge.net/projects/tcllib/
+
+2. Install it e.g. in '/usr/local/BWidget-1.9.2/'
+3. Add the lappend command in line 4
+  to jp3d/tcltk/LPI_JP3D_VM.tcl:
+
+#!/bin/sh
+# The next line is executed by /bin/sh, but not tcl \
+exec wish "$0" ${1+"$@"}
+lappend auto_path /usr/local/BWidget-1.9.2
diff --git a/src/bin/jp3d/tcltk/Thumbs.db b/src/bin/jp3d/tcltk/Thumbs.db
new file mode 100755
index 00000000..5d6ffdf9
--- /dev/null
+++ b/src/bin/jp3d/tcltk/Thumbs.db
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 } {

+

+}

+

diff --git a/src/bin/jp3d/tcltk/encoder.tcl b/src/bin/jp3d/tcltk/encoder.tcl
new file mode 100755
index 00000000..6c4a5083
--- /dev/null
+++ b/src/bin/jp3d/tcltk/encoder.tcl
@@ -0,0 +1,470 @@
+
+namespace eval VMEncoder {
+	variable var
+	variable JP3Dencoder "../bin/bin/volume_to_jp3d"
+}
+
+proc VMEncoder::create { nb } {
+
+	set frame [$nb insert end VMEncoder -text "Encoder"]
+	set topf	[frame $frame.topf]
+	set midf	[frame $frame.midf]
+	set bottomf	[frame $frame.bottomf]
+	set srcf [TitleFrame $topf.srcf -text "Source"]
+	set dstf [TitleFrame $topf.dstf -text "Destination"]
+	set Tparf [TitleFrame $midf.parfT -text "Transform Parameters"]
+	set Cparf [TitleFrame $midf.parfC -text "Coding Parameters"]
+
+	set frame1 [$srcf getframe]
+		VMEncoder::_sourceE  $frame1
+	
+	set frame2  [$dstf getframe]
+		VMEncoder::_destinationE  $frame2
+	
+	set frame3  [$Tparf getframe]
+		VMEncoder::_transformE $frame3
+
+	set frame4  [$Cparf getframe]
+		VMEncoder::_codingE $frame4
+	
+	set butE  [Button $bottomf.butE -text "Encode!" \
+		   -command  "VMEncoder::_encode $frame1 $frame2" \
+		   -helptext "Encoding trigger button"]
+	set butR  [Button $bottomf.butR -text "Restore defaults" \
+		   -command  "VMEncoder::_reset $frame1 $frame2 $frame3 $frame4" \
+		   -helptext "Reset to default values"]
+
+	pack $srcf $dstf -side left -fill y -padx 4 -expand yes
+	pack $topf -pady 2 -fill x
+
+	pack $Tparf $Cparf -side left -fill both -padx 4 -expand yes
+	pack $midf -pady 2 -fill x
+	
+	pack $butE $butR -side left -padx 40 -pady 5 -fill y -expand yes
+	pack $bottomf -pady 2 -fill x
+
+	return $frame
+}
+
+proc VMEncoder::_sourceE { parent } {
+
+	variable var
+
+	set labsrc [LabelFrame $parent.labsrc -text "Select volume file to encode: " -side top \
+			-anchor w -relief flat -borderwidth 0]
+	set subsrc [$labsrc getframe]
+	set list [entry $subsrc.entrysrc -width 30 -textvariable VMDecoder::var(source)]
+	
+	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 "fileDialogE . $subsrc.entrysrc open"]
+	
+	pack $list -side top
+	pack $butbrw -side top
+	pack $labsrc $labbrw -side left -fill both -expand yes
+}
+
+proc VMEncoder::_destinationE { parent } {
+
+	variable var
+
+	set labdst [LabelFrame $parent.labdst -text "Save compressed volume as: " -side top \
+			-anchor w -relief flat -borderwidth 0]
+	set subdst [$labdst getframe]
+	set list [entry $subdst.entrydst -width 30 -textvariable VMDecoder::var(destination)]
+	
+	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 "fileDialogE . $subdst.entrydst save"]
+	
+	pack $list -side top
+	pack $butbrw -side top
+	pack $labdst $labbrw -side left -fill both -expand yes
+}
+
+proc VMEncoder::_codingE { parent } {
+
+	
+	########### CODING  #############
+	set labcod [LabelFrame $parent.labcod -side top -anchor w -relief sunken -borderwidth 1]
+	set subcod  [$labcod getframe]
+
+		set framerate [frame $subcod.framerate -borderwidth 1]
+		set labrate [LabelEntry $framerate.labrate -label "Rates: " -labelwidth 9 -labelanchor w \
+                   -textvariable VMEncoder::var(rate) -editable 1 \
+                   -helptext "Compression ratios for different layers (R1, R2, R3,...). If R=1, lossless coding" ]
+	set VMEncoder::var(rate) "1"
+
+		set framecblk [frame $subcod.framecblk -borderwidth 1]
+		set labcblk [LabelEntry $framecblk.labcblk -label "Codeblock: " -labelwidth 9 -labelanchor w \
+                   -textvariable VMEncoder::var(cblksize) -editable 1 \
+                   -helptext "Codeblock size (X, Y, Z)" ]
+	set VMEncoder::var(cblksize) "64,64,64"
+
+		set frametile [frame $subcod.frametile -borderwidth 1]
+		set labtile [LabelEntry $frametile.labtile -label "Tile size: " -labelwidth 9 -labelanchor w \
+                   -textvariable VMEncoder::var(tilesize) -editable 1 \
+                   -helptext "Tile size (X, Y, Z)" ]
+	set VMEncoder::var(tilesize) "512,512,512"
+
+		set framesop [frame $subcod.framesop -borderwidth 1]
+		set chksop [checkbutton $framesop.chksop -text "Write SOP marker" \
+			   -variable VMEncoder::var(sop) -onvalue 1 -offvalue 0 ]
+		set frameeph [frame $subcod.frameeph -borderwidth 1]
+		set chkeph [checkbutton $frameeph.chkeph -text "Write EPH marker" \
+			   -variable VMEncoder::var(eph) -onvalue 1 -offvalue 0 ]
+	
+		set framepoc [frame $subcod.framepoc -borderwidth 1]
+		set labpoc [label $framepoc.labpoc -text "Progression order: " ]
+		set progorder [ComboBox $framepoc.progorder \
+			   -text {Choose a progression order} \
+			   -width 10 \
+			   -textvariable VMEncoder::var(progorder) \
+			   -values {"LRCP" "RLCP" "RPCL" "PCRL" "CPRL"} \
+			   -helptext "Progression order"]
+		set VMEncoder::var(progorder) "LRCP"
+
+		pack $labrate -side left -padx 2 -anchor n
+		pack $labcblk -side left -padx 2 -anchor n
+		pack $labpoc $progorder -side left -padx 2 -anchor w
+		#pack $labtile -side left -padx 2 -anchor n
+		pack $chksop -side left -padx 2 -anchor w
+		pack $chkeph -side left -padx 2 -anchor w
+	########### ENTROPY CODING  #############
+	set labent [LabelFrame $parent.labent -text "Entropy Coding" -side top -anchor w -relief sunken -borderwidth 1]
+	set subent  [$labent getframe]
+		foreach entval {2EB 3EB} entropy {2D_EBCOT 3D_EBCOT} {
+			set rad [radiobutton $subent.$entval \
+				-text $entropy \
+				-variable VMEncoder::var(encoding) \
+				-command "disableGR $entval $labcblk $progorder $labrate $chksop $chkeph" \
+				-value $entval ]
+			pack $rad -anchor w
+		}
+		$subent.2EB select 
+
+	pack $subent -padx 2 -anchor n
+
+	pack $framerate $framecblk $framepoc $framesop $frameeph -side top -anchor w
+	pack $subcod -anchor n
+
+	pack $labent $labcod -side left -fill both -padx 4 -expand yes
+
+
+}
+
+proc VMEncoder::_transformE { parent } {
+
+	variable var
+
+	########### TRANSFORM  #############
+	set labtrf [LabelFrame $parent.labtrf -text "Transform" -side top -anchor w -relief sunken -borderwidth 1]
+	set subtrf  [$labtrf getframe]
+	set labres [LabelFrame $parent.labres -side top -anchor w -relief sunken -borderwidth 1]
+	set subres [$labres getframe]
+		
+		########### ATK #############
+		set frameatk [frame $subres.frameatk -borderwidth 1]
+		set labatk [label $frameatk.labatk -text "Wavelet kernel:  " -anchor w]
+		set atk [ComboBox $frameatk.atk \
+				-textvariable VMEncoder::var(atk) \
+				-width 20 \
+				-text {Choose a wavelet kernel} \
+				-editable false \
+				-values {"R5.3" "I9.7"} ]
+		set VMEncoder::var(atk) "R5.3"
+		pack $labatk $atk -side left -anchor w
+		########### RESOLUTIONS #############
+		set frameres1 [frame $subres.frameres1 -borderwidth 1]
+		set labresolution [label $frameres1.labresol -text "Resolutions: " -anchor w ]
+		set frameres2 [frame $subres.frameres2 -borderwidth 1]
+		set labresX [label $frameres2.labresX -text "  X" -anchor w ]
+		set labresY [label $frameres2.labresY -text "  Y" -anchor w ]
+		set labresZ [label $frameres2.labresZ -text "  Z" -anchor w ]
+		
+
+		set resX [SpinBox $frameres2.spinresX \
+				-range {1 6 1} -textvariable VMEncoder::var(resX) \
+				-helptext "Number of resolutions in X" \
+				-width 3 \
+				-editable false ]
+ 		set resY [SpinBox $frameres2.spinresY \
+				-range {1 6 1} -textvariable VMEncoder::var(resY) \
+				-helptext "Number of resolutions in Y" \
+				-width 3 \
+				-editable false ]
+		set resZ [SpinBox $frameres2.spinresZ \
+				-range {1 6 1} -textvariable VMEncoder::var(resZ) \
+				-helptext "Number of resolutions in Z" \
+				-width 3 \
+				-editable false \
+				-state disabled ]
+		set VMEncoder::var(resX) 3
+		set VMEncoder::var(resY) 3
+		set VMEncoder::var(resZ) 3
+
+		########### TRF  #############
+		foreach trfval {2DWT 3DWT} trf {2D-DWT 3D-DWT} {
+			set rad [radiobutton $subtrf.$trfval -text $trf \
+					-variable VMEncoder::var(transform) \
+					-command "disable3RLS $trfval $atk $resX $resY $resZ"\
+					-value $trfval ]
+			pack $rad -anchor w
+		}
+		$subtrf.2DWT select
+		
+	pack $subtrf -side left -padx 2 -pady 4
+	
+		pack $labresolution -padx 2 -side left -anchor w
+		pack $labresX $resX -padx 2 -side left -anchor w
+		pack $labresY $resY -padx 2 -side left -anchor w
+		pack $labresZ $resZ -padx 2 -side left -anchor w
+
+		pack $frameres1 -side top -fill x
+		pack $frameres2 $frameatk -side top -padx 2 -pady 4 -anchor n
+
+	pack $subres -side left -padx 2 -pady 4
+	pack $labtrf $labres -side left -fill both -padx 4 -expand yes
+}
+
+
+proc VMEncoder::_encode { framesrc framedst } {
+
+	variable var
+
+	set source [$framesrc.labsrc.f.entrysrc get ]
+	set destination [$framedst.labdst.f.entrydst get ]
+	set cond1 [string match *.pgx [string tolower $source]]
+	set cond2 [string match *-*.pgx [string tolower $source]]
+	set cond3 [string match *.bin [string tolower $source]]
+
+	set img ".img"
+	set pattern [string range $source 0 [expr [string length $source]-5]]
+	set pattern $pattern$img
+	set exist [file exists $pattern]
+	
+	#comprobamos datos son correctos
+	if {($cond1 == 1) && ($cond2 == 0)} {
+	  MessageDlg .msgdlg -parent . -message "Info : Really want to encode an slice instead of a volume?.\n For a group of .pgx slices, name must contain a - denoting a sequential index!" -type ok -icon info
+	} 
+	
+	if {$source == ""} {
+	  MessageDlg .msgdlg -parent . -message "Error : Source file is not defined !" -type ok -icon error 
+	} elseif {$destination == ""} {
+	  MessageDlg .msgdlg -parent . -message "Error : Destination file is not defined !" -type ok -icon error 
+	} elseif { ($VMEncoder::var(transform) != "3RLS") && ($VMEncoder::var(atk) == "Choose a wavelet transformation kernel") } {
+	  MessageDlg .msgdlg -parent . -title "Info" -message "Please choose a wavelet transformation kernel"\
+			-type ok -icon warning
+	} elseif {($exist == 0) && ($cond1 == 0) && ($cond3 == 1)} {
+		  MessageDlg .msgdlg -parent . -message "Error : IMG file associated to BIN volume file not found in same directory !" -type ok -icon info 
+	} else {
+
+		#creamos datain a partir de los parametros de entrada
+#		set dirJP3Dencoder [mk_relativepath $VMEncoder::JP3Dencoder]
+		set dirJP3Dencoder $VMEncoder::JP3Dencoder
+		set datain [concat " $dirJP3Dencoder -i [mk_relativepath $source] "]
+		if {$cond3 == 1} {
+		   set datain [concat " $datain -m [mk_relativepath $pattern] "]
+		}
+		set datain [concat " $datain -o [mk_relativepath $destination] "]
+		if {$VMEncoder::var(encoding) != "2EB"} {
+			set datain [concat " $datain -C $VMEncoder::var(encoding) "]
+		}
+		if {$VMEncoder::var(transform) == "2DWT"} {
+			set datain [concat " $datain -n $VMEncoder::var(resX),$VMEncoder::var(resY) "]
+		} elseif {$VMEncoder::var(transform) == "3DWT"} {
+			set datain [concat " $datain -n $VMEncoder::var(resX),$VMEncoder::var(resY),$VMEncoder::var(resZ) "]
+		}
+		
+		set datain [concat " $datain -r $VMEncoder::var(rate) "]
+		
+		if {$VMEncoder::var(atk) == "I9.7"} {
+			set datain [concat " $datain -I "]
+		} 
+		if {$VMEncoder::var(sop) == 1} {
+			set datain [concat " $datain -SOP "]
+		}
+		if {$VMEncoder::var(eph) == 1} {
+			set datain [concat " $datain -EPH "]
+		}
+		if {$VMEncoder::var(progorder) != "LRCP"} {
+			set datain [concat " $datain -p $VMEncoder::var(progorder) "]
+		}
+		if {$VMEncoder::var(cblksize) != "64,64,64"} {
+			set datain [concat " $datain -b $VMEncoder::var(cblksize) "]
+		}
+
+		
+		#Making this work would be great !!! 
+		set VMEncoder::var(progval) 10
+		ProgressDlg .progress -parent . -title "Wait..." \
+			-type         infinite \
+			-width        20 \
+			-textvariable "Compute in progress..."\
+			-variable     VMEncoder::progval \
+			-stop         "Stop" \
+			-command      {destroy .progress}
+		after 200 set VMEncoder::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"]
+		}
+		destroy .progress
+		set cond [string first "ERROR" $jp3dVM::dataout]
+		set cond2 [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 {$cond2 != -1} {
+		   MessageDlg .msgdlg -parent . -message [string range $jp3dVM::dataout [expr $cond2+7] end] -type ok -icon info
+		   close $fp
+		} else {
+		   #Must do something with this !!! [pid $fp]
+  		   close $fp
+		}
+	}
+}
+
+proc VMEncoder::_reset { framesrc framedst frametrf framecod} {
+
+	variable var
+
+	#Restore defaults values
+	set VMEncoder::var(transform) 2DWT
+	set VMEncoder::var(encoding) 2EB
+	set VMEncoder::var(atk) "R5.3"
+	set VMEncoder::var(progorder) "LRCP"
+	set atk $frametrf.labres.f.frameatk.atk
+	set resX $frametrf.labres.f.frameres2.spinresX
+	set resY $frametrf.labres.f.frameres2.spinresY
+	set resZ $frametrf.labres.f.frameres2.spinresZ
+	disable3RLS 2DWT $atk $resX $resY $resZ 
+	set labcblk $framecod.labcod.f.framecblk.labcblk
+	set progorder $framecod.labcod.f.framepoc.progorder
+	set labrate $framecod.labcod.f.framerate.labrate
+	set chksop $framecod.labcod.f.framesop.chksop
+	set chkeph $framecod.labcod.f.frameeph.chkeph
+	disableGR 3EB $labcblk $progorder $labrate $chksop $chkeph
+
+	$framesrc.labsrc.f.entrysrc delete 0 end
+	$framedst.labdst.f.entrydst delete 0 end
+}
+
+proc fileDialogE {w ent operation} {
+
+	variable file
+	variable i j
+
+	if {$operation == "open"} {
+		set types {
+			{"Source Image Files"	{.pgx .bin}	}
+			{"All files"		*}
+		}
+		set file [tk_getOpenFile -filetypes $types -parent $w]
+		if {[string compare $file ""]} {
+			$ent delete 0 end
+			$ent insert end $file
+			$ent xview moveto 1
+		}
+	} else {
+		set types {
+			{"JP3D Files"		   {.jp3d}	}
+			{"JPEG2000 Files"	   {.j2k}	}
+			{"All files"		*}
+		}
+		set file [tk_getSaveFile -filetypes $types -parent $w \
+			-initialfile Untitled -defaultextension .jp3d]
+		if {[string compare $file ""]} {
+			$ent delete 0 end
+			$ent insert end $file
+			$ent xview moveto 1
+		}
+	}
+}
+
+proc mk_relativepath {abspath} {
+
+	set mydir [split [string trimleft [pwd] {/}] {/}]
+	set abspathcomps [split [string trimleft $abspath {/}] {/}]
+
+	set i 0
+	while {$i<[llength $mydir]} {
+		if {![string compare [lindex $abspathcomps $i] [lindex $mydir $i]]} {
+			incr i
+		} else {
+			break
+		}
+	}
+	set h [expr [llength $mydir]-$i]
+	set j [expr [llength $abspathcomps]-$i]
+
+	if {!$h} {
+		set relpath "./"
+	} else {
+		set relpath ""
+		while { $h > 0 } {
+			set relpath "../$relpath"
+			incr h -1
+		}
+	}
+
+	set h [llength $abspathcomps]
+	while { $h > $i } {
+		set relpath [concat $relpath[lindex $abspathcomps [expr [llength $abspathcomps]-$j]]/]
+		incr h -1
+		incr j -1
+	}
+	return [string trim $relpath {/}]
+}
+
+proc disable3RLS {flag atk resX resY resZ}  {
+
+	if {$flag == "3RLS"} {
+		$atk configure -state disabled
+		$resX configure -state disabled
+		$resY configure -state disabled
+		$resZ configure -state disabled
+	} elseif {$flag == "2DWT"} {
+		$atk configure -state normal
+		$resX configure -state normal
+		$resY configure -state normal
+		$resZ configure -state disabled
+	} elseif {$flag == "3DWT"} {
+		$atk configure -state normal
+		$resX configure -state normal
+		$resY configure -state normal
+		$resZ configure -state normal
+	}
+}
+
+proc disableGR {flag labcblk progorder labrate chksop chkeph} {
+	
+	if {$flag == "2EB"} {
+		$labcblk configure -state normal
+		$progorder configure -state normal
+		$labrate configure -state normal
+		$chksop configure -state normal
+		$chkeph configure -state normal
+		set VMEncoder::var(cblksize) "64,64,64"
+		set VMEncoder::var(tilesize) "512,512,512"
+	} elseif {$flag == "3EB"} {
+		$labcblk configure -state normal
+		$progorder configure -state normal
+		$labrate configure -state normal
+		$chksop configure -state normal
+		$chkeph configure -state normal
+		set VMEncoder::var(cblksize) "64,64,64"
+		set VMEncoder::var(tilesize) "512,512,512"
+	} else {
+		$labcblk configure -state disabled
+		$progorder configure -state disabled
+		$labrate configure -state disabled
+		$chksop configure -state disabled
+		$chkeph configure -state disabled
+	}
+}
diff --git a/src/bin/jp3d/tcltk/logoLPI.gif b/src/bin/jp3d/tcltk/logoLPI.gif
new file mode 100755
index 00000000..df795150
--- /dev/null
+++ b/src/bin/jp3d/tcltk/logoLPI.gif