# Setzt ein paar Startwerte und erzeugt die Displayliste.
# Wird beim Erzeugen des Fensters augerufen
proc tclCreateFunc {toglwin} {
    # Schwarzer Hintergrund
    glClearColor 0.0 0.0 0.0 0.0 
    
    # Ein bischen Tuning
    glClearDepth 1.0            
    glEnable GL_DEPTH_TEST      
    glShadeModel GL_FLAT
    glDepthFunc GL_LEQUAL       
    glHint GL_PERSPECTIVE_CORRECTION_HINT GL_NICEST 

    # Displayliste einmalig erzeugen
    kugel 100
}