From 9a66e649760fc2c12f2e53b820eba3876c1b497b Mon Sep 17 00:00:00 2001
From: Tyler Wilding <xtvaser@gmail.com>
Date: Sat, 20 Jul 2024 15:21:14 -0400
Subject: [PATCH] g/j1: adjust menu sprite positioning with a combination of
 manual alignment and approximation

---
 goal_src/goal-lib.gc                    |   4 +
 goal_src/jak1/pc/progress-pc.gc         | 552 ++++++++++++++++++++++++
 scripts/gsrc/jak1-sprite-adjustments.py | 279 ++++++++++++
 3 files changed, 835 insertions(+)
 create mode 100644 scripts/gsrc/jak1-sprite-adjustments.py

diff --git a/goal_src/goal-lib.gc b/goal_src/goal-lib.gc
index 6f67b58f6a..21073679db 100644
--- a/goal_src/goal-lib.gc
+++ b/goal_src/goal-lib.gc
@@ -1134,6 +1134,10 @@
   `(> (fabs (- ,val 0.0))
        0.000000000000000001))
 
+(defmacro fequal-epsilon? (a b epsilon)
+  `(< (fabs (- ,a ,b))
+      ,epsilon))
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;;; user stuf
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
diff --git a/goal_src/jak1/pc/progress-pc.gc b/goal_src/jak1/pc/progress-pc.gc
index c39634babb..a2f5f58116 100644
--- a/goal_src/jak1/pc/progress-pc.gc
+++ b/goal_src/jak1/pc/progress-pc.gc
@@ -1396,6 +1396,558 @@
 ;;---------------------------
 ;; function overrides
 
