proc tclDisplayFunc {toglwin} {
    # Screen And Depth Buffer löschen
    glClear [expr {$::GL_COLOR_BUFFER_BIT | $::GL_DEPTH_BUFFER_BIT}]

    # Anfangsposition setzen
    glLoadIdentity        
    glTranslatef $::Posx $::Posy $::Posz
    glRotatef $::Rotx 1.0 0.0 0.0
    glRotatef $::Roty 0.0 1.0 0.0
    glRotatef $::Rotz 0.0 0.0 1.0

    # Displayliste abrufen
    glCallList $::displayliste

    $toglwin swapbuffers
}