let acc_perspective ~fovy ~aspect ~near ~far ~jitter_x ~jitter_y
                    ~eye_x ~eye_y ~focus ~viewport_w ~viewport_h =
    let fov2 = ((fovy *. pi) /. 180.0) /. 2.0 in
    let top = near /. ( (cos fov2) /. (sin fov2) ) in
    let bottom = 0.0 -. top in
    let right = top *. aspect in
    let left = 0.0 -. right in

    acc_frustrum ~left ~right ~bottom ~top ~near ~far ~jitter_x
                 ~jitter_y ~eye_x ~eye_y ~focus
                 ~viewport_w ~viewport_h