Changeset 6237
- Timestamp:
- Apr 3, 2016, 11:48:28 AM (9 years ago)
- Location:
- branches/1.6
- Files:
-
- 8 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/1.6
-
branches/1.6/gui/scripts/vtkglyphviewer.tcl
r6213 r6237 525 525 } 526 526 527 set rotate_delay 100528 529 527 itcl::body Rappture::VtkGlyphViewer::EventuallyRotate { q } { 530 528 QuaternionToView $q 531 529 if { !$_rotatePending } { 532 530 set _rotatePending 1 533 global rotate_delay 534 $_dispatcher event -after $rotate_delay !rotate 531 $_dispatcher event -after 100 !rotate 535 532 } 536 533 } -
branches/1.6/gui/scripts/vtkheightmapviewer.tcl
r6212 r6237 453 453 } 454 454 455 set rotate_delay 100456 457 455 itcl::body Rappture::VtkHeightmapViewer::EventuallyRotate { q } { 458 456 QuaternionToView $q 459 457 if { !$_rotatePending } { 460 458 set _rotatePending 1 461 global rotate_delay 462 $_dispatcher event -after $rotate_delay !rotate 459 $_dispatcher event -after 100 !rotate 463 460 } 464 461 } -
branches/1.6/gui/scripts/vtkimageviewer.tcl
r6212 r6237 443 443 } 444 444 445 set rotate_delay 100446 447 445 itcl::body Rappture::VtkImageViewer::EventuallyRotate { q } { 448 446 QuaternionToView $q 449 447 if { !$_rotatePending } { 450 448 set _rotatePending 1 451 global rotate_delay 452 $_dispatcher event -after $rotate_delay !rotate 449 $_dispatcher event -after 100 !rotate 453 450 } 454 451 } -
branches/1.6/gui/scripts/vtkisosurfaceviewer.tcl
r6213 r6237 572 572 } 573 573 574 set rotate_delay 100575 576 574 itcl::body Rappture::VtkIsosurfaceViewer::EventuallyRotate { q } { 577 575 QuaternionToView $q 578 576 if { !$_rotatePending } { 579 577 set _rotatePending 1 580 global rotate_delay 581 $_dispatcher event -after $rotate_delay !rotate 578 $_dispatcher event -after 100 !rotate 582 579 } 583 580 } … … 595 592 if { !$_contourList(updatePending) } { 596 593 set _contourList(updatePending) 1 597 global rotate_delay 598 $_dispatcher event -after $rotate_delay !contours 594 $_dispatcher event -after 100 !contours 599 595 } 600 596 } -
branches/1.6/gui/scripts/vtkstreamlinesviewer.tcl
r6212 r6237 76 76 private method CurrentDatasets {args} 77 77 private method Disconnect {} 78 private method DoRescale {} 79 private method DoReseed {} 78 80 private method DoResize {} 79 private method DoReseed {}80 81 private method DoRotate {} 81 82 private method EnterLegend { x y } 83 private method EventuallyRescale { length } 84 private method EventuallyReseed { numPoints } 82 85 private method EventuallyResize { w h } 83 private method EventuallyReseed { numPoints }84 86 private method EventuallyRotate { q } 85 87 private method EventuallySetCutplane { axis args } … … 136 138 private variable _resizePending 0 137 139 private variable _legendPending 0 140 private variable _rescalePending 0 138 141 private variable _reseedPending 0 139 142 private variable _rotatePending 0 … … 142 145 private variable _curFldName "" 143 146 private variable _curFldLabel "" 144 private variable _field "" 147 private variable _field "" 148 private variable _streamlinesLength 0 145 149 private variable _numSeeds 200 146 150 private variable _colorMode "vmag"; # Mode of colormap (vmag or scalar) … … 175 179 $_dispatcher register !legend 176 180 $_dispatcher dispatch $this !legend "[itcl::code $this RequestLegend]; list" 181 182 # Rescale streamlines event 183 $_dispatcher register !rescale 184 $_dispatcher dispatch $this !rescale "[itcl::code $this DoRescale]; list" 177 185 178 186 # Reseed event … … 469 477 } 470 478 479 itcl::body Rappture::VtkStreamlinesViewer::DoRescale {} { 480 foreach dataset [CurrentDatasets -visible] { 481 SendCmd "streamlines length $_streamlinesLength $dataset" 482 } 483 set _rescalePending 0 484 } 485 471 486 itcl::body Rappture::VtkStreamlinesViewer::DoReseed {} { 472 487 foreach dataset [CurrentDatasets -visible] { 473 foreach {dataobj comp} [split $dataset -] break474 488 # This command works for either random or fmesh seeds 475 489 SendCmd "streamlines seed numpts $_numSeeds $dataset" … … 488 502 } 489 503 504 itcl::body Rappture::VtkStreamlinesViewer::EventuallyRescale { length } { 505 set _streamlinesLength $length 506 if { !$_rescalePending } { 507 set _rescalePending 1 508 $_dispatcher event -after 600 !rescale 509 } 510 } 511 490 512 itcl::body Rappture::VtkStreamlinesViewer::EventuallyReseed { numPoints } { 491 513 set _numSeeds $numPoints … … 496 518 } 497 519 498 set rotate_delay 100499 500 520 itcl::body Rappture::VtkStreamlinesViewer::EventuallyRotate { q } { 501 521 QuaternionToView $q 502 522 if { !$_rotatePending } { 503 523 set _rotatePending 1 504 global rotate_delay 505 $_dispatcher event -after $rotate_delay !rotate 524 $_dispatcher event -after 100 !rotate 506 525 } 507 526 } … … 1426 1445 } 1427 1446 set length [expr { $sval * ($xlen + $ylen + $zlen) } ] 1428 SendCmd "streamlines length $length"1447 EventuallyRescale $length 1429 1448 } 1430 1449 "-streamlineslighting" { … … 1700 1719 2,0 $inner.mode_l -anchor w -pady 2 \ 1701 1720 2,1 $inner.mode -fill x -pady 2 \ 1702 3,0 $inner.opacity_l -anchor w -pady 2 \ 1703 3,1 $inner.opacity -fill x -pady 2 \ 1704 4,0 $inner.lighting -anchor w -pady 2 -cspan 2 \ 1705 5,0 $inner.seeds -anchor w -pady 2 -cspan 2 \ 1706 6,0 $inner.density_l -anchor w -pady 2 \ 1707 6,1 $inner.density -fill x -pady 2 \ 1721 3,0 $inner.scale_l -anchor w -pady 2 \ 1722 3,1 $inner.scale -fill x -pady 2 \ 1723 4,0 $inner.opacity_l -anchor w -pady 2 \ 1724 4,1 $inner.opacity -fill x -pady 2 \ 1725 5,0 $inner.lighting -anchor w -pady 2 -cspan 2 \ 1726 6,0 $inner.seeds -anchor w -pady 2 -cspan 2 \ 1727 7,0 $inner.density_l -anchor w -pady 2 \ 1728 7,1 $inner.density -fill x -pady 2 \ 1708 1729 1709 1730 blt::table configure $inner r* c* -resize none 1710 blt::table configure $inner r 7c1 c2 -resize expand1731 blt::table configure $inner r8 c1 c2 -resize expand 1711 1732 } 1712 1733 -
branches/1.6/gui/scripts/vtksurfaceviewer.tcl
r6212 r6237 444 444 } 445 445 446 set rotate_delay 100447 448 446 itcl::body Rappture::VtkSurfaceViewer::EventuallyRotate { q } { 449 447 QuaternionToView $q 450 448 if { !$_rotatePending } { 451 449 set _rotatePending 1 452 global rotate_delay 453 $_dispatcher event -after $rotate_delay !rotate 450 $_dispatcher event -after 100 !rotate 454 451 } 455 452 } -
branches/1.6/gui/scripts/vtkvolumeviewer.tcl
r6212 r6237 471 471 } 472 472 473 set rotate_delay 100474 475 473 itcl::body Rappture::VtkVolumeViewer::EventuallyRotate { q } { 476 474 QuaternionToView $q 477 475 if { !$_rotatePending } { 478 476 set _rotatePending 1 479 global rotate_delay 480 $_dispatcher event -after $rotate_delay !rotate 477 $_dispatcher event -after 100 !rotate 481 478 } 482 479 }
Note: See TracChangeset
for help on using the changeset viewer.