#lang scheme

(require fluxus-016/fluxus)
(provide setup-camera)

(define (setup-camera)
    (let ((sm 0.5))
        (set-screen-size (vector (* 1400 sm) (* sm 1050))))
    (set-camera-update #f)
    (set-camera-position (vector 0 0 -7.5))
    (set-camera (mmul 
            (mtranslate (vector 0 2.55 -7.5))
            (mrotate (vector -25 90 0))))
    (set-ortho-zoom -7.5)
    
    (let ((aspect (/ (vx (get-screen-size)) (vy (get-screen-size)))))
        (frustum (* -1 aspect) (* 1 aspect) -1 1)))