Commit c7583795 authored by Charles Law's avatar Charles Law
Browse files

Break on error and FileName

parent e159e8a7
......@@ -33,7 +33,7 @@ $renWin SetSize 400 400;
$iren SetUserMethod {wm deiconify .vtkInteract};
$iren Initialize;
#$renWin SetFilename ColorSph.tcl.ppm;
#$renWin SetFileName ColorSph.tcl.ppm;
#$renWin SaveImageAsPPM;
wm withdraw .
......@@ -22,7 +22,7 @@ $ren1 AddActors coneActor;
$iren SetUserMethod {wm deiconify .vtkInteract};
$iren Initialize;
#$renWin SetFilename Cone.tcl.ppm;
#$renWin SetFileName Cone.tcl.ppm;
#$renWin SaveImageAsPPM;
# prevent the tk window from showing up then start the event loop
......
......@@ -33,7 +33,7 @@ $iren SetUserMethod {wm deiconify .vtkInteract};
$iren Initialize;
$renWin Render;
#$renWin SetFilename Cylinder.tcl.ppm;
#$renWin SetFileName Cylinder.tcl.ppm;
#$renWin SaveImageAsPPM;
set coneProp [coneActor GetProperty];
......
......@@ -86,7 +86,7 @@ $iren SetUserMethod {wm deiconify .vtkInteract};
[$ren1 GetActiveCamera] Zoom 1.5;
$iren Initialize;
$renWin SetFilename "DelMesh.ppm";
$renWin SetFileName "DelMesh.ppm";
#$renWin SaveImageAsPPM;
# prevent the tk window from showing up then start the event loop
......
......@@ -56,7 +56,7 @@ $iren SetUserMethod {wm deiconify .vtkInteract};
$renWin Render;
#$renWin SetFilename Delaunay2D.tcl.ppm;
#$renWin SetFileName Delaunay2D.tcl.ppm;
#$renWin SaveImageAsPPM;
# prevent the tk window from showing up then start the event loop
......
......@@ -56,7 +56,7 @@ $cam1 Zoom 1.5;
$iren SetUserMethod {wm deiconify .vtkInteract};
$renWin Render;
#$renWin SetFilename Delaunay3D.tcl.ppm;
#$renWin SetFileName Delaunay3D.tcl.ppm;
#$renWin SaveImageAsPPM;
# prevent the tk window from showing up then start the event loop
......
......@@ -161,7 +161,7 @@ $renWin SetSize 500 500;
$renWin Render;
$iren SetUserMethod {wm deiconify .vtkInteract};
#$renWin SetFilename Hyper.tcl.ppm;
#$renWin SetFileName Hyper.tcl.ppm;
#$renWin SaveImageAsPPM;
# prevent the tk window from showing up then start the event loop
......
......@@ -1337,7 +1337,7 @@ $iren SetUserMethod {wm deiconify .vtkInteract};
$iren Initialize;
$renWin Render;
#$renWin SetFilename InputStr.tcl.ppm;
#$renWin SetFileName InputStr.tcl.ppm;
#$renWin SaveImageAsPPM;
# prevent the tk window from showing up then start the event loop
......
......@@ -56,7 +56,7 @@ $ren1 AddActors outlineActor;
$iren SetUserMethod {wm deiconify .vtkInteract};
$iren Initialize;;
#$renWin SetFilename MSquares.tcl.ppm;
#$renWin SetFileName MSquares.tcl.ppm;
#$renWin SaveImageAsPPM;
wm withdraw .;
......@@ -2,7 +2,7 @@
source vtkInt.tcl
vtkSTLReader reader;
reader SetFilename ../../data/42400-IDGH.stl;
reader SetFileName ../../data/42400-IDGH.stl;
vtkPolyMapper dataMapper;
dataMapper SetInput [reader GetOutput];
vtkActor model;
......@@ -38,7 +38,7 @@ $renWin SetSize 500 500;
#
$iren SetUserMethod {wm deiconify .vtkInteract};
$iren Initialize;
#$renWin SetFilename OBBTree.tcl.ppm;
#$renWin SetFileName OBBTree.tcl.ppm;
#$renWin SaveImageAsPPM;
# prevent the tk window from showing up then start the event loop
......
......@@ -56,7 +56,7 @@ $cam1 SetWindowCenter -1.01 0;
$cam2 SetWindowCenter 1.01 0;
$renWin Render;
#$renWin SetFilename OffAxis.tcl.ppm;
#$renWin SetFileName OffAxis.tcl.ppm;
#$renWin SaveImageAsPPM;
# prevent the tk window from showing up then start the event loop
......
......@@ -116,7 +116,7 @@ $renWin Render;
$iren SetUserMethod {wm deiconify .vtkInteract};
$renWin Render;
#$renWin SetFilename Peano.tcl.ppm;
#$renWin SetFileName Peano.tcl.ppm;
#$renWin SaveImageAsPPM;
# prevent the tk window from showing up then start the event loop
......
......@@ -11,7 +11,13 @@ frame .top.f1
vtkRenderWidget .top.f1.o1 -width 300 -height 300
button .top.btn -text Quit -command exit
bind .top.f1.o1 <B1-Motion> {puts "button1 motion (%x, %y)"}
bind .top.f1.o1 <Any-ButtonPress> {puts "button %b press (%x, %y)"}
bind .top.f1.o1 <Any-ButtonRelease> {puts "button %b release (%x, %y)"}
bind .top.f1.o1 <B1-Motion> {puts "B%b-Motion (%x, %y)"}
bind .top.f1.o1 <B2-Motion> {puts "B%b-Motion (%x, %y)"}
bind .top.f1.o1 <B3-Motion> {puts "B%b-Motion (%x, %y)"}
puts [bind .top.f1.o1]
pack .top.f1.o1 -side left -padx 3 -pady 3 -fill both -expand t
pack .top.f1 -fill both -expand t
......
......@@ -15,9 +15,9 @@ vtkLineSource line2;
# asource AddInput [line2 GetOutput];
vtkSTLReader asource;
asource SetFilename ../../data/42400-IDGH.stl;
asource SetFileName ../../data/42400-IDGH.stl;
#vtkCyberReader asource;
# asource SetFilename ../../data/fran_cut
# asource SetFileName ../../data/fran_cut
vtkPolyMapper dataMapper;
dataMapper SetInput [asource GetOutput];
vtkActor model;
......@@ -59,7 +59,7 @@ $iren SetUserMethod {wm deiconify .vtkInteract};
[$ren1 GetActiveCamera] Zoom 1.4;
$iren Initialize;
#$renWin SetFilename SpatialRep.tcl.ppm;
#$renWin SetFileName SpatialRep.tcl.ppm;
#$renWin SaveImageAsPPM;
# prevent the tk window from showing up then start the event loop
......
......@@ -17,7 +17,7 @@ planeActor SetMapper planeMapper;
#
vtkTexture atext;
vtkPNMReader pnmReader;
pnmReader SetFilename "../../data/masonry.ppm";
pnmReader SetFileName "../../data/masonry.ppm";
atext SetInput [pnmReader GetOutput];
atext InterpolateOn;
planeActor SetTexture atext;
......@@ -34,7 +34,7 @@ $cam1 Elevation -30;
$cam1 Roll -20;
$renWin Render;
#$renWin SetFilename "TPlane.tcl.ppm";
#$renWin SetFileName "TPlane.tcl.ppm";
#$renWin SaveImageAsPPM;
# prevent the tk window from showing up then start the event loop
......
......@@ -92,7 +92,7 @@ $ren1 SetActiveCamera camera;
$renWin SetSize 500 500;
$renWin Render;
#$renWin SetFilename TenAxes.tcl.ppm;
#$renWin SetFileName TenAxes.tcl.ppm;
#$renWin SaveImageAsPPM;
$iren SetUserMethod {wm deiconify .vtkInteract};
......
......@@ -90,7 +90,7 @@ $renWin SetSize 450 450;
$renWin Render;
$iren SetUserMethod {wm deiconify .vtkInteract};
#$renWin SetFilename TenEllip.tcl.ppm;
#$renWin SetFileName TenEllip.tcl.ppm;
#$renWin SaveImageAsPPM;
# prevent the tk window from showing up then start the event loop
......
......@@ -51,7 +51,7 @@ set iren [$renWin MakeRenderWindowInteractor];
$iren SetUserMethod {wm deiconify .vtkInteract};
$iren Initialize;
#$renWin SetFilename VisQuad.tcl.ppm;
#$renWin SetFileName VisQuad.tcl.ppm;
#$renWin SaveImageAsPPM;
wm withdraw .;
......@@ -4,8 +4,8 @@ source "colors.tcl"
# cut data
vtkPLOT3DReader pl3d;
pl3d SetXYZFilename "../../data/combxyz.bin"
pl3d SetQFilename "../../data/combq.bin"
pl3d SetXYZFileName "../../data/combxyz.bin"
pl3d SetQFileName "../../data/combq.bin"
pl3d SetScalarFunctionNumber 100;
pl3d SetVectorFunctionNumber 202;
pl3d Update;
......
......@@ -14,7 +14,7 @@ set iren [$renWin MakeRenderWindowInteractor];
# read data
#
vtkStructuredPointsReader reader;
reader SetFilename "../../data/carotid.vtk"
reader SetFileName "../../data/carotid.vtk"
vtkThresholdPoints threshold;
threshold SetInput [reader GetOutput];
threshold ThresholdByUpper 200;
......@@ -35,56 +35,56 @@ vtkActor vectorActor;
# 8 texture maps
vtkStructuredPointsReader tmap1;
tmap1 SetFilename "../../data/vecTex/vecAnim1.vtk";
tmap1 SetFileName "../../data/vecTex/vecAnim1.vtk";
vtkTexture texture1;
texture1 SetInput [tmap1 GetOutput];
texture1 InterpolateOff;
texture1 RepeatOff;
vtkStructuredPointsReader tmap2;
tmap2 SetFilename "../../data/vecTex/vecAnim2.vtk";
tmap2 SetFileName "../../data/vecTex/vecAnim2.vtk";
vtkTexture texture2;
texture2 SetInput [tmap2 GetOutput];
texture2 InterpolateOff;
texture2 RepeatOff;
vtkStructuredPointsReader tmap3;
tmap3 SetFilename "../../data/vecTex/vecAnim3.vtk";
tmap3 SetFileName "../../data/vecTex/vecAnim3.vtk";
vtkTexture texture3;
texture3 SetInput [tmap3 GetOutput];
texture3 InterpolateOff;
texture3 RepeatOff;
vtkStructuredPointsReader tmap4;
tmap4 SetFilename "../../data/vecTex/vecAnim4.vtk";
tmap4 SetFileName "../../data/vecTex/vecAnim4.vtk";
vtkTexture texture4;
texture4 SetInput [tmap4 GetOutput];
texture4 InterpolateOff;
texture4 RepeatOff;
vtkStructuredPointsReader tmap5;
tmap5 SetFilename "../../data/vecTex/vecAnim5.vtk";
tmap5 SetFileName "../../data/vecTex/vecAnim5.vtk";
vtkTexture texture5;
texture5 SetInput [tmap5 GetOutput];
texture5 InterpolateOff;
texture5 RepeatOff;
vtkStructuredPointsReader tmap6;
tmap6 SetFilename "../../data/vecTex/vecAnim6.vtk";
tmap6 SetFileName "../../data/vecTex/vecAnim6.vtk";
vtkTexture texture6;
texture6 SetInput [tmap6 GetOutput];
texture6 InterpolateOff;
texture6 RepeatOff;
vtkStructuredPointsReader tmap7;
tmap7 SetFilename "../../data/vecTex/vecAnim7.vtk";
tmap7 SetFileName "../../data/vecTex/vecAnim7.vtk";
vtkTexture texture7;
texture7 SetInput [tmap7 GetOutput];
texture7 InterpolateOff;
texture7 RepeatOff;
vtkStructuredPointsReader tmap8;
tmap8 SetFilename "../../data/vecTex/vecAnim8.vtk";
tmap8 SetFileName "../../data/vecTex/vecAnim8.vtk";
vtkTexture texture8;
texture8 SetInput [tmap8 GetOutput];
texture8 InterpolateOff;
......@@ -130,5 +130,5 @@ for {set i 0} {$i<5} {incr i} {
vectorActor SetTexture texture8; $renWin Render;
}
#$renWin SetFilename animVectors.tcl.ppm;
#$renWin SetFileName animVectors.tcl.ppm;
#$renWin SaveImageAsPPM;
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