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

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

3D图形编程

开发平台：

Visual C++

build_ui.tcl：源码内容
  1. ######################################################################
  2. #
  3. # build_ui.tcl
  4. # created 10/29/98  magi
  5. #
  6. # create visible user interface -- main window interactors and menubar
  7. #
  8. ######################################################################
  9. #
  10. # exports:
  11. #   buildScanalyzeUI
  12. #   addMeshToWindow
  13. #   removeMeshFromWindow
  14. #   buildUI_shutdown
  15. #   hiliteScanEntry
  16. #
  17. ######################################################################
  21. ############################################################################
  22. #
  23. # Create the complete visible UI
  24. #
  25. ############################################################################
  27. proc buildScanalyzeUI {} {
  29. global errorInfo
  31.     if {![globalset noui]} {
  32. detectCursorCapabilities
  33. buildUI_ScanalyzeMenus
  34. buildUI_ToglContextMenu
  35. buildUI_MainWindow
  36. buildUI_MeshControls
  37. buildUI_BindShortcuts
  38. buildUI_PositionWindows
  39. buildUI_BuildNudgeWindow
  40. buildUI_BuildVersionWindow
  42. bind all <Control-q> { confirmQuit}
  43.     }
  45.     globalset tcl_prompt1 {puts -nonewline "scanalyze> "}
  46.     globalset tcl_prompt2 {puts -nonewline "> "}
  47. }
  50. proc buildUI_shutdown {} {
  51.     # save any persistent settings before exit
  52.     buildUI_SaveWindowPositions save
  53. }
  56. ############################################################################
  57. #
  58. # add a mesh to the mesh controls window so it can be manipulated
  59. #
  60. ############################################################################
  62. proc addMeshToWindow {name {loaded 1}} {
  63.     global meshCount
  64.     global meshLoaded
  66.     if {![globalset noui]} {
  67. global leftFrame
  68. global meshFrame
  70. set i [getUniqueInt]
  72. set fr $leftFrame.meshFrame$i
  73. if {[catch {set newFrame [buildUI_privAddMeshAsFrame 
  74.       $name $fr]} err]} {
  75.     puts "$err"
  76.     destroy $fr
  77.     return
  78. }
  79. set meshFrame($name) $newFrame
  80. pack $newFrame -side top -anchor e
  81.     }
  83.     incr meshCount
  84.     set meshLoaded($name) $loaded
  85.     updatePolyCount
  87.     # always select the first scan loaded into scanalyze...
  88.     if {$meshCount == 1} {
  89. selectScan $name
  90.     }
  92.     resizeMCscrollbar
  93. }
  95. ############################################################################
  96. # Changes the size of resolution bars in mesh controls window
  97. ############################################################################
  98. proc buildUI_ResizeResBars {name inframe} {
  100.     set curres [plv_getcurrentres $name]
  101.     set maxres [getPolyCount_maxres $name]
  102.     if {$maxres > 0} {
  103. if {$curres > 0} {
  104.     set curres [expr round(10 * (log10($curres) - 3))]
  105. }
  106. set maxres [expr round(10 * (log10($maxres) - 3))]
  107.     }
  108.     
  109.     # anything less than 1000 gets set to 1 pix..
  110.     if { $curres < 0 } {
  111. set curres 1
  112.     }
  113.     if { $maxres < 0 } {
  114. set maxres 1
  115.     }
  116.     
  117.     # make them always visibly wide, for false color convenience
  118.     incr curres 5
  119.     incr maxres 5
  120.     
  121.     if {$curres == $maxres} {
  122. # hacks to make maxres bar invisible, since we can't make
  123. # it narrower than 1 pixel
  124. $inframe.title.maxBar config -width 1 
  125.     -bg [lindex [$inframe.title.curBar config -bg] 4]
  126.     } else {
  127. $inframe.title.maxBar config -width [expr $maxres - $curres] 
  128.     -bg "#000000"
  129.     }
  130.     $inframe.title.curBar config -width $curres
  131.     
  132.     return $maxres
  133. }
  136. proc buildUI_ResizeAllResBars {} {
  137.     global meshFrame
  138.     set meshes [getMeshList]
  140.     foreach mesh $meshes {
  141. buildUI_ResizeResBars $mesh $meshFrame($mesh)
  142.     }
  143. }
  145. proc toggleRangeFromActiveMeshTo {mesh} {
  146.     global meshVisible
  147.     set meshes [getSortedMeshControlsList]
  148.     set start [lsearch -exact $meshes $mesh]
  149.     set stop [lsearch -exact $meshes [globalset theMesh]]
  151.     if {$stop < $start} {
  152. set start [expr $start - 1]
  153. swap start stop
  154.     } else { incr start }
  155.     set range [lrange $meshes $start $stop]
  157.     without_redraw {
  158. foreach m $range {
  159.     changeVis $m [expr ! $meshVisible($m)]
  160. }
  161.     } maskerrors
  162. }
  164. proc buildUI_privAddMeshAsFrame {name inframe} {
  165.     global meshVisible
  166.     global meshLoaded
  167.     global menuView
  169.     set titleFrame [frame $inframe]
  170.     set meshFrame [frame $titleFrame.title]
  171.     set meshLabel [label $meshFrame.label -text $name]
  172.     set meshColor [frame $meshFrame.color -width 10 -height 10 
  173.        -background [GetMeshFalseColor $name]]
  174.     set radioMove [radiobutton $meshFrame.active -variable theMesh 
  175.        -value $name -command [list selectScan $name]]
  176.     set checkVis [checkbutton $meshFrame.visible 
  177.       -variable meshVisible($name) 
  178.       -command [list changeVis $name]]
  179.     set loaded [checkbutton $meshFrame.loaded 
  180.     -variable meshLoaded($name) 
  181.     -command [list changeLoaded $name]]
  182.     
  183.     set meshVisible($name) 1
  184.     
  185.     # resolution indicator bars
  186.     set max [frame $meshFrame.maxBar
  187.  -width 0 -height 10 -background black]
  188.     set cur [frame $meshFrame.curBar
  189.  -width 0 -height 10 -background [GetMeshFalseColor $name]]
  191.     #cheap hack for spacing
  192.     #assumes a max of 10^7 triangles (based on formula in resizeResBars)
  193.     #the number 45 comes from 10 * (log10(10^7) - 3) + 5
  194.     set maxpix [buildUI_ResizeResBars $name $inframe]
  195.     set pad [frame $meshFrame.pad -width [expr 45 - $maxpix] 
  196.  -height 10 -background "#d9d9d9"]
  198.     pack $loaded $pad $max $cur $radioMove $checkVis $meshLabel
  199. -side right -anchor e
  201.     if {[plv_groupscans isgroup $name]} {
  202.   set exp [label $meshFrame.expand -text "+" -anchor w]
  203. bind $exp <ButtonPress-1> "group_expandGroup $name"
  204. pack $exp -side left -anchor w
  205.     }
  206.     
  207.     # don't need this now that res-indicator shows the false color
  208.     #pack $meshColor -side right
  209.     
  210.     set meshMenu [menu $meshLabel.menu -tearoffcommand 
  211.       "setMenuTitle $name"]
  212.     $meshMenu add cascade -label "Resolution" -menu $meshMenu.resMenu
  213.     $meshMenu add separator
  214.     $meshMenu add command -label "Flip normals" 
  215. -command "invertMeshNormals $name"
  216.     $meshMenu add command -label "Reset transform" 
  217. -command "plv_resetxform $name"
  218.     $meshMenu add command -label "Get info" 
  219. -command "showMeshInfo $name"
  220.     $meshMenu add command -label "Change false color" 
  221. -command "chooseMeshFalseColor $name"
  222.     $meshMenu add separator
  223.     $meshMenu add command -label "Reload" -command "reloadMesh $name"
  224.     $meshMenu add command -label "Delete" -command "confirmDeleteMesh $name"
  225.     ss_addConvertSweepScanToMeshControlMenu $meshMenu $name
  227.     menu $meshMenu.resMenu 
  228. -postcommand "buildMeshResList $name $meshMenu.resMenu"
  229.     foreach control 
  230. "$meshLabel $meshColor $checkVis $radioMove $cur $max $loaded" {
  231. bind $control <ButtonPress-3> "tk_popup $meshMenu %X %Y"
  232.     }
  233.     bind $checkVis <Control-ButtonPress-1> "toggleRangeFromActiveMeshTo $name"
  235.     bind $meshFrame <Enter> "plv_hilitescan $name"
  236.     bind $meshFrame <Leave> "plv_hilitescan"
  238.     pack $meshFrame -side top -fill both -expand 1
  239.     return $titleFrame
  240. }
  243. ############################################################################
  244. #
  245. # remove a mesh from the mesh controls window (presumably, after deletion)
  246. #
  247. ############################################################################
  249. proc removeMeshFromWindow {meshes} {
  250.     global meshFrame
  251.     global meshVisible
  252.     global meshCount
  254.     set needReactivate 0
  255.     foreach mesh $meshes {
  256. destroy $meshFrame($mesh)
  257. unset meshFrame($mesh)
  258. unset meshVisible($mesh)
  259. set meshCount [expr $meshCount - 1]
  261. if {[globalset theMesh] == $mesh} {
  262.     set needReactivate 1
  263. }
  264.     }
  266.     if {$needReactivate} {
  267. globalset theMesh [lindex [array names meshVisible] 0]
  268.     }
  270.     updatePolyCount
  271.     resizeMCscrollbar
  272. }
  275. proc progress {args} {
  276.     # this got moved to C code
  277.     eval plv_progress $args
  278. }
  281. # private functions follow
  284. ############################################################################
  285. #
  286. # build the render menu, used by the menubar and the togl context menu
  287. #
  288. ############################################################################
  290. proc buildUI_RenderMenu {name tearname} {
  291.     set menuRender [menu $name 
  292. -tearoffcommand "setMenuTitle "$tearname""]
  294.     $menuRender add radiobutton -label Polygons 
  295. -variable thePolygonMode -value fill
  296.     $menuRender add radiobutton -label Wireframe 
  297. -variable thePolygonMode -value line
  298.     $menuRender add radiobutton -label "Hidden line" 
  299. -variable thePolygonMode -value hiddenline
  300.     $menuRender add radiobutton -label Points 
  301. -variable thePolygonMode -value point
  302.     $menuRender add radiobutton -label "Hidden Points" 
  303. -variable thePolygonMode -value hiddenpoint
  304.     $menuRender add separator
  305.     $menuRender add radiobutton -label "Smooth per-vertex" 
  306. -variable theShadeModel -value smooth 
  307. -command {plv_drawstyle -shademodel $theShadeModel; redraw}
  308.     $menuRender add radiobutton -label "Flat per-vertex" 
  309. -variable theShadeModel -value fakeflat 
  310. -command {plv_drawstyle -shademodel $theShadeModel; redraw}
  311.     $menuRender add radiobutton -label "Flat per-face (slow)" 
  312. -variable theShadeModel -value realflat 
  313. -command {plv_drawstyle -shademodel $theShadeModel; redraw}
  314.     $menuRender add separator
  315.     set menuColor [createNamedCascade $menuRender menuColors 
  316.        "Change colors"]
  317.     $menuColor add command -label Background -command "chooseColor background"
  318.     $menuColor add separator
  319.     $menuColor add command -label Materials: -state disabled
  320.     $menuColor add command -label Specular -command "chooseColor specular"
  321.     $menuColor add command -label Diffuse -command "chooseColor diffuse"
  322.     $menuColor add separator
  323.     $menuColor add command -label Back Materials: -state disabled
  324.     $menuColor add command -label Specular -command "chooseColor backSpecular"
  325.     $menuColor add command -label Diffuse -command "chooseColor backDiffuse"
  326.     $menuColor add separator
  327.     $menuColor add command -label Lighting: -state disabled
  328.     $menuColor add command -label Ambient -command "chooseColor lightambient"
  329.     $menuColor add command -label Diffuse -command "chooseColor lightdiffuse"
  330.     $menuColor add command -label Specular -command "chooseColor lightspecular"
  331.     $menuRender add separator
  332.     $menuRender add checkbutton -label Lit 
  333. -variable theLightingMode 
  334. -command {plv_drawstyle -lighting $theLightingMode; redraw}
  335.     $menuRender add checkbutton -label Shiny 
  336. -variable theShinyMode 
  337. -command {setShininess $theShinyMode; redraw}
  338.     $menuRender add checkbutton -label Emissive 
  339. -variable theEmissiveMode 
  340. -command {plv_drawstyle -emissive $theEmissiveMode; redraw}
  341.     $menuRender add checkbutton -label "Backface culling" 
  342. -variable theCullMode 
  343. -command {plv_drawstyle -cull $theCullMode; redraw}
  344. # two sided lighting now implements this feature
  345. #    $menuRender add checkbutton -label "Emissive backface like background" 
  346. # -variable theEmissiveBackfaceMode 
  347. # -command {plv_drawstyle -backfaceemissive $theEmissiveBackfaceMode;
  348. #     if {$theEmissiveBackfaceMode && $theCullMode} {
  349. # set theCullMode 0; plv_drawstyle -cull 0;
  350. #     }
  351. #     redraw}
  352.     $menuRender add checkbutton -label "Two sided lighting" 
  353. -variable theTwoSidedLighting 
  354. -command {plv_drawstyle -twosidedlighting $theTwoSidedLighting; redraw}
  355.     $menuRender add checkbutton -label "Flip normals" 
  356. -variable theFlipNormalMode 
  357. -command {plv_drawstyle -flipnorm $theFlipNormalMode; redraw}
  358.     $menuRender add checkbutton -label "Selected mesh transparent" 
  359. -variable transparentSelection
  360.     $menuRender add separator
  361.     $menuRender add radiobutton -label "Lit backface" 
  362.         -variable theBackfaceMode -value lit
  363.     $menuRender add radiobutton -label "Emissive backface" 
  364. -variable theBackfaceMode -value emissive
  365.     $menuRender add separator
  366.     $menuRender add radiobutton -label "Gray color" 
  367. -variable theColorMode -value gray
  368.     $menuRender add radiobutton -label "False color" 
  369. -variable theColorMode -value false
  370.     $menuRender add radiobutton -label "Intensity" 
  371. -variable theColorMode -value intensity
  372.     $menuRender add radiobutton -label "True color" 
  373. -variable theColorMode -value true
  374.     $menuRender add radiobutton -label "Boundary" 
  375. -variable theColorMode -value boundary
  376.     $menuRender add radiobutton -label "Confidence" 
  377. -variable theColorMode -value confidence
  378.     $menuRender add radiobutton -label "Registration status" 
  379. -variable theColorMode -value registration
  380.     $menuRender add radiobutton -label "Texture mapped" 
  381. -variable theColorMode -value texture
  383.     return $menuRender
  384. }
  387. ######################################################################
  388. #
  389. # clip menu treated slightly differently, but same effect -- you
  390. # create it where you want it, then call this to fill it in, again
  391. # decomposed so we can put one on the togl context menu
  392. #
  393. ######################################################################
  395. proc buildUI_populateClipMenu {clipMenu} {
  396.     $clipMenu add command -label "Clip current mesh:" -state disabled
  397.     $clipMenu add command -label "TO (discard all but selection)" 
  398. -command {doClipMesh $theMesh [list sel inplace inside]}
  399.     $clipMenu add command -label "AWAY (discard selection)" 
  400. -command {doClipMesh $theMesh [list sel inplace outside]}
  401.     $clipMenu add command -label "COPY (selection to new mesh)" 
  402. -command {doClipMesh $theMesh [list sel newmesh inside]}
  403.     $clipMenu add separator
  404.     $clipMenu add command -label "Split (remove selection to new mesh)" 
  405. -command { doClipSplitMesh $theMesh }
  406.     $clipMenu add separator
  407.     $clipMenu add command -label "Clip..." -command clipDialog
  408.     $clipMenu add separator
  409.     $clipMenu add command -label "Clear selection" -command clearSelection
  410. }
  414. ######################################################################
  415. #
  416. # create main menubar
  417. #
  418. ######################################################################
  420. proc buildUI_ScanalyzeMenus {} {
  421.     menu .menubar
  422.     . config -menu .menubar
  423.     
  424.     set menuFile [createNamedCascade .menubar menuFile File "-underline 0"]
  425.     $menuFile add command -label "Open scan..." 
  426.     -command { openScanFile }
  427.     $menuFile add command -label "Open SD scan directory..." 
  428.     -command { openScanDir }
  429.     $menuFile add command -label "Open session..." 
  430.     -command { fileSession open }
  431.     $menuFile add command -label "Open group..." 
  432. -command { openGroupFile }  
  433.     $menuFile add separator
  434.     $menuFile add command -label "Save current scan" 
  435.     -command { saveScanFile $theMesh }
  436.     $menuFile add command -label "Save current scan as..." 
  437.     -command { saveScanFileAs $theMesh }
  438.     $menuFile add command -label "Save all..." 
  439.     -command { confirmSaveMeshes }
  440.     $menuFile add command -label "Save all visible to directory..." 
  441.     -command { saveVisibleScans }
  442.     $menuFile add command -label "Save session..." 
  443.     -command { fileSession save }
  444.     $menuFile add command -label "Save current group" 
  445.     -command { group_saveCurrentGroup  }
  446.     $menuFile add command -label "Save current group to directory..." 
  447.     -command { group_saveCurrentGroupToDir  }
  448.     $menuFile add separator
  449.     $menuFile add command -label "Flatten all scans..." 
  450. -command {confirmFlattenMeshes }
  451.     $menuFile add separator
  452.     $menuFile add command -label "Export current scan as..." 
  453. -command {saveScanAsPlySet $theMesh }
  454.     $menuFile add command -label "Export current mesh as..." 
  455. -command { saveScanResolutionMeshAs $theMesh }
  456.     $menuFile add command -label "Export transformed mesh as..." 
  457. -command { saveScanResolutionMeshAs $theMesh extended }
  458.     $menuFile add command -label "Export all scans as plysets" 
  459. -command saveAllScansAsPlySets
  460.     $menuFile add command -label "Export rendered image as..." 
  461. -command saveScreenDump
  462.     set menuRemoteDisplay [createNamedCascade .menubar.menuFile remoteDisplay 
  463.        "Export to remote display" ]
  465.     $menuRemoteDisplay add command -label "Other..." 
  466. -command remoteDisplayUI
  467.     $menuRemoteDisplay add separator
  468.     $menuRemoteDisplay add command -label "nurb" 
  469. -command {sendImageTo nurb}
  470.     $menuRemoteDisplay add command -label "cesello" 
  471. -command {sendImageTo cesello}
  472.     $menuRemoteDisplay add command -label "brdf" 
  473. -command {sendImageTo brdf}
  474.     $menuRemoteDisplay add command -label "enoriver" 
  475. -command {sendImageTo enoriver}
  478.     $menuFile add separator
  479.     $menuFile add command -label "Write scan xform" 
  480. -command { saveScanMetaData $theMesh xform }
  481.     $menuFile add command -label "Write all xforms" 
  482. -command fileWriteAllScanXforms -accelerator ^X
  483.     $menuFile add command -label "Write visible xforms" 
  484. -command fileWriteVisibleScanXforms
  485.     $menuFile add separator
  486.     $menuFile add command -label "Exit" -command confirmQuit -accelerator ^Q
  488.     set menuView [createNamedCascade .menubar menuView View "-underline 0"]
  489.     set menuViewRes [createNamedCascade $menuView res Resolution]
  490.     $menuViewRes add radiobutton -label "View selected resolution" 
  491. -value default -variable drawResolution
  492.     $menuViewRes add radiobutton -label "View highest resolution" 
  493. -value temphigh -variable drawResolution
  494.     $menuViewRes add radiobutton -label "View lowest" 
  495. -value templow -variable drawResolution
  496.     $menuViewRes add separator
  497.     $menuViewRes add command -label "Select highest for all" 
  498. -command "set drawResolution high" -accelerator "Ctrl->"
  499.     $menuViewRes add command -label "Next higher for all" 
  500. -command "set drawResolution nexthigh" -accelerator >
  501.     $menuViewRes add command -label "Next lower for all" 
  502. -command "set drawResolution nextlow" -accelerator <
  503.     $menuViewRes add command -label "Select lowest for all" 
  504. -command "set drawResolution low" -accelerator "Ctrl-<"
  505.     $menuViewRes add separator
  506.     $menuViewRes add command -label "Select Nth for all..." 
  507. -command "buildUI_selectNthResolution"
  508.     $menuViewRes add command -label "Select above N for all..." 
  509. -command selectResAboveUI
  510.     $menuViewRes add separator
  511.     $menuViewRes add checkbutton -label "'All' includes invisible meshes" 
  512. -variable selectResIncludesInvisible
  514.     set menuViewSpeed [createNamedCascade $menuView speed 
  515.    "Render speed while moving"]
  516.     $menuViewSpeed add checkbutton -label "Draw points instead of tris" 
  517. -variable manipRender(Points)
  518.     $menuViewSpeed add checkbutton -label "Use tiny points" 
  519. -variable manipRender(TinyPoints)
  520.     $menuViewSpeed add checkbutton -label "Disable lighting" 
  521. -variable manipRender(Unlit)
  522.     $menuViewSpeed add checkbutton -label "Use lowest resolution" 
  523. -variable manipRender(Lores)
  524.     $menuViewSpeed add separator
  525.     $menuViewSpeed add checkbutton -label "Prefer speedups to display list"
  526. -variable manipRender(SkipDisplayList)
  527.     $menuViewSpeed add separator
  528.     $menuViewSpeed add command -state disabled 
  529. -label "Threshold for fast draw:"
  530.     $menuViewSpeed add radiobutton -label "None (always draw fast)" 
  531. -variable manipRender(Thresh) -value 0
  532.     $menuViewSpeed add radiobutton -label "50k polys" 
  533. -variable manipRender(Thresh) -value 50000
  534.     $menuViewSpeed add radiobutton -label "100k polys" 
  535. -variable manipRender(Thresh) -value 100000
  536.     $menuViewSpeed add radiobutton -label "200k polys" 
  537. -variable manipRender(Thresh) -value 200000
  538.     $menuViewSpeed add radiobutton -label "500k polys" 
  539. -variable manipRender(Thresh) -value 500000
  540.     $menuViewSpeed add radiobutton -label "1M polys" 
  541. -variable manipRender(Thresh) -value 1000000
  542.     $menuViewSpeed add radiobutton -label "5M polys" 
  543. -variable manipRender(Thresh) -value 5000000
  544.     $menuViewSpeed add radiobutton -label "10M polys" 
  545. -variable manipRender(Thresh) -value 10000000
  546.     $menuViewSpeed add radiobutton -label "50M polys" 
  547. -variable manipRender(Thresh) -value 50000000
  548.     $menuViewSpeed add radiobutton -label "100M polys" 
  549. -variable manipRender(Thresh) -value 100000000
  550.     $menuViewSpeed add radiobutton -label "Never (disable fastdraw)" 
  551. -variable manipRender(Thresh) -value -1
  553.     $menuView add separator
  554.     $menuView add checkbutton -label "Use triangle strips" 
  555. -variable styleTStrip
  556.     $menuView add checkbutton -label "Use display lists" 
  557. -variable styleDispList
  558.     $menuView add checkbutton -label "Don't re-render static images" 
  559. -variable styleCacheRender
  560.     $menuView add separator
  561.     set menuViewHQ [createNamedCascade $menuView highquality 
  562. "Add realism to current rendering"]
  563.     $menuViewHQ add command -label "Anti-aliasing" 
  564. -command { highQualityDraw 1 -1 }
  565.     $menuViewHQ add command -label "Shadows" 
  566. -command { highQualityDraw -1 1 }
  567.     $menuViewHQ add command -label "Soft shadows and anti-aliasing" 
  568. -command { highQualityDraw 1 1 }
  569.     $menuViewHQ add separator
  570.     $menuViewHQ add command -label "Soft shadow length..." 
  571. -command setSoftShadowLength
  572.     $menuViewHQ add separator
  573.     $menuViewHQ add checkbutton -label "Hide bounding box for HQ" 
  574. -variable highQualHideBbox
  575.     $menuView add checkbutton -label "Always anti-alias (slow!)" 
  576. -command { plv_drawstyle -antialias $styleAntiAlias; 
  577.        $toglPane render } 
  578. -variable styleAntiAlias
  579.     $menuView add checkbutton -label "Always draw shadows (slow!)" 
  580. -command { plv_drawstyle -shadows $styleShadows; 
  581.        $toglPane render } 
  582. -variable styleShadows
  583.     createNamedCascade $menuView menuAAsamps "Anti-alias sample number"
  584.     foreach x { 2 3 4 8 15 24 66 } {
  585. $menuView.menuAAsamps add radiobutton -label $x 
  586.     -variable styleAAsamps -value $x 
  587.     -command { plv_drawstyle -aasamps $styleAAsamps }
  588.     }
  589.     $menuView add separator
  590.     $menuView add checkbutton -label "Double-buffer" -variable isDoubleBuffer 
  591. -command { $toglPane configure -double $isDoubleBuffer }
  592.     $menuView add checkbutton -label "Orthographic" -variable isOrthographic 
  593. -command { if {$isOrthographic} {plv_ortho} else {plv_persp}; 
  594.        $toglPane render}
  595.     $menuView add checkbutton -label "Hide render window" 
  596. -variable theHideRenderMode 
  597. -command {
  598.     if {$theHideRenderMode} {
  599. place forget $toglPane
  600.     } else {
  601. place $toglPane -x 0 -y 0 -relwidth 1.0 -relheight 1.0
  602.     }}
  603.     $menuView add command -label "Kiosk mode" -command "kioskMode start"
  604.     $menuView add separator
  605.  
  606.     $menuView add command -label "Context Manager..." 
  607. -command buildVisGroupsUI
  609. #     set menuCamera [createNamedCascade $menuView menuCamera 
  610. #      "Camera positions"]
  611. #     $menuCamera add command -label "Remember..." 
  612. #      -command "saveCameraPosition $menuCamera"
  613. #     $menuCamera add separator
  614. #     $menuCamera add command -label "(Reset)" -command plv_resetxform
  616.     $menuView add command -label "Get camera info" -command showCameraInfo
  617.     $menuView add command -label "Reset ALL transformations" 
  618. -command { plv_resetxform all }
  619.     $menuView add command -label "Reset View transformations" 
  620. -command { plv_resetxform  }
  621.     
  622.     $menuView add command -label "Apply camera to mesh xform" 
  623. -command { plv_camera_xform_to_mesh; $toglPane render }
  624.     $menuView add command -label "Load (tsai) camera viewpoint..." 
  625. -command {
  626.     set types { { {Tsai Files} {.tsai} } { {Camera Files} {.camera} } }
  627.     set tsaifile [tk_getOpenFile -defaultextension .tsai 
  628.       -filetypes $types]
  629.     if {$tsaifile != ""} {
  630. plv_resetxform
  631. plv_positioncamera $tsaifile ; redraw 1
  632.     }
  633. }
  634.     $menuView add command -label "Resize render frame..." 
  635. -command windowResizeUI
  637.     $menuView add separator
  638.     $menuView add command -label "Preferences..." -command prefsDialog
  640.     .menubar add cascade -label Render -underline 0 -menu .menubar.menuRender
  641.     set menuRender [buildUI_RenderMenu .menubar.menuRender "Render options"]
  643.     set menuMesh [createNamedCascade .menubar menuMesh Mesh "-underline 0"]
  644.     $menuMesh add cascade -label Resolution -menu $menuMesh.resMenu
  645.     menu $menuMesh.resMenu 
  646. -postcommand "buildCurrentMeshResList $menuMesh.resMenu"
  647.     $menuMesh add separator
  648.     $menuMesh add command -label "Flip normals" 
  649. -command { invertMeshNormals $theMesh }
  650.     $menuMesh add separator
  651.     $menuMesh add command -label "Get mesh info" 
  652. -command {showMeshInfo $theMesh}
  653.     $menuMesh add command -label "Reset transformation" 
  654. -command { plv_resetxform $theMesh }
  657.     set menuCommands [createNamedCascade .menubar menuCommands Commands 
  658.   "-underline 0"]
  659.     $menuCommands add command -label "Correspondence registration" 
  660. -command correspRegistrationDialog
  661.     $menuCommands add command -label "Drag registration walkthrough" 
  662. -command dragRegistrationDialog
  663.     $menuCommands add command -label "Drag register current mesh" 
  664. -command {DragRegister $theMesh $dragRegMethod}
  665.     $menuCommands add command -label "ICP registration" -accelerator "i" 
  666. -command ICPdialog 
  667.     $menuCommands add command -label "Global registration" -accelerator "^r" 
  668. -command globalRegistrationDialog
  669.     $menuCommands add command -label "CyberScan self-alignment" 
  670. -command {plv_cyberscan_selfalign $theMesh; redraw 1}
  671.     $menuCommands add separator
  673.     set clipMenu [createNamedCascade $menuCommands clipMenu 
  674.       "Clip to selection"]
  675.     buildUI_populateClipMenu $clipMenu
  677.     $menuCommands add command -label "Fit plane to cliprect..." 
  678. -command planeFitClipRectUI
  679.     $menuCommands add command -label "Analyze line for depth" 
  680. -command analyze_line_depth
  681.     $menuCommands add command -label "Auto-Analyze lines..." 
  682. -command autoAnalyzeLineUI
  683.     $menuCommands add command -label "Render thickness view" 
  684.         -command "update; plv_render_thickness"
  685.     $menuCommands add separator
  687.     $menuCommands add command -label "Align image to mesh..." 
  688. -command imageAlignmentUI
  689.     $menuCommands add command -label "Color image visualizer..." 
  690. -command colorVisUI
  691.     $menuCommands add command -label "CyberScan Preview..." 
  692.         -command cyberscanPreviewUI
  694.     $menuCommands add separator
  695.     set groupMenu [createNamedCascade $menuCommands groupMenu 
  696.        "Group/ungroup"]
  697.     $groupMenu add command -label "Group visible meshes" 
  698. -command {group_createFromVis} -accelerator "^g"
  699.     $groupMenu add command -label "Group visible meshes as..." 
  700. -command {group_createNamedFromVis} -accelerator "^G"
  701.     $groupMenu add command -label "Ungroup active mesh" 
  702. -command {group_breakGroup $theMesh} -accelerator "^u"
  703.     set xformMenu [createNamedCascade $menuCommands xformMenu 
  704.        "Transform mesh"]
  705.     $xformMenu add command -label "Reload xform for current scan" 
  706. -command {scz_xform_scan $theMesh reload}
  707.     $xformMenu add separator
  708.     $xformMenu add command -label "Specify rotation/translation" 
  709. -command manualXFormUI
  710.     $xformMenu add command -label "Specify matrix transform" 
  711. -command matrixXformUI
  712.     set dumpXfMenu [createNamedCascade $menuCommands dumpXf 
  713. "Dump mesh transform"]
  714.     $dumpXfMenu add command -label "As matrix" 
  715. -command "showCurrentScanXform matrix"
  716.     $dumpXfMenu add command -label "As quaternion" 
  717. -command "showCurrentScanXform quat"
  718.     $dumpXfMenu add command -label "As axial rotation" 
  719. -command "showCurrentScanXform axis"
  721.     $menuCommands add separator
  722.     $menuCommands add command -label "MM-VRIP Preparation" 
  723. -command {file_exportMMSForVripDialog}
  724.     $menuCommands add command -label "CyberScan-VRIP Preparation..." 
  725. -command {file_exportSDForVripDialog}
  726.     $menuCommands add command -label "Plyfile-VRIP Preparation..." 
  727. -command {file_exportPlyForVripDialog}
  728.     $menuCommands add separator
  729.     $menuCommands add command -label "Release all resolutions" 
  730. -command releaseAllMeshes
  731.     $menuCommands add separator
  732.     $menuCommands add command -label "Create cube" 
  733. -command { addMeshToWindow [plv_synthesize 1.0] }
  734.     $menuCommands add command -label "Polygonize visible meshes" 
  735. -command { polygonizeDialog }
  736.     $menuCommands add separator
  737.     $menuCommands add command -label "Run external program" 
  738. -command { ExtProg }
  740.     global menuWindow
  741.     set menuWindow [createNamedCascade .menubar menuWindow Window 
  742. "-underline 0"]
  743.     $menuWindow add checkbutton -label "Show toolbar" 
  744. -variable ui_showToolbar
  745.     $menuWindow add checkbutton -label "Show status bar" 
  746. -variable ui_showStatusbar
  747.     $menuWindow add separator
  748.     bind $menuWindow <ButtonPress-3> "window_ActivateFromY %y"
  750.     global menuHelp
  751.     set menuHelp [createNamedCascade .menubar menuHelp Help 
  752.       "-underline 0"]
  753.     $menuHelp add command -label "Show Help Window" 
  754. -command {help_showWindow}
  755.     global help_onoff
  756.     set help_onoff 1
  757.     $menuHelp add checkbutton -label "Toggle Help On/Off" 
  758. -variable help_onoff -accelerator "^h"
  760.     help_bindHelpToMenus
  761.     help_bindHelpToButtons
  762.     global env
  763.     help_setHelpDirectory "$env(SCANALYZE_DIR)/help"
  764. }
  767. ######################################################################
  768. #
  769. # create right-click menu for togl pane
  770. #
  771. ######################################################################
  773. proc buildUI_ToglContextMenu {} {
  774.     global toglMenu
  775.     global toglSubmenu
  777.     set toglMenu [menu .toglMenu 
  778.       -tearoffcommand "setMenuTitle "Quick options""]
  779.     # this will be populated later as tools are selected
  780.     # but create submenus once, now, for later use
  782.     set toglSubmenu(render) [buildUI_RenderMenu $toglMenu.renderMenu 
  783.  "Render options"]
  785.     set toglSubmenu(reset) [menu $toglMenu.resetMenu 
  786. -tearoffcommand "setMenuTitle reset"]
  787.     $toglSubmenu(reset) add command -label Viewer -command "plv_resetxform"
  788.     $toglSubmenu(reset) add command -label "Current scan" -command 
  789. {if {$theMesh != ""} {plv_resetxform $theMesh}}
  790.     $toglSubmenu(reset) add command -label "All scans" 
  791. -command "plv_resetxform allmesh"
  792.     $toglSubmenu(reset) add command -label "All (scans and viewer)" 
  793. -command "plv_resetxform all"
  795.     set toglSubmenu(gohome) [menu $toglMenu.goHomeMenu 
  796.     -tearoffcommand "setMenuTitle "Go Home""]
  797.     $toglSubmenu(gohome) add command -label Viewer -command {goHome ""}
  798.     $toglSubmenu(gohome) add command -label Mesh -command 
  799. {if {$theMesh != ""} {goHome $theMesh}}
  800.     $toglSubmenu(gohome) add command -label All -command goHomeAll
  802.     set toglSubmenu(CoR) [menu $toglMenu.corMenu 
  803.  -tearoffcommand "setMenuTitle "Rotation center""]
  804.     $toglSubmenu(CoR) add checkbutton -label "Show" 
  805. -variable rotCenterVisible -command { $toglPane render }
  806.     $toglSubmenu(CoR) add checkbutton -label "Always on top" 
  807. -variable rotCenterOnTop -command { $toglPane render }
  808.     $toglSubmenu(CoR) add command -label "Flash" 
  809. -command flashCenterOfRotation
  811.     set toglSubmenu(clip) [menu $toglMenu.clipMenu 
  812.        -tearoffcommand "setMenuTitle "Clip""]
  813.     buildUI_populateClipMenu $toglSubmenu(clip)
  814. }
  819. ############################################################################
  820. #
  821. # create/maintain mesh controls window
  822. #
  823. ############################################################################
  826. proc resizeMCscrollbar {} {
  827.     if {[globalset noui]} return
  829.     # batch multiple requests together
  830.     idlecallback resizeMCscrollbar
  831. }
  834. proc _resizeMCscrollbar_idlecallback {} {
  835.     global leftFrame
  836.     global scrollFrame
  837.     global meshFrame
  839.     # want to re-sort everything
  840.     #set slaves [lsort -dictionary [getMeshList]]
  841.     set slaves [getSortedMeshList]
  843.     set lastframe ""
  844.     foreach slave $slaves {
  845. if {[array names meshFrame $slave]!=""} {
  846.     catch {
  847. set frame $meshFrame($slave)
  848. if {$lastframe == ""} {
  849.     pack $frame -side top
  850. } else {
  851.     pack $frame -side top -after $lastframe
  852. }
  853. set lastframe $frame
  854.     }
  855. }
  856.     }
  858.     # so that winfo works
  859.     update idletasks
  861.     set w [winfo reqwidth $leftFrame]
  862.     set h [winfo reqheight $leftFrame]
  863.     $scrollFrame config -scrollregion "0 0 $w $h" -width $w -height $h
  864. }
  867. proc buildUI_MeshControls {} {
  868.     global meshControls
  869.     global leftFrame
  870.     global scrollFrame
  871.     global meshSelScroll
  872.     global meshVisible
  874.     set meshControls [toplevel .meshControls]
  876.     set allFrame [frame $meshControls.allFrame]
  877.     
  878.     button $allFrame.show      -text "ShowAll" -padx 0 -pady 0 
  879. -command "showAllMeshes 1"
  880.     button $allFrame.hideOther -text "HideOther" -padx 0 -pady 0 
  881. -command { showOnlyMesh $theMesh }
  882.     lappend enabledWhenMeshSelected $allFrame.hideOther
  883.     button $allFrame.hide      -text "HideAll" -padx 0 -pady 0 
  884. -command "showAllMeshes 0"
  885.     button $allFrame.invert    -text "Inv" -padx 0 -pady 0 
  886. -command "showAllMeshes invert" 
  888.     globalset invokeExtendedMeshControls 
  889. [menubutton $allFrame.menuB -text "..." 
  890.      -padx 3 -pady 1 -relief raised
  891.      -menu $allFrame.menuB.hideShowMenu]
  892.     set hideShowMenu [menu $allFrame.menuB.hideShowMenu 
  893. -tearoffcommand {setMenuTitle "Extended Mesh Controls"}]
  895.     $hideShowMenu add command -label "Sort order..." 
  896. -command meshControlsSortDialog
  897.     $hideShowMenu add separator
  899.     $hideShowMenu add command -label "ShowAll" 
  900. -command {showAllMeshes 1} 
  901. -accelerator "^a"
  902.     $hideShowMenu add command -label "HideOther" 
  903. -command {showOnlyMesh $theMesh}
  904.     $hideShowMenu add command -label "HideAll" 
  905. -command {showAllMeshes 0}
  906.     $hideShowMenu add command -label "Inv" 
  907. -command {showAllMeshes invert} 
  908. -accelerator "^i"
  909.     $hideShowMenu add separator
  911.     $hideShowMenu add command -label "Show only ICP meshes" 
  912. -command showOnlyIcpMeshes
  913.     $hideShowMenu add separator
  915.     $hideShowMenu add checkbutton -label "Render only active mesh" 
  916. -variable renderOnlyActiveMesh -accelerator "^1"
  917.     $hideShowMenu add separator
  919.     $hideShowMenu add command -label "Show only screen visible meshes" 
  920. -command {eval showOnlyMesh [plv_getVisiblyRenderedScans]} 
  921. -accelerator "^v"
  922.     $hideShowMenu add command -label "Hide meshes outside" 
  923. -command {eval showOnlyMesh [plv_get_selected_meshes]}
  924.     $hideShowMenu add command -label "Hide meshes inside" 
  925. -command {eval showOnlyMesh [plv_get_selected_meshes invert]}
  926.     $hideShowMenu add command -label "Show only meshes inside" 
  927. -command {eval showOnlyMesh [plv_get_selected_meshes hidden]}
  928.     $hideShowMenu add command -label "Show all meshes outside" 
  929. -command {eval showOnlyMesh [plv_get_selected_meshes hidden invert]}
  930.     $hideShowMenu add separator
  932.     $hideShowMenu add command -label "Group visible meshes" 
  933. -command {group_createFromVis} -accelerator "^g"
  934.     $hideShowMenu add command -label "Group visible meshes as..." 
  935. -command {group_createNamedFromVis} -accelerator "^G"
  936.     $hideShowMenu add command -label "Ungroup active mesh" 
  937. -command {group_breakGroup $theMesh} -accelerator "^u"
  938.     $hideShowMenu add separator
  940.     $hideShowMenu add command -label "Load visible meshes" 
  941. -command {eval loadMeshes 1 [getVisibleMeshes]}
  942.     $hideShowMenu add command -label "Load meshes inside" 
  943. -command {eval loadMeshes 1 [plv_get_selected_meshes]}
  944.     $hideShowMenu add command -label "Unload meshes inside" 
  945. -command {eval loadMeshes 0 [plv_get_selected_meshes]}
  946.     $hideShowMenu add command -label "Unload meshes outside" 
  947. -command {eval loadMeshes 0 [plv_get_selected_meshes invert]}
  948.     $hideShowMenu add separator 
  949.  
  950.     $hideShowMenu add command -label "Delete Invisible Meshes" 
  951. -command deleteInvisibleMeshes
  952.     $hideShowMenu add separator 
  954.     $hideShowMenu add command -label "Context Manager..." 
  955. -command "buildVisGroupsUI"
  956.     bind $allFrame.menuB <Double-Button-1> {
  957. # double-click invokes the context manager:
  958. buildVisGroupsUI
  960. # need to unpost menu now; here are two possible ways:
  961. # 1) by hand.
  962. #$invokeExtendedMeshControls.hideShowMenu unpost
  963. #grab release [grab current]
  965. # 2) tkMenuUnpost is cleaner, since it releases the grab (with
  966. # error-checking) and cleans up various internal tk state.
  967. # but it cleans it up so well that the menu will see the 2nd
  968. # click of the double-click as a call to display again, so we
  969. # need to hack around that.
  970. tkMenuUnpost {}
  971. $invokeExtendedMeshControls config -state disabled
  972. after 100 "$invokeExtendedMeshControls config -state normal"
  973.     }
  974.  
  975.     packchildren $allFrame -side left -fill x -expand true
  978. #     set labelFrame [frame $meshControls.labelFrame]
  979. #     label $labelFrame.meshLabel -text "Mesh"
  980. #     label $labelFrame.visLabel -text "Vis."
  981. #     label $labelFrame.activeLabel -text "Act."
  982. #     pack $labelFrame.activeLabel $labelFrame.visLabel 
  983. #  -side right -anchor e
  984. #     pack $labelFrame.meshLabel -side right -anchor e -fill x -expand 1
  986.     set scrollerFrame [frame $meshControls.scrollFrame]
  987.     set meshSelScroll [scrollbar $scrollerFrame.s 
  988.    -command "$scrollerFrame.leftFrame yview"]
  989.     set scrollFrame [canvas $scrollerFrame.leftFrame -width 0 -height 0 
  990.  -yscrollcommand "$meshSelScroll set"]
  991.     set leftFrame [frame $scrollFrame.scrollee]
  992.     $scrollFrame create window 0 0 -window $leftFrame -anchor nw
  993.     pack $meshSelScroll -side right -fill y
  994.     pack $scrollFrame -side left -fill both -expand 1
  996.     packchildren $meshControls -side top -fill x -expand 1
  998.     wm title $meshControls "Mesh controls"
  999.     wm resizable $meshControls 0 1
  1000.     window_Register $meshControls undeletable
  1001. }
  1006. ############################################################################
  1007. #
  1008. # add widgets to main window
  1009. #
  1010. ############################################################################
  1013. proc buildUI_ShowToolbar {show} {
  1014.     if {![winfo exists .tools] || ![winfo exists .status]} { return }
  1016.     if {$show} {
  1017. pack .tools -side left -fill y -anchor n -before .toglFrame
  1018. pack forget .status.tools
  1019.     } else {
  1020. pack forget .tools
  1021. pack .status.tools -side left -before .status.info
  1022.     }
  1024.     # force redraw because togl was resized
  1025.     redraw 1
  1026. }
  1029. proc buildUI_ShowStatusbar {show} {
  1030.     if {![winfo exists .tools] || ![winfo exists .status]} { return }
  1032.     if {$show} {
  1033. pack .status .statussep -side bottom -fill both
  1034.     } else {
  1035. pack forget .status
  1036.     }
  1038.     # force redraw because togl was resized
  1039.     redraw 1
  1040. }
  1043. proc buildUI_MainWindow {} {
  1045.     global toglPane
  1047.     # main togl widget for rendering
  1048.     frame .toglFrame
  1049.     set toglPane .toglFrame.toglPane
  1050.     togl $toglPane 
  1051. -width 10 -height 10 
  1052. -rgba true -double true -depth true -accum true -overlay true 
  1053. -stencil true -ident $toglPane
  1054.     place $toglPane -x 0 -y 0 -relwidth 1.0 -relheight 1.0
  1056.     # tool palette
  1057.     frame .tools
  1058.     # move viewer, move selected mesh
  1059.     radiobutton .tools.moveMesh -text "moveMesh (m)" 
  1060. -variable theMover -value mesh 
  1061. -indicatoron false
  1062.     global enabledWhenMeshSelected
  1063.     lappend enabledWhenMeshSelected .tools.moveMesh
  1064.      radiobutton .tools.moveCamera -text "moveView (v)" 
  1065. -variable theMover -value viewer 
  1066. -indicatoron false
  1067.     radiobutton .tools.moveLight -text "moveLight (l)" 
  1068. -variable theMover -value light 
  1069. -indicatoron false
  1070.     # interactively select scans by selection rect
  1071.     radiobutton .tools.selectScan -text selectScan 
  1072. -variable theMover -value selectScan 
  1073. -indicatoron false
  1074.     # interactively select scans by selection rect
  1075.     radiobutton .tools.selectScreenScan -text selectVisScan 
  1076. -variable theMover -value selectScreenScan 
  1077. -indicatoron false
  1078.     # interactively choose one scan by pt click
  1079.     radiobutton .tools.pickScan -text "pickScan (p)"
  1080. -variable theMover -value pickScan 
  1081. -indicatoron false
  1082.     # pick color
  1083.     radiobutton .tools.pickColor -text pickColor 
  1084. -variable theMover -value pickColor 
  1085. -indicatoron false
  1086.     # display coordinates under mouse
  1087.     radiobutton .tools.ptChooser -text "Xyz coord (x)" 
  1088. -variable theMover -value ptChooser -indicatoron false
  1089.     # zoom tool
  1090.     radiobutton .tools.zoomer -text "Zoom (z)" 
  1091. -variable theMover -value zoomer -indicatoron false
  1093.     # clipping tools
  1094.     frame .tools.clip
  1095.     global env
  1096.     radiobutton .tools.clip.line -bitmap @$env(SCANALYZE_DIR)/tool_line.xbm 
  1097. -variable theMover -value clipLine 
  1098. -indicatoron false
  1099.     radiobutton .tools.clip.rect -bitmap @$env(SCANALYZE_DIR)/tool_rect.xbm 
  1100. -variable theMover -value clipRect 
  1101. -indicatoron false
  1102.     radiobutton .tools.clip.shape -bitmap @$env(SCANALYZE_DIR)/tool_shape.xbm 
  1103. -variable theMover -value clipShape 
  1104. -indicatoron false
  1105.     pack .tools.clip.line .tools.clip.rect .tools.clip.shape 
  1106.   -side left
  1108.     frame .tools.divide1 -height 3 -relief sunken -borderwidth 2
  1110.     # center of screen, center of obj, arbitrary
  1111.     radiobutton .tools.chooseCenter -text ChsCtr 
  1112. -variable theMover -value rotCenter -indicatoron false
  1113.     button .tools.autoCenter -text AutoCtr 
  1114. -command "set theCoR auto" -padx 0 -pady 0
  1115.     button .tools.screenCenter -text ScrnCtr 
  1116. -command "set theCoR screen" -padx 0 -pady 0
  1118.     frame .tools.divide2 -height 3 -relief sunken -borderwidth 2
  1120.     # set and go home
  1121.     button .tools.setHome -text "SetHome (s)" -command setHome -padx 0 -pady 0
  1122.     button .tools.goHome -text "GoHome (g)" -command goHome -padx 0 -pady 0
  1124.     frame .tools.divide3 -height 3 -relief sunken -borderwidth 2
  1126.     # undo button
  1127.     button .tools.undo -text Undo -command plv_undo_xform -padx 0 -pady 0
  1128.     # redo button
  1129.     button .tools.redo -text Redo -command plv_redo_xform -padx 0 -pady 0
  1131.     # rotation constraints
  1132.     frame .tools.rc
  1133.     radiobutton .tools.rc.n -text F -variable rotationConstraint -value none 
  1134. -indicator off
  1135.     radiobutton .tools.rc.x -text X -variable rotationConstraint -value x 
  1136. -indicator off
  1137.     radiobutton .tools.rc.y -text Y -variable rotationConstraint -value y 
  1138. -indicator off
  1139.     radiobutton .tools.rc.z -text Z -variable rotationConstraint -value z 
  1140. -indicator off
  1141.     packchildren .tools.rc -side left -padx 0 -pady 0 -expand 1 -fill x
  1143.     # quick render options
  1144.     frame .tools.divide4 -height 3 -relief sunken -borderwidth 2
  1145.     frame .tools.ro
  1146.     verboseOptionMenu .tools.ro.fill "Fill" thePolygonMode 
  1147. {fill Polygons} {line Wireframe} {hiddenline "Hidden line"} 
  1148. {point Points} {hiddenpoint "Hidden Points"}
  1149.     verboseOptionMenu .tools.ro.color "Color" theColorMode 
  1150. {gray "Gray color"} {false "False color"} {intensity Intensity}
  1151. {true "True color"} {boundary Boundary} {confidence Confidence}
  1152. {registration Registration} {texture Texture}
  1153.     button .tools.ro.redraw -text "Redraw (r)" -padx 0 -pady 0
  1154. -command "redraw safeflush"
  1155.     packchildren .tools.ro -side top -expand 1 -fill x -padx 0
  1157.     pack .tools.moveCamera .tools.moveMesh .tools.moveLight
  1158. .tools.selectScan .tools.selectScreenScan 
  1159. .tools.pickScan .tools.pickColor .tools.ptChooser
  1160. .tools.zoomer 
  1161. -side top -fill x
  1162.     pack .tools.clip 
  1163. -side top -fill x
  1164.     pack .tools.divide1 -side top -fill x -pady 4
  1165.     pack .tools.chooseCenter .tools.autoCenter .tools.screenCenter 
  1166. -side top -fill x
  1167.     pack .tools.divide2 -side top -fill x -pady 4
  1168.     pack .tools.setHome .tools.goHome 
  1169. -side top -fill x
  1170.     pack .tools.divide3 -side top -fill x -pady 4
  1171.     pack .tools.undo .tools.redo .tools.rc -side top -fill x
  1172.     pack .tools.divide4 -side top -fill x -pady 4
  1173.     pack .tools.undo .tools.redo .tools.ro -side top -fill x
  1175.     fixButtonColors .tools.moveCamera .tools.moveMesh .tools.moveLight 
  1176. .tools.ptChooser .tools.chooseCenter 
  1177. .tools.pickScan .tools.pickColor .tools.selectScan
  1178.     fixButtonColors .tools.clip.line .tools.clip.rect .tools.clip.shape
  1179.     fixButtonColors .tools.rc.n .tools.rc.x .tools.rc.y .tools.rc.z
  1181.     button .tools.hide -text ">" -command "set ui_showToolbar 0"
  1182.     pack .tools.hide -side bottom -fill x
  1184.     # status bar
  1185.     frame .statussep -bg lightgray -height 2
  1186.     frame .status -relief sunken -borderwidth 2 -height 28
  1187.     frame .status.info
  1188.     label .status.info.mesh -textvariable meshCount
  1189.     label .status.info.l1 -text "scans  "
  1190.     label .status.info.tri -textvariable polyCount
  1191.     label .status.info.l2 -text "triangles (" -padx 0
  1192.     label .status.info.vis -textvariable visPolyCount -padx 0
  1193.     label .status.info.l3 -text " visible)"
  1194.     foreach widget {mesh l1 tri l2 vis l3} 
  1195. { pack .status.info.$widget -side left }
  1196.     label .status.info.mem -relief sunken
  1197.     autoSetText .status.info.mem getMemUsage
  1198.     label .status.info.tstrips -relief sunken -text tstrip -fg darkred
  1199.     label .status.info.displist -relief sunken -text dlist -fg darkred
  1200.     pack .status.info.displist .status.info.tstrips 
  1201. .status.info.mem -side right
  1202.     bind .status.info.tstrips <Double-Button-1> {
  1203. set styleTStrip [expr ! $styleTStrip]
  1204.     }
  1205.     bind .status.info.displist <Double-Button-1> {
  1206. set styleDispList [expr ! $styleDispList]
  1207.     }
  1208.     pack .status.info -side left -fill x -expand true
  1209.     button .status.tools -text "<" -command "set ui_showToolbar 1"
  1211.     # arrange tool palette, display area and status bar in main window
  1212.     pack propagate .status 0
  1213.     pack .toglFrame -side top -fill both -expand 1 -anchor n
  1214.     globalset ui_showToolbar 1
  1215.     globalset ui_showStatusbar 1
  1217.     wm title   . scanalyze
  1218.     wm protocol . WM_DELETE_WINDOW confirmQuit
  1220.     # handle uncovering of window with cached redraw
  1221.     bind $toglPane <Visibility> "checkRedrawToglPane %s"
  1223.     # and now that toglPane exists, bind context menu
  1224.     bindToglPaneRclickToContextMenu
  1225. }
  1228. proc bindToglPaneRclickToContextMenu {} {
  1229.     global toglPane
  1230.     bind $toglPane <ButtonPress-3> {
  1231. set toglContextClick "%x %y %s"
  1232. tk_popup $toglMenu %X %Y
  1233.     }
  1234.     bind $toglPane <B3-Motion> ""
  1235.     bind $toglPane <ButtonRelease-3> ""
  1236. }
  1239. proc checkRedrawToglPane {state} {
  1240.     if {$state == "VisibilityUnobscured"} {
  1241. #puts "forcing redraw due to vis change"
  1243. # also inappropriate to redraw here because it happens after every 
  1244. # menu pull-down -- exactly what we're trying to avoid
  1245. # What would be necessary here is to know what areas of the cache
  1246. # are valid, and if an invalid area is exposed, then redraw.
  1247. # It's not (currently) worth the trouble IMHO. -- magi
  1249. #redraw 1
  1250.     }
  1252.     # not safe to redraw because we're obscured, and we'll pick up bad
  1253.     # stuff in the cache... is this the best we can do?
  1254. }
  1257. proc buildUI_PositionWindows {} {
  1258.     set scrX [winfo screenwidth .]
  1259.     set scrY [winfo screenheight .]
  1261.     set left   [expr int($scrX * .2)]
  1262.     set width  [expr int($scrX * .6)]
  1263.     set top    [expr int($scrY * .1)]
  1264.     set height [expr int($scrY * .7)]
  1266.     buildUI_SaveWindowPositions prepare
  1268.     set mainGeom [get_preference mainWindowGeometry 
  1269.       ${width}x${height}+${left}+${top}]
  1270.     wm geometry . $mainGeom
  1271.     wm minsize . 450 400
  1273.     # allow window to grow bigger than screen, so you can
  1274.     # arrange a no-borders view
  1275.     wm maxsize . [expr int(1.6 * [winfo screenwidth .])] 
  1276. [expr int(1.3 * [winfo screenheight .])]
  1278.     set meshGeom [get_preference meshWindowGeometry 
  1279.       +[expr $left+$width+16]+${top}]
  1280.     wm geometry [globalset meshControls] $meshGeom
  1281. }
  1284. proc buildUI_SaveWindowPositions {mode} {
  1285.     if {$mode == "prepare"} {
  1286. watchWindowPosition .
  1287. watchWindowPosition [globalset meshControls]
  1288.     } elseif {$mode == "save"} {
  1289. . config -menu ""
  1290. update idletasks
  1291. set_preference mainWindowGeometry [getWindowPosition .]
  1292. . config -menu .menubar
  1294. # for mesh controls, just part after the + sign
  1295. set meshGeom [getWindowPosition [globalset meshControls]]
  1296. set meshGeom [string range $meshGeom [string first + $meshGeom] end]
  1297. set_preference meshWindowGeometry $meshGeom
  1298.     } else {
  1299. puts "Bad parameter $mode to buildUI_SaveWindowPositions"
  1300.     }
  1301. }
  1304. proc watchWindowPosition {win} {
  1305.     bind $win <Configure> "+setWindowPosition $win %W %wx%h+%x+%y"
  1306. }
  1309. proc setWindowPosition {winTarget winMove pos} {
  1310.     if {$winTarget != $winMove} { return }
  1312.     global watch_win_pos
  1313.     set watch_win_pos($winMove) $pos
  1315.     #puts "Window $winMove moved to $pos"
  1316. }
  1319. proc getWindowPosition {win} {
  1320.     global watch_win_pos
  1322.     if {[info exists watch_win_pos($win)]} {
  1323. return $watch_win_pos($win)
  1324.     } else {
  1325. puts "Warning: getWindowPosition used on un-watched window"
  1326. return [wm geometry $win]
  1327.     }
  1328. }
  1332. proc buildUI_BuildNudgeWindow {} {
  1333.     toplevel .nudge
  1334.     wm title .nudge "Nudge Controls"
  1335.     window_Register .nudge undeletable
  1336.     setWindowVisible .nudge 0
  1338.     label .nudge.help -text "Arrow keys move 1mm; shift=.1; control=10"
  1339.     pack .nudge.help -side top
  1341.     frame .nudge.up
  1342.     button .nudge.up.up1 -text .1 -command "translateinplane 0 .1"
  1343.     button .nudge.up.up10 -text 1 -command "translateinplane 0 1"
  1344.     button .nudge.up.up100 -text 10 -command "translateinplane 0 10"
  1345.     pack .nudge.up.up1 .nudge.up.up10 .nudge.up.up100 -side top
  1347.     frame .nudge.down
  1348.     button .nudge.down.down1 -text .1 -command "translateinplane 0 -.1"
  1349.     button .nudge.down.down10 -text 1 -command "translateinplane 0 -1"
  1350.     button .nudge.down.down100 -text 10 -command "translateinplane 0 -10"
  1351.     pack .nudge.down.down1 .nudge.down.down10 .nudge.down.down100 -side bottom
  1353.     frame .nudge.lr
  1354.     frame .nudge.lr.left
  1355.     button .nudge.lr.left.left1 -text .1 -command "translateinplane -.1 0"
  1356.     button .nudge.lr.left.left10 -text 1 -command "translateinplane -1 0"
  1357.     button .nudge.lr.left.left100 -text 10 -command "translateinplane -10 0"
  1358.     pack .nudge.lr.left.left1 .nudge.lr.left.left10 
  1359. .nudge.lr.left.left100 -side left
  1361.     frame .nudge.lr.right
  1362.     button .nudge.lr.right.right1 -text .1 -command "translateinplane .1 0"
  1363.     button .nudge.lr.right.right10 -text 1 -command "translateinplane 1 0"
  1364.     button .nudge.lr.right.right100 -text 10 -command "translateinplane 10 0"
  1365.     pack .nudge.lr.right.right1 .nudge.lr.right.right10 
  1366. .nudge.lr.right.right100 -side right
  1368.     pack .nudge.lr.left .nudge.lr.right -side left -fill x -expand 1
  1369.     pack .nudge.up .nudge.lr .nudge.down -side top -fill x -expand 1
  1371.     frame .nudge.units -borderwidth 2 -relief groove
  1372.     label .nudge.units.u -text "Mesh units:"
  1373.     radiobutton .nudge.units.m -text meters 
  1374. -variable theUnitScale -value 1000
  1375.     radiobutton .nudge.units.mm -text millimeters 
  1376. -variable theUnitScale -value 1
  1377.     pack .nudge.units.u .nudge.units.m .nudge.units.mm -side left
  1378.     pack .nudge.units -side top -fill x -expand 1 -pady 4 -padx 4
  1380.     frame .nudge.num -borderwidth 2 -relief groove
  1381.     frame .nudge.num.r1
  1382.     label .nudge.num.r1.l -text "Numeric translation (in mm):"
  1383.     frame .nudge.num.r2
  1384.     label .nudge.num.r2.lx -text X:
  1385.     entry .nudge.num.r2.x -textvariable nudgeX -width 5
  1386.     globalset nudgeX 0
  1387.     label .nudge.num.r2.ly -text Y:
  1388.     entry .nudge.num.r2.y -textvariable nudgeY -width 5
  1389.     globalset nudgeY 0
  1390.     pack .nudge.num.r1.l -side left
  1391.     set r2 .nudge.num.r2
  1392.     pack $r2.lx $r2.x $r2.ly $r2.y -side left
  1393.     button .nudge.num.go -text Nudge -command numericNudgeNow
  1394.     bind $r2.x <Return> numericNudgeNow
  1395.     bind $r2.y <Return> numericNudgeNow
  1396.     pack .nudge.num.go -side right -fill y -expand 1 -anchor e -pady 4 -padx 4
  1397.     pack .nudge.num.r1 .nudge.num.r2 -side top -fill x -anchor w -pady 2
  1398.     pack .nudge.num -side top -fill x -expand 1 -padx 4 -pady 4
  1400.     wm resizable .nudge 0 0
  1401. }
  1404. proc numericNudgeNow {} {
  1405.     translateinplane [globalset nudgeX] [globalset nudgeY]
  1406. }
  1409. proc buildUI_BuildVersionWindow {} {
  1410.     global env
  1411.     if [catch {set file [open "$env(SCANALYZE_DIR)/source-history" r]}] return
  1412.     set history [read $file]
  1413.     close $file
  1415.     set vi [toplevel .versioninfo]
  1416.     wm title $vi "Version information"
  1417.     window_Register $vi undeletable
  1418.     setWindowVisible $vi 0
  1420.     text $vi.t -wrap none -yscrollcommand "$vi.sy set"
  1421.     $vi.t insert end $history
  1422.     scrollbar $vi.sy -orient vert -command "$vi.t yview"
  1424.     pack $vi.sy -side right -fill y
  1425.     pack $vi.t -side top -fill both -expand true
  1426. }
  1429. proc buildUI_selectNthResolution {} {
  1430.     if {[window_Activate .resNselect]} return
  1432.     set rs [toplevel .resNselect]
  1433.     wm title $rs "Global resolution selector"
  1434.     window_Register $rs
  1436.     frame $rs.a -relief groove -border 2
  1437.     label $rs.a.l1 -text "Choose relative resolution for all scans"
  1438.     label $rs.a.l2 -text "(0 is highest res)"
  1439.     set f [frame $rs.a.f]
  1440.     entry $f.val -width 2
  1441.     scale $f.slide -orient horiz -from 0 -to 6 -showvalue 0 
  1442. -command {.resNselect.a.f.val delete 0 end;
  1443.     .resNselect.a.f.val insert end}
  1444.     packchildren $f -side left
  1445.     packchildren $rs.a -side top -anchor w
  1447.     set p [frame $rs.preset]
  1448.     for {set i 0} {$i < 7} {incr i} {
  1449. button $p.p$i -text $i -command "selectNthResolution $i"
  1450.     }
  1451.     packchildren $p -side left -padx 3
  1453.     frame $rs.b
  1454.     button $rs.b.ok -text "Select" 
  1455. -command {selectNthResolution [.resNselect.a.val get]}
  1456.     button $rs.b.cl -text "Close" -command "destroy $rs"
  1457.     packchildren $rs.b -side left -fill x -expand 1
  1459.     packchildren $rs -side top -fill x -expand 1
  1460. }
  1463. ######################################################################
  1464. #
  1465. # bind keyboard shortcuts to toolbar/menu commands
  1466. #
  1467. ######################################################################
  1470. proc buildUI_BindShortcuts {} {
  1471.     # TODO: these switch theMover permanently; it's also useful to have keys
  1472.     # that switch the mode only while the key is down.  Maybe have lowercase
  1473.     # (unshifted) switch mode while key is down, or uppercase (shifted) keys
  1474.     # switch mode permanently?
  1476.     # bind Space to temporary theMover=viewer?
  1477.     bind . <KeyPress-v> "set theMover viewer"
  1478.     bind . <KeyPress-m> "set theMover mesh"
  1479.     bind . <KeyPress-l> "set theMover light"
  1480.     bind . <KeyPress-p> "set theMover pickScan"
  1481.     bind . <KeyPress-r> "set theMover clipRect"
  1482.     bind . <KeyPress-x> "set theMover ptChooser"
  1483.     bind . <KeyPress-z> "set theMover zoomer"
  1484.     bind . <KeyPress-s> "setHome"
  1485.     bind . <KeyPress-S> "setHomeAll"
  1486.     bind . <KeyPress-g> "goHome"
  1487.     bind . <KeyPress-G> "goHomeAll"
  1488.     bind . <KeyPress-r> "redraw 1"
  1489.     bind . <KeyPress-i> "ICPdialog"
  1491.     # X, Y, Z (must be uppercase) set rotation constraints
  1492.     foreach char {F X Y Z} {
  1493. bind . <KeyPress-$char> "toggleRotationConstraint $char"
  1494.     }
  1496.     # left shift keeps us in fast-draw mode
  1497.     bind . <KeyPress-f> "plv_setManipRenderMode lock"
  1498.     bind . <KeyRelease-f> "plv_setManipRenderMode unlock; redraw"
  1500.     # some menu key shortcut
  1501.     bind .meshControls  <KeyPress-i> "ICPdialog"
  1502.     bind . <Control-KeyPress-r> "globalRegistrationDialog"
  1503.     bind .meshControls <Control-KeyPress-r> "globalRegistrationDialog"
  1504.     bind all <Control-KeyPress-h> "help_toggleOnOff"
  1506.     # resolution increase/decrease
  1507.     # basic idea is comma (<) down, period (>) up
  1508.     # shift applies to all meshes
  1509.     # control means go all the way
  1510.     # so you get the idea for ctrl+shift
  1511.     bind . <KeyPress-less>    {set drawResolution nextlow}
  1512.     bind . <KeyPress-greater> {set drawResolution nexthigh}
  1513.     bind . <KeyPress-comma>   {setMeshResolution $theMesh lower}
  1514.     bind . <KeyPress-period>  {setMeshResolution $theMesh higher}
  1515.     bind . <Control-KeyPress-comma>     {setMeshResolution $theMesh lowest}
  1516.     bind . <Control-KeyPress-period>    {setMeshResolution $theMesh highest}
  1517.     bind . <Control-KeyPress-less>      {set drawResolution low}
  1518.     bind . <Control-KeyPress-greater>   {set drawResolution high}
  1520.     # Mesh Visibility
  1521.     bind . <Control-KeyPress-a> {showAllMeshes 1} 
  1522.     bind . <Control-KeyPress-o> {showOnlyMesh $theMesh} 
  1523.     bind . <Control-KeyPress-v> {eval showOnlyMesh 
  1524.      [plv_getVisiblyRenderedScans]}
  1525.     bind . <Control-KeyPress-i> {showAllMeshes invert}
  1526.     bind .meshControls <Control-KeyPress-a> {showAllMeshes 1} 
  1527.     bind .meshControls <Control-Shift-KeyPress-a> {showAllMeshes 1} 
  1528.     bind .meshControls <Control-KeyPress-v> {eval showOnlyMesh 
  1529.  [plv_getVisiblyRenderedScans]}
  1530.     bind .meshControls <Control-KeyPress-i> {showAllMeshes invert}
  1531.     bind . <Control-KeyPress-k> {set renderOnlyActiveMesh 
  1532.      [expr !$renderOnlyActiveMesh]}
  1533.     bind . <KeyPress-t> {changeVis $theMesh [expr ! $meshVisible($theMesh)]}
  1534.     bind .meshControls <KeyPress-t> 
  1535. {set meshVisible($theMesh) [expr ! $meshVisible($theMesh)]}
  1536.     
  1538.     # Grouping
  1539.     bind . <Control-KeyPress-g> {group_createFromVis}
  1540.     bind .meshControls <Control-KeyPress-g> {group_createFromVis}    
  1541.     bind . <Control-KeyPress-G> {group_createNamedFromVis}
  1542.     bind .meshControls <Control-KeyPress-G> {group_createNamedFromVis}    
  1543.     bind . <Control-KeyPress-u> {group_breakGroup $theMesh}
  1544.     bind .meshControls <Control-KeyPress-u> {group_breakGroup $theMesh}
  1546.     # and number keys, to switch directly to given res
  1547.     foreach pair {{1 exclam} {2 at} {3 numbersign} {4 dollar} {5 percent}
  1548. {6 asciicircum} {7 ampersand} {8 asterisk} {9 parenleft}
  1549. {0 parenright}} {
  1550. set num [lindex $pair 0]
  1551. set sym [lindex $pair 1]
  1552. bind . <KeyPress-$num> "selectNthResolutionForCurrentMesh $num"
  1553. bind . <KeyPress-$sym> "selectNthResolution $num"
  1554.     }
  1556.     # nudge controls
  1557.     bind . <KeyPress-Left>  {translateinplane -1  0}
  1558.     bind . <KeyPress-Right> {translateinplane  1  0}
  1559.     bind . <KeyPress-Up>    {translateinplane  0  1}
  1560.     bind . <KeyPress-Down>  {translateinplane  0 -1}
  1561.     bind . <Shift-KeyPress-Left>  {translateinplane -.1  0}
  1562.     bind . <Shift-KeyPress-Right> {translateinplane  .1  0}
  1563.     bind . <Shift-KeyPress-Up>    {translateinplane  0  .1}
  1564.     bind . <Shift-KeyPress-Down>  {translateinplane  0 -.1}
  1565.     bind . <Control-KeyPress-Left>  {translateinplane -10  0}
  1566.     bind . <Control-KeyPress-Right> {translateinplane  10  0}
  1567.     bind . <Control-KeyPress-Up>    {translateinplane  0  10}
  1568.     bind . <Control-KeyPress-Down>  {translateinplane  0 -10}
  1570.     # rotational nudges
  1571.     # home/end = y, delete/pagedn = x, insert/pageup = z
  1572.     bind . <KeyPress-Delete> {plv_manrotate  0 -1  0; redraw 1}
  1573.     bind . <KeyPress-Next>   {plv_manrotate  0  1  0; redraw 1}
  1574.     bind . <KeyPress-Home>   {plv_manrotate -1  0  0; redraw 1}
  1575.     bind . <KeyPress-End>    {plv_manrotate  1  0  0; redraw 1}
  1576.     bind . <KeyPress-Insert> {plv_manrotate  0  0  1; redraw 1}
  1577.     bind . <KeyPress-Prior>  {plv_manrotate  0  0 -1; redraw 1}
  1578.     bind . <Control-KeyPress-Delete> {plv_manrotate   0 -10  0; redraw 1}
  1579.     bind . <Control-KeyPress-Next>   {plv_manrotate   0  10  0; redraw 1}
  1580.     bind . <Control-KeyPress-Home>   {plv_manrotate -10   0  0; redraw 1}
  1581.     bind . <Control-KeyPress-End>    {plv_manrotate  10   0  0; redraw 1}
  1582.     bind . <Control-KeyPress-Insert> {plv_manrotate   0  0  10; redraw 1}
  1583.     bind . <Control-KeyPress-Prior>  {plv_manrotate   0  0 -10; redraw 1}
  1585.     # select mesh
  1586.     bind . <KeyPress-bracketleft>    {selectMesh prev}
  1587.     bind . <KeyPress-bracketright>   {selectMesh next}
  1588.     bind .meshControls <KeyPress-bracketleft>    {selectMesh prev}
  1589.     bind .meshControls <KeyPress-bracketright>   {selectMesh next}
  1590.     bind . <KeyPress-braceleft>    {selectMeshFromAll prev}
  1591.     bind . <KeyPress-braceright>   {selectMeshFromAll next}
  1592.     bind .meshControls <KeyPress-braceleft>    {selectMeshFromAll prev}
  1593.     bind .meshControls <KeyPress-braceright>   {selectMeshFromAll next}
  1595.     # ICP dialog
  1596.     bind . <F1> {
  1597. set regICPFrom $theMesh
  1598. ICPdialog
  1599.     }
  1600.     bind . <F2> {
  1601. set regICPTo $theMesh
  1602. ICPdialog
  1603.     }
  1605.     # save registrations
  1606.     bind . <Control-KeyPress-x> {fileWriteAllScanXforms}
  1609.     # and some X event bindings that we need to process
  1610.     # minimize/maximize
  1611.     bind . <Unmap> {if {"%W"=="."} { window_Minimize save }}
  1612.     bind . <Map>   {if {"%W"=="."} { window_Minimize restore }}
  1613.     # resize
  1614.     bind . <Configure> {+if {"%W"=="."} { onMainResize }}
  1615. }
  1617. proc onMainResize {} {
  1618.     after idle {
  1619. update
  1620. if {[info exists onMainResizeProc]} {
  1621.     eval $onMainResizeProc
  1622. }
  1623. redraw
  1624.     }
  1625. }
  1627. proc buildUI_privChangeMeshActive {mesh active {frame ""}} {
  1628.     global meshFrame
  1629.     global meshVisible
  1631.     if {$active} {
  1632. set meshFrame($mesh) $frame
  1633. set meshVisible($mesh) 1
  1634.     } else {
  1635. unset meshFrame($mesh)
  1636. unset meshVisible($mesh)
  1637.     }
  1639. }
  1641. proc buildUI_dummyPrivChangeMeshActive {mesh active {frame ""}} {
  1642.     global meshFrame
  1643.     global meshVisible
  1645.     if {$active} {
  1646. set meshFrame($mesh) $frame
  1647. set meshVisible($mesh) 1
  1648.     } else {
  1649. destroy $meshFrame($mesh)
  1650. unset meshFrame($mesh)
  1651. unset meshVisible($mesh)
  1652.     }
  1654. }
  1656. proc hiliteScanEntry {mesh hilite} {
  1657.     global meshFrame
  1658.     set lab $meshFrame($mesh).title.label
  1660.     if {$hilite} {
  1661. $lab config -bg "#00ffff"
  1662.     } else {
  1663. resetBGcolor $lab
  1664.     }
  1665. }
  1668. proc redrawStatus {mode} {
  1669.     # early out for speed freaks
  1670.     if {![globalset wantRedrawStatus]} return
  1672.     set ud 0
  1673.     if {$mode == "start"} {
  1674. set color Red
  1675.     } elseif {$mode == "cache"} {
  1676. set color Purple
  1677.     } elseif {$mode == "end"} {
  1678. set color Black
  1679.     } else {
  1680. # medium out for medium speed freaks
  1681. if {[globalset wantRedrawStatus] < 2} return
  1682. set color $mode
  1683.     }
  1685.     .tools.ro.redraw config -fg $color
  1686.     #update idletasks
  1687. }
  1689. proc windowResizeUI {} {
  1690.     toplevel .resizeD
  1691.     wm title .resizeD "Resize render window..."
  1692.     wm resizable .resizeD 0 0 
  1694.     label .resizeD.width -text "Width:"
  1695.     entry .resizeD.widthval -relief sunken -textvariable widthval
  1696.     label .resizeD.height -text "Height:"
  1697.     entry .resizeD.heightval -relief sunken -textvariable heightval
  1699.     button .resizeD.okb -text "OK" -command {
  1700. if {    ( [scan $widthval "%d" foo] == 1 )
  1701.      && ( [scan $heightval "%d" foo] == 1) } {
  1702.     setMainWindowSize $widthval $heightval
  1703.     destroy .resizeD
  1704. }
  1705.     }
  1706.  
  1707.     button .resizeD.apply -text "Apply" -command {
  1708. if {    ( [scan $widthval "%d" foo] == 1 )
  1709.      && ( [scan $heightval "%d" foo] == 1) } {
  1710.     setMainWindowSize $widthval $heightval
  1711. }
  1712.     }
  1714.     button .resizeD.cancel -text "Cancel" -command "destroy .resizeD"
  1716.     pack .resizeD.width .resizeD.widthval 
  1717. .resizeD.height .resizeD.heightval 
  1718. .resizeD.okb .resizeD.apply .resizeD.cancel -side left
  1719. }
  1721. proc meshControlsSortDialog {} {
  1722.     set sd .meshControlsSortDialog
  1723.     if {[window_Activate $sd]} {return}
  1724.     toplevel $sd
  1725.     wm title $sd "Sort mesh list by:"
  1726.     window_Register $sd
  1728.     for {set n 1} {$n <= 5} {incr n} {
  1729. set f [frame $sd.line$n]
  1730. label $f.l -text "Criteria $n:" -anchor w
  1731. set m [tk_optionMenu $f.sort meshControlsSort($n) 
  1732.    "Name" "File date" "Loadedness" "Visibility" 
  1733.    "PolygonCount"]
  1734. packchildren $f -side left -fill x -expand 1
  1735.     }
  1737.     checkbutton $sd.dictionary -text "Use dictionary sort" 
  1738. -variable meshControlsSort(mode) -onvalue dictionary -offvalue ascii
  1740.     button $sd.resort -text "Resort now" -command resizeMCscrollbar
  1741.     button $sd.close -text "Close" -command "destroy $sd"
  1743.     packchildren $sd -side top -fill x -expand 1
  1744. }
  1747. proc bindToglPaneRclickToMoveLight {} {
  1748.     global cursor
  1749.     global toglPane
  1751.     bind $toglPane <ButtonPress-3> 
  1752. "plv_rotlight $toglPane %x %y;
  1753.          $toglPane config -cursor "circle$cursor(Fore)""
  1755.     bind $toglPane <B3-Motion> 
  1756. "plv_rotlight $toglPane %x %y"
  1758.     bind $toglPane <ButtonRelease-3> 
  1759. "setTBCursor $toglPane 0 none"
  1760. }
  1763. proc kioskInstructions {} {
  1764.     set k [toplevel .kiosk]
  1765.     wm title $k "Instruzioni / Instructions"
  1767.     set width [expr [winfo screenwidth $k] / 5]
  1769.     set instr [frame $k.instructions]
  1770.     set i [frame $instr.italian]
  1771.     frame $instr.line -width 2 -borderwidth 2 -relief solid
  1772.     set e [frame $instr.english]
  1773.     frame $k.line -height 2 -borderwidth 2 -relief solid
  1774.     button $k.ok -text "Cominciare        OK               Begin" 
  1775. -command "destroy $k"
  1777.     label $i.prova -text "Provatelo vi stessi!"
  1778.     label $i.rotare -text "Premere il pulsante sinistra (e trascinare il
  1779.         mouse) per rotare la statua"
  1780.     label $i.muovere -text "Premere il pulsante a meta' (e trascinare il
  1781.         mouse) per muovere la statua"
  1782.     label $i.zoomare -text "Premere simultaneamente i pulsanti sinistra e
  1783.         a meta' (e trascinare il mouse) per zoomare"
  1784.     label $i.luce -text "Premere il pulsante destra (e trascinare il
  1785.         mouse verticalmente) per muovere la luce"
  1786.     label $i.comincia -text "Cliccare su "OK" per cominciare"
  1788.     label $e.try -text "Try this yourself!"
  1789.     label $e.rotate -text "Push the left button (and drag the mouse) to
  1790.         rotate the statue"
  1791.     label $e.move -text "Push the middle button (and drag the mouse) to
  1792.         move the statue"
  1793.     label $e.zoom -text "Push the left and middle buttons at once (and
  1794.         move the mouse vertically) to zoom"
  1795.     label $e.light -text "Push the right button (and move the mouse) to
  1796.         move the light"
  1797.     label $e.begin -text "Click "OK" to begin"
  1799.     foreach child [concat [winfo children $i] [winfo children $e]] {
  1800. $child config -wraplength $width -justify left -anchor w 
  1801.     -font -*-times-medium-r-normal--20-*-*-*-p-96-iso8859-1
  1802.     }
  1804.     foreach child "$i.prova $e.try" {
  1805. $child config -font -*-times-bold-r-normal--34-*-*-*-p-177-iso8859-1
  1806.     }
  1808.     packchildren $i -side top -fill x -pady 3
  1809.     packchildren $e -side top -fill x -pady 3
  1811.     packchildren $instr -side left -fill both -expand 1 -padx 10
  1812.     pack $k.instructions $k.line -side top -pady 5 -fill x
  1813.     pack $k.ok -side top -pady 5
  1815.     centerWindow $k
  1816.     grab set $k
  1817.     tkwait window $k
  1818. }
  1821. proc kioskMode {mode} {
  1822.     redraw block
  1823.     global preKioskGeometry
  1825.     if {$mode == "start"} {
  1826. # go kiosk mode!
  1827. # make sure model is onscreen; if this fails, die early
  1828. if {[catch {plv_force_keep_onscreen 1 20 
  1829. "kioskInstructions"} msg]} {
  1830.     bgerror $msg
  1831.     redraw flush
  1832.     return
  1833. }
  1835. # strip window of everything but rendering pane
  1836. . config -menu ""
  1837. buildUI_ShowToolbar 0
  1838. buildUI_ShowStatusbar 0
  1840. # set right button to move light
  1841. bindToglPaneRclickToMoveLight
  1842. globalset theMover viewer
  1844. # fill the screen
  1845. set preKioskGeometry [getWindowPosition .]
  1846. set w [expr [winfo screenwidth .] + 80]
  1847. set h [expr [winfo screenheight .] + 80]
  1848. wm geometry . ${w}x${h}+-40+-40
  1850. # and our exit key
  1851. bind . <Escape> "kioskMode end"
  1853.     } else {
  1854. # restore previous state
  1856. # redo main window layout
  1857. . config -menu .menubar
  1858. buildUI_ShowToolbar [globalset ui_showToolbar]
  1859. buildUI_ShowStatusbar [globalset ui_showStatusbar]
  1861. # restore window position
  1862. wm geometry . $preKioskGeometry
  1863. unset preKioskGeometry
  1865. # right button goes back to context menu
  1866. bindToglPaneRclickToContextMenu
  1867. plv_force_keep_onscreen 0
  1869. # cleanup
  1870. bind . <Escape> ""
  1871.     }
  1873.     redraw flush
  1874. }
  1877. proc toggleRotationConstraint {char} {
  1878.     global rotationConstraint
  1880.     set constraint [string tolower $char]
  1881.     if {$rotationConstraint == $constraint} {
  1882. set rotationConstraint none
  1883.     } elseif {$constraint == "f"} {
  1884. set rotationConstraint none
  1885.     } else {
  1886. set rotationConstraint $constraint
  1887.     }
  1888. }