Commit cff2145a authored by Ken Martin's avatar Ken Martin
Browse files

valid updates

parent cc64d296
......@@ -87,7 +87,7 @@ $iren SetUserMethod {wm deiconify .vtkInteract};
$iren Initialize;
$renWin SetFilename "DelMesh.ppm";
$renWin SaveImageAsPPM;
#$renWin SaveImageAsPPM;
# prevent the tk window from showing up then start the event loop
wm withdraw .
......
......@@ -62,7 +62,7 @@ $iren Initialize;
$iren SetUserMethod {wm deiconify .vtkInteract};
# loop over surfaces
for {set nloops 0} {$nloops < 5} {incr nloops} {
for {set nloops 0} {$nloops < 3} {incr nloops} {
for {set i 0} {$i < 17} {incr i} {
cf SetValue 0 [expr $min + ($i/16.0)*($max - $min)]
$renWin Render;
......
......@@ -242,6 +242,11 @@ $iren Initialize;
#$renWin SetFilename camera.tcl.ppm;
#$renWin SaveImageAsPPM;
#vtkVRMLExporter exp;
#exp SetInput $renWin;
#exp SetFilename camera.wrl
#exp Write;
# prevent the tk window from showing up then start the event loop
wm withdraw .
......
......@@ -106,7 +106,6 @@ vtkClipPolyData clipper;
clipper SetClipFunction plane;
clipper SetValue 0.0;
# clipper InsideOutOn;
clipper DebugOn;
vtkDataSetMapper clippedMapper;
clippedMapper SetInput [clipper GetOutput];
vtkActor clippedActor
......@@ -162,12 +161,15 @@ $ren1 AddActors edgeActor;
$ren1 AddActors meshActor;
$ren1 AddActors clippedActor;
$ren1 SetBackground 1 1 1;
$renWin SetSize 500 500;
$renWin SetSize 400 400;
[$ren1 GetActiveCamera] Zoom 1.3
$iren Initialize;
# render the image
#
$iren SetUserMethod {wm deiconify .vtkInteract};
$renWin SetFilename "clipCut.tcl.ppm";
#$renWin SaveImageAsPPM;
# prevent the tk window from showing up then start the event loop
wm withdraw .
......
......@@ -19,12 +19,10 @@ vtkSphereSource sphere;
vtkPlane plane;
plane SetOrigin 0.25 0 0;
plane SetNormal -1 -1 0;
#vtkClipPolyData clipper;
vtkClipper clipper;
vtkClipPolyData clipper;
clipper SetInput [sphere GetOutput];
clipper SetClipFunction plane;
clipper SetValue 0.0;
clipper DebugOn;
vtkDataSetMapper clipMapper;
clipMapper SetInput [clipper GetOutput];
clipMapper ScalarsVisibleOff;
......@@ -43,12 +41,14 @@ set iren [$renWin MakeRenderWindowInteractor];
#
$ren1 AddActors clipActor;
$ren1 SetBackground 1 1 1;
$renWin SetSize 500 500;
$renWin SetSize 400 400;
$iren Initialize;
# render the image
#
$iren SetUserMethod {wm deiconify .vtkInteract};
$renWin SetFilename "clipSphere.tcl.ppm";
#$renWin SaveImageAsPPM;
# prevent the tk window from showing up then start the event loop
wm withdraw .
......
......@@ -23,12 +23,10 @@ vtkImplicitWindowFunction iwf;
iwf SetImplicitFunction plane;
iwf SetWindowRange -.2 .2
iwf SetWindowValues 0 1;
#vtkClipPolyData clipper;
vtkClipper clipper;
vtkClipPolyData clipper;
clipper SetInput [sphere GetOutput];
clipper SetClipFunction iwf;
clipper SetValue 0.0;
clipper DebugOn;
vtkDataSetMapper clipMapper;
clipMapper SetInput [clipper GetOutput];
clipMapper ScalarsVisibleOff;
......@@ -47,12 +45,14 @@ set iren [$renWin MakeRenderWindowInteractor];
#
$ren1 AddActors clipActor;
$ren1 SetBackground 1 1 1;
$renWin SetSize 500 500;
$renWin SetSize 400 400;
$iren Initialize;
# render the image
#
$iren SetUserMethod {wm deiconify .vtkInteract};
$renWin SetFilename "clipSphere2.tcl.ppm";
#$renWin SaveImageAsPPM;
# prevent the tk window from showing up then start the event loop
wm withdraw .
......
......@@ -11,8 +11,7 @@ vtkVolume16Reader v16;
v16 SwapBytesOn;
v16 SetFilePrefix "../../data/fullHead/headsq"
v16 SetDataAspectRatio 0.8 0.8 1.5;
v16 SetImageRange 19 24;
# v16 SetImageRange 1 94;#uncomment for the whole head
v16 SetImageRange 1 94;#uncomment for the whole head
v16 SetDataMask 0x7fff;
# write isosurface to file
......
......@@ -16,7 +16,6 @@ vtkContourFilter iso;
iso GenerateValues 6 600 1200;
vtkStripper stripper;
stripper SetInput [iso GetOutput];
stripper DebugOn;
vtkTubeFilter tuber;
tuber SetInput [stripper GetOutput];
tuber SetNumberOfSides 4;
......@@ -50,12 +49,13 @@ set iren [$renWin MakeRenderWindowInteractor];
$ren1 AddActors outlineActor;
$ren1 AddActors isoActor;
$ren1 SetBackground 1 1 1;
$renWin SetSize 500 500;
$renWin SetSize 400 400;
[$ren1 GetActiveCamera] Zoom 1.4;
$ren1 SetBackground 0.1 0.2 0.4;
$iren Initialize;
#$renWin SetFilename "headSlic.tcl.ppm";
$renWin SetFilename "lineStrip.tcl.ppm";
#$renWin SaveImageAsPPM;
$iren SetUserMethod {wm deiconify .vtkInteract};
......
......@@ -52,7 +52,6 @@ vtkPolyConnectivityFilter conn
conn SetInput [plane1 GetOutput];
conn ScalarConnectivityOn;
conn SetScalarRange 1.5 4.0
conn DebugOn;
vtkPolyMapper plane1Map;
plane1Map SetInput [conn GetOutput];
eval plane1Map SetScalarRange [[pl3d GetOutput] GetScalarRange];
......@@ -77,7 +76,7 @@ $ren1 AddActors wallActor;
$ren1 AddActors finActor;
$ren1 AddActors plane1Actor;
$ren1 SetBackground 1 1 1;
$renWin SetSize 500 500;
$renWin SetSize 400 400;
vtkCamera cam1;
cam1 SetClippingRange 1.51176 75.5879;
......@@ -93,7 +92,8 @@ $iren Initialize;
# render the image
#
$iren SetUserMethod {wm deiconify .vtkInteract};
#$renWin SetFilename "texThresh.tcl.ppm";
$renWin SetFilename "polyConn.tcl.ppm";
#$renWin SaveImageAsPPM;
# prevent the tk window from showing up then start the event loop
......
......@@ -5,7 +5,7 @@
#vtkCommand DebugOn;
# first find all the examples
set files [lsort [glob {[p-z]*.tcl}]];
set files [lsort [glob {[A-z]*.tcl}]];
# remove support files that we know are not examples
if {[set pos [lsearch $files "vtkInt.tcl"]] != -1} {
......@@ -29,6 +29,9 @@ if {[set pos [lsearch $files "assembly2.tcl"]] != -1} {
if {[set pos [lsearch $files "connPineRoot.tcl"]] != -1} {
set files [lreplace $files $pos $pos ]
}
if {[set pos [lsearch $files "aniIso.tcl"]] != -1} {
set files [lreplace $files $pos $pos ]
}
if {[set pos [lsearch $files "cylMap.tcl"]] != -1} {
set files [lreplace $files $pos $pos ]
}
......
......@@ -60,11 +60,11 @@ set iren [$renWin MakeRenderWindowInteractor];
$ren1 SetBackground 1 1 1;
$ren1 AddActors contActor;
$ren1 AddActors outlineActor;
[$ren1 GetActiveCamera] Zoom 1.4
$iren SetUserMethod {wm deiconify .vtkInteract};
$iren Initialize;
#$renWin SetFilename VisQuad.tcl.ppm;
$renWin SetFilename scalarConn.tcl.ppm;
#$renWin SaveImageAsPPM;
wm withdraw .;
......@@ -38,11 +38,9 @@ vtkRotationalExtrusionFilter extrude;
vtkCleanPolyData clean;#get rid of seam
clean SetInput [extrude GetOutput];
clean SetTolerance 0.001;
clean DebugOn;
vtkPolyNormals normals;
normals SetInput [clean GetOutput];
normals SetFeatureAngle 90;
normals DebugOn;
vtkPolyMapper map;
map SetInput [normals GetOutput];
vtkActor sweep;
......@@ -86,10 +84,12 @@ vtkCamera acam;
$ren1 SetActiveCamera acam;
$renWin SetSize 500 500;
$renWin SetSize 400 400;
$renWin Render;
$iren SetUserMethod {wm deiconify .vtkInteract};
$renWin SetFilename "sweptCurve.tcl.ppm";
#$renWin SaveImageAsPPM;
# prevent the tk window from showing up then start the event loop
wm withdraw .
......
......@@ -9,10 +9,10 @@ vtkPolyMapper axesMapper;
vtkActor axesActor;
axesActor SetMapper axesMapper;
vtkVectorText text;
text SetText "Origin";
vtkVectorText atext;
atext SetText "Origin";
vtkPolyMapper textMapper;
textMapper SetInput [text GetOutput];
textMapper SetInput [atext GetOutput];
vtkFollower textActor;
textActor SetMapper textMapper;
textActor SetScale 0.0025 0.0025 0.0025
......@@ -26,11 +26,14 @@ set iren [$renWin MakeRenderWindowInteractor];
$ren1 AddActors axesActor;
$ren1 AddActors textActor;
[$ren1 GetActiveCamera] Zoom 1.6;
$renWin Render;
textActor SetCamera [$ren1 GetActiveCamera];
$iren SetUserMethod {wm deiconify .vtkInteract};
$iren Initialize;
$renWin SetFilename "textOrigin.tcl.ppm";
#$renWin SaveImageAsPPM;
wm withdraw .;
......@@ -61,11 +61,14 @@ set slate_grey "0.4392 0.5020 0.5647"
eval $ren1 SetBackground $slate_grey
$ren1 AddActors cubeActor
$ren1 AddActors texturedActor
[$ren1 GetActiveCamera] Zoom 1.5;
# render the image
#
$iren SetUserMethod {wm deiconify .vtkInteract};
$iren Initialize;
$renWin SetFilename "triangularTCoords.tcl.ppm";
#$renWin SaveImageAsPPM;
# prevent the tk window from showing up then start the event loop
wm withdraw .
......@@ -67,11 +67,14 @@ vtkActor triangleActor
$ren1 SetBackground .3 .7 .2
$ren1 AddActors triangleActor
[$ren1 GetActiveCamera] Zoom 1.5;
# render the image
#
$iren SetUserMethod {wm deiconify .vtkInteract};
$iren Initialize;
$renWin SetFilename "triangularTexture.tcl.ppm";
#$renWin SaveImageAsPPM;
# prevent the tk window from showing up then start the event loop
wm withdraw .
Markdown is supported
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