+;; NOTE - the following is generated from ./scripts/gsrc/jak1-sprite-adjust.py
+;; They are polynomials fit with manually adjusted values for all common aspect ratios
+;; so they can make a decent approximation interpolating between
+
+(defun pc-sprite-adjust-left ((aspect-ratio float))
+  (cond
+   ((fequal-epsilon? aspect-ratio 1.0 0.01) 20.0)
+   ((fequal-epsilon? aspect-ratio 1.25 0.01) 4.0)
+   ((fequal-epsilon? aspect-ratio 1.33 0.01) 0.0)
+   ((fequal-epsilon? aspect-ratio 1.5 0.01) -6.0)
+   ((fequal-epsilon? aspect-ratio 1.6 0.01) -10.0)
+   ((fequal-epsilon? aspect-ratio 1.78 0.01) -14.0)
+   ((fequal-epsilon? aspect-ratio 1.85 0.01) -16.0)
+   ((fequal-epsilon? aspect-ratio 2.33 0.01) -25.0)
+   ((fequal-epsilon? aspect-ratio 2.35 0.01) -26.0)
+   ((fequal-epsilon? aspect-ratio 3.56 0.01) -37.0)
+   (else
+    (+ 121.37227965381875
+     (* -145.13874571806738 aspect-ratio)
+     (* 48.695824268929236 aspect-ratio aspect-ratio)
+     (* -5.737940185600177 aspect-ratio aspect-ratio aspect-ratio)))))
+
+(defun pc-sprite-adjust-right ((aspect-ratio float))
+  (cond
+   ((fequal-epsilon? aspect-ratio 1.0 0.01) -33.0)
+   ((fequal-epsilon? aspect-ratio 1.25 0.01) -6.0)
+   ((fequal-epsilon? aspect-ratio 1.33 0.01) 0.0)
+   ((fequal-epsilon? aspect-ratio 1.5 0.01) 12.0)
+   ((fequal-epsilon? aspect-ratio 1.6 0.01) 18.0)
+   ((fequal-epsilon? aspect-ratio 1.78 0.01) 26.0)
+   ((fequal-epsilon? aspect-ratio 1.85 0.01) 29.0)
+   ((fequal-epsilon? aspect-ratio 2.33 0.01) 45.0)
+   ((fequal-epsilon? aspect-ratio 2.35 0.01) 46.0)
+   ((fequal-epsilon? aspect-ratio 3.56 0.01) 65.0)
+   (else
+    (+ -205.4294994422315
+     (* 245.07283711809043 aspect-ratio)
+     (* -81.04347133064093 aspect-ratio aspect-ratio)
+     (* 9.423126530695802 aspect-ratio aspect-ratio aspect-ratio))))) 
+
+(defun pc-sprite-adjust-cross-x ((aspect-ratio float))
+  (cond
+   ((fequal-epsilon? aspect-ratio 1.0 0.01) -20.0)
+   ((fequal-epsilon? aspect-ratio 1.25 0.01) -5.0)
+   ((fequal-epsilon? aspect-ratio 1.33 0.01) 0.0)
+   ((fequal-epsilon? aspect-ratio 1.5 0.01) 5.0)
+   ((fequal-epsilon? aspect-ratio 1.6 0.01) 8.0)
+   ((fequal-epsilon? aspect-ratio 1.78 0.01) 15.0)
+   ((fequal-epsilon? aspect-ratio 1.85 0.01) 17.0)
+   ((fequal-epsilon? aspect-ratio 2.33 0.01) 30.0)
+   ((fequal-epsilon? aspect-ratio 2.35 0.01) 30.0)
+   ((fequal-epsilon? aspect-ratio 3.56 0.01) 45.0)
+   (else
+    (+ -98.75041386103345
+     (* 104.4004528706783 aspect-ratio)
+     (* -27.27525895954647 aspect-ratio aspect-ratio)
+     (* 2.6112419651912617 aspect-ratio aspect-ratio aspect-ratio)))))
+
+(defun pc-sprite-adjust-cross-y ((aspect-ratio float))
+  (cond
+   ((fequal-epsilon? aspect-ratio 1.0 0.01) -20.0)
+   ((fequal-epsilon? aspect-ratio 1.25 0.01) 0.0)
+   ((fequal-epsilon? aspect-ratio 1.33 0.01) 0.0)
+   ((fequal-epsilon? aspect-ratio 1.5 0.01) 0.0)
+   ((fequal-epsilon? aspect-ratio 1.6 0.01) 5.0)
+   ((fequal-epsilon? aspect-ratio 1.78 0.01) 10.0)
+   ((fequal-epsilon? aspect-ratio 1.85 0.01) 10.0)
+   ((fequal-epsilon? aspect-ratio 2.33 0.01) 20.0)
+   ((fequal-epsilon? aspect-ratio 2.35 0.01) 20.0)
+   ((fequal-epsilon? aspect-ratio 3.56 0.01) 25.0)
+   (else
+    (+ -92.55990871923132
+     (* 104.71302956908977 aspect-ratio)
+     (* -32.46993312399963 aspect-ratio aspect-ratio)
+     (* 3.4672700107735115 aspect-ratio aspect-ratio aspect-ratio)))))
+
+(defun pc-sprite-adjust-square-x ((aspect-ratio float))
+  (cond
+   ((fequal-epsilon? aspect-ratio 1.0 0.01) -5.0)
+   ((fequal-epsilon? aspect-ratio 1.25 0.01) 0.0)
+   ((fequal-epsilon? aspect-ratio 1.33 0.01) 0.0)
+   ((fequal-epsilon? aspect-ratio 1.5 0.01) 5.0)
+   ((fequal-epsilon? aspect-ratio 1.6 0.01) 5.0)
+   ((fequal-epsilon? aspect-ratio 1.78 0.01) 8.0)
+   ((fequal-epsilon? aspect-ratio 1.85 0.01) 8.0)
+   ((fequal-epsilon? aspect-ratio 2.33 0.01) 15.0)
+   ((fequal-epsilon? aspect-ratio 2.35 0.01) 15.0)
+   ((fequal-epsilon? aspect-ratio 3.56 0.01) 17.0)
+   (else
+    (+ -22.034620779370684
+     (* 15.66980500404166 aspect-ratio)
+     (* 2.6395010789749374 aspect-ratio aspect-ratio)
+     (* -1.1122480459486384 aspect-ratio aspect-ratio aspect-ratio)))))
+
+(defun pc-sprite-adjust-square-y ((aspect-ratio float))
+  (cond
+   ((fequal-epsilon? aspect-ratio 1.0 0.01) -10.0)
+   ((fequal-epsilon? aspect-ratio 1.25 0.01) 0.0)
+   ((fequal-epsilon? aspect-ratio 1.33 0.01) 0.0)
+   ((fequal-epsilon? aspect-ratio 1.5 0.01) 0.0)
+   ((fequal-epsilon? aspect-ratio 1.6 0.01) 0.0)
+   ((fequal-epsilon? aspect-ratio 1.78 0.01) 10.0)
+   ((fequal-epsilon? aspect-ratio 1.85 0.01) 10.0)
+   ((fequal-epsilon? aspect-ratio 2.33 0.01) 15.0)
+   ((fequal-epsilon? aspect-ratio 2.35 0.01) 15.0)
+   ((fequal-epsilon? aspect-ratio 3.56 0.01) 15.0)
+   (else
+    (+ -35.887413062108386
+     (* 28.768844269882614 aspect-ratio)
+     (* -0.854904339304392 aspect-ratio aspect-ratio)
+     (* -0.9020647898186882 aspect-ratio aspect-ratio aspect-ratio)))))
+
+(defun pc-sprite-adjust-triangle-x ((aspect-ratio float))
+  (cond
+   ((fequal-epsilon? aspect-ratio 1.0 0.01) 0.0)
+   ((fequal-epsilon? aspect-ratio 1.25 0.01) 0.0)
+   ((fequal-epsilon? aspect-ratio 1.33 0.01) 0.0)
+   ((fequal-epsilon? aspect-ratio 1.5 0.01) 0.0)
+   ((fequal-epsilon? aspect-ratio 1.6 0.01) 0.0)
+   ((fequal-epsilon? aspect-ratio 1.78 0.01) 0.0)
+   ((fequal-epsilon? aspect-ratio 1.85 0.01) 0.0)
+   ((fequal-epsilon? aspect-ratio 2.33 0.01) 2.0)
+   ((fequal-epsilon? aspect-ratio 2.35 0.01) 2.0)
+   ((fequal-epsilon? aspect-ratio 3.56 0.01) 3.0)
+   (else
+    (+ 9.074933988821043
+     (* -16.012653345486786 aspect-ratio)
+     (* 8.413647131791468 aspect-ratio aspect-ratio)
+     (* -1.2341491172835792 aspect-ratio aspect-ratio aspect-ratio)))))
+
+(defun pc-sprite-adjust-triangle-y ((aspect-ratio float))
+  (cond
+   ((fequal-epsilon? aspect-ratio 1.0 0.01) 0.0)
+   ((fequal-epsilon? aspect-ratio 1.25 0.01) 0.0)
+   ((fequal-epsilon? aspect-ratio 1.33 0.01) 0.0)
+   ((fequal-epsilon? aspect-ratio 1.5 0.01) 0.0)
+   ((fequal-epsilon? aspect-ratio 1.6 0.01) 0.0)
+   ((fequal-epsilon? aspect-ratio 1.78 0.01) 0.0)
+   ((fequal-epsilon? aspect-ratio 1.85 0.01) 0.0)
+   ((fequal-epsilon? aspect-ratio 2.33 0.01) 5.0)
+   ((fequal-epsilon? aspect-ratio 2.35 0.01) 5.0)
+   ((fequal-epsilon? aspect-ratio 3.56 0.01) 5.0)
+   (else
+    (+ 24.319264777517994
+     (* -43.26989970602368 aspect-ratio)
+     (* 23.07604741978599 aspect-ratio aspect-ratio)
+     (* -3.494974989657488 aspect-ratio aspect-ratio aspect-ratio)))))
+
+(defun pc-sprite-adjust-circle-x ((aspect-ratio float))
+  (cond
+   ((fequal-epsilon? aspect-ratio 1.0 0.01) 0.0)
+   ((fequal-epsilon? aspect-ratio 1.25 0.01) 0.0)
+   ((fequal-epsilon? aspect-ratio 1.33 0.01) 0.0)
+   ((fequal-epsilon? aspect-ratio 1.5 0.01) 0.0)
+   ((fequal-epsilon? aspect-ratio 1.6 0.01) 0.0)
+   ((fequal-epsilon? aspect-ratio 1.78 0.01) 0.0)
+   ((fequal-epsilon? aspect-ratio 1.85 0.01) 0.0)
+   ((fequal-epsilon? aspect-ratio 2.33 0.01) 2.0)
+   ((fequal-epsilon? aspect-ratio 2.35 0.01) 2.0)
+   ((fequal-epsilon? aspect-ratio 3.56 0.01) 5.0)
+   (else
+    (+ 7.769390144448719
+     (* -13.422040271641388 aspect-ratio)
+     (* 6.780103459545601 aspect-ratio aspect-ratio)
+     (* -0.9064673601247457 aspect-ratio aspect-ratio aspect-ratio)))))
+
+(defun pc-sprite-adjust-circle-y ((aspect-ratio float))
+  (cond
+   ((fequal-epsilon? aspect-ratio 1.0 0.01) 0.0)
+   ((fequal-epsilon? aspect-ratio 1.25 0.01) 0.0)
+   ((fequal-epsilon? aspect-ratio 1.33 0.01) 0.0)
+   ((fequal-epsilon? aspect-ratio 1.5 0.01) 0.0)
+   ((fequal-epsilon? aspect-ratio 1.6 0.01) 0.0)
+   ((fequal-epsilon? aspect-ratio 1.78 0.01) 0.0)
+   ((fequal-epsilon? aspect-ratio 1.85 0.01) 0.0)
+   ((fequal-epsilon? aspect-ratio 2.33 0.01) -7.0)
+   ((fequal-epsilon? aspect-ratio 2.35 0.01) -7.0)
+   ((fequal-epsilon? aspect-ratio 3.56 0.01) -10.0)
+   (else
+    (+ -32.088654921966715
+     (* 56.69193997766507 aspect-ratio)
+     (* -29.856150879331594 aspect-ratio aspect-ratio)
+     (* 4.401442349782235 aspect-ratio aspect-ratio aspect-ratio))))) 
+
+(defun pc-sprite-adjust-percent-x ((aspect-ratio float))
+  (cond
+   ((fequal-epsilon? aspect-ratio 1.0 0.01) 0.0)
+   ((fequal-epsilon? aspect-ratio 1.25 0.01) 0.0)
+   ((fequal-epsilon? aspect-ratio 1.33 0.01) 0.0)
+   ((fequal-epsilon? aspect-ratio 1.5 0.01) 12.0)
+   ((fequal-epsilon? aspect-ratio 1.6 0.01) 12.0)
+   ((fequal-epsilon? aspect-ratio 1.78 0.01) 15.0)
+   ((fequal-epsilon? aspect-ratio 1.85 0.01) 15.0)
+   ((fequal-epsilon? aspect-ratio 2.33 0.01) 18.0)
+   ((fequal-epsilon? aspect-ratio 2.35 0.01) 18.0)
+   ((fequal-epsilon? aspect-ratio 3.56 0.01) 25.0)
+   (else
+    (+ -46.209527361482614
+     (* 59.19334582683605 aspect-ratio)
+     (* -17.978708435875035 aspect-ratio aspect-ratio)
+     (* 1.9546083242648873 aspect-ratio aspect-ratio aspect-ratio)))))
+
+(defun pc-sprite-adjust-autosave-x ((aspect-ratio float))
+  (cond
+   ((fequal-epsilon? aspect-ratio 1.0 0.01) 0.0)
+   ((fequal-epsilon? aspect-ratio 1.25 0.01) 0.0)
+   ((fequal-epsilon? aspect-ratio 1.33 0.01) 0.0)
+   ((fequal-epsilon? aspect-ratio 1.5 0.01) 10.0)
+   ((fequal-epsilon? aspect-ratio 1.6 0.01) 10.0)
+   ((fequal-epsilon? aspect-ratio 1.78 0.01) 10.0)
+   ((fequal-epsilon? aspect-ratio 1.85 0.01) 10.0)
+   ((fequal-epsilon? aspect-ratio 2.33 0.01) 15.0)
+   ((fequal-epsilon? aspect-ratio 2.35 0.01) 15.0)
+   ((fequal-epsilon? aspect-ratio 3.56 0.01) 18.0)
+   (else
+    (+ -25.454818080453748
+     (* 28.58764000115764 aspect-ratio)
+     (* -5.122397663089315 aspect-ratio aspect-ratio)
+     (* 0.1450488213340339 aspect-ratio aspect-ratio aspect-ratio)))))
+
+(defun pc-sprite-adjust-orb-x ((aspect-ratio float))
+  (cond
+   ((fequal-epsilon? aspect-ratio 1.0 0.01) 0.0)
+   ((fequal-epsilon? aspect-ratio 1.25 0.01) 0.0)
+   ((fequal-epsilon? aspect-ratio 1.33 0.01) 0.0)
+   ((fequal-epsilon? aspect-ratio 1.5 0.01) 0.0)
+   ((fequal-epsilon? aspect-ratio 1.6 0.01) 0.0)
+   ((fequal-epsilon? aspect-ratio 1.78 0.01) 0.0)
+   ((fequal-epsilon? aspect-ratio 1.85 0.01) 0.0)
+   ((fequal-epsilon? aspect-ratio 2.33 0.01) 0.0)
+   ((fequal-epsilon? aspect-ratio 2.35 0.01) 0.0)
+   ((fequal-epsilon? aspect-ratio 3.56 0.01) 5.0)
+   (else
+    (+ -3.26385961093079
+     (* 6.476532684613467 aspect-ratio)
+     (* -4.083859180614655 aspect-ratio aspect-ratio)
+     (* 0.819204392897082 aspect-ratio aspect-ratio aspect-ratio))))) 
+
+(defun pc-sprite-adjust-orb-glow-x ((aspect-ratio float))
+  (cond
+   ((fequal-epsilon? aspect-ratio 1.0 0.01) 0.0)
+   ((fequal-epsilon? aspect-ratio 1.25 0.01) 0.0)
+   ((fequal-epsilon? aspect-ratio 1.33 0.01) 0.0)
+   ((fequal-epsilon? aspect-ratio 1.5 0.01) 0.0)
+   ((fequal-epsilon? aspect-ratio 1.6 0.01) 0.0)
+   ((fequal-epsilon? aspect-ratio 1.78 0.01) 0.0)
+   ((fequal-epsilon? aspect-ratio 1.85 0.01) 0.0)
+   ((fequal-epsilon? aspect-ratio 2.33 0.01) 0.0)
+   ((fequal-epsilon? aspect-ratio 2.35 0.01) 0.0)
+   ((fequal-epsilon? aspect-ratio 3.56 0.01) 4.0)
+   (else
+    (+ -2.6110876887446324
+     (* 5.181226147690773 aspect-ratio)
+     (* -3.267087344491723 aspect-ratio aspect-ratio)
+     (* 0.6553635143176653 aspect-ratio aspect-ratio aspect-ratio)))))
+
+(defun pc-sprite-adjust-orb-text-x ((aspect-ratio float))
+  (cond
+   ((fequal-epsilon? aspect-ratio 1.0 0.01) 0.0)
+   ((fequal-epsilon? aspect-ratio 1.25 0.01) 0.0)
+   ((fequal-epsilon? aspect-ratio 1.33 0.01) 0.0)
+   ((fequal-epsilon? aspect-ratio 1.5 0.01) 0.0)
+   ((fequal-epsilon? aspect-ratio 1.6 0.01) 0.0)
+   ((fequal-epsilon? aspect-ratio 1.78 0.01) 0.0)
+   ((fequal-epsilon? aspect-ratio 1.85 0.01) 0.0)
+   ((fequal-epsilon? aspect-ratio 2.33 0.01) 0.0)
+   ((fequal-epsilon? aspect-ratio 2.35 0.01) 0.0)
+   ((fequal-epsilon? aspect-ratio 3.56 0.01) 10.0)
+   (else
+    (+ -6.52771922186158
+     (* 12.953065369226934 aspect-ratio)
+     (* -8.16771836122931 aspect-ratio aspect-ratio)
+     (* 1.638408785794164 aspect-ratio aspect-ratio aspect-ratio))))) 
+
+(defun pc-sprite-adjust-cell-x ((aspect-ratio float))
+  (cond
+   ((fequal-epsilon? aspect-ratio 1.0 0.01) 0.0)
+   ((fequal-epsilon? aspect-ratio 1.25 0.01) 0.0)
+   ((fequal-epsilon? aspect-ratio 1.33 0.01) 0.0)
+   ((fequal-epsilon? aspect-ratio 1.5 0.01) 0.0)
+   ((fequal-epsilon? aspect-ratio 1.6 0.01) 0.0)
+   ((fequal-epsilon? aspect-ratio 1.78 0.01) 0.0)
+   ((fequal-epsilon? aspect-ratio 1.85 0.01) 0.0)
+   ((fequal-epsilon? aspect-ratio 2.33 0.01) 0.0)
+   ((fequal-epsilon? aspect-ratio 2.35 0.01) 0.0)
+   ((fequal-epsilon? aspect-ratio 3.56 0.01) -10.0)
+   (else
+    (+ 6.52771922186158
+     (* -12.953065369226934 aspect-ratio)
+     (* 8.16771836122931 aspect-ratio aspect-ratio)
+     (* -1.638408785794164 aspect-ratio aspect-ratio aspect-ratio)))))
+
+(defun pc-sprite-adjust-cell-text-x ((aspect-ratio float))
+  (cond
+   ((fequal-epsilon? aspect-ratio 1.0 0.01) 0.0)
+   ((fequal-epsilon? aspect-ratio 1.25 0.01) 0.0)
+   ((fequal-epsilon? aspect-ratio 1.33 0.01) 0.0)
+   ((fequal-epsilon? aspect-ratio 1.5 0.01) 0.0)
+   ((fequal-epsilon? aspect-ratio 1.6 0.01) 0.0)
+   ((fequal-epsilon? aspect-ratio 1.78 0.01) 0.0)
+   ((fequal-epsilon? aspect-ratio 1.85 0.01) 0.0)
+   ((fequal-epsilon? aspect-ratio 2.33 0.01) 0.0)
+   ((fequal-epsilon? aspect-ratio 2.35 0.01) 0.0)
+   ((fequal-epsilon? aspect-ratio 3.56 0.01) 2.0)
+   (else
+    (+ -1.3055438443723162
+     (* 2.5906130738453865 aspect-ratio)
+     (* -1.6335436722458616 aspect-ratio aspect-ratio)
+     (* 0.32768175715883263 aspect-ratio aspect-ratio aspect-ratio)))))
+
+(defun pc-sprite-adjust-buzzer-text-x ((aspect-ratio float))
+  (cond
+   ((fequal-epsilon? aspect-ratio 1.0 0.01) 0.0)
+   ((fequal-epsilon? aspect-ratio 1.25 0.01) 0.0)
+   ((fequal-epsilon? aspect-ratio 1.33 0.01) 0.0)
+   ((fequal-epsilon? aspect-ratio 1.5 0.01) 0.0)
+   ((fequal-epsilon? aspect-ratio 1.6 0.01) 0.0)
+   ((fequal-epsilon? aspect-ratio 1.78 0.01) 0.0)
+   ((fequal-epsilon? aspect-ratio 1.85 0.01) 0.0)
+   ((fequal-epsilon? aspect-ratio 2.33 0.01) 0.0)
+   ((fequal-epsilon? aspect-ratio 2.35 0.01) 0.0)
+   ((fequal-epsilon? aspect-ratio 3.56 0.01) -5.0)
+   (else
+    (+ 3.26385961093079
+     (* -6.476532684613467 aspect-ratio)
+     (* 4.083859180614655 aspect-ratio aspect-ratio)
+     (* -0.819204392897082 aspect-ratio aspect-ratio aspect-ratio)))))
+
+(defun pc-sprite-adjust-options-text-x ((aspect-ratio float))
+  (cond
+   ((fequal-epsilon? aspect-ratio 1.0 0.01) 0.0)
+   ((fequal-epsilon? aspect-ratio 1.25 0.01) 0.0)
+   ((fequal-epsilon? aspect-ratio 1.33 0.01) 0.0)
+   ((fequal-epsilon? aspect-ratio 1.5 0.01) 0.0)
+   ((fequal-epsilon? aspect-ratio 1.6 0.01) 0.0)
+   ((fequal-epsilon? aspect-ratio 1.78 0.01) 0.0)
+   ((fequal-epsilon? aspect-ratio 1.85 0.01) 0.0)
+   ((fequal-epsilon? aspect-ratio 2.33 0.01) 0.0)
+   ((fequal-epsilon? aspect-ratio 2.35 0.01) 0.0)
+   ((fequal-epsilon? aspect-ratio 3.56 0.01) 3.0)
+   (else
+    (+ -1.9583157665584714
+     (* 3.885919610768078 aspect-ratio)
+     (* -2.450315508368792 aspect-ratio aspect-ratio)
+     (* 0.491522635738249 aspect-ratio aspect-ratio aspect-ratio)))))
+
+(define *PC-CROSS-X-ADJUST* 0.0)
+(define *PC-CROSS-Y-ADJUST* 0.0)
+(define *PC-SQUARE-X-ADJUST* 0.0)
+(define *PC-SQUARE-Y-ADJUST* 0.0)
+(define *PC-TRIANGLE-X-ADJUST* 0.0)
+(define *PC-TRIANGLE-Y-ADJUST* 0.0)
+(define *PC-CIRCLE-X-ADJUST* 0.0)
+(define *PC-CIRCLE-Y-ADJUST* 0.0)
+(define *PC-PERCENT-X-ADJUST* 0.0)
+(define *PC-AUTOSAVE-X-ADJUST* 0.0)
+(define *PC-ORB-X-ADJUST* 0.0)
+(define *PC-ORB-GLOW-X-ADJUST* 0.0)
+(define *PC-ORB-TEXT-X-ADJUST* 0.0)
+(define *PC-CELL-X-ADJUST* 0.0)
+(define *PC-CELL-TEXT-X-ADJUST* 0.0)
+(define *PC-BUZZER-TEXT-X-ADJUST* 0.0)
+(define *PC-OPTIONS-TEXT-X-ADJUST* 0.0)
+
+(defmethod adjust-ratios ((this progress) (aspect symbol) (video-mode symbol))
+  (case aspect
+    (('aspect4x3)
+     (set! (-> this sides-x-scale) 1.0)
+     (set! (-> this sides-y-scale) 13.0)
+     (set! (-> this left-x-offset) 0)
+     (set! (-> this right-x-offset) 0)
+     (set! (-> this button-scale) 1.0)
+     (set! (-> this slot-scale) 8192.0)
+     (set! (-> this small-orb-y-offset) 58)
+     (set! (-> this icons 5 scale-x) 0.008)
+     (set! (-> this icons 5 scale-y) -0.009)
+     (set! (-> this big-orb-y-offset) 243)
+     (set! (-> this icons 4 scale-x) 0.013)
+     (set! (-> this icons 4 scale-y) -0.015))
+    (('aspect16x9)
+     (set! (-> this sides-x-scale) 1.2)
+     (set! (-> this sides-y-scale) 9.8)
+     (set! (-> this left-x-offset) -10)
+     (set! (-> this right-x-offset) 17)
+     (set! (-> this button-scale) 1.05)
+     (set! (-> this slot-scale) 6144.0)
+     (set! (-> this small-orb-y-offset) 59)
+     (set! (-> this icons 5 scale-x) 0.008)
+     (set! (-> this icons 5 scale-y) -0.0098)
+     (set! (-> this big-orb-y-offset) 255)
+     (set! (-> this icons 4 scale-x) 0.017)
+     (set! (-> this icons 4 scale-y) -0.0205)))
+  (when (not (-> *pc-settings* use-vis?))
+    (format 0 "[PC] Adjusting sprite positioning, aspect-ratio: ~f~%" (-> *pc-settings* aspect-ratio))
+    (set! (-> this left-x-offset) (the int (pc-sprite-adjust-left (-> *pc-settings* aspect-ratio))))
+    (set! (-> this right-x-offset) (the int (pc-sprite-adjust-right (-> *pc-settings* aspect-ratio))))
+    (set! *PC-CROSS-X-ADJUST* (pc-sprite-adjust-cross-x (-> *pc-settings* aspect-ratio)))
+    (set! *PC-CROSS-Y-ADJUST* (pc-sprite-adjust-cross-y (-> *pc-settings* aspect-ratio)))
+    (set! *PC-SQUARE-X-ADJUST* (pc-sprite-adjust-square-x (-> *pc-settings* aspect-ratio)))
+    (set! *PC-SQUARE-Y-ADJUST* (pc-sprite-adjust-square-y (-> *pc-settings* aspect-ratio)))
+    (set! *PC-TRIANGLE-X-ADJUST* (pc-sprite-adjust-triangle-x (-> *pc-settings* aspect-ratio)))
+    (set! *PC-TRIANGLE-Y-ADJUST* (pc-sprite-adjust-triangle-y (-> *pc-settings* aspect-ratio)))
+    (set! *PC-CIRCLE-X-ADJUST* (pc-sprite-adjust-circle-x (-> *pc-settings* aspect-ratio)))
+    (set! *PC-CIRCLE-Y-ADJUST* (pc-sprite-adjust-circle-y (-> *pc-settings* aspect-ratio)))
+    (set! *PC-PERCENT-X-ADJUST* (pc-sprite-adjust-percent-x (-> *pc-settings* aspect-ratio)))
+    (set! *PC-AUTOSAVE-X-ADJUST* (pc-sprite-adjust-autosave-x (-> *pc-settings* aspect-ratio)))
+    (set! *PC-ORB-X-ADJUST* (pc-sprite-adjust-orb-x (-> *pc-settings* aspect-ratio)))
+    (set! *PC-ORB-GLOW-X-ADJUST* (pc-sprite-adjust-orb-glow-x (-> *pc-settings* aspect-ratio)))
+    (set! *PC-ORB-TEXT-X-ADJUST* (pc-sprite-adjust-orb-text-x (-> *pc-settings* aspect-ratio)))
+    (set! *PC-CELL-X-ADJUST* (pc-sprite-adjust-cell-x (-> *pc-settings* aspect-ratio)))
+    (set! *PC-CELL-TEXT-X-ADJUST* (pc-sprite-adjust-cell-text-x (-> *pc-settings* aspect-ratio)))
+    (set! *PC-BUZZER-TEXT-X-ADJUST* (pc-sprite-adjust-buzzer-text-x (-> *pc-settings* aspect-ratio)))
+    (set! *PC-OPTIONS-TEXT-X-ADJUST* (pc-sprite-adjust-options-text-x (-> *pc-settings* aspect-ratio))))
+  (when (= video-mode 'pal)
+    (set! (-> this icons 5 scale-y) (* 1.15 (-> this icons 5 scale-y)))
+    (set! (-> this icons 4 scale-x) (* 1.05 (-> this icons 4 scale-x)))
+    (set! (-> this icons 4 scale-y) (* (-> this icons 4 scale-y) (the-as float (if (= aspect 'aspect16x9) 1.18 1.15))))
+    (+! (-> this big-orb-y-offset) (if (= aspect 'aspect16x9) 3 2)))
+  0
+  (none))
+
+(defmethod draw-progress ((this progress))
+  (let ((f30-0 (+ -409.0 (-> this particles 2 init-pos x) (* 0.8 (the float (-> this left-x-offset)))))
+        (s5-0 (if (or (-> this stat-transition) (nonzero? (-> this level-transition))) 0 (-> this transition-offset))))
+    (let ((f28-0 (if (or (-> this stat-transition) (nonzero? (-> this level-transition))) 1.0 (-> this transition-percentage-invert))))
+      (let* ((s3-0 (-> *display* frames (-> *display* on-screen) frame global-buf))
+             (s4-0 (-> s3-0 base)))
+        (let ((s2-0 draw-string-xy))
+          (format (clear *temp-string*) "~D" (the int (+ 0.5 (-> *target* game money))))
+          (s2-0 *temp-string*
+                s3-0
+                (the int (+ *PC-ORB-TEXT-X-ADJUST* 428.0 (the float s5-0) f30-0))
+                (- 12 (the int (* 0.16666667 f30-0)))
+                (font-color default)
+                (font-flags shadow kerning large)))
+        (let ((s2-1 draw-string-xy))
+          (format (clear *temp-string*) "~D" (the int (+ 0.5 (-> *target* game fuel))))
+          (s2-1 *temp-string*
+                s3-0
+                (the int (+ *PC-CELL-TEXT-X-ADJUST* 456.0 (the float (adjust-pos s5-0 50)) f30-0))
+                (- 48 (the int (* 0.125 f30-0)))
+                (font-color default)
+                (font-flags shadow kerning large)))
+        (let ((s2-2 draw-string-xy))
+          (format (clear *temp-string*) "~D" (the int (+ 0.5 (-> *target* fact buzzer))))
+          (s2-2 *temp-string*
+                s3-0
+                (the int (+ *PC-BUZZER-TEXT-X-ADJUST* 469.0 (the float (adjust-pos s5-0 100)) f30-0))
+                89
+                (font-color default)
+                (font-flags shadow kerning large)))
+        (let ((a3-4 (-> s3-0 base)))
+          (let ((v1-20 (the-as object (-> s3-0 base))))
+            (set! (-> (the-as dma-packet v1-20) dma) (new 'static 'dma-tag :id (dma-tag-id next)))
+            (set! (-> (the-as dma-packet v1-20) vif0) (new 'static 'vif-tag))
+            (set! (-> (the-as dma-packet v1-20) vif1) (new 'static 'vif-tag))
+            (set! (-> s3-0 base) (&+ (the-as pointer v1-20) 16)))
+          (dma-bucket-insert-tag (-> *display* frames (-> *display* on-screen) frame bucket-group)
+                                 (bucket-id debug)
+                                 s4-0
+                                 (the-as (pointer dma-tag) a3-4))))
+      (let ((s4-2 (new 'stack
+                       'font-context
+                       *font-default-matrix*
+                       (the int (+ *PC-OPTIONS-TEXT-X-ADJUST* (- 423.0 (the float (/ (-> this left-x-offset) 2))) f30-0 (the float (adjust-pos s5-0 150))))
+                       131
+                       0.0
+                       (font-color default)
+                       (font-flags shadow kerning))))
+        (let ((v1-29 s4-2)) (set! (-> v1-29 width) (the float 100)))
+        (let ((v1-30 s4-2)) (set! (-> v1-30 height) (the float 15)))
+        (let ((v1-31 s4-2)) (set! (-> v1-31 scale) 0.5))
+        (set! (-> s4-2 flags) (font-flags shadow kerning large))
+        (print-game-text (lookup-text! *common-text* (text-id options) #f) s4-2 #f 128 22)
+        (let ((v1-34 s4-2)) (set! (-> v1-34 width) (the float 160)))
+        (let ((v1-35 s4-2)) (set! (-> v1-35 height) (the float 22)))
+        (let ((v1-36 s4-2)) (set! (-> v1-36 scale) 1.3))
+        (let ((a0-31 s4-2)) (set! (-> a0-31 color) (font-color progress-percent)))
+        (set! (-> s4-2 origin x)
+              (+ *PC-PERCENT-X-ADJUST* (- 435.0 (the float (if (< (-> *progress-process* 0 completion-percentage) 10.0) 93 80))) f30-0))
+        (set! (-> s4-2 origin y) 180.0)
+        (set! (-> s4-2 flags) (font-flags shadow kerning middle middle-vert large))
+        (let ((s3-3 print-game-text))
+          (format (clear *temp-string*) "~2D%" (the int (-> *progress-process* 0 completion-percentage)))
+          (s3-3 *temp-string* s4-2 #f (the int (* 128.0 f28-0)) 22))))
+    0.0
+    (let ((f28-1 (+ -94.0 (-> this particles 2 init-pos x)))
+          (s3-4 90)
+          (s4-3 224)
+          (s2-5 (/ s5-0 5))
+          (f26-3 (-> this button-scale)))
+      ;; CROSS
+      (let ((f24-0 (* 182.04445 (- (/ -36.0 f26-3) (the float s2-5)))))
+        (set! (-> this particles 27 init-pos x) (+ *PC-CROSS-X-ADJUST* (the float (+ s3-4 (the int (* f28-1 (cos f24-0)))))))
+        (set! (-> this particles 27 init-pos y) (+ *PC-CROSS-Y-ADJUST* (the float (+ s4-3 (the int (* f28-1 (sin f24-0))))))))
+      ;; SQUARE
+      (let ((f24-2 (* 182.04445 (- (/ -21.0 f26-3) (the float (adjust-pos s2-5 10))))))
+        (set! (-> this particles 28 init-pos x) (+ *PC-SQUARE-X-ADJUST* (the float (+ s3-4 (the int (* f28-1 (cos f24-2)))))))
+        (set! (-> this particles 28 init-pos y) (+ *PC-SQUARE-Y-ADJUST* (the float (+ s4-3 (the int (* f28-1 (sin f24-2))))))))
+      ;; TRIANGLE
+      (let ((f24-4 (* 182.04445 (- (/ -6.0 f26-3) (the float (adjust-pos s2-5 15))))))
+        (set! (-> this particles 29 init-pos x) (+ *PC-TRIANGLE-X-ADJUST* (the float (+ s3-4 (the int (* f28-1 (cos f24-4)))))))
+        (set! (-> this particles 29 init-pos y) (+ *PC-TRIANGLE-Y-ADJUST* (the float (+ s4-3 (the int (* f28-1 (sin f24-4))))))))
+      ;; CIRCLE
+      (let ((f26-5 (* 182.04445 (- (/ 9.0 f26-3) (the float (adjust-pos s2-5 20))))))
+        (set! (-> this particles 30 init-pos x) (+ *PC-CIRCLE-X-ADJUST* (the float (+ s3-4 (the int (* f28-1 (cos f26-5)))))))
+        (set! (-> this particles 30 init-pos y) (+ *PC-CIRCLE-Y-ADJUST* (the float (+ s4-3 (the int (* f28-1 (sin f26-5)))))))))
+    (when *cheat-mode*
+      (let ((a0-46 "AUTO SAVE OFF"))
+        (if (-> *setting-control* current auto-save) (set! a0-46 "AUTO SAVE ON"))
+        (let* ((s3-5 (-> *display* frames (-> *display* on-screen) frame global-buf))
+               (s4-4 (-> s3-5 base)))
+          (draw-string-xy a0-46
+                          s3-5
+                          (the int (+ *PC-AUTOSAVE-X-ADJUST* 430.0 f30-0))
+                          200
+                          (font-color progress-memcard)
+                          (font-flags shadow kerning middle))
+          (let ((a3-9 (-> s3-5 base)))
+            (let ((v1-81 (the-as object (-> s3-5 base))))
+              (set! (-> (the-as dma-packet v1-81) dma) (new 'static 'dma-tag :id (dma-tag-id next)))
+              (set! (-> (the-as dma-packet v1-81) vif0) (new 'static 'vif-tag))
+              (set! (-> (the-as dma-packet v1-81) vif1) (new 'static 'vif-tag))
+              (set! (-> s3-5 base) (&+ (the-as pointer v1-81) 16)))
+            (dma-bucket-insert-tag (-> *display* frames (-> *display* on-screen) frame bucket-group)
+                                   (bucket-id debug)
+                                   s4-4
+                                   (the-as (pointer dma-tag) a3-9))))))
+    (let ((a0-52 (-> this icons 5 icon 0 root)))
+      (set-yaw-angle-clear-roll-pitch! a0-52 (- (y-angle a0-52) (* 182.04445 (* 4.0 (-> *display* time-adjust-ratio))))))
+    (let* ((f28-2 (* 0.00024414062 (the float (-> *progress-process* 0 in-out-position))))
+           (f30-1 (* 300.0 f28-2)))
+      (set! (-> this particles 18 init-pos x)
+            (+ *PC-ORB-GLOW-X-ADJUST* (the float (+ (the int (the float (adjust-pos s5-0 50))) 394 (the int f30-1) (-> this right-x-offset)))))
+      (set! (-> this particles 18 init-pos y) (the float (- 40 (the int (* 80.0 f28-2)))))
+      (set! (-> this icons 5 icon-x)
+            (+ (the int *PC-ORB-X-ADJUST*) (the int (the float (adjust-pos s5-0 50))) 393 (the int f30-1) (-> this right-x-offset)))
+      (set! (-> this icons 5 icon-y) (- (-> this small-orb-y-offset) (the int (* 80.0 f28-2))))
+      (set! (-> this particles 16 init-pos x)
+            (+ *PC-CELL-X-ADJUST* (the float (+ (the int (the float (adjust-pos s5-0 100))) 425 (the int f30-1) (-> this right-x-offset)))))
+      (set! (-> this particles 16 init-pos y) (the float (- 112 (the int (* 60.0 f28-2)))))
+      (set! (-> this particles 17 init-pos x)
+            (the float
+                 (+ (the int (the float (adjust-pos s5-0 150)))
+                    442
+                    (the int f30-1)
+                    (the int (* 0.7 (the float (-> this right-x-offset)))))))))
+  (set! (-> this particles 17 init-pos y) 193.0)
+  0
+  (none))
+
+
 (defun init-game-options ((obj progress))
   "Set the options for all of the menus."
   ;; start off by making them all invalid
diff --git a/scripts/gsrc/jak1-sprite-adjustments.py b/scripts/gsrc/jak1-sprite-adjustments.py
new file mode 100644
index 0000000000..45f8b49d25
--- /dev/null
+++ b/scripts/gsrc/jak1-sprite-adjustments.py
@@ -0,0 +1,279 @@
+import numpy as np
+import matplotlib.pyplot as plt
+from numpy.polynomial.polynomial import Polynomial
+
+# 1:1 - 1.00 - 500x500
+# 5:4 - 1.25 - 640x512
+# 4:3 - 1.33 - 640x480
+# 3:2 - 1.50 - 480x320
+# 16:10 - 1.60 - 640x400
+# 16:9 - 1.78 - 640x360
+# 1.85:1 - 1.85 - 640x346
+# 21:9 - 2.33 - 640x274
+# 2.35:1 - 2.35 - 640x272
+# 2.39:1 - 2.39 - 640x267
+# 32:9 - 3.56 - 1280x360
+
+# (ml "progress-pc")
+# (pc-set-window-size 500 500)
+# (set! (-> *progress-process* 0 left-x-offset) 20)
+# (set! (-> *progress-process* 0 right-x-offset) 20)
+# (set! *PC-CROSS-X-ADJUST* -20.0)
+# (set! *PC-CROSS-Y-ADJUST* -20.0)
+# (set! *PC-SQUARE-X-ADJUST* -20.0)
+# (set! *PC-SQUARE-Y-ADJUST* -20.0)
+
+values = [
+    {
+        'aspect': 1.00,
+        'left': 20,
+        'right': -33,
+        'cross-x': -20.0,
+        'cross-y': -20.0,
+        'square-x': -5.0,
+        'square-y': -10.0,
+        'triangle-x': 0.0,
+        'triangle-y': 0.0,
+        'circle-x': 0.0,
+        'circle-y': 0.0,
+        'percent-x': 0.0,
+        'autosave-x': 0.0,
+        'orb-x': 0.0,
+        'orb-glow-x': 0.0,
+        'orb-text-x': 0.0,
+        'cell-x': 0.0,
+        'cell-text-x': 0.0,
+        'buzzer-text-x': 0.0,
+        'options-text-x': 0.0
+    },
+    {
+        'aspect': 1.25,
+        'left': 4,
+        'right': -6,
+        'cross-x': -5.0,
+        'cross-y': 0.0,
+        'square-x': 0.0,
+        'square-y': 0.0,
+        'triangle-x': 0.0,
+        'triangle-y': 0.0,
+        'circle-x': 0.0,
+        'circle-y': 0.0,
+        'percent-x': 0.0,
+        'autosave-x': 0.0,
+        'orb-x': 0.0,
+        'orb-glow-x': 0.0,
+        'orb-text-x': 0.0,
+        'cell-x': 0.0,
+        'cell-text-x': 0.0,
+        'buzzer-text-x': 0.0,
+        'options-text-x': 0.0
+    },
+    {
+        'aspect': 1.33,
+        'left': 0,
+        'right': 0,
+        'cross-x': 0.0,
+        'cross-y': 0.0,
+        'square-x': 0.0,
+        'square-y': 0.0,
+        'triangle-x': 0.0,
+        'triangle-y': 0.0,
+        'circle-x': 0.0,
+        'circle-y': 0.0,
+        'percent-x': 0.0,
+        'autosave-x': 0.0,
+        'orb-x': 0.0,
+        'orb-glow-x': 0.0,
+        'orb-text-x': 0.0,
+        'cell-x': 0.0,
+        'cell-text-x': 0.0,
+        'buzzer-text-x': 0.0,
+        'options-text-x': 0.0
+    },
+    {
+        'aspect': 1.5,
+        'left': -6,
+        'right': 12,
+        'cross-x': 5.0,
+        'cross-y': 0.0,
+        'square-x': 5.0,
+        'square-y': 0.0,
+        'triangle-x': 0.0,
+        'triangle-y': 0.0,
+        'circle-x': 0.0,
+        'circle-y': 0.0,
+        'percent-x': 12.0,
+        'autosave-x': 10.0,
+        'orb-x': 0.0,
+        'orb-glow-x': 0.0,
+        'orb-text-x': 0.0,
+        'cell-x': 0.0,
+        'cell-text-x': 0.0,
+        'buzzer-text-x': 0.0,
+        'options-text-x': 0.0
+    },
+    {
+        'aspect': 1.60,
+        'left': -10,
+        'right': 18,
+        'cross-x': 8.0,
+        'cross-y': 5.0,
+        'square-x': 5.0,
+        'square-y': 0.0,
+        'triangle-x': 0.0,
+        'triangle-y': 0.0,
+        'circle-x': 0.0,
+        'circle-y': 0.0,
+        'percent-x': 12.0,
+        'autosave-x': 10.0,
+        'orb-x': 0.0,
+        'orb-glow-x': 0.0,
+        'orb-text-x': 0.0,
+        'cell-x': 0.0,
+        'cell-text-x': 0.0,
+        'buzzer-text-x': 0.0,
+        'options-text-x': 0.0
+    },
+    {
+        'aspect': 1.78,
+        'left': -14,
+        'right': 26,
+        'cross-x': 15.0,
+        'cross-y': 10.0,
+        'square-x': 8.0,
+        'square-y': 10.0,
+        'triangle-x': 0.0,
+        'triangle-y': 0.0,
+        'circle-x': 0.0,
+        'circle-y': 0.0,
+        'percent-x': 15.0,
+        'autosave-x': 10.0,
+        'orb-x': 0.0,
+        'orb-glow-x': 0.0,
+        'orb-text-x': 0.0,
+        'cell-x': 0.0,
+        'cell-text-x': 0.0,
+        'buzzer-text-x': 0.0,
+        'options-text-x': 0.0
+    },
+    {
+        'aspect': 1.85,
+        'left': -16,
+        'right': 29,
+        'cross-x': 17.0,
+        'cross-y': 10.0,
+        'square-x': 8.0,
+        'square-y': 10.0,
+        'triangle-x': 0.0,
+        'triangle-y': 0.0,
+        'circle-x': 0.0,
+        'circle-y': 0.0,
+        'percent-x': 15.0,
+        'autosave-x': 10.0,
+        'orb-x': 0.0,
+        'orb-glow-x': 0.0,
+        'orb-text-x': 0.0,
+        'cell-x': 0.0,
+        'cell-text-x': 0.0,
+        'buzzer-text-x': 0.0,
+        'options-text-x': 0.0
+    },
+    {
+        'aspect': 2.33,
+        'left': -25,
+        'right': 45,
+        'cross-x': 30.0,
+        'cross-y': 20.0,
+        'square-x': 15.0,
+        'square-y': 15.0,
+        'triangle-x': 2.0,
+        'triangle-y': 5.0,
+        'circle-x': 2.0,
+        'circle-y': -7.0,
+        'percent-x': 18.0,
+        'autosave-x': 15.0,
+        'orb-x': 0.0,
+        'orb-glow-x': 0.0,
+        'orb-text-x': 0.0,
+        'cell-x': 0.0,
+        'cell-text-x': 0.0,
+        'buzzer-text-x': 0.0,
+        'options-text-x': 0.0
+    },
+    {
+        'aspect': 2.35,
+        'left': -26,
+        'right': 46,
+        'cross-x': 30.0,
+        'cross-y': 20.0,
+        'square-x': 15.0,
+        'square-y': 15.0,
+        'triangle-x': 2.0,
+        'triangle-y': 5.0,
+        'circle-x': 2.0,
+        'circle-y': -7.0,
+        'percent-x': 18.0,
+        'autosave-x': 15.0,
+        'orb-x': 0.0,
+        'orb-glow-x': 0.0,
+        'orb-text-x': 0.0,
+        'cell-x': 0.0,
+        'cell-text-x': 0.0,
+        'buzzer-text-x': 0.0,
+        'options-text-x': 0.0
+    },
+    {
+        'aspect': 3.56,
+        'left': -37,
+        'right': 65,
+        'cross-x': 45.0,
+        'cross-y': 25.0,
+        'square-x': 17.0,
+        'square-y': 15.0,
+        'triangle-x': 3.0,
+        'triangle-y': 5.0,
+        'circle-x': 5.0,
+        'circle-y': -10.0,
+        'percent-x': 25.0,
+        'autosave-x': 18.0,
+        'orb-x': 5.0,
+        'orb-glow-x': 4.0,
+        'orb-text-x': 10.0,
+        'cell-x': -10.0,
+        'cell-text-x': 2.0,
+        'buzzer-text-x': -5.0,
+        'options-text-x': 3.0
+    },
+]
+
+adjustments = [
+    'left', 'right', 'cross-x', 'cross-y', 'square-x', 'square-y', 'triangle-x', 'triangle-y', 'circle-x', 'circle-y', 'percent-x', 'autosave-x', 'orb-x', 'orb-glow-x', 'orb-text-x', 'cell-x', 'cell-text-x', 'buzzer-text-x', 'options-text-x'
+]
+
+aspect_ratio_values = []
+for dataset in values:
+    aspect_ratio_values.append(dataset['aspect'])
+aspect_ratios = np.array(aspect_ratio_values)
+
+def check_return_value(aspect_ratio, coefs):
+    return coefs[0] + coefs[1] * aspect_ratio + coefs[2] * aspect_ratio**2
+
+for adjust in adjustments:
+    # collect the values
+    data_values = []
+    for dataset in values:
+        data_values.append(dataset[adjust])
+    np_values = np.array(data_values)
+    # polynomial regression to interpolate between values
+    poly = Polynomial.fit(aspect_ratios, np_values, 3)
+    coefficients = poly.convert().coef
+    # produce a goal function to represent this polynomial
+    # if the aspect-ratio is close within a threshold we use that
+    function_string = ""
+    function_string += f"(defun pc-sprite-adjust-{adjust} ((aspect-ratio float))\n"
+    function_string += f"  (cond\n"
+    for aspect_ratio, value in zip(aspect_ratios, data_values):
+        function_string += f"   ((fequal-epsilon? aspect-ratio {aspect_ratio} 0.01) {value:.1f})\n"
+    function_string += f"   (else\n    (+ {coefficients[0]}\n     (* {coefficients[1]} aspect-ratio)\n     (* {coefficients[2]} aspect-ratio aspect-ratio)\n     (* {coefficients[3]} aspect-ratio aspect-ratio aspect-ratio)))))\n"
+    print(function_string)
+       
\ No newline at end of file