raytracer_compacted.uiua

s ← 100 # resulution (100 takes ~16 sec)
d ← /↧⊂⊂⊃⊃(-∶5⌵)(÷20[
[7 1 1 30 4 ¯6]
[7 1 1 30 5 ¯5]
[7 1 1 30 6 ¯4]
[7 1 1 30 7 ¯3]]
∶⌵-⊙∶∶⊃(↙)(↘)3⍉
+⊃(√/+ⁿ2↥0)(↧0/↥)-)(
-⊙(√/+ⁿ2-)♭⊃(↙)(↘)1⍉÷10[
[7 30 2 ¯9]
[3 24 1 2]
[1 20 ¯3 ¯2]
[2 20 3 3]])
⍉⍉▽↯⧻,⊙(⍉▽)∶↯⊙.⧻, ↥1⁅÷s500 ⊞(0.5÷-1s⊂
!(|2 ↬>1e-3.d.+×⊙,)1×0⇡3 ÷√/+ⁿ2.⊂2-
÷2+1⊡1.÷√/+ⁿ2.-⊙;≡d⍉.+×1e¯6⊞=.⇡3∶d..⊙;;
×⊙(÷10++⊓(×9_5_5↥0⊡1)⊃(⊡2∶○×19√/+ⁿ2.
×4_0_7↥0○×97+)(×4_4_9>0.35⊡1))).⇡s