(bind-func look-at (lambda (eyex eyey eyez centre-x centre-y centre-z up-x up-y up-z) (glLoadIdentity) (gluLookAt eyex eyey eyez centre-x centre-y centre-z up-x up-y up-z)))