(bind-func gl_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)))