Commit bd5e56bd authored by Will Schroeder's avatar Will Schroeder
Browse files

ENH:Simple Tcl/Tk example for managing the color of an actor.

parent bbe075c6
package require vtk
package require vtkinteraction
package require vtktesting
# This example demonstrates how to use Tcl/Tk in a simple GUI to control
# the color of the spikes on the mace.
# Create a sphere source and actor. This forms the head of the mace.
#
vtkSphereSource sphere
vtkPolyDataMapper sphereMapper
sphereMapper SetInput [sphere GetOutput]
vtkLODActor sphereActor
sphereActor SetMapper sphereMapper
# Create the spikes using a cone source. The cones are glyphed onto the
# the mace head using the sphere normals.
#
vtkConeSource cone
vtkGlyph3D glyph
glyph SetInput [sphere GetOutput]
glyph SetSource [cone GetOutput]
glyph SetVectorModeToUseNormal
glyph SetScaleModeToScaleByVector
glyph SetScaleFactor 0.25
vtkPolyDataMapper spikeMapper
spikeMapper SetInput [glyph GetOutput]
vtkLODActor spikeActor
spikeActor SetMapper spikeMapper
# Create the RenderWindow, Renderer and both Actors
#
vtkRenderer ren1
vtkRenderWindow renWin
renWin AddRenderer ren1
vtkRenderWindowInteractor iren
iren SetRenderWindow renWin
# Add the actors to the renderer, set the background and size.
#
ren1 AddActor sphereActor
ren1 AddActor spikeActor
ren1 SetBackground 0.1 0.2 0.4
renWin SetSize 300 300
# render the image
#
iren AddObserver UserEvent {wm deiconify .vtkInteract}
set cam1 [ren1 GetActiveCamera]
$cam1 Zoom 1.4
iren Initialize
# Create Tk user interface. This is a simple frame with some color sliders.
#
frame .f
label .f.l -text "Spike Color"
scale .f.r -from 0 -to 100 -background #f00 \
-orient horizontal -command SetColor
scale .f.g -from 0 -to 100 -background #0f0 \
-orient horizontal -command SetColor
scale .f.b -from 0 -to 100 -background #00f \
-orient horizontal -command SetColor
set color [[spikeActor GetProperty] GetColor]
.f.r set [expr [lindex $color 0] * 100.0]
.f.g set [expr [lindex $color 1] * 100.0]
.f.b set [expr [lindex $color 2] * 100.0]
pack .f.l .f.r .f.g .f.b -side top
pack .f
proc SetColor {value} {
[spikeActor GetProperty] SetColor [expr [.f.r get]/100.0] \
[expr [.f.g get]/100.0] \ [expr [.f.b get]/100.0]
renWin Render
}
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment