开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 图形图像 > 3D图形编程 > 查看源码
imagealign.tcl
资源名称：scanalyze-1.0.3_source_code.rar　[点击查看]
上传用户：kellyonhid
上传日期：2013-10-12
资源大小：932k
文件大小：10k
源码类别：

3D图形编程

开发平台：

Visual C++

imagealign.tcl：源码内容
  1. # Open the main image alignment window
  2. proc imageAlignmentUI {} {
  3.     if [window_Activate .imagealign] return
  4.     
  5.     set iaw [toplevel .imagealign]
  6.     wm title $iaw "Image Alignment"
  7.     window_Register $iaw
  9.     # How can I keep variables available to callbacks except global?
  10.     global curImageAlignFile 
  11.     global shortIAF
  12.     global fivetuples
  13.     global xyztuples
  14.     globalset fivetuples ""
  15.     globalset xyztuples ""
  16.     global curPasteMesh 
  17.     global shortPM 
  18.     global cameraType
  19.     global displayscalevar
  21.     # Set default camera type
  22.     if {![info exists cameraType]} {
  23. set cameraType DKCST5_2V
  24.     }
  25.     
  26.     # Set default display scale
  27.     if {![info exists displayscalevar]} {
  28. set displayscalevar 100
  29.     }
  31.     # Clear the current point correspondances when we start the window
  32.     # Lucas change:
  33.     # Used to be:     exec echo "" > [glob ~/.tmp2dpoints]
  34.     # Removed the glob, because if the file didn't exist (e.g. a user's
  35.     # first time), the glob would not return a name, and the image
  36.     # align window would never come up.
  37.     exec echo "" > ~/.tmp2dpoints
  38.     exec echo "" > ~/.xyztuples
  40.     # Set the initial state to not corresponding
  41.     global imageactive
  42.     set imageactive 0
  43.    
  44.     #buttons section 1 establishing things
  45.     button $iaw.opendisplay -text "Start Correlation" -command opendisplay
  46.     button $iaw.establishname -text "Establish Image Name..." -command establishname
  47.     label $iaw.curfilelabel -relief sunken -textvariable shortIAF
  48.     label $iaw.curmeshlabel -relief sunken -textvariable shortPM
  49.     button $iaw.setpastemesh -text "Establish paste mesh..." -command setpastemesh
  50.     scale $iaw.displaysize -relief ridge -orient horizontal -resolution 5 -label "Image Display Scale %" -from 5 -to 100 -variable displayscalevar
  52.     # buttons section 2 running correlation
  53.     button $iaw.refresh -text "Refresh 5-tuples" -command load5tuples
  54.     button $iaw.doneclicking -text "End Correlation" -command doneclicking
  55.     button $iaw.savexyzuv -text "Create .xyzuv" -command savexyzuv
  56.     button $iaw.createtsai -text "Create .tsai" -command createtsai
  57.     button $iaw.dopastecolor -text "Paste Color (This Image)" -command dopastecolor
  59.     #buttons section 3 pasting and viewing color
  60.     button $iaw.dopasteallcolor -text "Paste Color (Merged Images)" -command dopasteallcolor
  61.     button $iaw.loadlocalcolor -text "Load colored mesh(This Image)" -command loadlocalcolor
  62.     button $iaw.loadallcolor -text "Load colored mesh(Merged Images)" -command loadallcolor
  63.     button $iaw.projectivecolor -text "View Color Projection" -command projectivecolor
  65.     # Viewpoint buttons
  66.     button $iaw.setview -text "Zoom to .tsai camera viewpoint" -command setview
  67.     button $iaw.undoview -text "Undo viewpoint change" -command undoview
  68.     button $iaw.gentexrgb -text "Generate this projected .rgb" -command gentexrgb
  69.     button $iaw.gentexrgbs -text "Generate all projected .rgbs" -command gentexrgbs
  71.     # Seperators (ugly ones)
  72.     label $iaw.sep1  -background "#000"
  73.     label $iaw.sep2  -background "#000"
  74.     label $iaw.sep3  -background "#000"
  76.     # Camera types -- just add more to the list below as needed...
  77.     set cams [frame $iaw.cameras]
  78.     label $cams.l -text "Cam Type:" -anchor w
  79.     tk_optionMenu $cams.sort cameraType 
  80. "DKCST5_2" 
  81. "DKCST5_2V" 
  82. "DKCST5_rawpixels" 
  83. "DKCST5_640x480" 
  84. "DKC5000"
  85.     packchildren $cams -side left -fill x -expand 1
  87.     # The five tuple region
  88.     message $iaw.points -width 60c -relief sunken -textvariable fivetuples
  90.     # Pack it all
  91.     pack   $iaw.establishname 
  92. $iaw.curfilelabel $iaw.setpastemesh $iaw.curmeshlabel
  93. $iaw.cameras $iaw.displaysize 
  94. $iaw.sep1 
  95. $iaw.opendisplay $iaw.refresh $iaw.doneclicking 
  96. $iaw.savexyzuv $iaw.createtsai  
  97. $iaw.sep2 
  98. $iaw.projectivecolor 
  99. $iaw.dopastecolor $iaw.loadlocalcolor 
  100. $iaw.dopasteallcolor $iaw.loadallcolor 
  101. $iaw.sep3 
  102. $iaw.setview $iaw.undoview $iaw.gentexrgb $iaw.gentexrgbs
  103. $iaw.points -fill x
  105. }
  107. proc gentexrgb {} {
  108.     global curImageAlignFile 
  109.     global env
  110.     set tsaifile [file rootname $curImageAlignFile].tsai
  111.     set infile [file rootname $tsaifile].rgb
  112.     set grayrgbfile [file rootname $tsaifile].gray.rgb
  113.     set projrgbfile [file rootname $tsaifile].proj.rgb
  114.     plv_resetxform
  115.     plv_positioncamera $tsaifile
  116.     globalset theColorMode gray
  117.     setShininess 0
  118.     plv_writeiris [globalset toglPane] $grayrgbfile
  119.     plv_load_projective_texture $infile
  120.     globalset theColorMode texture
  121.     plv_writeiris [globalset toglPane] $projrgbfile
  122. }
  124. proc gentexrgbs {} {
  125.     global curImageAlignFile 
  126.     global env
  127.     set tsaifiles [glob [file dirname $curImageAlignFile]/*.tsai]
  129.     for {set i 0} {$i < [llength $tsaifiles]} {incr i} {
  130. set tsaifile [lindex $tsaifiles $i]
  131. set infile [file rootname $tsaifile].rgb
  132. set grayrgbfile [file rootname $tsaifile].gray.rgb
  133. set projrgbfile [file rootname $tsaifile].proj.rgb
  134. plv_resetxform
  135. plv_positioncamera $tsaifile
  136. globalset theColorMode gray
  137. setShininess 0
  138. plv_writeiris [globalset toglPane] $grayrgbfile
  139. plv_load_projective_texture $infile
  140. globalset theColorMode texture
  141. # redraw 1
  142. plv_writeiris [globalset toglPane] $projrgbfile
  143.     }
  144. }
  146. proc undoview {} {
  147.     restorecam previousCameraView; redraw 1
  148. }
  150. proc setview {} {
  151.     global curImageAlignFile
  152.     set tsaifile [file rootname $curImageAlignFile].tsai
  153.     # We reset the transform before setting it to the new camera
  154.     # because accumulated trackball junk screws things up
  155.     savecam previousCameraView
  156.     plv_resetxform
  157.     plv_positioncamera $tsaifile ; redraw 1
  158.  
  159. }
  162. proc projectivecolor {} {
  163.     global curImageAlignFile
  164.     plv_load_projective_texture $curImageAlignFile
  165.     globalset theColorMode texture
  167. }
  170. proc doneclicking {} {
  171.     global imageactive;
  172.     set imageactive 0
  173.     catch {exec killall displayclick}
  174. }
  176. proc establishname {} {
  177.     global xyztuples
  178.     set types {
  179. {{Image Files}       {.rgb}}
  180. {{PNG Files}         {.png}}
  181.     }
  184.     set filename [tk_getOpenFile -defaultextension .rgb -filetypes $types]
  185.     if {$filename != ""} {
  186. globalset curImageAlignFile $filename
  187. globalset shortIAF [file tail $filename]
  188. set xyztuples ""
  189. exec echo " " > [glob ~/.tmp2dpoints]
  190. load5tuples
  191.     }
  192. }
  194. proc opendisplay {} {
  196.     global curImageAlignFile
  197.     global xyztuples
  198.     global imageactive
  199.     global displayscalevar
  201.     if {($curImageAlignFile != "") && ($imageactive != 1)} {
  202. exec displayclick -geometry $displayscalevar{%} $curImageAlignFile > [glob ~/.tmp2dpoints] &
  203. globalset xyztuples ""
  204. globalset imageactive 1
  205. idlerefresh
  206.     }
  207. }
  209. proc loadlocalcolor {} {
  210.     global curImageAlignFile 
  211.     set meshfile [file rootname $curImageAlignFile].cs.set
  212. #    set scanname [file rootname $curImageAlignFile].cs
  213.     set scanname [readfile $meshfile]
  214. #   puts "name:$scanname"
  215.     selectScan $scanname
  216.     showOnlyMesh $scanname
  217.     globalset theColorMode true
  218. }
  220. proc loadallcolor {} {
  221.     global curPasteMesh
  222.     set meshfile [file rootname $curPasteMesh].cs.set
  223.     set scanname [readfile $meshfile]
  224. #    puts "name:$scanname"
  225.     selectScan $scanname
  226.     showOnlyMesh $scanname
  227.     globalset theColorMode true
  228. }
  230. proc dopastecolor {} {
  231.     global curPasteMesh
  232.     global curImageAlignFile 
  233.     global env
  234.     set tsaifile [file rootname $curImageAlignFile].tsai
  235.     set meshfile [file rootname $curImageAlignFile].cs.ply
  236.     set meshcfile [file rootname $curImageAlignFile].c.ply
  239.     if {[file exists $curPasteMesh]  && [file exists $tsaifile]} {
  240. exec /bin/rm -f $meshfile $meshcfile
  241.      exec $env(SCANALYZE_DIR)/imagealign/tsai2cply $curPasteMesh $tsaifile &
  242. }
  243.     
  244. }
  246. proc dopasteallcolor {} {
  247.     global curPasteMesh
  248.     global curImageAlignFile 
  249.     global env
  250.     set tsaifile [glob [file dirname $curImageAlignFile]/*.tsai]
  252.     set meshfile [file rootname $curPasteMesh].cs.ply
  253.     set meshcfile [file rootname $curPasteMesh].c.ply
  256.     if {[file exists $curPasteMesh]} {
  257. exec /bin/rm -f $meshfile $meshcfile
  258.      exec $env(SCANALYZE_DIR)/imagealign/tsai2mergecply $curPasteMesh $tsaifile &
  259. }
  260.     
  261. }
  263. proc setpastemesh {} {
  265.     set types {
  266. {{Ply Files}       {.ply}}
  267.     }
  269.     set filename [tk_getOpenFile -defaultextension .ply -filetypes $types]
  270.     if {$filename != ""} {
  271. globalset curPasteMesh $filename
  272. globalset shortPM [file tail $filename]
  274.     }
  275. }
  277.   
  280. proc savexyzuv {} {
  281.     global curImageAlignFile
  282.     global fivetuples
  283.     set newfile [file rootname $curImageAlignFile].xyzuv
  284.     if [file exists $newfile] {
  285. exec date >> $newfile.bak
  286. exec cat $newfile >> $newfile.bak
  287.     }
  288.     if [file exists $curImageAlignFile] {
  289. exec echo $fivetuples > $newfile
  290. puts "$newfile saved"
  291.     }
  292. }
  294. proc createtsai {} {
  295.     global curImageAlignFile
  296.     global env
  297.     global cameraType
  298.     set xyzuvfile [file rootname $curImageAlignFile].xyzuv
  299.     set tsaifile [file rootname $curImageAlignFile].tsai
  300.     set rootname [file rootname $curImageAlignFile]
  301.     if [file exists $tsaifile] {
  302. exec date >> $tsaifile.bak
  303. exec cat $tsaifile >> $tsaifile.bak
  304.     }
  305.     if [file exists $curImageAlignFile] {
  306. # exec echo "path ('/mich4/uvdavid/matlab',path); feval('find_extrinsics','$rootname') ; disp('$tsaifile created.')" | matlab  &
  307. exec $env(SCANALYZE_DIR)/imagealign/xyzuv2tsai -o -c $cameraType $xyzuvfile &
  308. puts "Creating $tsaifile ..."
  310.     }
  311. }
  313. proc idlerefresh {} {
  314.     global imageactive
  315.     load5tuples
  316.     if {$imageactive == 1} {
  317. after 1000 idlerefresh
  318.     }
  319. }
  321. proc load5tuples {} {
  322. global fivetuples
  323. global xyztuples
  325. #make a 5tuple file
  326.     exec echo $xyztuples > ~/.xyztuples
  327.     exec paste [glob ~/.xyztuples] [glob ~/.tmp2dpoints] > ~/.fivetuples
  329. #load 5tuple file
  330.     set f [open ~/.fivetuples]
  331.     set fivetuples [read $f 10000]
  332.     close $f
  333.     
  334. }
  336. proc addxyzpoint {xyz} {
  337.     global imageactive
  338.     global xyztuples
  339. # Check to make sure the imagealignment window is open
  340. # check to make sure we are taking correspondances now
  341. # check finally that we got a numeric result and not "hit background"
  342.     if [winfo exists .imagealign] {
  343. if {$imageactive == 1 && [scan $xyz "%f %f %f" foo1 foo2 foo3]}  {
  344.     set xyztuples "$xyztuples $xyz n"
  345.     load5tuples
  346. }
  347.     }
  348. }