1package require vtk
2package require vtkinteraction
3vtkRenderer ren1
4  ren1 SetBackground 0 0 0
5vtkRenderWindow renWin
6  renWin AddRenderer ren1
7  renWin SetSize 300 300
8vtkRenderWindowInteractor iren
9  iren SetRenderWindow renWin
10
11vtkXYZMolReader pdb0
12  pdb0 SetFileName "$VTK_DATA_ROOT/Data/thio3xx.xyz"
13
14vtkSphereSource Sphere0
15  Sphere0 SetCenter 0 0 0
16  Sphere0 SetRadius 1
17  Sphere0 SetThetaResolution 8
18  Sphere0 SetStartTheta 0
19  Sphere0 SetEndTheta 360
20  Sphere0 SetPhiResolution 8
21  Sphere0 SetStartPhi 0
22  Sphere0 SetEndPhi 180
23
24vtkGlyph3D Glyph0
25  Glyph0 SetInputConnection [pdb0 GetOutputPort]
26  Glyph0 SetOrient 1
27  Glyph0 SetColorMode 1
28  #Glyph0 ScalingOn
29  Glyph0 SetScaleMode 2
30  Glyph0 SetScaleFactor .25
31  Glyph0 SetSourceConnection [Sphere0 GetOutputPort]
32
33vtkPolyDataMapper Mapper5
34  Mapper5 SetInputConnection [Glyph0 GetOutputPort]
35  Mapper5 SetImmediateModeRendering 1
36  Mapper5 UseLookupTableScalarRangeOff
37  Mapper5 SetScalarVisibility 1
38  Mapper5 SetScalarModeToDefault
39vtkLODActor Actor5
40  Actor5 SetMapper Mapper5
41  [Actor5 GetProperty] SetRepresentationToSurface
42  [Actor5 GetProperty] SetInterpolationToGouraud
43  [Actor5 GetProperty] SetAmbient 0.15
44  [Actor5 GetProperty] SetDiffuse 0.85
45  [Actor5 GetProperty] SetSpecular 0.1
46  [Actor5 GetProperty] SetSpecularPower 100
47  [Actor5 GetProperty] SetSpecularColor 1 1 1
48  [Actor5 GetProperty] SetColor 1 1 1
49  Actor5 SetNumberOfCloudPoints 30000
50
51ren1 AddActor Actor5
52
53vtkTubeFilter Tuber0
54  Tuber0 SetInputConnection [pdb0 GetOutputPort]
55  Tuber0 SetNumberOfSides 8
56  Tuber0 SetCapping 0
57  Tuber0 SetRadius 0.2
58  Tuber0 SetVaryRadius 0
59  Tuber0 SetRadiusFactor 10
60vtkPolyDataMapper Mapper7
61  Mapper7 SetInputConnection [Tuber0 GetOutputPort]
62  Mapper7 SetImmediateModeRendering 1
63  Mapper7 UseLookupTableScalarRangeOff
64  Mapper7 SetScalarVisibility 1
65  Mapper7 SetScalarModeToDefault
66vtkLODActor Actor7
67  Actor7 SetMapper Mapper7
68  [Actor7 GetProperty] SetRepresentationToSurface
69  [Actor7 GetProperty] SetInterpolationToGouraud
70  [Actor7 GetProperty] SetAmbient 0.15
71  [Actor7 GetProperty] SetDiffuse 0.85
72  [Actor7 GetProperty] SetSpecular 0.1
73  [Actor7 GetProperty] SetSpecularPower 100
74  [Actor7 GetProperty] SetSpecularColor 1 1 1
75  [Actor7 GetProperty] SetColor 1 1 1
76
77ren1 AddActor Actor7
78
79# enable user interface interactor
80#iren SetUserMethod {wm deiconify .vtkInteract}
81iren Initialize
82
83# prevent the tk window from showing up then start the event loop
84wm withdraw .
85