fix minimap stretch (#2593)

This commit is contained in:
ManDude 2023-04-30 04:23:56 +01:00 committed by GitHub
parent d67b95c68f
commit b37f255066
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23

View file

@ -1934,7 +1934,8 @@
(set! (-> v1-10 base) (&+ a0-8 48))
)
(let ((s3-1 (the-as object (-> s5-0 base))))
(let ((f30-0 (-> *video-params* relative-x-scale)))
;; PC PORT note : this fixes minimap stretching at non-4x3 aspeect ratio
(let ((f30-0 (#if PC_PORT 1.0 (-> *video-params* relative-x-scale))))
(set! (-> (the-as (pointer uint128) s3-1)) (-> obj draw2-tmpl dma-vif quad))
(set! (-> (the-as (pointer uint128) s3-1) 1) (-> obj draw2-tmpl quad 1))
(let ((s2-0 (new-stack-vector0)))