!/usr/bin/tclsh

# Vorstellung des Frontends 
puts "Willkommen bei poff, dem interaktiven Povray-Frontend"

# Aufforderung an den Nutzer 
puts "" 
puts "Geben Sie bitte den Namen der zu rendernden Datei ein"

# Einlesen der Nutzer-Eingabe 
gets stdin dateiname

# Erstellen des Namens für die Bilddatei 
set bildname [ file rootname $dateiname ] 
set bildname $bildname.tga

# Erfragen, ob Bildgroesse gewuenscht 
puts "Möchten Sie die Bildgröße eingeben (j/n)?" 
gets stdin bildgroesse

# Wenn Bildgroesse gewuenscht, dann erfragen 
if { [ string match j $bildgroesse ] } {

   puts "Geben Sie bitte die Breite des Bildes ein"    
   gets stdin bildbreite    
   puts "Geben Sie bitte die Höhe des Bildes ein"    
   gets stdin bildhoehe

   # Aufruf von povray mit Groessenangabe    
   exec povray +I$dateiname +O$bildname +W$bildbreite +H$bildhoehe &

} else {

   # Aufruf von povray ohne Groessenangabe    
   exec povray +I$dateiname +O$bildname &

}