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

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

3D图形编程

开发平台：

Visual C++

visgroups.tcl：源码内容
  2. # To add new things to the stored context:
  4. # make up a new global var like vgRestoreRenderColor
  5. # make up a new global var like vgRenderColor
  6. # Add a global line to buildVisGroupsUI
  7. # Add to the menu in buildVisGroupsUI for defauts pop up menu
  8. # Add to vg_globalVars so defaults are set
  9. # Add to vg_CreateView so defaults are copied to new context
  10. # Add to menu in vg_addContextUI for context pop up menu 
  11. # Add to vg_SaveCurrentState
  12. # Add to vg_RestoreState
  15. #Build UI
  16. proc buildVisGroupsUI {} {
  17.     if [window_Activate .visgroups] return
  18.     
  19.     # Global vars # Set up default values if necessary
  20.     vg_globalVars
  21.     global vgRestoreCamera
  22.     global vgRestoreMeshList
  23.     global vgMeshMod
  24.     global vg_viewName
  25.     global vgAutoUpdate
  27.     # Build window
  28.     global vg
  29.     set vg [toplevel .visgroups]
  30.     wm title $vg "Context Manager"
  31.     window_Register $vg
  33.     # Entry Box
  34.     frame $vg.eb
  35.     button $vg.eb.addView -text "Create Context:" 
  36. -command vg_CreateView
  37.     entry $vg.eb.viewName -relief sunken -textvariable vg_viewName
  38.     pack $vg.eb.addView -fill x
  39.     pack $vg.eb.viewName  -fill x
  40.     bind $vg <Return> vg_CreateView
  42.     # Defaults button
  43.     menubutton $vg.menuB -relief raised 
  44. -text "Context Defaults ..." -menu $vg.menuB.defaultMenu
  45.     bind $vg.menuB <Button-3> {
  46. tk_popup $vg.menuB.defaultMenu %X %Y
  47.     }
  48.     set defaultMenu [menu $vg.menuB.defaultMenu 
  49.  -tearoffcommand {setMenuTitle "Context Defaults"}]
  51.     # Defaults menu
  53.     $defaultMenu add checkbutton -label "Auto update context" 
  54. -variable vgAutoUpdate(default)
  56.     $defaultMenu add separator
  57.     $defaultMenu add checkbutton -label "Restore Camera" 
  58. -variable vgRestoreCamera(default)
  59.     $defaultMenu add checkbutton -label "Restore Scan Set" 
  60. -variable vgRestoreMeshList(default)
  61.     $defaultMenu add checkbutton -label "Restore Mesh Resolutions" 
  62. -variable vgRestoreMeshResolutions(default)
  64.     $defaultMenu add separator
  65.     $defaultMenu add radiobutton -label "Show ONLY scan set" 
  66. -variable vgMeshMod(default) -value exact
  67.     $defaultMenu add radiobutton -label "Show scan set" 
  68. -variable vgMeshMod(default) -value show
  69.     $defaultMenu add radiobutton -label "Hide scan set" 
  70. -variable vgMeshMod(default) -value hide
  71.     $defaultMenu add radiobutton -label "Hide/Show toggle scan set" 
  72. -variable vgMeshMod(default) -value toggle
  73.   
  74.     $defaultMenu add separator
  75.     $defaultMenu add command -label "Clear All Contexts" 
  76.       -command {vg_clearAllContext}
  77.     $defaultMenu add command -label "Save Context Set As..." 
  78.       -command {vg_saveAsUI}
  79.     $defaultMenu add command -label "Load Context Set..." 
  80.       -command {vg_loadFileUI}
  81.     $defaultMenu add command -label "Create Pseudo Group..." 
  82.       -command {vg_savePseudoGroupUI}
  83.     
  84.   
  85.     # List frame
  86.     frame $vg.lb
  87.     frame $vg.vMenus
  88.    
  89.     listbox $vg.lb.viewnames -yscrollcommand "$vg.lb.scroll set"
  90.     bind $vg.lb.viewnames <ButtonRelease-1> {  }
  91.   
  92.     scrollbar $vg.lb.scroll -command "$vg.lb.viewnames yview"
  93.     pack $vg.lb.scroll -side right -fill y 
  94.     pack $vg.lb.viewnames -fill x
  96.     # Bindings for buttons in listbox
  97.     bind $vg.lb.viewnames <Button-3>  {
  98. # Pop up menu
  99. set item [$vg.lb.viewnames get @%x,%y]
  100. if {$item != ""} {
  101.     tk_popup $vg.vMenus.x$item %X %Y
  102. }
  103.     }
  104.     bind $vg.lb.viewnames <Motion> {
  105. # Selection tracks mouse
  106. $vg.lb.viewnames selection clear 0 end
  107. $vg.lb.viewnames selection set @%x,%y
  108.     }
  109.     bind $vg.lb.viewnames <Leave> {
  110. # Leave clears slectioin
  111. $vg.lb.viewnames selection clear 0 end
  112. if {$vgCurrentContext != "" && 
  113. $vgAutoUpdate($vgCurrentContext)} {
  114.     vgSetListBox $vgCurrentContext
  115. }
  116.     }
  117.     bind $vg.lb.viewnames <Button-1> {
  118. # Restore state
  119. vg_RestoreState [$vg.lb.viewnames get @%x,%y]
  120.     }
  122.     # Reset the list of whats in the listbox
  123.     vg_updateListbox
  125.     $vg.lb.viewnames configure -height 25
  128.     # Pack
  129.     pack $vg.eb -fill x
  130.     pack $vg.menuB -anchor w
  131.     pack $vg.lb -fill x
  132. }
  134. proc vgSetListBox {name} {
  135.     global vg
  137.     for {set i 0} {$i < [$vg.lb.viewnames index end]} {incr i} {
  138. if {[$vg.lb.viewnames get $i] == "$name"} {
  139.     $vg.lb.viewnames selection set $i
  140. }
  141.     }
  142. }
  144. proc vg_updateListbox {} {
  145.     global vgRestoreCamera
  147.     #Build new UI
  148.     foreach view [array names vgRestoreCamera] {
  149. if {$view != "default"} {vg_addContextUI $view}
  150.     }
  151. }
  153. proc vg_clearAllContext {} {
  154.     global vgRestoreCamera
  155.     foreach view [array names vgRestoreCamera] {
  156. if {$view != "default"} {vg_deleteContext $view}
  157.     }
  158. }
  159. # Global Vars
  160. proc vg_globalVars {} {
  162.     global vgRestoreCamera
  163.     global vgRestoreMeshList
  164.     global vgCamera
  165.     global vgMeshList
  166.     global vgMeshMod
  167.     global vgAutoUpdate
  168.     global vgCurrentContext
  169.     global vgRestoreMeshResolutions
  170.     global vgMeshResolutions
  172.     if {![info exists vgCurrentContext]} {
  173. set vgCurrentContext ""
  174.     }
  176.     if {![info exists vgAutoUpdate]} {
  177. set vgAutoUpdate(default) 0
  178.     }
  180.     if {![info exists vgRestoreCamera]} {
  181. set vgRestoreCamera(default) 1
  182.     }
  184.     if {![info exists vgRestoreMeshList]} {
  185. set vgRestoreMeshList(default) 1
  186.     }
  187.  
  188.    if {![info exists vgRestoreMeshResolutions]} {
  189. set vgRestoreMeshResolutions(default) 1
  190.     }
  192.     if {![info exists vgMeshMod]} {
  193. set vgMeshMod(default) exact
  194.     }
  196.     uplevel {
  197. global vgRestoreCamera
  198. global vgRestoreMeshList
  199. global vgCamera
  200. global vgMeshList
  201. global vgMeshMod
  202. global vgAutoUpdate
  203. global vgCurrentContext
  204. global vgRestoreMeshResolutions
  205. global vgMeshResolutions
  207.     }
  209. }
  211. # saves the current context set to a file
  212. proc vg_saveContextSetToFile {filename} {
  213.     vg_globalVars
  214.     pref_saveVarsToFile $filename vgRestoreCamera vgRestoreMeshList vgCamera vgMeshList vgMeshMod vgAutoUpdate vgRestoreMeshResolutions vgMeshResolutions
  215. }
  217. proc vg_loadContextSetFromFile {filename} {
  218.     vg_globalVars
  219.     pref_loadVarsFromFile $filename 
  220.     vg_updateListbox
  221. }
  223. proc vg_saveAsUI {} {
  224.     set types {
  225. {{Context file}       {.context}}
  226.     }
  228.     set name [tk_getSaveFile -defaultextension .context -filetypes $types
  229.   -title "Save context set as"]
  231.     if {"$name" != ""} {
  232. vg_saveContextSetToFile $name
  233.     }
  234. }
  236. proc vg_loadFileUI {} {
  237.     set types {
  238. {{Context file}       {.context}}
  239.     }
  241.     set name [tk_getOpenFile -defaultextension .context -filetypes $types
  242.   -title "Load context set "]
  244.     if {"$name" != ""} {
  245. vg_loadContextSetFromFile $name
  246.     }
  247. }
  250. proc vg_savePseudoGroupUI {} {
  252.     set name [tk_getSaveFile -title "Create a pseudo group"]
  254.     if {"$name" != ""} {
  255. scz_pseudogroup $name [getVisibleMeshes]
  256.     }
  257. }
  260. # CreateView
  261. proc vg_CreateView {{viewArg ""}} {
  262.     global vg_viewName
  263.     global vgRestoreCamera
  264.     global vgRestoreMeshList
  265.     global vgMeshMod
  266.     global vgCurrentContext
  267.     global vgAutoUpdate
  268.  
  269.     # Make sure global vars exist
  270.     vg_globalVars
  272.     # If the user specifies use this, otherwise use the entrybox variable
  273.     if {"$viewArg" != ""} {
  274. set vg_viewName $viewArg
  275.     }
  277.     # Check for empty view name
  278.     if {"$vg_viewName" == "" } { return}
  280.     # Check for name default
  281.     if {"$vg_viewName" == "default" } { return}
  282.     
  283.     # Check for repeated view name
  284.     foreach view [array names vgRestoreCamera] {
  285. if {$view == "$vg_viewName"} {
  286.     vg_SaveCurrentState $vg_viewName
  287.     puts "Saving current view to $vg_viewName."
  288.     vg_clearEntry
  289.     return
  290. }
  291.     }
  293.     # Set option values for new View
  294.     set vgRestoreCamera($vg_viewName) $vgRestoreCamera(default)
  295.     set vgRestoreMeshList($vg_viewName) $vgRestoreMeshList(default)
  296.     set vgMeshMod($vg_viewName) $vgMeshMod(default)
  297.     set vgAutoUpdate($vg_viewName) $vgAutoUpdate(default)
  298.     set vgRestoreMeshResolutions($vg_viewName) $vgRestoreMeshResolutions(default)
  300.     # Save Current State
  301.     vg_SaveCurrentState $vg_viewName
  303.     #Build new UI elements
  304.     vg_addContextUI $vg_viewName
  306.     # Auto update old context?
  307.     if {$vgCurrentContext != ""} {
  308. if {$vgAutoUpdate($vgCurrentContext) == 1} {
  309.     vg_SaveCurrentState $vgCurrentContext
  310. }
  311.     }
  313.     # Set Current Context
  314.     set vgCurrentContext $vg_viewName
  316.     # Clear the entry box - last since we are using the value
  317.     vg_clearEntry
  320. }
  322. proc vg_clearEntry {} {
  323.     if [winfo exists .visgroups] {
  324. .visgroups.eb.viewName delete 0 end
  325.     }
  326.     globalset vg_viewName ""
  327. }
  329. proc vg_addContextUI {vg_viewName} {
  330.     vg_globalVars 
  332.     # If the window isn't present return
  333.     if {![winfo exists .visgroups]} return;
  335.     # If the view is alrady in the list return
  336.     if {[winfo exists .visgroups.vMenus.x$vg_viewName]} return;
  338.     # Add View to list
  339.     .visgroups.lb.viewnames insert end $vg_viewName
  340.  
  341.     # Create menu
  342.     set m [menu .visgroups.vMenus.x$vg_viewName 
  343.        -tearoffcommand "setMenuTitle Context_$vg_viewName" ]
  345.     $m add checkbutton -label "Auto update context" 
  346. -variable vgAutoUpdate($vg_viewName)
  348.     $m add separator
  350.     $m add checkbutton -label "Restore Camera" 
  351. -variable vgRestoreCamera($vg_viewName)
  352.     
  353.     $m add checkbutton -label "Restore Scan Set" 
  354. -variable vgRestoreMeshList($vg_viewName)
  355.     $m add checkbutton -label "Restore Mesh Resolutions" 
  356. -variable vgRestoreMeshResolutions($vg_viewName)
  359.   
  360.     $m add separator
  361.     $m add radiobutton -label "Show ONLY scan set" 
  362. -variable vgMeshMod($vg_viewName) -value exact
  363.     $m add radiobutton -label "Show scan set" 
  364. -variable vgMeshMod($vg_viewName) -value show
  365.     $m add radiobutton -label "Hide scan set" 
  366. -variable vgMeshMod($vg_viewName) -value hide
  367.     $m add radiobutton -label "Hide/Show toggle scan set" 
  368. -variable vgMeshMod($vg_viewName) -value toggle
  370.     $m add separator
  371.     set meshMenu [createNamedCascade $m meshMenu 
  372.       "MeshList"  ]
  373.     $meshMenu configure -tearoffcommand "setMenuTitle $vg_viewName"
  374.     foreach mesh $vgMeshList($vg_viewName) {
  375. $meshMenu add command -label $mesh
  376.     }
  377.     $m add separator
  378.     
  379.     $m add command -label "Delete Context" 
  380. -command "vg_deleteContext $vg_viewName"
  381.     $m add command -label "Update Context" 
  382. -command "vg_SaveCurrentState $vg_viewName"
  383. }
  385. proc vg_deleteContext {name} {
  386.     global vgRestoreCamera
  387.     global vgCurrentContext 
  389.     # Remove context from vgRestoreCamera (so we think its gone)
  390.     unset vgRestoreCamera($name)
  392.     if [winfo exists .visgroups] {
  393. # Delete menu
  394. destroy .visgroups.vMenus.x$name
  396. # Rebuild UI list - since I dont know how to delete this one
  397. .visgroups.lb.viewnames delete 0 end
  398. foreach view [array names vgRestoreCamera] {
  399.     if {$view != "default"} {
  400. .visgroups.lb.viewnames insert end $view
  401.     }
  402. }
  403.     }
  404.     # If this was the current context, set no current
  405.     if {"$name" == "$vgCurrentContext" } {
  406. set vgCurrentContext ""
  407.     }
  408. }
  410. proc vg_updateMeshListMenu {context} {
  411.     vg_globalVars
  412.     set m .visgroups.vMenus.x$context.meshMenu
  414.    # puts "Checking existant"
  415.     if {![winfo exists $m]} return;
  416.    # puts "Finxing menu"
  418.     # Clear old menu
  419.     $m delete 0 end
  421.     # Build new menu
  422.     foreach mesh $vgMeshList($context) {
  423. $m add command -label $mesh
  424.     }
  425. }
  427. proc vg_SaveCurrentState {name} {
  428.     global vgRestoreCamera
  429.     global vgRestoreMeshList
  430.     global vgCamera
  431.     global vgMeshList
  432.     global vg_viewName
  433.     vg_globalVars
  435.     set vgCamera($name) [plv_positioncamera]
  436.     set vgMeshList($name) [getVisibleMeshes]
  437.     set vgMeshResolutions($name) [vg_buildMeshResList [getVisibleMeshes]]
  438.    # puts $vgMeshResolutions($name)
  439.     vg_updateMeshListMenu $name
  441. }
  443. proc vg_buildMeshResList {meshes} {
  445.     set retstr ""
  446.     puts $meshes
  447.     foreach mesh $meshes {
  448. lappend retstr "$mesh [plv_getcurrentres $mesh]"
  449.     }
  450.     
  452.     return $retstr
  453. }
  455. proc vg_setRestoreScanOnly {name} {
  456.     globalset vgRestoreCamera($name) 0
  457.     globalset vgRestoreMeshResolutions($name) 0
  458. }
  460. proc vg_RestoreState {name} {
  461.     global vgRestoreCamera
  462.     global vgRestoreMeshList
  463.     global vgCamera
  464.     global vgMeshList
  465.     global vgMeshMod
  466.     global vgrs_toggle
  467.     global vgCurrentContext
  468.     global vgAutoUpdate
  470.     vg_globalVars
  472.     # Check for empty
  473.     if {$name == ""} return
  475.     # Auto update old context?
  476.     if {$vgCurrentContext != ""} {
  477. if {$vgAutoUpdate($vgCurrentContext) == 1} {
  478.     vg_SaveCurrentState $vgCurrentContext
  479. }
  480.     }
  482.     # Set new context
  483.     set vgCurrentContext $name
  485.     redraw block
  487.     # Restore new context
  488.     if {![info exist vgrs_toggle]} {set vgrs_toggle 0}
  490.     # read camera pos into temp variable
  491.     set camerapos $vgCamera($name)
  493.     # because if we're switching to PREVIOUS, it will change when we
  494.     # mess with the mesh list
  495.     if {$vgRestoreMeshList($name) == 1} {
  496. if {$vgMeshMod($name) == "exact"} {
  497.     eval showOnlyMesh $vgMeshList($name)
  498. } elseif {$vgMeshMod($name) == "hide"} {
  499.     eval hideMesh $vgMeshList($name)
  500. } elseif {$vgMeshMod($name) == "show"} {
  501.     eval showMesh $vgMeshList($name)
  502. } elseif {$vgMeshMod($name) == "toggle"} {
  503.     if {$vgrs_toggle == 1} {
  504. eval showMesh $vgMeshList($name)
  505.     } else {
  506. eval hideMesh $vgMeshList($name)
  507.     }
  508.     set vgrs_toggle [expr 1 - $vgrs_toggle]
  509. }
  510.     }
  511.     if {$vgRestoreMeshResolutions($name) == 1} {
  513. foreach pair $vgMeshResolutions($name) {
  514.     eval "setMeshResolution $pair"
  515. }
  516.     }
  518.     if {$vgRestoreCamera($name) == 1} {
  519. eval plv_positioncamera $camerapos
  520.     }
  522.     # Redraw
  523.     redraw flush
  524. }
  526. proc vg_pickScanContextHelper {mesh state} {
  527.     global vgRestoreCamera
  528.     global vgMeshList
  529.     # If shift key isn't down just set the context to 
  530.     # be the selected scan
  531.     # if shift key down append to the list
  532.     # Mesh is the picked mesh
  533.     # state is the modifier state from the event.
  534.     # 1= shift key down
  536.     # Make sure we have the desired context
  537.     if {![info exists vgRestoreCamera(PICK_SCAN)]} {
  538. vg_CreateView PICK_SCAN
  539. puts "creating PICKSCAN"
  540.     }
  542.     # Add to context
  543.     if {$state == 1} {
  544. # shift key down, append
  545. if {[lsearch -exact $vgMeshList(PICK_SCAN) $mesh]== -1} {
  546. lappend vgMeshList(PICK_SCAN) $mesh
  547. }
  548.     } elseif {$state == 0} {
  549. # set scan
  550. globalset vgMeshList(PICK_SCAN) $mesh
  552.     } else {
  553. puts "bad staet"
  554. return
  555.     }
  557.     # Update the meshList menu option
  558.     vg_updateMeshListMenu PICK_SCAN
  560.     # Make sure its set to only restore scan
  561.     vg_setRestoreScanOnly PICK_SCAN
  562. }