formatter: more changes to constant pairs

2026-08-15 21:00:19 -04:00 · 2024-05-18 15:04:43 -04:00
parent 59d25e41a7
commit 9f2bcf6519
10 changed files with 1125 additions and 713 deletions
@@ -100,3 +100,85 @@ Amibiguous List
 :test 456
 :not-paired
 :doit 789)
+
+===
+Within unrelated form
+===
+
+(new 'static
+     'gif-tag64
+     :nloop
+     #x1
+     :eop
+     #x1
+     :pre
+     #x1
+     :prim
+     (new 'static 'gs-prim :prim (gs-prim-type line) :iip #x1 :abe #x1)
+     :nreg
+     #x4)
+
+---
+
+(new 'static
+     'gif-tag64
+     :nloop #x1
+     :eop #x1
+     :pre #x1
+     :prim
+     (new 'static 'gs-prim :prim (gs-prim-type line) :iip #x1 :abe #x1)
+     :nreg #x4)
+
+===
+Quoted Symbol
+===
+
+(new 'static
+     'clm-item
+     :description "adjust"
+     :button-symbol
+     'x
+     :action
+     (new 'static 'clm-item-action :button #x4000 :func #f))
+
+---
+
+(new 'static
+     'clm-item
+     :description "adjust"
+     :button-symbol 'x
+     :action
+     (new 'static 'clm-item-action :button #x4000 :func #f))
+
+===
+Special case forms
+===
+
+(define *CAMERA_MASTER-bank*
+  (new 'static
+       'camera-master-bank
+       :onscreen-head-height
+       (meters 2.65)
+       :onscreen-foot-height
+       (meters -0.5)
+       :target-height
+       (meters 2.15)
+       :up-move-to-pitch-ratio-in-air 1.0
+       :down-move-to-pitch-ratio-in-air 0.5
+       :up-move-to-pitch-on-ground 0.9
+       :down-move-to-pitch-on-ground 0.9
+       :pitch-off-blend 0.5))
+
+---
+
+(define *CAMERA_MASTER-bank*
+  (new 'static
+       'camera-master-bank
+       :onscreen-head-height (meters 2.65)
+       :onscreen-foot-height (meters -0.5)
+       :target-height (meters 2.15)
+       :up-move-to-pitch-ratio-in-air 1.0
+       :down-move-to-pitch-ratio-in-air 0.5
+       :up-move-to-pitch-on-ground 0.9
+       :down-move-to-pitch-on-ground 0.9
+       :pitch-off-blend 0.5))