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