#!/bin/sh
#Beispiel für die Verwendung von VTK 3.2,
#Author C. Zerbst email:zerbst@tu-harburg.de \
exec vtk "$0" "$@"

#Einlesen der Daten
vtkStructuredPointsReader reader
reader SetFileName "press03"
reader SetScalarsName "pressure"

#Erzeugen einer Oberfläche bei einem Wert von 1.0
vtkMarchingCubes iso
iso SetInput [reader GetOutput]
iso SetValue 0 1.0

#Bildet das Model auf graphische Primitive ab
vtkPolyDataMapper isoMapper
isoMapper SetInput [iso GetOutput]
isoMapper ScalarVisibilityOff

# Der Aktor 
vtkActor isoActor
isoActor SetMapper isoMapper

#Färbt die Oberfläche seegrün 
set isoProp [isoActor GetProperty]
$isoProp SetColor 0.1255 0.6980 0.6667 ;# X11 Farbe $sea_green_light
$isoProp SetAmbient 0.4


# Erzeugen des Renderes und des Fensters 
vtkRenderer ren1
ren1 AddActor isoActor
ren1 SetBackground 1 1 1

vtkRenderWindow renWin
renWin SetSize 600 480
renWin AddRenderer ren1

vtkRenderWindowInteractor iren
iren SetRenderWindow renWin

# Start der Darstellung
renWin Render