g/j2: fix hud positioning when in mirror mode (#3630)

Fixes #3627


![image](https://github.com/user-attachments/assets/32bf500f-0679-47b4-b64f-f3de7a4f3fdf)
This commit is contained in:
Tyler Wilding 2024-08-09 23:24:13 -04:00 committed by GitHub
parent a7d1336899
commit 1ba3fa7cda
No known key found for this signature in database
GPG Key ID: B5690EEEBB952194

View File

@ -588,10 +588,12 @@
(* (-> this icons v1-55 scale-x) (-> *video-params* relative-x-scale))
1.0
)
(if (-> *blit-displays-work* horizontal-flip-flag)
(set! (-> this icons v1-55 icon 0 root trans x) (the float (- 256 (-> this icons v1-55 pos 0))))
(set! (-> this icons v1-55 icon 0 root trans x) (the float (+ (-> this icons v1-55 pos 0) -256)))
)
;; og:preserve-this not needed with how mirror mode is currently being done
;; (if (-> *blit-displays-work* horizontal-flip-flag)
;; (set! (-> this icons v1-55 icon 0 root trans x) (the float (- 256 (-> this icons v1-55 pos 0))))
;; (set! (-> this icons v1-55 icon 0 root trans x) (the float (+ (-> this icons v1-55 pos 0) -256)))
;; )
(set! (-> this icons v1-55 icon 0 root trans x) (the float (+ (-> this icons v1-55 pos 0) -256)))
(set! (-> this icons v1-55 icon 0 root trans y) (the float (* (+ (-> this icons v1-55 pos 1) -208) 2)))
(set! (-> this icons v1-55 icon 0 root trans z) (the float (-> this icons v1-55 pos 2)))
)